PureBoard

Habe leider keine Ahnung von AVR programmieren.
Bin aber ein Stück weiter gekommen, da ich jetzt wenigstens eine Antwort vom AVR bekomme.
Das Delay(70) hat gefehlt.

Dim Request.b(6)
Dim Response.b(14)

Request(0)=%000001
Request(1)=%111111
Request(2)=%111111
Request(3)=%111111
Request(4)=%111111 ...

Danke, geht auch nicht.

was ich mich frage, ist ob die 7 Bytes überhaupt so angenommen.

OpenSerialPort(6, "COM6", 57600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)

Dim Byte.b(6)
Byte(0)=%00000001
Byte(1)=%00111111
Byte(2)=%00111111
Byte(3)=%00111111
Byte(4)=%00111111 ...

Ist leider kein Quellcode dabei.

Gruß tinux

Dank @ H.Brill , geht aber leider auch wieder nicht.

währe dir sehr dankbar wenn du mir weiter helfen könntest.

Dank @ H.Brill , geht aber leider auch nicht.

Habe folgendes Problem
Versuche eine Digitale PIO Karte anzusprechen. (μPIO / GPIO18 von ABACOM)
Ich weis überhaupt nicht wie ich das Umsetzen kann.
Wer kann mir weiterhelfen. Ich weis überhaupt nicht was ich ihm senden soll (sieben Datenbytes ?)

Datenprotokoll des Hersteller
Das μPIO / GPIO18 ...

Probier mal das!

; Source generiert durch DLL2PBLib
; Copyright 2005 by Thomas Schulz (TS-Soft)

;HD44780 instructions, compare HD44780 Data sheet

cmd_Clear_Display = $01
cmd_Return_Home = $02
cmd_Entry_Mode_Set = $04
cmd_Display_On_Off = $08
cmd_Cursor_or_Display_Shift = $10
cmd_Function_Set ...

Danke für die Tipps und Beispiele!

EnableExplicit

Procedure DrawLED(Text$, x, y, Size, LEDColorOn, LEDColorOff)

Structure QuadArray : q.q[0] : EndStructure
Structure CharArray : c.c[0] : EndStructure

Protected *Mask.QuadArray = ?Mask-8*32
Protected Index.i, Bit.i, Asc.i, Shift.i = 1 ...

Dot_Matrix 5x7

EnableExplicit

Procedure Dot_Matrix(text.s,x,y,dot_w_h,LEDColorOn,LEDColorOff)

Define s,i,t,f,h,hh,a,Matrix,dot_farbe,dot_x,dot_y

Dim zeichen.s(Len(text.s))
Dim mask.s(Len(text.s))

For s = 1 To Len(text.s)
zeichen.s(s) = Mid(text.s,s,1)

If zeichen.s(s) = "" : mask.s(s ...

Vielen Dank! @RSBasic