[BLaCK_and_WHiTe]

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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 }
  }
}

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

Kodlama bana aittir koda ve ya diyaloga imza koymadım anonim olarak kullanılması beni bozmaz. Nasıl olsa kullanacak olan kendi imzasını koyar bize sormadan.