Code: Alles auswählen
For i=0 To 6
Debug @Byte(i)
Next
Code: Alles auswählen
For i=0 To 6
Debug Byte(i)
Next
Code: Alles auswählen
For i=0 To 6
Debug @Byte(i)
Next
Code: Alles auswählen
For i=0 To 6
Debug Byte(i)
Next
Code: Alles auswählen
ADC.b
Portb.b
Portc.b
Portd.b
DatenPortB.b
DatenPortC.b
DatenPortD.b
Code: Alles auswählen
WriteSerialPortData(port, @ADC)
WriteSerialPortData(port, @Portb)
usw.
oder
WriteSerialPortString(port, Chr(ADC))
WriteSerialPortString(port, Chr(Portb))
usw.
Code: Alles auswählen
While AvailableSerialPortInput(port)
ReadSerialPortData(port, @s_byte,1)
; s_byte ist eine Chr - Variable --> s_byte.c
text2 = Chr(s_byte)
; hier mal testen, ob Bytes kommen
Wend
Er hätte auch dieses Board ungeflasht nehmen können....PS: 49 € ist aber ganz schön teuer für so ein Board
mit USB + TTL Wandler, AVR, und ein paar Kleinigkeiten.
Code: Alles auswählen
Dim Request.b(6)
Dim Response.b(14)
Request(0)=%000001
Request(1)=%111111
Request(2)=%111111
Request(3)=%111111
Request(4)=%111111
Request(5)=%111111
Request(6)=%111111
OpenSerialPort(6, "COM6", 57600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
Delay(70)
WriteSerialPortData(6, @Request(), 7)
ReadSerialPortData(6, @Response(), 15)
CloseSerialPort(6)
For i=0 To 14
Debug Response(i)
Next
Code: Alles auswählen
;....
While AvailableSerialPortOutput(6)>0
WriteSerialPortData(6, @Request(), 7)
Wend
;.....
While AvailableSerialPortInput(15)>0
ReadSerialPortData(6, @Response(), 15)
Wend