Schleifenprogrammieren bei VirtualBasic 6

elektrorick Gast 08.05.2012 10:12 #2667520

Lesenswert?

•

Guten tag (;
Bin gerade dabei mit VirtualBasic6 eine Leiterplatte mit 8 LED's über 
den paralellport anzusteuern. Nun meine Frage:
wie kann ich das Programm durch Schleifen(mit 10er Potenzen) 
vereinfachen?
Bis jetzt siehts so aus:

Lauflicht links nach rechts

Private Sub Command1_Click()
M1:
Call PortOut(&H378, 128)
Pause 1
Call PortOut(&H378, 64)
Pause 1
Call PortOut(&H378, 32)
Pause 1
Call PortOut(&H378, 16)
Pause 1
Call PortOut(&H378, 8)
Pause 1
Call PortOut(&H378, 4)
Pause 1
Call PortOut(&H378, 2)
Pause 1
Call PortOut(&H378, 1)
Pause 1
GoTo M1
End Sub

Lauflicht kumulativ

Private Sub Command3_Click()
M1:
Call PortOut(&H378, 1)
Pause 1
Call PortOut(&H378, 3)
Pause 1
Call PortOut(&H378, 7)
Pause 1
Call PortOut(&H378, 15)
Pause 1
Call PortOut(&H378, 31)
Pause 1
Call PortOut(&H378, 63)
Pause 1
Call PortOut(&H378, 127)
Pause 1
Call PortOut(&H378, 255)
Pause 1
GoTo M1
End Sub

Beitrag melden Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Markierten Text zitieren Antwort Antwort mit Zitat

Rufus Τ. F. (rufus) 08.05.2012 10:32 #2667552

Lesenswert?

•

▲
▼

Du meinst vermutlich Visual Basic.

Und jetzt sieh Dir doch einfach mal Deine Werte an:

128 - 64 - 32 - 16 ...

Die Startbedingung wird jeweils durch 2 geteilt.


x = 128

do
  x = x / 2
  output x
while x > 0



1 - 3 - 7 - 15 ...

Hier ist's nur einen Hauch komplizierter:

Die Startbedingung wird mit zwei multipliziert - und ausgegeben wird 
dieser Wert, nachdem 1 abgezogen wird.

x = 1
do
  x = x * 2
  output x - 1
while x < 256

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Schleifenprogrammieren bei VirtualBasic 6

Antwort schreiben