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 > Hallo, > > kann die zweite serielle Schnittstelle (1) nur gepollt werden? > Mit der ersten ser. Schnittstelle treten soweit keine Probleme auf, > während die zweite im Interruptmodus nicht reagiert. > > Gruß Hans > > > <basic> > ' RS232_IRQ: Interrupt Verarbeitung ? > ' > ' erforderliche Library: IntFunc_Lib.cc > > ' 64 byte Sende + Empfangspuffer + 6 byte interne FIFO Verwaltung > > Dim buffer(70) As Byte > > '------------------------------------------------------------------- > > Sub main() > Dim count,sz As Integer > Dim v24,variante As Byte > > v24=1 'rs232-kanal 0/1 > > variante=1 'ohne/mit Interrupt 0/1 > > If variante=0 Then > Serial_Init(v24,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD19200) > Else > Serial_Init_IRQ(v24,buffer,32,32,SR_8BIT Or SR_1STOP Or SR_NO_PAR,SR_BD19200) > End If > > If variante=1 Then > count=Serial_IRQ_Info(v24,RS232_FIFO_RECV) > Msg_WriteInt(count) > Msg_WriteChar(13) > End If > > Do While True > > sz=Serial_ReadExt(v24) > If sz>255 Then > 'empfang-buffer leer > Else > Serial_Write(v24,sz) 'Echo > Msg_WriteInt(sz) > Msg_WriteChar(13) > End If > > End While > > End Sub > </basic>
