PureBoard

Code: Alles auswählen

     PokeB(*b+0 ,   0) ; H-Transaktionskennung
     PokeB(*b+1 ,   1) ; L-Transaktionskennung 
     PokeB(*b+2 ,   0) ; immer 0
     PokeB(*b+3 ,   0) ; immer 0
     PokeB(*b+4 ,   0) ; H-Länge
     PokeB(*b+5 ,   6) ; L-Länge
     PokeB(*b+6 ,   5) ; Geräteadresse 
     PokeB(*b+7 ,   3) ; Funktionscode 
;     PokeB(*b+8 , $78) ; H-Registeradresse Batterieladezustand
;     PokeB(*b+9 , $7d) ; L-Registeradresse Batterieladezustand
     PokeB(*b+10,   0) ; H-benötigte Register 
     PokeB(*b+11,   1) ; L-benötigte Register 

Code: Alles auswählen

;------------------------------------------------------------------------------------
Ip$ =   "127.0.0.1"
Port = 8123
GerAdr = 200
;------------------------------------------------------------------------------------
If OpenWindow(0, 100, 200, 320, 40, "MOD-BUS Server v0.0 ("+Ip$+":"+Port+")")
  TextGadget(0, 10, 10, 300, 30, "Server Start.")
  *Buffer = AllocateMemory(10000)
  If *Buffer
    If CreateNetworkServer(0, Port, #PB_Network_IPv4 | #PB_Network_TCP, Ip$)
      SetGadgetText(0, "Wait of client.")
      Repeat
        Repeat
          Event = WindowEvent()
          Select Event 
            Case #PB_Event_CloseWindow 
              Quit = 1 
          EndSelect
        Until Event = 0
        
        ServerEvent = NetworkServerEvent()
        If ServerEvent
          ClientID = EventClient()
          Select ServerEvent
            Case #PB_NetworkEvent_Connect  ; New client connected
              SetGadgetText(0, "New client "+ClientID+"connected !")

            Case #PB_NetworkEvent_Disconnect  ; Client has closed the connection
              SetGadgetText(0, "Client "+ClientID+" NetworkEvent_Disconnect.")
          
            Case #PB_NetworkEvent_Data
              SetGadgetText(0, "Client "+ClientID+" NetworkEvent_Data.")
              RequestLength = ReceiveNetworkData(ClientID, *Buffer, 2000)
              
;***************************************************************************************************************************************              
              If PeekB(*Buffer+4) = 0 And PeekB(*Buffer+5) = 6 And PeekB(*Buffer+6) = GerAdr And PeekB(*Buffer+7) = 3 And PeekB(*Buffer+10) = 0 And PeekB(*Buffer+11) = 1
                Reg = PeekB(*Buffer+8)*256+PeekB(*Buffer+9)
                Select reg
                  Case $787d
                    SetGadgetText(0, "Client "+ClientID+" NetworkEvent_Data." + $787d)
    
                EndSelect
              EndIf
          
;***************************************************************************************************************************************              
          EndSelect
        Else
          Delay(20)
        EndIf
        
      Until Quit = 1
      CloseNetworkServer(0)  
    Else
      MessageRequester("Error", "Can't create the server (port in use ?).", 0)
    EndIf
  Else
    MessageRequester("Error", "Memory to smal.", 0)
  EndIf  
Else
  MessageRequester("Error", "Windows not create.", 0)
EndIf

End
;------------------------------------------------------------------------------------

Code: Alles auswählen

; Global

Structure udtSend
  TransactionID.w
  ProtocolID.w
  DataLen.w
  UnitID.a
  Functioncode.a
  Register.w
  Count.w
  ByteCount.a
  StructureUnion
    DataByte.b[256]
    DataWord.w[128]
  EndStructureUnion
EndStructure

Structure udtReceive
  TransactionID.w
  ProtocolID.w
  DataLen.w
  UnitID.a
  Functioncode.a
  ByteCount.a
  StructureUnion
    DataByte.b[256]
    DataWord.w[128]
  EndStructureUnion
EndStructure

Procedure bswap16(value.u)
  CompilerIf #PB_Compiler_Backend = #PB_Backend_C
    !return __builtin_bswap16(v_value);
  CompilerElse
    !xor eax,eax
    !mov ax, word [p.v_value]
    !rol ax, 8
    ProcedureReturn
  CompilerEndIf
EndProcedure

Procedure bswap32(value.l)
  CompilerIf #PB_Compiler_Backend = #PB_Backend_C
    !return __builtin_bswap32(v_value);
  CompilerElse
    !mov eax, dword [p.v_value]
    !bswap eax
    ProcedureReturn
  CompilerEndIf
EndProcedure

Procedure.q bswap64(value.q)
  CompilerIf #PB_Compiler_Backend = #PB_Backend_C
    !return __builtin_bswap64(v_value);
  CompilerElse
    CompilerIf #PB_Compiler_Processor=#PB_Processor_x64
      !mov rax, qword [p.v_value]
      !bswap rax
    CompilerElse
      !mov edx, dword [p.v_value]
      !mov eax, dword [p.v_value + 4]
      !bswap edx
      !bswap eax
    CompilerEndIf
    ProcedureReturn
  CompilerEndIf
EndProcedure

; ----

Procedure CreateReadRegisters(UnitID, Function, Register, Count, *buffer.udtSend)
  Protected TransactionID.w
  With *buffer
    TransactionID = bswap16(\TransactionID)
    TransactionID + 1
    If TransactionID = 0
      TransactionID = 1
    EndIf
    \TransactionID = bswap16(TransactionID)
    \ProtocolID = 0
    \DataLen = bswap16(6)
    \UnitID = UnitID
    \Functioncode = Function
    \Register = bswap16(Register)
    \Count = bswap16(Count)
  EndWith
  
  ProcedureReturn 12 ; Return TCP/IP Send Len
  
EndProcedure

Code: Alles auswählen

Folgender Zustand:
 - S7-400 über Ethernet an IPC mit WinCC
 - PV-Wechselrichter über Modbus/TCP auch auf IPC
 - Verschiedene Messgeäte gehen auf eine weitere Kleinsteuerung (Hersteller unbekannt)
   die Messwerte können aber über den USB Anschluss abgefragt werden