[XdaRkMorganX]

PHP 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:init:0 :{
  mdx SetMircVersion $version 
  mdx MarkDialog $dname 
  mdx SetDialog $dname bgcolor $rgb(130,163,250) 
}
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
} 

[WeiLSiDe]

Emeğine sağlık bide ekran görüntüsü olsa süper olcakmış...

[Spammer]

Bencede Bir Görüntü İyi Olurdu Ama Emek Vermişsin SaoL..

[XdaRkMorganX]

bağlantım yavaş upload zor oluyor.

[Cemalizim]

Ah Bide Çalışsa - Çalıştıramadım Ben Varmı Çalıştıran.

[XdaRkMorganX]

Cemalizm ; MDX.DLL gerekior eğer yoksa

on *:Dialog:polybasic:init:0 :{
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(130,163,250)
}


Bu kısmı çıkar ve
/dialog -m polybasic polybasic

Tamamdır.

[Cemalizim]

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
}

[XdaRkMorganX]

çok iyi oldu hemen değiştiriyorum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.