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 > > Versuch mal das. > > IRQ-puffer1 global (vor main) und größer (deine Meldung hat 156 bytes?) > Du willst unbedingt eine Schleife, na gut. > Wenn das läuft, gib 'ne Rückmeldung und dann geht es weiter. > > original: > > Sub main() > Dim puffer1(156) As Byte > Dim serial, input, ii As Integer > Dim abc(156),so(150),ms(20),as(20) As Char > so="test" > Serial_Init_IRQ(0,puffer1,100,50,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD9600) > AbsDelay(20000) > ii=Serial_IRQ_Info(0,RS232_FIFO_RECV) > For serial=1 To ii > abc(serial)=Serial_Read(0) > Next > Msg_WriteChar(ii) > ... > > ================================================= > vorschlag: > > 'global > Dim puffer1(246) As Byte > > Sub main() > > Dim serial, input, ii As Integer > Dim abc(200),so(150),ms(20),as(20) As Char > > so="test" > > Serial_Init_IRQ(0,puffer1,200,40,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD9600) > > AbsDelay(20000) > > ii=Serial_IRQ_Info(0,RS232_FIFO_RECV) > Msg_WriteInt(ii) > Msg_WriteChar(13) > > For serial=1 To ii > abc(serial)=Serial_Read(0) > 'zum test zurück an HT (hyperterminal) > Serial_Write(0,abc(serial)) > Next > > Serial_Write(0,13) 'CR > Serial_Write(0,10) 'LF > > End Sub
