Modbus TCP - Wie die abgefragten Integer-Register-Werte "zusammenbauen" in String, Long, Double, etc...

dive26 · 28. Oktober 2022, 12:31

@BitBrösel

Wenn ich den anderen Wechselrichter (mit Modbus ID 2) anspreche, der KEINE Optimierer hat,
Dann erhalte ich 00 00 00 00 00 03 02 80 04 zurück.

Wenn ich den einen Wechselrichter (mit Modbus ID 3) anspreche, der Optimierer hat,
Dann erhalte ich 00 00 00 00 00 03 03 80 01 zurück.

Die drei (oder zwei) an 7. Stelle ist die übergebene Modbus ID. Also wohl doch nur Zufall ;-).

dive26 · 8. November 2022, 14:52

@BitBröselnull
Huawei hat nach langem hin- und her zumindest die Modbus-Beschreibung geliefert.

Ich habe mal "klein" angefangen und eine normale Registerabfrage durchgeführt.
Zur Erklärung des Screenshots:

VB.NET-Quellcode

Dim frame As Byte() = New Byte(11) {}
'Transmission Flag (2Bytes) - Generated by client - copy value on answer
frame(0) = 98
frame(1) = 91
'Protocol Flag (2Bytes) - Generated by client - copy value on answer (0=Modbus protocol)
frame(2) = 0
frame(3) = 0
'Lenght (2Bytes) - Subsequent Bygtes Count - Generatet by client - Regenerated by the server when responding
frame(4) = 0
frame(5) = 6
'Unit ID (1Byte) - 100 = collector / 1-~ = modbus ID - Generated by client - Copy value on answer
frame(6) = 3 ' WR2 hat ID 3 (der mit den Optimierern)
'Function Code (03) = Register Query
frame(7) = 3
'Register Address (30070) = Modell Number (sollte 429 Dez sein)
frame(8) = 117 ' Hex 75
frame(9) = 118 'Hex 76
'Register Format
frame(10) = 0
frame(11) = 1

Request:
* Byte 0,1,2 und 3: individuell - werden beim Response 1:1 zurückgegeben.
* Byte 4 und 5 sind die Länge des nachfolgenden Datensatzes (in diesem Fall 6 Bytes)
* Byte 6 ist die Modbus-Adresse (in meinem Fall 3)
* Byte 7 ist der Modbus Funktionscode (3 = normale Registerabfrage). Wir brauchen später 65 (spezielle Funktion)
* Byte 8 und 9 ist die Registeradresse die abgefragt werden soll (30070). In meinem Fall soll da die Modellnummer 429 rauskommen.
* Byte 10 und 11 sind Registerformat. 1 = nur ein Register abfragen, 2= zwei Register etc...

Response:
* Byte 0-7 werden 1:1 zurückgegeben
* Byte 8 (02) ist die Länge des nachfolgenden Inhalts (2 Bytes)
* Byte 9 und 10 ist der 16Bit Wert (die Modellnummer 429).

Wir hatten bisher immer die Rückmeldung 83 in Byte 9 und einen Wert in 10 erhalten.
83 bedeutet ERROR und der zweite Wert ist der Error-Code ;-).

dive26 · 8. November 2022, 20:56

@BitBrösel

Einen halben Schritt bin ich weiter und habe jetzt die Funktionsweise verstanden.
In der Modbus-Beschreibung (oben bereits verlinkt - ist öffentlich zugängig, also auch von Huawei ok) auf Seite 91 oben ist das Schema abgebildet.

1. Man sendet ein Datenpaket (Tabelle 6-15) mit Funktionscode 65 und SubCode 5 und erhält dann ein Response-Datenpaket wie in Tabelle 6-16 beschrieben zurück.
Das funktioniert bereits ohne Fehlermeldungen (bisher hatten wir beide immer den Wert 83 - was Fehler bedeutet ;-)).

2. Man sollte im Responsepaket sogenannte "Frame No." erhalten die man dann in einer Schleife abfragt (Tabelle 6-18)
Nun, da ist das Problem. Im Response von der ersten Abfrage gibt es 4 Bytes die in der Beschreibung als "File length" bezeichnet werden (grün im Screenshot).
Danach folgt ein Wert mit Data Frame Length (der ist immer 246 - das sind die nettodaten ohne Header jeder Abfrage).
Und danach folgen je nach Data length mehrere Werte die im Handbuch als "Customized data" beschrieben sind. Bei mir 00 00 FF FF
Jedoch kann ich aus diesen beiden 4-Byte-Werten keine Rückschlüsse auf eine Frame-No ziehen, welche mit 2 Bytes angegeben werden sollte ;-).

Bei 34 Optimierern sollten pro Optimierer 26 Bytes an Daten kommen + 12 Bytes pro Frame-Abfrage.
Also sollten bei einer Frame-Abfrage 9 Optimierer + Header kommen.
Bei 9 Optimierer sind also 4 Frame-Abfrageschleifen erforderlich.

