[ Oto Party ]USKO kendi KOXPUNU kendin yap VB6

Gerekenler :



1 Check Box,

1 Timer

( Modül olarak verdiğim genel modülü kullanıcaz. )

Yapılışı :

Formumuza 1 adet Check Box ekliyoruz ve Captionunu Oto Party Yapıyoruz.

Check 1 Kod Kısmına Aşağıdaki Kodu Yazıyoruz.

Kod:



Private Sub Check1_Click()



If Check1.Value = 1 Then



Timer1.Enabled = True



Else



Timer1.Enabled = False



End If



End Sub



Timer Kod Kısmına aşağıdaki kodu yazıyorsunuz:

Dim pStr As String



Dim pBytes() As Byte



pStr = "2f0201" & hexword



ConvHEX2ByteArray pStr, pBytes







SendPackets pBytes