| Re: linkesprite jpeg color camera Kategorie: Programmierung Basic (von Lorenzo - 21.12.2012 15:32) | ||
| Als Antwort auf Re: linkesprite jpeg color camera von SvenA - 20.12.2012 23:13 | ||
| ||
|
> 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 | ||
Antwort schreiben Antworten:  Re: linkesprite jpeg color camera (von SvenA - 22.12.2012 17:45)Re: linkesprite jpeg color camera (von Lorenzo - 29.12.2012 21:39)Re: linkesprite jpeg color camera (von SvenA - 30.12.2012 13:38) | ||
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum