Socket: Gogo Board + VB – II

Abaixo temos o código utilizado no VB:


Private Sub Command1_Click()
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Winsock1.SendData "beep"
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.5.101"
'Winsock1.RemotePort = "42001"
Winsock1.RemotePort = "9873"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub

Ao executá-lo a placa emitirá o sinal sonoro de beep. Outros comandos podem ser utilizados, vide documentação.

Anúncios