Uso di Ischarwaiting per Soft UART

[Micos]

Ho iniziato ad usare il BASCOM e volevo implementare una seconda porta seriale di tipo software, visto che sul mio
controllore cè soltanto una di tipo hw.

Cosi ho implementato una seconda soft Uart per rilevare dati HEX ma alcuni dati contengono NULL, cosi i sto usando
Ischarwaiting. Il resto del codice lavora bene finchè non ho sommato le seguenti parti:

Code: Select all

Dim A As Byte
Dim B As Byte
Dim S As String * 20

Open "comd.0:9600,8,n,1" For Input As #2

Do
A = Ischarwaiting(#2)
B = Waitkey(#2)
S = S + Chr(b)
Loop Until A = 0
Print S
Close #2



Ogni volta che provo a compilare ho questo errore " not valid for SW UART".
ma Ischarwaiting lavoro solo con hard UART?
Grazie

[tubincolo]

Una possibile soluzione :

Code: Select all

Declare Sub Getrs232()
Dim A(14) as byte
dim I as integer
do
  Getrs232
  I = 0
  Do
    I = I + 1
    Print A(i)
  Loop Until I = 14
loop
end
'---------------------------------
Sub Getrs232()
  Open "comd.5:4800,8,N,1" For Input As #2 'portD.5 is used for software RX
  Inputbin #2 , A(1) , 14
  Close #2
End Sub


Fammi sapere.....