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 }

}

}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir