Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Re: RS232 IRQ Kategorie: Programmierung Basic (von a - 19.01.2007 14:45)
Als Antwort auf Re: RS232 IRQ von Christoph - 19.01.2007 7:59


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


    Antwort schreiben


Antworten: