Befehl Input und Output klappen nicht

[datatom]

Hallo zusammen,

ich möchte die Eingabe über den Terminal wieder ausgeben und habe folgendes Programm geschrieben:

Dim Eingabe As Byte
Dim Ausgabe As Byte

Config Porth = Output
Out1 Alias Porth.0
Out2 Alias Porth.1
Out3 Alias Porth.2
Out4 Alias Porth.3
Out5 Alias Porth.4
Out6 Alias Porth.5
Out7 Alias Porth.6
Out8 Alias Porth.7



Do
   Led = 1

   Wait 1

   Led = 0

   Wait 1

   Input "Eingabe machen: " , Eingabe

   Ausgabe = Eingabe

   Print Ausgabe



Loop

End

Leider kann ich im Terminalfenster nur drei Zeichen eingeben. Wenn ich Buchstaben eingebe, werden diese nicht wieder ausgegeben, z.B.: bei Eingabe AAA wird eine 0 im Print ausgegeben.

Was mache ich falsch, fehlen evt. noch weitere Angaben?

Grüße

datatom

[Kampi]

Warum machste diesen Befehl ins Programm:

Ausgabe = Eingabe

Schreib doch einfach:

Print Eingabe

Damit sparst du dir 1 Variable. Und dann funktioniert es auch. Weil mit dem Input-Befehl wird die Eingabe ja automatisch unter der Variable "Eingabe" gespeichert.

[datatom]

klappt trotzdem nicht

[Kampi]

Also ich habs im Simulator getestet und da funktioniert es. Ist dein Programm was du da oben gepostet hast das komplette oder nur ein Ausschnitt.
Weil da fehlt noch das $regfile, $crystal, $baud, usw. Und erscheint im Terminal den wenigstens das "Eingabe machen: "? Weil wenn das schon nicht erscheint ist dein RS232 vlt nicht in Ordnung. Du musst Rx mit Tx verbinden und Tx mit Rx.

[datatom]

Sorry, ist nur ein Ausschnitt:

$prog , 255 , &B11011100 ,                                  '&B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus
$regfile = "m2560def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44
$crystal = 16000000                                         'Quarzfrequenz
Config Pind.5 = Output
Led Alias Portd.5
$baud = 19200


'Config Com1 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
'Config Com2 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com3 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
'Config Com4 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
'Open "com1:" For Binary As #1                               'RS232
'Open "com2:" For Binary As #2                               'RS232
Open "com3:" For Binary As #3                               'RS232
'Open "com4:" For Binary As #4                               'RS232


Dim Eingabe As Byte
Dim Ausgabe As Byte

Config Porth = Output
Out1 Alias Porth.0
Out2 Alias Porth.1
Out3 Alias Porth.2
Out4 Alias Porth.3
Out5 Alias Porth.4
Out6 Alias Porth.5
Out7 Alias Porth.6
Out8 Alias Porth.7



Do
   Led = 1

   Wait 1

   Led = 0

   Wait 1

   Input "Eingabe machen: " , Eingabe

  ' Ausgabe = Eingabe
   Print 1

   Print Eingabe                                            'Ausgabe



Loop

End

[Kampi]

Wenn du mehrere COM-Ports am Controller benutzt und einstellst solltest du das auch bei dem Print hin schreiben. Und du hast da 2x ne Baudrate deffiniert. Einmal ganz oben im Kopf und dann nochmal da drunter. Wenn du COM 3 aktiv hast versuch es mal so:

Print #3, Eingabe

Wird den was im Terminal angezeigt? Also schreibt er den wenigstens "Eingabe machen: "?