PureBasic Forum

ModBUScontroller$="PDXXXXXX" ;by name
ModBUScontroller$="10.10.10.47" ;by IP

;- Endian procs by wilbert - Thank you
Procedure.w xchEndianW(e.w)
  ProcedureReturn (e & $FF) << 8 + (e >> 8) & $FF
EndProcedure

Procedure xchEndianL(e.l)
  ProcedureReturn (e & $FF) << 24 + (e & $FF00) << 8 + (e >> 8) & $FF00 + (e >> 24) & $FF
EndProcedure

InitNetwork()
OpenConsole()

h = OpenNetworkConnection(ModBUScontroller$,502,#PB_Network_TCP)
*b = AllocateMemory(512)
If h And *b
  ZeroMemory_(*b,512)
  PrintN("Connected")
  Start$="0"

     PokeB(*b,$00)
     PokeB(*b+1,$00)
     PokeB(*b+2,$00)
     PokeB(*b+3,$00)
     PokeB(*b+4,$00)
     PokeB(*b+5,$06);
     PokeB(*b+6,$01)
     PokeB(*b+7,3)
     PokeB(*b+8,$00) ; start high
     PokeB(*b+9,$00) ; start low
     PokeB(*b+10,$00) ; 
     PokeB(*b+11,$00) ; 
     PokeB(*b+12,$00) ; 
     PokeB(*b+13,$00) ; 
 
 
  If SendNetworkData(h,*b,12) = -1
    PrintN("Send failed try to reconnect")
    CloseNetworkConnection(h)
    h = OpenNetworkConnection(ModBUScontroller$,502,#PB_Network_TCP)
    If h
      PrintN("Reconnected")
    Else
      PrintN("Reconection failed") 
    EndIf
   
  Else
    PrintN("Send >")
    For j=0 To 12
      Print(" "+Right("0" + Hex(PeekB(*b+j)),2))
    Next
    ; CallDebugger
  EndIf
  ; ZeroMemory_(*b,512)
  Repeat
    e = NetworkClientEvent(h)
    If e
      PrintN("") 
     
      i = ReceiveNetworkData(h,*b,512)
      PrintN("Sended: " + Str(i)+" bytes")
      For j=1 To i 
          Print(Right("0" + Hex(PeekB(*b+j)),2))
      Next
      PrintN("")
      PrintN("")
 
      zzz.l=PeekL(*b+71)
      Temperature.f=xchEndianL(zzz)/1000
     
      PrintN("Fahrenheit: " +StrF(Temperature,3))
      PrintN("Celsius: " +StrF((Temperature-32)*5/9,3))
    EndIf
   
    Text$ =Inkey()
    If Text$=Chr(46)
      i+1
      PokeB(*b,$00) ;Transaction/invocation Identifier (2 Bytes): This identification
      PokeB(*b+1,$00);field is used For transaction pairing when multiple messages are
                     ; sent along the same TCP connection by a client without waiting For
                     ;  a prior response.
     
      PokeB(*b+2,$00)  ;Protocol Identifier (2 bytes): This field is always 0 for Modbus
      PokeB(*b+3,$00)  ;services and other values are reserved for future extensions.
     
      PokeB(*b+4,$00) ;Length (2 bytes): This field is a byte count of the remaining fields
      PokeB(*b+5,$06) ;and includes the unit identifier byte, function code byte, and the data fields.
     
      PokeB(*b+6,$01);Unit Identifier (1 byte): This field is used to identify a remote
      ;server located on a non TCP/IP network (for serial bridging). In a
      ;typical Modbus TCP/IP server application, the unit ID is set to 00 or
      ;FF, ignored by the server, and simply echoed back in the response.
       
        PokeB(*b+7,3)
        PokeB(*b+8,00) ; start high
        PokeB(*b+9,00) ; start low
        PokeB(*b+10,$00) ; 
        PokeB(*b+11,$FF) ; 
        PokeB(*b+12,$00) ; 
        PokeB(*b+13,$00) ; 
        If SendNetworkData(h,*b,12) = -1
          PrintN("")
          PrintN("Send failed try to reconnect")
          CloseNetworkConnection(h)
          h = OpenNetworkConnection(ModBUScontroller$,502,#PB_Network_TCP)
          If h
            PrintN("Reconnected")
          Else
            PrintN("Reconection failed") 
          EndIf
        Else
          PrintN("")
          PrintN("Send >")
          For j=0 To 12
            Print(" "+Right("0" + Hex(PeekB(*b+j)),2))
          Next
          ; CallDebugger
        EndIf
        Delay(10)
     
      EndIf

  Until Text$ = Chr(27)
  CloseNetworkConnection(h)
  If *b
    FreeMemory(*b)
  EndIf
EndIf
PrintN("End")
CloseConsole()