bir timer ve bir check ile yapın
Bir timer ekleyelim invertal 1000 enabled false olsun
timera bu kodları yazın
-----------------------------------
Dim pStr As String
Dim pBytes() As Byte
pStr = "2f0201" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
bir tane check box ekleyin burda check13 yazıyor ama siz 13ün yerine kendi eklediğiniz checkin ve timerın numarasını yazın
checke eklenecek kodlar
-----------------------------------------------------------
If Check13.Value = 1 Then
Timer10.Enabled = True
Else
Timer10.Enabled = False
End If
End Sub
Rep Puanı
Konu: Ders15 - Oto Party 
Salı Mayıs 12, 2009 1:58 pm