Keine Ahnung was ich als Framenummer angeben soll.

Hier die Anfrage die ich an Huawei geschrieben habe weil es gerade stockt (deutsche Version):

Leider kann ich einige Werte nicht zuordnen. Vielleicht kannst Du mir dabei helfen. Ich beziehe mich auf den Screenshot und die Modbus-Definition Seite 45-50 und 90-94.

Wechselrichter-Modbus-Adresse ist "3". Es sind 34 Optimierer auf diesen Wechselrichter installiert.

In Zeile 1 sende ich die Anfrage für "file upload startup". Die Antwort kommt ohne Fehlermeldung in Zeile 2.

Im folgenden Schritt sollte ja in jeweils in 246 byte-Blöcken (Wert F6 zwischen grün und blau markierten Werten) solange abgerufen werden bis alle Daten empfangen wurden.

Jedoch weis ich nicht was ich bei BLAU als Wert für die einzelnen Abfrageschleifen verwenden soll. Die GRÜNEN und ROTEN Werte von der ersten Antwort sind für mich leider nicht schlüssig.

"File lenght" 4 Bytes: 00 1E AA 8C (green)
Was bedeuten diese Werte? Sind das mehrere Werte oder ein Int32 Wert?

Customized data 00 00 FF FF (red)
Auch diese Werte kann ich nicht interpretieren.

Können Sie mir helfen, damit ich bei der Frame-Abfrage keine Fehlermeldung (C1 03) erhalte?

Vielen Dank für Ihre Hilfe.

