1. programm

**2 be** · 24.01.2005, 21:38

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** · 24.01.2005, 21:59

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

**Thebe** · 24.01.2005, 22:18

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** · 24.01.2005, 22:22

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** · 25.01.2005, 10:11

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

**2 be** · 25.01.2005, 16:58

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** · 25.01.2005, 17:17

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]