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
)
Code:
$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
Code:
$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.
Code:
$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
Code:
$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.
Lesezeichen