VB.NET-Quellcode

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Datenlaenge As Integer
'######## Schritt 1 "File upload startup" ###############
Dim frame As Byte() = New Byte(10) {}
frame(0) = 98 : frame(1) = 91 : frame(2) = 0 : frame(3) = 0 'immer gleich
frame(4) = 0 'Länge in 2 Bytes
frame(5) = 5 'Länge in 2 Bytes
frame(6) = 3 'Modbus-ID des Wechselrichters
frame(7) = CByte(65) 'Huawei eigener Function Code 0x41
frame(8) = CByte(5) 'Subfunktionscode für "Starting the Upload" 0x05
frame(9) = 1 'Data lenght der nachfolgenden Infos
frame(10) = CByte(68) 'File Type 68 0x44 (4.2 obtaining real-time data)
txtResult.Text += "SEND (Table 6-15): " + Me.Display(frame) ' Zeige zu sendende Bytes im Textfeld
Me.mSocket.Send(frame, frame.Length, SocketFlags.None) ' Send Data
Dim buffRecei As Byte() = New Byte(256) {} ' Received data.
Dim ns As NetworkStream = New NetworkStream(Me.mSocket)
If ns.CanRead Then Dim rs As Integer = Me.mSocket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
If CInt(buffRecei(7)) = 193 Or CInt(buffRecei(7)) = 194 Then
MsgBox("Fehler: " + buffRecei(7).ToString + " Fehlercode: " + CInt(buffRecei(8)).ToString)
txtResult.Text += vbCrLf + "RECEIVE (Table 6-16): " + Me.Display(buffRecei) ' Zeige alle empfangenen Bytes
Exit Sub
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
Datenlaenge = CInt(buffRecei(9)) + 9
txtResult.Text += vbCrLf + "RECEIVE (Table 6-16): " + Me.Display(buffRecei, Datenlaenge) ' Zeige nur die geforderten empfangenen Bytes
End If
txtResult.Text += vbCrLf
'11,12,13 und 14 =
'00 (File lenght 4 Bytes)
'1E (File lenght 4 Bytes)
'AA(File lenght 4 Bytes)
'8C (File lenght 4 Bytes)
'15 = Datenframe Länge (immer 246)
'16,17,18,18, ... = Nachfolgende Daten
'00 Customized data =0
'00 Customized data =0
'FF Customized data =255
'FF Customized data =255
Dim u32Wert As UInt32 = BitConverter.ToUInt32(buffRecei, 11)
'MsgBox(u32Wert.ToString) 'ergibt eine sehr hohe Zahl
'######### Schritt 2 "Request for uploading data (frame SN) #########
Dim frameC As Byte() = New Byte(12) {}
Dim FrameNumber As Integer = 1
For i As Integer = CInt(buffRecei(9)) + 6 To Datenlaenge
'MsgBox(i.ToString + ": " + CInt(buffRecei(i)).ToString)
'Jede Tranche zu 255 Bytes (246 Datenbytes) abfragen
frameC(0) = 98 : frameC(1) = 91 : frameC(2) = 0 : frameC(3) = 0 'immer gleich
frameC(4) = 0 'Länge in 2 Bytes
frameC(5) = 5 'Länge in 2 Bytes
frameC(6) = 3 'Modbus-ID des Wechselrichters
frameC(7) = CByte(65) 'Huawei eigener Function Code 0x41
frameC(8) = CByte(6) 'Subfunktionscode für "Request Frame Uploading Data" 0x06
frameC(9) = 3 'Data lenght der nachfolgenden Infos
frameC(10) = CByte(68) 'File Type 68 0x44 (4.2 obtaining real-time data)
frameC(11) = CByte(0)
frameC(12) = CByte(FrameNumber)
txtResult.Text += vbCrLf + "SEND (Table 6-18): " + Me.Display(frameC) ' Zeige zu sendende Bytes im Textfeld
Application.DoEvents()
Me.mSocket.Send(frameC, frameC.Length, SocketFlags.None) ' Send Data
Dim buffReceiC As Byte() = New Byte(256) {} ' Received data.
Dim nsC As NetworkStream = New NetworkStream(Me.mSocket)
If nsC.CanRead Then Dim rs As Integer = Me.mSocket.Receive(buffReceiC, buffReceiC.Length, SocketFlags.None)
txtResult.Text += vbCrLf + "RECEIVE (Table 6-18): " + Me.Display(buffReceiC) ' Zeige alle empfangenen Bytes
txtResult.Text += vbCrLf
FrameNumber += 1
Next i
'######### Schritt 3 "Completing the Data Upload" ##########
Dim frameA As Byte() = New Byte(10) {}
frameA(0) = 98 : frameA(1) = 91 : frameA(2) = 0 : frameA(3) = 0 'immer gleich
frameA(4) = 0 'Länge in 2 Bytes
frameA(5) = 5 'Länge in 2 Bytes
frameA(6) = 3 'Modbus-ID des Wechselrichters
frameA(7) = CByte(65) 'Huawei eigener Function Code
frameA(8) = CByte(12) 'Subfunktionscode für "Starting the Upload"
frameA(9) = 1 'Data lenght der nachfolgenden Infos
frameA(10) = 0
txtResult.Text += vbCrLf + "SEND: " + Me.Display(frameA) ' Zeige zu sendende Bytes im Textfeld
Application.DoEvents()
Me.mSocket.Send(frameA, frameA.Length, SocketFlags.None) ' Send Data
Dim buffReceiA As Byte() = New Byte(256) {} ' Received data.
Dim nsA As NetworkStream = New NetworkStream(Me.mSocket)
If nsA.CanRead Then Dim rs As Integer = Me.mSocket.Receive(buffReceiA, buffReceiA.Length, SocketFlags.None)
If CInt(buffReceiA(7)) = 193 Or CInt(buffReceiA(7)) = 194 Then
MsgBox("Fehler: " + buffReceiA(7).ToString + " Fehlercode: " + CInt(buffReceiA(8)).ToString)
txtResult.Text += vbCrLf + "RECEIVE: " + Me.Display(buffReceiA) ' Zeige alle empfangenen Bytes
Exit Sub
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
Datenlaenge = CInt(buffReceiA(9)) + 9
txtResult.Text += vbCrLf + "RECEIVE: " + Me.Display(buffReceiA, Datenlaenge) ' Zeige nur die geforderten empfangenen Bytes
End If
End Sub

dive26 · 11. November 2022, 17:40

@BitBrösel

Nach einigem Schriftverkehr mit dem Huawei-Support bin ich nun endlich soweit, dass ich die gewünschten Daten bekomme.

XML-Quellcode

SEND (Table 6-15): 00 01 00 00 00 05 03 41 05 01 44
RECEIVE (Table 6-16): 00 01 00 00 00 0E 03 41 05 0A 44 00 1F 8E 0C F6 00 00 FF FF
SEND (Table 6-18): 00 02 00 00 00 07 03 41 06 03 44 00 00
RECEIVE (Table 6-18): 00 02 00 00 00 FD 03 41 06 F9 44 00 00 56 31 30 31 04 09 00 00 04 09 00 00 12 7A 6E 63 00 00 00 00 76 03 22 00 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 26 00 00 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 A9 17 00 00 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 31 18 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 F4 21 00 00 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 27 00 00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 3A 19 00 00 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D1 23 00 00 0C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FC 1B 00 00 0D 00 00 00 00 00 00 00 00 00 00 00
SEND: 00 03 00 00 00 05 03 41 0C 01 00
RECEIVE: 00 00 00 00 00 00 00 00 00 00

Funktion:
Die erste Anfrage beginnt den Abruf der Daten. Als Response kommt die Datenlänge zurück.
Dann ruft man in einer Schleife alle Datenframes ab (oben ist testweise nur ein Frame abgebildet).
Am Ende gibt es eine abschließende "Abschlussmeldung".

