Nochmal die Codes, hab ein paar kleinere Sachen geändert.
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 19200
Dim Text As Word
Do
Input Text
Print Text
Loop
End
Code:
$regfile = "m32def.dat"
$crystal = 4000000
$baud = 19200
$include "declares.bas"
Print "funktioniert rs232"
Wait 1
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
Print "2"
Print #1 , "2"
Input #2 , Textneu
Print Textneu
End
$include "functions.bas"
Das wäre das minimale Programm.
Was meinst du mit dem Satz:
Ich nehme an, dass ich einfach schlecht gebastelt habe und sich die Kabel kreuzen.
??????
jon
Lesezeichen