Tiger 1

[Lunarman]

Ich brauch kein mäxchen mehr??? Wo nimmt das Ding denn 12 V her???

hier der alte Code, mit Fehler Rn sagt m8 sagt RN sagt ohne die eigentlichen String (ich mein keine Unterwäsche  )

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 2400

Do
Dim Text As String * 16


Config Portb.0 = Output
Portb.0 = 1

Input , Text

Portb.0 = 0


Print "M8 sagt " ; Text

Loop

End

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 2400

Print "funktioniert rs232"
waitms 1000

Config Portc.0 = Output
Portc.0 = 0

Open "Comd.6:2400,8,n,1" For Output As #1
Open "Comd.3:2400,8,n,1" For Input As #2
Dim Text As String * 16
Dim Textneu As String * 16

Input "Zeichen eingeben " , Text
Print "RN sagt " ; Text
Print #1 , "RN sagt " ; Text
Input #2 , Textneu
Print "RN sagt " ; Textneu


End

und die aktuellen, wo ich statt 255 nach der Strecke nur noch 0 zurückbekomme.

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 2400

Do
Dim Text As Word


Config Portb.0 = Output
Portb.0 = 0

Input Text

If Text = 0 Then
   Portb.0 = 1
Else
Portb.0 = 0
End If




Print Text

Loop

End

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 2400
$include "declares.bas"

Print "funktioniert rs232"
Waitms 1000

Config Portc.0 = Output
Portc.0 = 0

Open "Comd.6:2400,8,n,1" For Output As #1
Open "Comd.3:2400,8,n,1" For Input As #2
Dim Text As Word
Dim Textneu As Word

Text = 255

'Input "Zeichen eingeben " , Text
Print Text
Print #1 , Text
Input #2 , Textneu
Print Textneu


End

$include "functions.bas"

Das wärs dann. Wo isn der Fehler? Wär absolut geil, wenn du ihn findest. Dann schuld ich dir Geld.