Der zweite Block muss mehrmals abgerufen werden, bis alle Daten heruntergeladen wurden. Wie oft steht oben im ersten Response 00 1F 8E 0C. Jedes abgerufene Frame enthält 246 Bytes F6 .
00 00 FF FF soll man laut Huawei Support einfach ignorieren ;-).

Die ersten beiden Bytes jeder Anfrage 00 01 , 00 02 , ... sind Modbus-Transmissionflags. Diese werden einfach bei jeder Anfrage um eins hochgezählt und kommen so auch im Response wieder zurück.
Ist nicht essentiell, aber laut Modbus Protokoll soll man es so machen.

Ich werde die nächsten Tage den Code entsprechend sauber zusammenschreiben und den dann hier für alle posten.

dive26 · 12. November 2022, 21:59

Nun wie besprochen der komplette Code.
Ich habe das Modul soweit umgebaut, dass es die Daten der Modbus-Spezialabfrage in einem Byte-Array übergibt (bei Fehler Nothing).
Abragen: FileUpload Optimierer Infos und Optimierer Real-time-Data und zusätzlich noch eine ganz normale Modbus-Register-Abfrage.

Huawei_Modbus_GetOptimizerSysInfo = Funktioniert so einwandfrei und übergibt bei 34 Optimierern 15 Datenframes.
Huawei_Modbus_GetOptimizerRealtime = Funktioniert ebenfalls, nur werden hier 5-Minutige Optimiererdaten abgerufen (fast 2 MB). Hier gibt es sicher noch einen Filter vorher auszuwählen, mit dem nur Daten eines bestimmten Zeitstempels geladen werden. Aber das ist dann nur noch eine Kleinigkeit die jeder selbst einbauen kann.

Um den Code Nachzubilden braucht man eine Form mit drei Buttons und eine Textbox.

VB.NET-Quellcode

Option Strict On
Public Class Hauptform
Private Sub Hauptform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Huawei_Modbus_Connect() ' Connect to device.
Catch ex As Exception
MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End
End Try
End Sub
''' <summary>
''' Beim Schließen der Form die Verbindung in jedem Fall wieder trennen
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Hauptform_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
Huawei_Modbus_Disconnect()
End Sub
''' <summary>
''' Optimierer Echtzeit-Daten auslesen
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
nochmals:
txtResult.Text = ""
Dim OptimiererRealTimeDaten As Byte() = Huawei_Modbus_GetOptimizerRealtime()
If Huawei_Modbus_AbfrageFehlgeschlagen = True Then
Huawei_Modbus_AbfrageFehlgeschlagen = False
Huawei_Modbus_Disconnect()
Huawei_Modbus_Connect()
GoTo Nochmals
End If
End Sub
''' <summary>
''' Optimierer System Info holen
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
txtResult.Text = ""
Nochmals:
Dim OptimiererSysInfoDaten As Byte() = Huawei_Modbus_GetOptimizerSysInfo()
If Huawei_Modbus_AbfrageFehlgeschlagen = True Then
Huawei_Modbus_AbfrageFehlgeschlagen = False
Huawei_Modbus_Disconnect()
Huawei_Modbus_Connect()
GoTo Nochmals
End If
End Sub
''' <summary>
''' Einzelnen Register auslesen (UInt16)
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
txtResult.Text = ""
Dim Wert As Integer = MB_RequestU16(3, 30070)
txtResult.Text += vbCrLf + "Result: " + Wert.ToString
End Sub
End Class

Quellcode

