Kosta
27.09.2005, 20:23
Hallo alle zusammen,
kann mir jemand sagen, wie ich Zeichen vom über die RS232 Schnittstelle
an das STK 500 schicken kann?
Ich habe folgenden Code ausprobiert:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 19200
Print "Herzlich willkommen"
Dim A As Byte
Do
A = Inkey(a)
If A > 0 Then
Print "received form serial Port:"
Print "ascii code " ; A;
Print "=character " ; Chr(a)
Else
Print "warte"
'Wait 3
End If
Loop Until A = 27
End 'end program
Am Bascom Simulator fuktioniert das Programm prima.
Mit einem externen Terminal, wie z.B Hyperterminal oder das
Terminal1.8 von Bray++ wird die Print Anweisung"Herzlich willkommen" angezeigt. Habe jedoch nicht die möglichkeit über das
Terminal Zeichen an den Controller zu schicken.
Frage:
Was mache ich falsch???
Dankeschön
kann mir jemand sagen, wie ich Zeichen vom über die RS232 Schnittstelle
an das STK 500 schicken kann?
Ich habe folgenden Code ausprobiert:
$regfile = "m16def.dat"
$crystal = 4000000
$baud = 19200
Print "Herzlich willkommen"
Dim A As Byte
Do
A = Inkey(a)
If A > 0 Then
Print "received form serial Port:"
Print "ascii code " ; A;
Print "=character " ; Chr(a)
Else
Print "warte"
'Wait 3
End If
Loop Until A = 27
End 'end program
Am Bascom Simulator fuktioniert das Programm prima.
Mit einem externen Terminal, wie z.B Hyperterminal oder das
Terminal1.8 von Bray++ wird die Print Anweisung"Herzlich willkommen" angezeigt. Habe jedoch nicht die möglichkeit über das
Terminal Zeichen an den Controller zu schicken.
Frage:
Was mache ich falsch???
Dankeschön