PureBoard

Code: Alles auswählen

Port.s = "com1:4800,e,7,1"
Handshake.l = 1
Buffer.l = 1024
HCom.l = ComOpen(Port, Handshake,Buffer,Buffer)
If HCom > 0
 ComClose(HCom)      
EndIf

Code: Alles auswählen

Procedure.l Open_Com(com.l, baud.l, Buffer_in.l, Buffer_out.l, Parity.l, ByteSize.l, StopBits.l, flags.l, TimeOUT.l)
  *FileID = CreateFile(com, "COM" + Str(com) + ":")
  If *FileID
    If GetCommState_(*FileID, @PortConfig.DCB)
      SetupComm_(*FileID, Buffer_in, Buffer_out)
      TimeOut_Const.l = 1
      ct.COMMTIMEOUTS
      ct\ReadIntervalTimeout         = #MAXDWORD
      ct\ReadTotalTimeoutMultiplier  = TimeOut
      ct\ReadTotalTimeoutConstant    = TimeOut_Const
      ct\WriteTotalTimeoutMultiplier = TimeOut
      ct\WriteTotalTimeoutConstant   = TimeOut_Const
      
      SetCommTimeouts_(*FileID, ct)
      
      ;flags:
      ;Bit 0     -> binary mode MUST BE TRUE
      ;Bit 1     -> Parity chacking is performed and errors are reported
      ;Bit 2     -> If this member is TRUE, the CTS (clear-to-send) signal
      ;             is monitored For output flow control. 
      ;             If this member is TRUE And CTS is turned off, output is suspended 
      ;             until CTS is sent again
      ;Bit 3     -> If this member is TRUE, the DSR (data-set-ready) signal is monitored 
      ;             For output flow control. If this member is TRUE And DSR is turned off, 
      ;             output is suspended Until DSR is sent again
      ;Bit 4-5   -> 00 = Disables the DTR line when the device is opened and leaves it disabled.
      ;             01 = Enables the DTR line when the device is opened and leaves it on.
      ;             10 = Enables DTR handshaking. If handshaking is enabled, it is an error for the application 
      ;                  To adjust the line by using the EscapeCommFunction function
      ;Bit 6     -> If this member is TRUE, the communications driver is sensitive to the state of the DSR signal. 
      ;             The driver ignores any bytes received, unless the DSR modem input line is high.
      ;Bit 7     -> If this member is TRUE, transmission continues after the input buffer has come within 
      ;             XoffLim bytes of being full And the driver has transmitted the XoffChar character To stop 
      ;             receiving bytes. If this member is FALSE, transmission does not Continue Until the input buffer 
      ;             is within XonLim bytes of being empty And the driver has transmitted the XonChar character To resume reception. 
      ;Bit 8     -> Indicates whether XON/XOFF flow control is used during transmission. If this member is TRUE, 
      ;             transmission stops when the XoffChar character is received And starts again when the XonChar character is received. 
      ;Bit 9     -> Indicates whether XON/XOFF flow control is used during reception. 
      ;             If this member is TRUE, the XoffChar character is sent when the input buffer 
      ;             comes within XoffLim bytes of being full, And the XonChar character is sent 
      ;             when the input buffer comes within XonLim bytes of being empty. 
      ;Bit 10    -> Indicates whether bytes received with parity errors are replaced with the character specified by the ErrorChar member. 
      ;             If this member is TRUE And the fParity member is TRUE, replacement occurs.
      ;Bit 11    -> If this member is TRUE, null bytes are discarded when received.
      ;Bit 12-13 -> 00 = Disables the RTS line when the device is opened and leaves it disabled.
      ;             01 = Enables the RTS line when the device is opened and leaves it on.
      ;             10 = Enables RTS handshaking. The driver raises the RTS line when the "type-ahead" (input) buffer is less than
      ;                  one-half full And lowers the RTS line when the buffer is more than
      ;                  three-quarters full. If handshaking is enabled, it is an error 
      ;                  for the application To adjust the line by using the EscapeCommFunction function.
      ;             11 = Specifies that the RTS line will be high if bytes are available for transmission.
      ;                  After all buffered bytes have been sent, the RTS line will be low.
			;                  !!Windows Me/98/95:  This value is not supported.!!
			;Bit 14    -> If this member is TRUE, the driver terminates all read and write operations with an error status if an error occurs.
			;             The driver will not accept any further communications operations 
			;             Until the application has acknowledged the error by calling the ClearCommError function.
			;Bit 15-31 -> Reserved; do not use.

      If flags = 0
      	;Normal Flags
	      ;Bit 0  BINARY MODE
      	;Bit 1  PARITY CHECK
	      ;Bit 7  TXContinueOnXoff
      	;Bit 12 RTS_CONTROL_ENABLE
        flags = $1083
      EndIf
      
      PortConfig\BaudRate  = baud
      PortConfig\Parity    = Parity
      PortConfig\StopBits  = StopBits
      PortConfig\ByteSize  = ByteSize  
      PortConfig\fBits     = flags
      
      SetCommState_(*FileID, @PortConfig)
      PurgeComm_(*FileID, #PURGE_TXCLEAR | #PURGE_RXCLEAR)

    EndIf
  EndIf
  ProcedureReturn *FileID
EndProcedure

Procedure Close_Com(com.l)
	CloseFile(com)
EndProcedure

OpenConsole()
If Open_Com(1, 4800, 1024, 1024, #EVENPARITY, 7, #ONESTOPBIT, $2018, 50)
	WriteByte(5) ;<- This should be Strg+E ... Play with it...
	Repeat
		Delay(1000)
		a$ = ReadString()
		If a$
			PrintN(a$)
			Input()
		ElseIf Left(Inkey(), 1) = Chr(27)
			Break
		EndIf
	Until a$
	Close_Com(1)
Else
	PrintN("Error!, Can't open Com1")
	Input()
EndIf
CloseConsole()
End

Code: Alles auswählen

zrxd.s = " "  ;Lesebuffer mit einem Zeichen initialisieren
Repeat
      If hcom > 0
        While ComInputBufferCount(hcom) > 0
          If ComInput(hcom, zrxd)  ;Read String
            Debug zrxd
          EndIf
        Wend 
      EndIf
      Delay(20)  ;nicht vergessen, sonst wird das System lahmgelegt
Until WindowEvent() = #PB_CloseWindow oder so

Code: Alles auswählen

Procedure.l Open_Com(com.l, baud.l, Buffer_in.l, Buffer_out.l, Parity.l, ByteSize.l, StopBits.l, flags.l, TimeOUT.l) 
  *FileID = CreateFile(com, "COM" + Str(com) + ":") 
  If *FileID 
    If GetCommState_(*FileID, @PortConfig.DCB) 
      SetupComm_(*FileID, Buffer_in, Buffer_out) 
      TimeOut_Const.l = 1 
      ct.COMMTIMEOUTS 
      ct\ReadIntervalTimeout         = #MAXDWORD 
      ct\ReadTotalTimeoutMultiplier  = TimeOUT 
      ct\ReadTotalTimeoutConstant    = TimeOut_Const 
      ct\WriteTotalTimeoutMultiplier = TimeOUT 
      ct\WriteTotalTimeoutConstant   = TimeOut_Const 
      SetCommTimeouts_(*FileID, ct) 
      If flags = 0 
        flags = $1083 
      EndIf 
      PortConfig\BaudRate  = baud 
      PortConfig\Parity    = Parity 
      PortConfig\StopBits  = StopBits 
      PortConfig\ByteSize  = ByteSize  
      PortConfig\fBits     = flags 
      SetCommState_(*FileID, @PortConfig) 
      PurgeComm_(*FileID, #PURGE_TXCLEAR | #PURGE_RXCLEAR) 
    EndIf 
  EndIf 
  ProcedureReturn *FileID 
EndProcedure 

Procedure Close_Com(com.l) 
   CloseFile(com) 
EndProcedure 

OpenConsole() 
If Open_Com(3, 4800, 1024, 1024, #EVENPARITY, 7, #ONESTOPBIT, $2018, 50) 
  PrintN("Geöffnet !")
  WriteStringN(Hex(5)) ;<- This should be Strg+E ... Play with it... 
  zahl=0
   Repeat 
     a$ = ReadString() 
     PrintN(a$) 
     Delay(500) 
     zahl+1
   Until zahl=1000
   Close_Com(1) 
Else 
   PrintN("Error!, Can't open Com3") 
   Input() 
EndIf 
CloseConsole() 
End