Option Strict On
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Module MDL_HuaweiModbus
Public Huawei_Modbus_Socket As Socket = Nothing
Public Const ModbusIP As String = "192.168.0.188"
Public Const ModbusPort As UShort = 502
Public Huawei_Modbus_Transmissionflag As Integer = 1
Public Huawei_Modbus_AbfrageFehlgeschlagen As Boolean
''' <summary>
''' Function: Connect to device.
''' </summary>
Public Sub Huawei_Modbus_Connect()
Huawei_Modbus_Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) With {
.ReceiveTimeout = 5000,
.SendTimeout = 5000
}
Dim server As New IPEndPoint(IPAddress.Parse(ModbusIP), ModbusPort)
Huawei_Modbus_Socket.Connect(server)
Thread.Sleep(2000) 'Empfehlung von Huawei 2 Sekunden zu warten (später mit warte-Funktion)
End Sub
''' <summary>
''' Function: disconnect with device.
''' </summary>
Public Sub Huawei_Modbus_Disconnect()
If Not IsDBNull(Huawei_Modbus_Socket) Then
Huawei_Modbus_Socket.Close()
End If
End Sub
Public Function BO_BitConverter_ToUInt16(Daten As Byte(), start As Integer) As Integer
Return CInt(Daten(start) * 256) + CInt(Daten(start + 1))
End Function
Public Function BO_BitConverter_ToUInt32(Daten As Byte(), start As Integer) As Integer
Return CInt(Daten(start) * 256 * 256 * 256) + CInt(Daten(start + 1) * 256) * 256 + CInt(Daten(start + 2) * 256) + CInt(Daten(start + 3))
End Function
''' <summary>
''' Funktion für die Umwandlung von Intergerwert in ein Byte-Array
''' </summary>
''' <param name="int"></param>
''' <returns></returns>
Public Function ConvertIntToByteArray(ByVal int As Int32) As Byte()
Return BitConverter.GetBytes(int)
End Function
''' <summary>
''' Wandelt eine Bytefolge in lesbare Hex-Strings um (für die Ausgabe zur Kontrolle)
''' </summary>
''' <param name="data"></param>
''' <param name="laenge"></param>
''' <returns></returns>
Private Function BytesToTextForDebug(data As Byte(), Optional laenge As Integer = 4096) As String
Dim Counter As Integer = 0
Dim result As String = String.Empty
For Each item As Byte In data
result += String.Format("{0:X2} ", item)
Counter += 1
If Counter > laenge Then Exit For
Next
Application.DoEvents()
Return result
End Function
''' <summary>
''' Gibt die Debug-Informationen in einem Textfeld im Hauptfenster (oder überall anders) aus
''' </summary>
''' <param name="Daten"></param>
Public Sub DebugAusgabe(Daten As String, Append As Boolean)
If Append = True Then Hauptform.txtResult.Text += Daten Else Hauptform.txtResult.Text = Daten
Hauptform.txtResult.Select(Hauptform.txtResult.Text.Length - 1, 1)
Hauptform.txtResult.ScrollToCaret()
End Sub
''' <summary>
''' Lädt die Optimierer-Informationen laut File Format V103 herunter und übergibt alle Bytes
''' Wenn ein Fehler aufgetreten ist, dann wird nur nothing zurückgegeben
''' </summary>
''' <returns></returns>
Public Function Huawei_Modbus_GetOptimizerSysInfo() As Byte()
If Huawei_Modbus_Socket.Connected = False Then Huawei_Modbus_Connect()
If Huawei_Modbus_Socket.Connected = False Then Return Nothing
Dim Filetype As Byte = CByte(69) 'V102 / V103
Dim Datenlaenge As Integer
Dim GesamtByteArray As Byte() = {}
'######## Schritt 1 "File upload startup" ###############
Dim frame As Byte() = New Byte(10) {}
frame(0) = CByte(Huawei_Modbus_Transmissionflag / 256)
frame(1) = CByte(Huawei_Modbus_Transmissionflag)
frame(2) = 0 : frame(3) = 0 'immer gleich
frame(4) = 0 'Länge in 2 Bytes
frame(5) = 5 'Länge in 2 Bytes
frame(6) = 3 'Modbus-ID des Wechselrichters
frame(7) = CByte(65) 'Huawei eigener Function Code 0x41
frame(8) = CByte(5) 'Subfunktionscode für "Starting the Upload" 0x05
frame(9) = 1 'Data lenght der nachfolgenden Infos
frame(10) = Filetype
DebugAusgabe("SEND (Table 6-15): " + BytesToTextForDebug(frame), True)
Huawei_Modbus_Socket.Send(frame, frame.Length, SocketFlags.None) ' Send Data
Dim buffRecei As Byte() = New Byte(256) {} ' Received data.
Try
Using ns As New NetworkStream(Huawei_Modbus_Socket)
If ns.CanRead Then Dim unused = Huawei_Modbus_Socket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
End Using
Catch ex As Exception
DebugAusgabe(vbCrLf + ex.Message, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
End Try
If CInt(buffRecei(7)) = 193 Or CInt(buffRecei(7)) = 194 Then
MsgBox("Fehler: " + buffRecei(7).ToString + " Fehlercode: " + CInt(buffRecei(8)).ToString)
DebugAusgabe(vbCrLf + "RECEIVE (Table 6-16): " + BytesToTextForDebug(buffRecei) + vbCrLf, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
Datenlaenge = CInt(buffRecei(9)) + 9
DebugAusgabe(vbCrLf + "RECEIVE (Table 6-16): " + BytesToTextForDebug(buffRecei, Datenlaenge) + vbCrLf, True)
End If
Huawei_Modbus_Transmissionflag += 1
Dim DatensatzLaenge As Integer = BO_BitConverter_ToUInt32(buffRecei, 11)
Dim FrameAnzahl As Integer = CInt(Math.Ceiling(DatensatzLaenge / 246))
DebugAusgabe(vbCrLf + "Lenght of file: " + DatensatzLaenge.ToString + " No. of frames: " + FrameAnzahl.ToString + vbCrLf, True)
Hauptform.ProgressBar1.Maximum = FrameAnzahl
For i As Integer = 1 To FrameAnzahl
Hauptform.ProgressBar1.Value = i
Dim frameC As Byte() = New Byte(12) {}
Dim buffReceiC As Byte() = New Byte(258) {} ' Received data.
frameC(0) = CByte(Huawei_Modbus_Transmissionflag / 256)
frameC(1) = CByte(Huawei_Modbus_Transmissionflag)
frameC(2) = 0 : frameC(3) = 0 'immer gleich
frameC(4) = 0 'Länge in 2 Bytes
frameC(5) = 7 'Länge in 2 Bytes
frameC(6) = 3 'Modbus-ID des Wechselrichters
frameC(7) = CByte(65) 'Huawei eigener Function Code 0x41
frameC(8) = CByte(6) 'Subfunktionscode für "Request Frame Uploading Data" 0x06
frameC(9) = 3 'Data lenght der nachfolgenden Infos
frameC(10) = Filetype 'File Type 68 0x44 (4.2 obtaining real-time data)
frameC(11) = 0
frameC(12) = CByte((i - 1))
DebugAusgabe(vbCrLf + Now().ToString("HH.mm.ss") + " SEND (" + i.ToString + "): " + BytesToTextForDebug(frameC), True)
If Huawei_Modbus_Socket.Connected = False Then Huawei_Modbus_Connect()
Huawei_Modbus_Socket.Send(frameC, frameC.Length, SocketFlags.None) ' Send Data
Try
Using nsC As New NetworkStream(Huawei_Modbus_Socket)
If nsC.CanRead Then Dim unused = Huawei_Modbus_Socket.Receive(buffReceiC, buffReceiC.Length, SocketFlags.None)
End Using
Catch ex As Exception
DebugAusgabe(vbCrLf + ex.Message, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
End Try
If CInt(buffReceiC(7)) = 193 Or CInt(buffReceiC(7)) = 194 Then
MsgBox("Fehler: " + buffReceiC(7).ToString + " Fehlercode: " + CInt(buffReceiC(8)).ToString)
DebugAusgabe(vbCrLf + "RECEIVE: " + BytesToTextForDebug(buffReceiC), True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
DebugAusgabe(vbCrLf + Now().ToString("HH.mm.ss") + " RECEIVE (" + i.ToString + "): " + BytesToTextForDebug(buffReceiC), True)
End If
GesamtByteArray.Concat(buffReceiC)
Huawei_Modbus_Transmissionflag += 1
Next i
'######### Schritt 3 "Completing the Data Upload" ##########
Dim buffReceiA As Byte() = New Byte(256) {} ' Received data.
Dim frameA As Byte() = New Byte(10) {}
frameA(0) = 0 ' CByte(Transmissionflag / 256)
frameA(1) = 0 'CByte(Transmissionflag)
frameA(2) = 0 : frameA(3) = 0 'immer gleich
frameA(4) = 0 'Länge in 2 Bytes
frameA(5) = 5 'Länge in 2 Bytes
frameA(6) = 3 'Modbus-ID des Wechselrichters
frameA(7) = CByte(65) 'Huawei eigener Function Code
frameA(8) = CByte(12) 'Subfunktionscode für "End the Upload"
frameA(9) = 1 'Data lenght der nachfolgenden Infos
frameA(10) = Filetype
DebugAusgabe(vbCrLf + "SEND: " + BytesToTextForDebug(frameA), True)
Huawei_Modbus_Socket.Send(frameA, frameA.Length, SocketFlags.None) ' Send Data
Try
Using nsA As New NetworkStream(Huawei_Modbus_Socket)
If nsA.CanRead Then Dim unused = Huawei_Modbus_Socket.Receive(buffReceiA, buffReceiA.Length, SocketFlags.None)
End Using
Catch ex As Exception
DebugAusgabe(vbCrLf + ex.Message, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
End Try
If CInt(buffReceiA(7)) = 193 Or CInt(buffReceiA(7)) = 194 Then
MsgBox("Fehler: " + buffReceiA(7).ToString + " Fehlercode: " + CInt(buffReceiA(8)).ToString)
DebugAusgabe(vbCrLf + "RECEIVE: " + BytesToTextForDebug(buffReceiA), True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
Datenlaenge = CInt(buffReceiA(9)) + 9
DebugAusgabe(vbCrLf + "RECEIVE: " + BytesToTextForDebug(buffReceiA, Datenlaenge), True)
End If
Huawei_Modbus_Transmissionflag += 1
Return GesamtByteArray
End Function
''' <summary>
''' Lädt die Optimierer-Real-Time-Datean laut File Format V101 herunter und übergibt alle Bytes
''' Wenn ein Fehler aufgetreten ist, dann wird nur nothing zurückgegeben
''' </summary>
''' <returns></returns>
Public Function Huawei_Modbus_GetOptimizerRealtime() As Byte()
If Huawei_Modbus_Socket.Connected = False Then Huawei_Modbus_Connect()
If Huawei_Modbus_Socket.Connected = False Then Return Nothing
Dim Filetype As Byte = CByte(68) 'V101
Dim Datenlaenge As Integer
Dim GesamtByteArray As Byte() = {}
'######## Schritt 1 "File upload startup" ###############
Dim frame As Byte() = New Byte(10) {}
frame(0) = CByte(Huawei_Modbus_Transmissionflag / 256)
frame(1) = CByte(Huawei_Modbus_Transmissionflag)
frame(2) = 0 : frame(3) = 0 'immer gleich
frame(4) = 0 'Länge in 2 Bytes
frame(5) = 5 'Länge in 2 Bytes
frame(6) = 3 'Modbus-ID des Wechselrichters
frame(7) = CByte(65) 'Huawei eigener Function Code 0x41
frame(8) = CByte(5) 'Subfunktionscode für "Starting the Upload" 0x05
frame(9) = 1 'Data lenght der nachfolgenden Infos
frame(10) = Filetype 'File Type 68 0x44 (4.2 obtaining real-time data)
DebugAusgabe("SEND (Table 6-15): " + BytesToTextForDebug(frame), True)
Huawei_Modbus_Socket.Send(frame, frame.Length, SocketFlags.None) ' Send Data
Dim buffRecei As Byte() = New Byte(256) {} ' Received data.
Try
Using ns As New NetworkStream(Huawei_Modbus_Socket)
If ns.CanRead Then Dim unused = Huawei_Modbus_Socket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
End Using
Catch ex As Exception
DebugAusgabe(vbCrLf + ex.Message, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
End Try
If CInt(buffRecei(7)) = 193 Or CInt(buffRecei(7)) = 194 Then
MsgBox("Fehler: " + buffRecei(7).ToString + " Fehlercode: " + CInt(buffRecei(8)).ToString)
DebugAusgabe(vbCrLf + "RECEIVE (Table 6-16): " + BytesToTextForDebug(buffRecei) + vbCrLf, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
Datenlaenge = CInt(buffRecei(9)) + 9
DebugAusgabe(vbCrLf + "RECEIVE (Table 6-16): " + BytesToTextForDebug(buffRecei, Datenlaenge) + vbCrLf, True)
End If
Huawei_Modbus_Transmissionflag += 1
Dim DatensatzLaenge As Integer = BO_BitConverter_ToUInt32(buffRecei, 11)
Dim FrameAnzahl As Integer = CInt(Math.Ceiling(DatensatzLaenge / 246))
DebugAusgabe(vbCrLf + "Lenght of file: " + DatensatzLaenge.ToString + " No. of frames: " + FrameAnzahl.ToString + vbCrLf, True)
Hauptform.ProgressBar1.Maximum = FrameAnzahl
For i As Integer = 1 To FrameAnzahl
Hauptform.ProgressBar1.Value = i
Dim frameC As Byte() = New Byte(12) {}
Dim buffReceiC As Byte() = New Byte(258) {} ' Received data.
frameC(0) = CByte(Huawei_Modbus_Transmissionflag / 256)
frameC(1) = CByte(Huawei_Modbus_Transmissionflag)
frameC(2) = 0 : frameC(3) = 0 'immer gleich
frameC(4) = 0 'Länge in 2 Bytes
frameC(5) = 7 'Länge in 2 Bytes
frameC(6) = 3 'Modbus-ID des Wechselrichters
frameC(7) = CByte(65) 'Huawei eigener Function Code 0x41
frameC(8) = CByte(6) 'Subfunktionscode für "Request Frame Uploading Data" 0x06
frameC(9) = 3 'Data lenght der nachfolgenden Infos
frameC(10) = Filetype 'File Type 68 0x44 (4.2 obtaining real-time data)
frameC(11) = 0
frameC(12) = CByte((i - 1))
DebugAusgabe(vbCrLf + Now().ToString("HH.mm.ss") + " SEND (" + i.ToString + "): " + BytesToTextForDebug(frameC), True)
If Huawei_Modbus_Socket.Connected = False Then Huawei_Modbus_Connect()
Huawei_Modbus_Socket.Send(frameC, frameC.Length, SocketFlags.None) ' Send Data
Try
Using nsC As New NetworkStream(Huawei_Modbus_Socket)
If nsC.CanRead Then Dim unused = Huawei_Modbus_Socket.Receive(buffReceiC, buffReceiC.Length, SocketFlags.None)
End Using
Catch ex As Exception
DebugAusgabe(vbCrLf + ex.Message, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
End Try
If CInt(buffReceiC(7)) = 193 Or CInt(buffReceiC(7)) = 194 Then
MsgBox("Fehler: " + buffReceiC(7).ToString + " Fehlercode: " + CInt(buffReceiC(8)).ToString)
DebugAusgabe(vbCrLf + "RECEIVE: " + BytesToTextForDebug(buffReceiC), True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
DebugAusgabe(vbCrLf + Now().ToString("HH.mm.ss") + " RECEIVE (" + i.ToString + "): " + BytesToTextForDebug(buffReceiC), True)
End If
GesamtByteArray.Concat(buffReceiC)
Huawei_Modbus_Transmissionflag += 1
Next i
'######### Schritt 3 "Completing the Data Upload" ##########
Dim buffReceiA As Byte() = New Byte(256) {} ' Received data.
Dim frameA As Byte() = New Byte(10) {}
frameA(0) = 0 ' CByte(Transmissionflag / 256)
frameA(1) = 0 'CByte(Transmissionflag)
frameA(2) = 0 : frameA(3) = 0 'immer gleich
frameA(4) = 0 'Länge in 2 Bytes
frameA(5) = 5 'Länge in 2 Bytes
frameA(6) = 3 'Modbus-ID des Wechselrichters
frameA(7) = CByte(65) 'Huawei eigener Function Code
frameA(8) = CByte(12) 'Subfunktionscode für "End the Upload"
frameA(9) = 1 'Data lenght der nachfolgenden Infos
frameA(10) = Filetype
DebugAusgabe(vbCrLf + "SEND: " + BytesToTextForDebug(frameA), True)
Huawei_Modbus_Socket.Send(frameA, frameA.Length, SocketFlags.None) ' Send Data
Try
Using nsA As New NetworkStream(Huawei_Modbus_Socket)
If nsA.CanRead Then Dim unused = Huawei_Modbus_Socket.Receive(buffReceiA, buffReceiA.Length, SocketFlags.None)
End Using
Catch ex As Exception
DebugAusgabe(vbCrLf + ex.Message, True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
End Try
If CInt(buffReceiA(7)) = 193 Or CInt(buffReceiA(7)) = 194 Then
MsgBox("Fehler: " + buffReceiA(7).ToString + " Fehlercode: " + CInt(buffReceiA(8)).ToString)
DebugAusgabe(vbCrLf + "RECEIVE: " + BytesToTextForDebug(buffReceiA), True)
Huawei_Modbus_AbfrageFehlgeschlagen = True
Return Nothing
Else
'alles ok - An stelle 9 steht die länge der nachfolgenden Informationen
Datenlaenge = CInt(buffReceiA(9)) + 9
DebugAusgabe(vbCrLf + "RECEIVE: " + BytesToTextForDebug(buffReceiA, Datenlaenge), True)
End If
Huawei_Modbus_Transmissionflag += 1
Return GesamtByteArray
End Function
''' <summary>
''' Liest ein einzelnes Uint16 Register aus
''' </summary>
''' <param name="ModbusID">Modbus-ID des Wechselrichters</param>
''' <param name="Registernummer">Registernummer die ausgelesen werden soll</param>
''' <returns>Integer-Wert</returns>
Public Function MB_RequestU16(ModbusID As Integer, Registernummer As Integer) As Integer
If Huawei_Modbus_Socket.Connected = False Then Huawei_Modbus_Connect()
If Huawei_Modbus_Socket.Connected = False Then Return 0
Try
Dim frame As Byte() = New Byte(11) {}
frame(0) = 98 : frame(1) = 91 : frame(2) = 0 : frame(3) = 0 : frame(4) = 0 : frame(5) = 6 'Header + 6 Bytes Länge
frame(6) = CByte(ModbusID) 'Modbus ID
frame(7) = 3
Dim WertByte() As Byte = ConvertIntToByteArray(Registernummer)
frame(8) = WertByte(1)
frame(9) = WertByte(0)
frame(10) = 0
frame(11) = 1 '1 Register auslesen
DebugAusgabe(vbCrLf + "SEND: " + BytesToTextForDebug(frame), True)
Huawei_Modbus_Socket.Send(frame, frame.Length, SocketFlags.None) ' Send Data
Dim buffRecei As Byte() = New Byte(10) {} ' Received data
Using ns As New NetworkStream(Huawei_Modbus_Socket)
If ns.CanRead Then Dim unused = Huawei_Modbus_Socket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
End Using
DebugAusgabe(vbCrLf + BytesToTextForDebug(buffRecei), True)
Dim Wert As Integer = buffRecei(9) * 256 + buffRecei(10)
Return Wert
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return 0
End Try
End Function
End Module

Modbus TCP - Wie die abgefragten Integer-Register-Werte "zusammenbauen" in String, Long, Double, etc...

VB.NET-Quellcode

VB.NET-Quellcode

XML-Quellcode

VB.NET-Quellcode

Quellcode

Benutzer online 1

Ähnliche Themen

8 Benutzer haben hier geschrieben