netPIO mit Visual Studio VB2010

http://www.electronic-software-shop.com ... e/usb-pio/
Antworten
abacom
Site Admin
Beiträge: 3231
Registriert: Dienstag 23. September 2008, 10:54
Kontaktdaten:

netPIO mit Visual Studio VB2010

Beitrag von abacom » Donnerstag 24. Juli 2014, 07:45

Aus einer Kunden-Email...
ich habe jetzt den Response für GETAUX geschafft. hier der Code für Visual Studio VB2010 falls Sie Ihn verwenden möchten.

Code: Alles auswählen

Imports System.Net.Sockets
Imports System.Net
Imports System.Text
 Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Einen UDP Net Socket erstellen
        Dim clientUDP As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        'Ip Adresse des netPIO
        Dim netPIO_IP As IPAddress
        Dim bytes2(200) As Byte
        'einen IPEndPoint erstellen von jeder IP
        'Creates an IPEndPoint to record the IP address and port number of the sender. 
        'The IPEndPoint will allow you to read datagrams sent from any source.
        Dim ep As New IPEndPoint(IPAddress.Any, 0)
        netPIO_IP = IPAddress.Parse("192.168.2.144")
        'verbinden
        clientUDP.Connect(New IPEndPoint(netPIO_IP, 37155))
        'Befehl senden
        clientUDP.Send(System.Text.Encoding.ASCII.GetBytes("GETAUX"))
        'Antwort abfangen
        clientUDP.ReceiveFrom(bytes2, ep)
        'Bytes zum String umwandeln
        Dim ReceiveStr As String = Encoding.ASCII.GetString(bytes2)
        clientUDP.Close()
        MsgBox(ReceiveStr)
    End Sub
ABACOM support

abacom
Site Admin
Beiträge: 3231
Registriert: Dienstag 23. September 2008, 10:54
Kontaktdaten:

Re: netPIO mit Visual Studio VB2010

Beitrag von abacom » Freitag 25. Juli 2014, 07:35

Hier noch ein LED TOGGLE des Kunden...
Dann hab ich noch eine zweite Möglichkeit um nur einen Befehl an das netPIO zu senden.

Code: Alles auswählen

Imports System.Net.Sockets
Imports System.Net
Imports System.Text
 
  Private Shared sck As Socket
    '### Code to send data via UDP begin ###
    Public Shared Sub SendToDevice()
        Dim command As String = "LEDTOGGLE"
        Connect()
        sck.Send(System.Text.Encoding.ASCII.GetBytes(command))
        sck.Close()
    End Sub
    Private Shared Sub Connect()
        Dim clientIPAddress As IPAddress = IPAddress.Parse("192.168.2.144")
        sck = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
        sck.Connect(New IPEndPoint(clientIPAddress, 37155))
    End Sub
    Private Sub cmdSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSendData.Click
        SendToDevice()
    End Sub
    '### Code to send data via UDP end ###
ABACOM support

Antworten

Zurück zu „USB-µPIO / netPIO“