Hallo,
unten seht ihr das Programm einer Zeitschaltuhr, das in VB geschrieben
worden ist und funktioniert.
Wer kann mir dabei helfen, dieses in Delphi umzuwandeln...
Code:
Private Sub Form_Load()
If OPENCOM("COM2:9600,N,8,1") = 0 Then MsgBox ("COM2 belegt")
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
CLOSECOM
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time$
If Time$ < Text1.Text Then DTR 0
If (Time$ > Text2.Text) And (Time$ < Text3.Text) Then DTR 1
If (Time$ > Text3.Text) And (Time$ < Text4.Text) Then DTR 0
If (Time$ > Text4.Text) And (Time$ < Text5.Text) Then DTR 1
If (Time$ > Text5.Text) Then DTR 0
End Sub
Danke im voraus
Gruß
Thorsten