Gerekenler :
1 Check Box, ( Modül olarak verdiğim genel modülü kullanıcaz. )
Yapılışı :
Formumuza 1 adet Check Box ekliyoruz ve Captionunu Char Gizle Yapıyoruz.
Check 1 Kod Kısmına Aşağıdaki Kodu Yazıyoruz.
Private Sub Check1_Click()
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_HD, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_HD, "1"
End If
End Sub
1 Check Box, ( Modül olarak verdiğim genel modülü kullanıcaz. )
Yapılışı :
Formumuza 1 adet Check Box ekliyoruz ve Captionunu Char Gizle Yapıyoruz.
Check 1 Kod Kısmına Aşağıdaki Kodu Yazıyoruz.
Private Sub Check1_Click()
If Check1.Value = 1 Then
WriteLong KO_ADR_CHR + KO_OFF_HD, "0"
Else
WriteLong KO_ADR_CHR + KO_OFF_HD, "1"
End If
End Sub