Merhaba,
aşağıdaki VB 6.0 da yazdığım kodlar ile Seriportun 5. Pine Ledin katod (-) ucu, 4. Pine Anod (+) ucu gelecek şekilde bağlayın. Girilen süreler nezdinde led yanıp sönecektir.
Dim yakmaperiyodu As Integer
Dim yanıkkalmasüresi As Integer
Private Sub Combo1_Click()
Command2.Enabled = True
End Sub
Private Sub Command2_Click() 'Port seçme Tamam butonu
MSComm1.CommPort = Combo1.Text
Combo1.Enabled = False
Command3.Enabled = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
End Sub
Private Sub Command1_Click() ' Led Yak Butonu
If Text1.Text = "0" Or Text1.Text = "" Then
MsgBox ("Süreler boş veya sıfır olamaz!Bir Sayı giriniz")
Exit Sub
Text1.SetFocus
Else
If Text2.Text = "0" Or Text2.Text = "" Then
MsgBox ("Süreler boş veya sıfır olamaz!Bir Sayı giriniz")
Exit Sub
Text2.SetFocus
End If
End If
Timer1.Enabled = True
yakmaperiyodu = 0
yanıkkalmasüresi = 0
Text1.Enabled = False
Text2.Enabled = False
Command3.Enabled = True
Command1.Enabled = True
Combo1.Enabled = False
Command2.Enabled = False
Command1.Enabled = False
End Sub
Private Sub Command3_Click() ' İptal butonu
Timer1.Enabled = False
Timer2.Enabled = False
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
Text1.Enabled = True
Text2.Enabled = True
Command3.Enabled = False
Command1.Enabled = True
Combo1.Enabled = True
Command2.Enabled = True
Image1.Visible = False
End Sub
Private Sub Timer1_Timer() 'Portun ne zaman açılacağının hesaplandığı timer
yakmaperiyodu = yakmaperiyodu + 1
Label3.Caption = yakmaperiyodu
If yakmaperiyodu = Text1.Text Then
yakmaperiyodu = 0
Timer1.Enabled = False
Timer2.Enabled = True
MSComm1.PortOpen = True
Image1.Visible = True
End If
End Sub
Private Sub Timer2_Timer() 'Portun ne kadar açık kalacağını hesaplandığı timer
yanıkkalmasüresi = yanıkkalmasüresi + 1
Label5.Caption = yanıkkalmasüresi
If yanıkkalmasüresi = Text2.Text Then
yanıkkalmasüresi = 0
Timer2.Enabled = False
Timer1.Enabled = True
MSComm1.PortOpen = False
Image1.Visible = False
End If
End Sub