Tekil Mesaj gösterimi
Alt 11 Temmuz 2009, 18:33   #7
Çevrimdışı
Cemalizim Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: daRkMoRGaN Hesap Makinesi Yazılımı.




Ama Bu Dediğini Çoğu Insan Bilmez Bilmeyen , Channel - Status felan Ekleseydin Kolaylıkla Açılır.

Kodu Şöyle Yaparsak Daha iyi olur diye düşünüyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog polybasic { title "PoLy " size -1 -1 66 93 option dbu button "7", 7, 2 16 14 14, flat button "8", 8, 17 16 14 14, flat button "9", 9, 32 16 14 14, flat button "1", 1, 2 46 14 14, flat button "4", 4, 2 31 14 14, flat button "5", 5, 17 31 14 14, flat button "6", 6, 32 31 14 14, flat button "2", 2, 17 46 14 14, flat button "3", 3, 32 46 14 14, flat button ".", 10, 2 61 14 14, flat button "0", 11, 17 61 14 14, flat button "=", 12, 32 61 14 14, flat button "+", 13, 50 16 14 14 button "-", 14, 50 31 14 14 button "*", 15, 50 46 14 14 button "/", 16, 50 61 14 14 ;button "+/-", 17, 2 77 14 14 button "^", 18, 50 77 14 14 button "C", 19, 50 1 14 14, flat edit "", 20, 2 2 48 12 button "x²", 21, 32 77 14 14 button "x³", 22, 17 77 14 14 } on *:dialog:polybasic:*:*: { if ($devent == sclick) { if ($did isnum 1-9) { did -a $dname 20 $did } if ($did == 11) { did -a $dname 20 0 } if ($did == 10) && (. !isin %stf) { did -a $dname 20 . } if ($did == 19) { did -r $dname 20 } if ($did == 12) { var %sett = $calc($did($dname,20)) | did -r $dname 20 | $iif($len(%sett) > 14,echo -a ek,did -a $dname 20) %sett } if ($did == 13) { did -a $dname 20 + } if ($did == 14) { did -a $dname 20 - } if ($did == 15) { did -a $dname 20 * } if ($did == 16) { did -a $dname 20 / } if ($did == 18) { did -a $dname 20 ^ } if ($did == 21) { var %sett $calc($did($dname,20) ^ 2) | did -r $dname 20 | did -a $dname 20 %sett } if ($did == 22) { var %sett $calc($did($dname,20) ^ 3) | did -r $dname 20 | did -a $dname 20 %sett } } } menu channel,status { » Hesap Makinesi:dialog -m polybasic polybasic }


__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan