abacom-online.de

Das offizielle Elektronik-Software Forum
Aktuelle Zeit: Samstag 21. Oktober 2017, 11:24

Alle Zeiten sind UTC + 1 Stunde




Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: netPIO mit Visual Studio VB2010
BeitragVerfasst: Donnerstag 24. Juli 2014, 07:45 
Offline
Site Admin

Registriert: Dienstag 23. September 2008, 10:54
Beiträge: 3157
Aus einer Kunden-Email...
Zitat:
ich habe jetzt den Response für GETAUX geschafft. hier der Code für Visual Studio VB2010 falls Sie Ihn verwenden möchten.

Code:
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


Nach oben
 Profil  
 
 Betreff des Beitrags: Re: netPIO mit Visual Studio VB2010
BeitragVerfasst: Freitag 25. Juli 2014, 07:35 
Offline
Site Admin

Registriert: Dienstag 23. September 2008, 10:54
Beiträge: 3157
Hier noch ein LED TOGGLE des Kunden...

Zitat:
Dann hab ich noch eine zweite Möglichkeit um nur einen Befehl an das netPIO zu senden.


Code:
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


Nach oben
 Profil  
 
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 

Alle Zeiten sind UTC + 1 Stunde


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.
Sie dürfen keine Dateianhänge in diesem Forum erstellen.

Suche nach:
Gehe zu:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Deutsche Übersetzung durch phpBB.de