| manikdepresif | 22 Ağustos 2025 00:27 |
Basit bir dialoglu sayaç örneği
Can sıkıntısından basit bir sayaç örneği yaptim umarim faydasini goren biri olur.
-
Kodu remotenize koyup sag tiklayip seciyorsunuz.
- Kod:
dialog sayac {
title "El sayac"
size -1 -1 253 164
option dbu
edit "", 1, 11 12 112 30, disable read right
edit "", 2, 131 12 114 147, read multi hsbar vsbar
text "Sayac", 3, 12 2 25 8
text "Zaman", 4, 132 3 25 8
button "< Aşağı", 5, 28 49 37 12
button "Yukarı >", 6, 66 49 37 12
edit "", 7, 13 122 107 28, disable read multi right
text "Toplam Aksiyon", 8, 14 109 47 9
}
on *:dialog:sayac:*:*: {
if $devent == sclick {
if $did == 5 {
var %put = $calc($did(sayac,1) - 1)
did -r sayac 1
did -a sayac 1 %put
did -i sayac 2 1 ( - ) $time $time(dd) $tarihceviray($time(mmmm)) $tarihcevirgun($time(dddd))
inc -e %sayactoplaksiyon 1
did -r sayac 7
did -a sayac 7 %sayactoplaksiyon
}
if $did == 6 {
var %put = $calc($did(sayac,1) + 1)
did -r sayac 1
did -a sayac 1 %put
did -i sayac 2 1 ( + ) $time $time(dd) $tarihceviray($time(mmmm)) $tarihcevirgun($time(dddd))
inc -e %sayactoplaksiyon 1
did -r sayac 7
did -a sayac 7 %sayactoplaksiyon
}
}
if ($devent == close) { unset %sayactoplaksiyon }
}
alias tarihcevirgun {
return $replace($$1,monday,Pazartesi,Tuesday,Sali,Wednesday,Carsamba,Thursday,Persembe,Saturday,Cumartesi,Friday,Cuma,Sunday,Pazar)
}
alias tarihceviray {
return $replace($$1,january,Ocak,February,Subat,march,Mart,april,Nisan,august,Agustos,september,Eylul,october,Ekim,november,Kasim,december,Aralik))
}
menu * {
El Sayaci:{
dialog -m sayac sayac | did -a sayac 1 0
}
} [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
