
Private Sub Form_Load()
Dim COM As Integer
COM = 0
COM = InputBox("   INSERISCI PORTA SERIALE  ", "PORTA COM")
MSComm1.CommPort = COM
MSComm1.Settings = "115200,N,8,1"
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
Label3.Caption = "COM" & COM
End Sub







Private Sub MSComm1_OnComm()
    Dim Rx As String
    Rx = MSComm1.Input
    If Len(Rx) Then ' Se ho ricevuto qualcosa lo scrivo nella TextBox
        Text1.Text = Rx
    End If
     If MSComm1.PortOpen = True Then
     Shape1.FillColor = &HFF00&
     Else
     Shape1.FillColor = &HFF&
     End If
End Sub
Private Sub Check1_Click()
If MSComm1.PortOpen = True Then
     Shape1.FillColor = &HFF00&
     Else
     Shape1.FillColor = &HFF&
     End If
End Sub
     
Private Sub Command6_Click()
MSComm1.Output = Chr$(103)
Shape2.FillColor = &HFF00&
End Sub

Private Sub Command7_Click()
MSComm1.Output = Chr$(104)
Shape2.FillColor = &HFF&
End Sub
Private Sub Command9_Click()
MSComm1.Output = Chr$(99)
Shape3.FillColor = &HFF00&
End Sub

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

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

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

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

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

Private Sub Command22_Click()
MSComm1.Output = Chr$(110)
Shape11.FillColor = &HFF&
End Sub
Private Sub Command23_Click()
MSComm1.Output = Chr$(111)
Shape12.FillColor = &HFF00&
End Sub

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

Private Sub Command3_Click()
MSComm1.Output = Chr$(116)
End Sub

Private Sub Command1_Click()
Text1.Text = ""
End Sub
Private Sub Command13_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&

End Sub
Private Sub Command17_Click()
MSComm1.Output = Chr$(113)
Shape8.FillColor = &HFF00&
End Sub
Private Sub Command18_Click()
MSComm1.Output = Chr$(114)
Shape9.FillColor = &HFF00&
End Sub
Private Sub Command19_Click()
MSComm1.Output = Chr$(115)
Shape10.FillColor = &HFF00&
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()
Unload Me
End Sub

