Private Sub Command1_Click()
If MSComm1.PortOpen = True And Text7.Text = 3 Then
MSComm1.Output = Text1.Text
Text7.Text = Text7.Text - 1
End If
If MSComm1.PortOpen = True And Text7.Text = 2 Then
MSComm1.Output = Text3.Text
Text7.Text = Text7.Text - 1
End If
If MSComm1.PortOpen = True And Text7.Text = 1 Then
MSComm1.Output = Text4.Text
Text7.Text = Text7.Text - 1
End If
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub Command3_Click()
If MSComm1.PortOpen = True And Text8.Text = 3 Then
Text2.Text = MSComm1.Input
Text8.Text = Text8.Text - 1
End If
If MSComm1.PortOpen = True And Text8.Text = 2 Then
Text5.Text = MSComm1.Input
Text8.Text = Text8.Text - 1
End If
If MSComm1.PortOpen = True And Text8.Text = 1 Then
Text6.Text = MSComm1.Input
Text8.Text = Text8.Text - 1
End If
End Sub
Private Sub Command4_Click()
If MSComm1.PortOpen = True Then
MSComm1.Output = Text7.Text
End If
End Sub
Private Sub Command5_Click()
If MSComm1.PortOpen = True Then
Text8.Text = MSComm1.Input
End If
End Sub
Private Sub Form_Load()
If MSComm1.PortOpen = True Then
Command1.Enabled = False
End If
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Shape1.FillColor = &HFF00&
End If
End Sub