mIRC Hesap Makinesi
1. Editboxa yazma iptal edildi, böylece harfler yazılamayacak. editboxa 255 limiti getirldi ilkinde limiti 9 10 gibi birşeydi, dstudio dan daha fazlasını bilmek gerekmiş demekki
2. Mdx dll si sırf arka plan için kullanılmış ve gereksizdi iptal edildi.
3. 0 ve . nın item numaraları değiştirildi böylece isnum 1-10 kullanılabildi
4. . tuşunu 1 defa yazınca daha fazla yazılması engellendi
5. +/- buttonu çalışır hale getirildi
6. hesap makinesini çalıştırmak için /poly fonksiyonu eklendi
Değişimlere rağmen gözüken eksikler:
1. Memory işlemleri yok MC M+ M-
2. Tekrarlama fonksiyonu yok + ya sürekli basınca toplaması gibi
3. % yok
alias poly { unset %poly-var, %poly-do | if !$dialog(poly) { dialog -m poly BWcalc } }
dialog BWcalc {
title “Hesap Makinesi”
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 “.”, 11, 2 61 14 14, flat
button “0”, 10, 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, read autohs limit 255
button “x²”, 21, 32 77 14 14
button “x³”, 22, 17 77 14 14
}
on *:dialog:poly:*:*: {
if ($devent == sclick) {
if $did isnum 1-10 { did -a $dname 20 $did($did) }
if $did == 11 { if . !isin $did(20) { did -a $dname 20 . } }
if $did == 17 { if $calc(-1 * $did(20)) { did -ra $dname 20 $v1 } }
if $did isnum 13-16 || $did == 18 {
set %poly-var $did(20)
set %poly-do $did($did)
did -r $dname 20
}
if $did == 12 {
if %poly-var {
did -ra $dname 20 $calc(%poly-var %poly-do $did(20))
unset %poly-do, %poly-var
}
}
if $did isnum 21-22 {
did -ra $dname 20 $calc($did(20) ^ $iif($did == 21,2,3))
}
if $did == 19 { did -r $dname 20 | unset %poly-do, %poly-var }
}
}