PureBoard

*Puffer = AllocateMemory(1024) ;
Port$                      = "COM5"

If OpenSerialPort(0, Port$, 19200, #PB_SerialPort_EvenParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
 
  Puffer.s = Chr(2) + Chr(0) + Chr(4) + Chr(0) + Chr(6) + Chr(10) + Chr(3)
  PokeA(*Puffer + 0, 2)
  PokeA(*Puffer + 1, 0)
  PokeA(*Puffer + 2, 4)
  PokeA(*Puffer + 3, 0)
  PokeA(*Puffer + 4, 6)
  PokeA(*Puffer + 5, 10)
  PokeA(*Puffer + 6, 3)
 
  WriteSerialPortData(0, @Puffer, 7)
 
Debug PeekA(*Puffer + 0)
Debug PeekA(*Puffer + 1)
Debug PeekA(*Puffer + 2)
Debug PeekA(*Puffer + 3)
Debug PeekA(*Puffer + 4)
Debug PeekA(*Puffer + 5)
Debug PeekA(*Puffer + 6)

Delay(3000)
Else
  MessageRequester("Error", "Can't open the serial port: " + Port$)
EndIf

CloseSerialPort(0)

EnableExplicit

Global str_unicode.s
Global *str_ascii

str_unicode = Chr(2) + Chr(0) + Chr(4) + Chr(0) + Chr(6) + Chr(10) + Chr(3)
*str_ascii = Ascii(str_unicode)

ShowMemoryViewer(@str_unicode,StringByteLength(str_unicode) + 2)
;ShowMemoryViewer(*str_ascii,MemorySize(*str_ascii))

Dim daten.a(7)

Port$                      = "COM5"

If OpenSerialPort(0, Port$, 19200, #PB_SerialPort_EvenParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
   
   daten(0) = 2
   daten(1) = 0
   daten(2) = 4
   daten(3) = 0
   daten(4) = 6
   daten(5) = 10
   daten(6) = 3
   
   WriteSerialPortData(0, @daten(0), 7)
   
   Delay(3000)
Else
   MessageRequester("Error", "Can't open the serial port: " + Port$)
EndIf

CloseSerialPort(0)

EnableExplicit

Structure Daten
   length.i
   d.a[0]
EndStructure

Define Port$                      = "COM5"

If OpenSerialPort(0, Port$, 19200, #PB_SerialPort_EvenParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)

   Define *daten.Daten = ?daten
   
   WriteSerialPortData(0, @*daten\d, *daten\length)
   
   Delay(3000)
   
   CloseSerialPort(0)
Else
   MessageRequester("Error", "Can't open the serial port: " + Port$)
EndIf



DataSection
   daten:
      Data.i 7
      Data.a 2, 0, 4, 0, 6, 10, 3
EndDataSection