Öncelikle kodunu, Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias opers { dialog -m opers opers }
dialog opers {
title "Oper Girisi"
size -1 -1 130 79
option dbu
edit "", 1, 22 17 90 10
text "Oper Nickiniz", 2, 41 6 48 8
text "Oper Sifreniz", 3, 44 33 47 8
edit "", 4, 22 47 89 10
check "Auto oper aktif", 5, 22 63 50 10
button "Tamam", 6, 85 62 37 12,ok
}
on *:dialog:opers:*:*:{
if $devent == init { if ($group(#autos) == On) { did -c opers 5 } | did -a opers 1 $iif(%Opernick != $null,%Opernick,-yok-) | did -a opers 4 $iif(%OperSifre != $null,%OperSifre,-yok-) }
if ($devent == sclick && $did == 5) { if ($did($dname,5).state == 1) { .enable #autos } | else { .disable #autos } }
if $devent == edit { set %Opernick $did(1) | set %OperSifre $did(4) }
}
#autos off
on 1:connect: { if ($me == %Opernick) { oper %Opernick %OperSifre } }
#autos end
şeklinde değiştir.
Kodda 5 numaralı ID'ye yani Check nesnesine tıklandığında #autos Grubu aktif hale gelir. yani iki "#autos" arasındaki kodlar çalışır duruma geçer.Check nesnesi tıksız oldugunda bu grup Off olur.Yani çalışmaz hale geçer.
Dialog açıldığı an bu grubun kontrolü yapılır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $devent == init { if ($group(#autos) == On) { did -c opers 5 } | did -a opers 1 $iif(%Opernick != $null,%Opernick,-yok-) | did -a opers 4 $iif(%OperSifre != $null,%OperSifre,-yok-) }
Eğer "#autos == On" ise Check nesnesi tıklı hale getirilir.Yani "did -c opers 5".Daha sonra önceden kaydedilmiş %Opernick ve %OperSifre değerleri varsa edit nesnelerine yazdırılır.Eğer bu değerler önceden kaydedilmemişse yani "boşsa" -yok- şeklinde bir yazı 1 ve 4 nesnelerine yazdırılır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
did -a opers 1 $iif(%Opernick != $null,%Opernick,-yok-)
did -a opers 4 $iif(%OperSifre != $null,%OperSifre,-yok-)
Dialog açıkken, 5 nesnesine tıklanırsa;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if ($devent == sclick && $did == 5) { if ($did($dname,5).state == 1) { .enable #autos } | else { .disable #autos } }
#autos grubu aktif hale gelir.Tik işareti kaldırılırsa #autos deaktif olur.
Bir de eğer editlere bir değer girilirse o an kayıt işlemi yapılır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if $devent == edit { set %Opernick $did(1) | set %OperSifre $did(4) }
başka sorun varmı?