1. programm

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

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

Zitat:

---

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.

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

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:

Code:

---

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

---

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

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]

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