Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > Es wäre sehr hilfreich dein Aktuelles Programm zu kennen um zu sehen was du hast und was nicht. > > > Hallo, > > da ist das Programm: > > Sub main() > Dim receive As Byte > Dim reset(4)={&H56, &H00, &H26, &H00} As Byte > Dim baud(7)={&H56, &H00, &H24, &H03, &H01, &H2A, &HF2} As Byte > Dim init_end(15)={&H36, &H32, &H35, &H0D, &H0A, &H49, &H6E, &H69, &H74, &H20, &H65, &H6E, &H64, &H0D, &H0A} As Byte > Dim take(5)={&H56, &H00, &H36, &H01, &H00} As Byte > Dim readsize(5)={&H56, &H00, &H34, &H01, &H00} As Byte > Dim readjepeg(16)={&H56, &H00, &H32, &H0C, &H00, &H0A, &H00, &H00, &H00, &H00, &H00, &H00, &H00, &H00, &H00, &H00} As Byte > Dim stop(5)={&H56, &H00, &H36, &H01, &H03} As Byte > > Serial_Init(0,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD38400) > > Serial_WriteText(0,reset) > Serial_WriteText(0,baud) > > Serial_WriteText(0,init_end) > AbsDelay(3000) > Serial_WriteText(0,take) > Serial_WriteText(0,readsize) > Serial_WriteText(0,readjepeg) > Do While 1 > receive=Serial_ReadExt(0) > If receive= &HD9 Then > Serial_WriteText(0,stop) > End If > End While > End Sub > > > Grüsse > Lorenzo
