Public dat As String
Public tim As String
Public CurrentTime As String
Public x, z As Integer

Private Sub Command3_Click()

End Sub

Private Sub Form_Load()
    Timer2.Enabled = True       'Show clock and date'
    Combo1.AddItem "Summer"
    Combo1.AddItem "Winter"
    Combo1.AddItem "Manual"
    Combo1.AddItem "Activate"
     ' MSComm1.CommPort = 1
     ' MSComm1.Settings = "9600,n,8,1"
   If MSComm1.PortOpen = True Then
      MSComm1.PortOpen = False
   End If
End Sub
Private Sub Command1_Click()                 'Manual'
  dat = Text1.Text
  tim = Text2.Text
  Label2.Caption = dat & " " & tim
  Command1.Enabled = False
  Command2.Enabled = True
End Sub
Private Sub Command2_Click()                     'Start'
   x = 0
   z = 0
   Timer1.Enabled = True
   Command2.Enabled = False
   Combo1.Enabled = False
End Sub
Private Sub Combo1_Click()                          'Choosing the Mode'
  CurrentTime = Format(Time, "hh:mm")
  Select Case Combo1.ListIndex
     Case 0
        tim = "20:09"
        Label2.Caption = "Every day at: " & tim
        Command2.Enabled = True
     Case 1
        tim = "19:58"
        Label2.Caption = "Every day at: 19:00"
        Command2.Enabled = True
     Case 2
       Label2.Caption = " "
       Command1.Enabled = True
      ' Command2.Enabled = True
     Case 3
       tim = CurrentTime
       Command2.Enabled = True
    End Select
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub MSComm1_OnComm()

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Text3_Change()

End Sub

Private Sub Text4_Change()

End Sub

Private Sub Timer1_Timer()              'Main Timer'
    CurrentTime = Format(Time, "hh:mm")
    x = x + 1
   ' Text1.Text = x
    Text2.Text = tim
    Text3.Text = CurrentTime
    
    If CurrentTime = tim Then
      If z = 0 Then                            'Checks if sent '
        If MSComm1.PortOpen = False Then
           MSComm1.PortOpen = True
        End If
        MSComm1.Output = Hex(255)
        Text1.Text = Hex(255)
        z = 1
        x = 0
      End If
      Call cw
    End If
  
End Sub
Public Function cw()
  Label2.Caption = "Evrithing vorks "
  Text4.Text = x
  
  If x = 5 Then                    ' Time period in sec - x'
   If MSComm1.PortOpen = False Then
      MSComm1.PortOpen = True
   End If
   MSComm1.Output = Hex(170)
   Text1.Text = Hex(170)
   Label2.Caption = "  "
   MSComm1.PortOpen = False
   Combo1.Enabled = True
   Timer1.Enabled = False
  End If
End Function
Private Sub Timer2_Timer()           'Secondary timer for clock and date '
Label1.Caption = Date & "  " & Time
End Sub

Public Num As String

Private Sub Command1_Click()
    Pr = "byt"
    Num = InputBox$(Pr, , Num)
        
      
      
End Sub

Private Sub Command2_Click()
      MSComm1.CommPort = 1
      MSComm1.Settings = "9600,N,8,1"
      MSComm1.PortOpen = True
      Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
MSComm1.PortOpen = False

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Num
  MSComm1.Output = Num
End Sub