
Private Sub Form_Load()
On Error Resume Next
Dim COM As Integer
COM = 0
COM = InputBox("   INSERISCI PORTA SERIALE  ", "PORTA COM")
MSComm1.CommPort = COM
MSComm1.Settings = "19200,N,8,1"
MSComm1.RThreshold = 1
MSComm1.PortOpen = True

Label3.Caption = "COM" & COM
Shape1.FillColor = &HFF00&
If Err Then
  Shape1.FillColor = &HFF&
End If
End Sub

Private Sub MSComm1_OnComm()
        Dim Rx As String
        Rx = MSComm1.Input
                If Len(Rx) Then  ' legge il buffer di ricezione
                Text1.Text = Text1.Text & Rx   '& vbCrLf
                If Rx = "z" Then
                'Text1.Text = Rx
                Shape17.FillColor = &HFF&
                End If
                End If
               
            'If Rx > 15 Then Shape13.FillColor = &HFF00&
            ' If Rx < 20 Then Shape13.FillColor = &HFF00&: Shape14.FillColor = &HFF00&
            ' If Rx < 25 Then Shape13.FillColor = &HFF00&: Shape14.FillColor = &HFF00&: Shape15.FillColor = &HFF00&
            '  If Rx < 30 Then Shape13.FillColor = &HFF00&: Shape14.FillColor = &HFF00&: Shape15.FillColor = &HFF00&: Shape16.FillColor = &HFF00&
             
            
 End Sub
Private Sub Command6_Click()
MSComm1.Output = Chr$(103)  'fontana on
Shape2.FillColor = &HFF00&
End Sub

Private Sub Command7_Click()
MSComm1.Output = Chr$(104) ' fontana off
Shape2.FillColor = &HFF&
End Sub
Private Sub Command9_Click()
MSComm1.Output = Chr$(99)  ' luci case on
Shape3.FillColor = &HFF00&
End Sub

Private Sub Command8_Click()
MSComm1.Output = Chr$(100)  ' luci case off
Shape3.FillColor = &HFF&
End Sub

Private Sub Command2_Click()
MSComm1.Output = Chr$(101) ' luci giorno on
Shape4.FillColor = &HFF00&
End Sub
Private Sub Command4_Click()
MSComm1.Output = Chr$(102)  ' luci giorno off
Shape4.FillColor = &HFF&
End Sub

Private Sub Command5_Click()
MSComm1.Output = Chr$(97)  ' panni stes on
Shape5.FillColor = &HFF00&
End Sub

Private Sub Command10_Click()
MSComm1.Output = Chr$(98)  ' panni stesi off
Shape5.FillColor = &HFF&
End Sub

Private Sub Command11_Click()
MSComm1.Output = Chr$(105) ' stelle on
Shape6.FillColor = &HFF00&
End Sub
Private Sub Command12_Click()
MSComm1.Output = Chr$(106) ' stelle off
Shape6.FillColor = &HFF&
End Sub
Private Sub Command15_Click()
MSComm1.Output = Chr$(107) ' fuoco on
Shape7.FillColor = &HFF00&
End Sub
Private Sub Command16_Click()
MSComm1.Output = Chr$(108) ' fuoco off
Shape7.FillColor = &HFF&
End Sub
Private Sub Command21_Click()
MSComm1.Output = Chr$(109) ' pastori on
Shape11.FillColor = &HFF00&
End Sub

Private Sub Command22_Click()
MSComm1.Output = Chr$(110) 'pastori off
Shape11.FillColor = &HFF&
End Sub
Private Sub Command23_Click()
MSComm1.Output = Chr$(111) ' luci notte on
Shape12.FillColor = &HFF00&
End Sub

Private Sub Command24_Click()
MSComm1.Output = Chr$(112) 'luci notte off
Shape12.FillColor = &HFF&
End Sub

Private Sub Command3_Click()
Shape17.FillColor = &HFF00&
MSComm1.Output = Chr$(116) ' test
End Sub

Private Sub Command1_Click()
Text1.Text = ""
End Sub
Private Sub Command13_Click()
MSComm1.Output = Chr$(117) ' reset comandi
Shape2.FillColor = &HFF&
Shape3.FillColor = &HFF&
Shape4.FillColor = &HFF&
Shape5.FillColor = &HFF&
Shape6.FillColor = &HFF&
Shape7.FillColor = &HFF&
Shape11.FillColor = &HFF&
Shape12.FillColor = &HFF&

End Sub
Private Sub Command17_Click()
MSComm1.Output = Chr$(113) 'Programma on
Shape8.FillColor = &HFF00&
End Sub
Private Sub Command19_Click()
MSComm1.Output = Chr$(115) ' programma day
Shape10.FillColor = &HFF00&
End Sub
Private Sub Command18_Click()
MSComm1.Output = Chr$(114) ' temperatura
Shape9.FillColor = &HFF00&
End Sub

Private Sub Command25_Click()
MSComm1.Output = Chr$(121)
Shape9.FillColor = &HFF&
End Sub

Private Sub Command20_Click()
MSComm1.Output = Chr$(98)
Shape2.FillColor = &HFF&
MSComm1.Output = Chr$(100)
Shape3.FillColor = &HFF&
MSComm1.Output = Chr$(102)
Shape4.FillColor = &HFF&
MSComm1.Output = Chr$(104)
Shape5.FillColor = &HFF&
MSComm1.Output = Chr$(106)
Shape6.FillColor = &HFF&
MSComm1.Output = Chr$(108)
Shape7.FillColor = &HFF&
MSComm1.Output = Chr$(110)
Shape11.FillColor = &HFF&
MSComm1.Output = Chr$(112)
Shape12.FillColor = &HFF&
Shape6.FillColor = &HFF&
Shape8.FillColor = &HFF&
Shape9.FillColor = &HFF&
Shape10.FillColor = &HFF&
End Sub
Private Sub Command14_Click()
Dim uscita As String
uscita = MsgBox("Sei sicuro di chiudere ?", vbInformation + vbOKCancel, "stai uscendo!")
If uscita = vbOK Then: MSComm1.PortOpen = False
Unload Me
End Sub

Private Sub Command26_Click() ' accende mp3
Shape18.FillColor = &HFF00&
MSComm1.Output = Chr$(120)
End Sub
Private Sub Picture1_Click() ' avvia musica
MSComm1.Output = Chr$(49)
End Sub
Private Sub Command27_Click() ' stop mp3
Shape18.FillColor = &HFF&
MSComm1.Output = Chr$(118)
End Sub

Private Sub Timer1_Timer()
Label9.Caption = Time
Label10.Caption = Date
End Sub
