1. programm

[2 be]

Mein erstes programm auf dem RN-Control 1.4
is eigentllich ganz simple
aber egal hier is es:

Dim I As Integer


$crystal = 8000000
$baud = 9600


Config Portc = Output
Do
For I = 1 To 7
I = Rnd(6)
Portc.i = 0
Waitms 50
Portc.i = 1
Next I

Loop

[x-ryder]

was macht das programm denn genau und wofür ist die for-schleife gut?

[Thebe]

For I = 1 To 7
I = Rnd(6)


Na dann wünsch Ich Dir viel Glück das Du mal das Ende der For Schleife erreichst. So wird das nichts.

[RCO]

Also ich verstehe das auch nicht.
Irgendwelche Ports flackern lustig durch die Gegend.
For-Schleife hat keinen Sindd, da eh do-loop steht und 50ms ist wohl etwas schnell.

MFG Moritz

[albundy]

Hallo,
ich kann dich verstehen, ich habe auch mal klein angefangen.
Da ich annehme, dass meine Vorredner dir nicht wirklich geholfen haben, schlage ich dir vor, mal folgendes zu versuchen:


Dim I As Integer
$crystal = 8000000
Config Portc = Output
Do
I = Rnd(8) 'generiert Zufallszahlen von 0 bis 7
Set Portc.I 'schaltet entsprechenden Portc Pin ein
Wait 1 'wartet 1 Sekunde
Reset Portc.I 'schaltet den Portc Pin wieder aus
Wait 1 'wartet nochmal
Loop 'und das ganze wieder von vorne
end

[2 be]

danke albundy
aber warum laeuft mein da ab und zu
kannst du mir des erklären
wie du gesagt hast ich bin absoluter Beginner
danke schon mal im voraus

[albundy]

Ich verstehe den Sinn des Codes leider auch nicht.

Do -----> unendliche Schleife
For I = 1 To 7 -------> Schleife von 1 bis 7
I = Rnd(6) -------> Zufallszahl mit gleicher Variable, wie Schleife
Portc.i = 0 --------> Port ausschalten
Waitms 50 --------> 0,05 Sekunden warten
Portc.i = 1 --------> Port einschalten
Next I
Loop

schreib einfach mal, was das bewirken soll.[/i]

[sebastian.heyn]

Sehr suspekt hast du dir mal die variable I im simulator mit angeschaut was da so vor sich geht?