Erstes Testprogramm für RN-Mega2560 läuft nicht so ganz

[Raolin]

Hi!

ich hab grad meinen ersten Gehversuch mit dem Mega256-Board gemacht.
Eigentlich habe ich das Programm zum USB-Test, welches im Auslieferungszustand drauf war nur modifiziert.
Über USB soll eigentlich nur eine Zahl X, die von 1 bis 10000 hochzählt ausgegeben werden.
Seltsamerweise gibt das Terminal aber nur gerade Zahlen aus. Aber ansonsten zählt es sauber hoch.
Edit: Hab grad festgestellt, dass er mit 98 anfängt? Hmm...
Wenn er die 10.000 erreicht hat, fängt er von vorn an, ist das richtig?

Hat jemand einen Tip für mich, woran es liegen könnte?

Besten Dank
Raolin


Hier mein Code:

$prog , 255 , &B11011001 , 'Quarz an / Teiler aus / Jtag aus

$regfile = "m2560def.dat"
$hwstack = 82 '80
$framesize = 68 ' 64
$swstack = 68 '44

$crystal = 16000000 'Quarzfrequenz
'$baud = 19200
'Config Scl = Portd.0 'Ports fuer IIC-Bus
'Config Sda = Portd.1

Config Com4 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8
Open "com4:" For Binary As #4

Dim X As Integer

For X = 0 To 10000
Print #4 , X
Waitms 100
X = X + 1
Next

[Pascal]

Dass nur gerade Zahlen ankommen, liegt daran, dass du das "X = X + 1" zuviel drin hast. Das Zählen übernimmer schon die Schleife, das musst du nicht selbst machen.
Wenn er die Schleife durchlaufen hat, ist das Programm zu Ende(sehe ich doch richtig, oder? mein basic ist lange nicht aufgefrischt worden...). Dann kann man nicht genau sagen, was er macht. Kann sein, dass er wieder von vorne anfängt. Deswegen macht man ans Programmende eine Endlosschleife, bzw. schreibt das Programm in eine solche.