Guten Tag,
ich habe eine Frage, ob mir jemand vielleicht weiter helfen kann.
Wir haben aktuell eine Aufgabe bekommen, doch nach 3 Stündigem probieren habe ich einfach keinen Weg gefunden.
Um Hilfe wäre ich sehr dankbar!
Danke im Voraus!
Mit freundlichen Grüßen
Michael
ich habe eine Frage, ob mir jemand vielleicht weiter helfen kann.
Wir haben aktuell eine Aufgabe bekommen, doch nach 3 Stündigem probieren habe ich einfach keinen Weg gefunden.
Um Hilfe wäre ich sehr dankbar!
Ursprung aus voriger Aufgabe mit der weiter gearbeitet werden soll ist folgender:Beim Betätigen des Tasters wird das Lauflicht kontinuierlich langsamer und bleibt dann bei der generierten LED-Anzahl für drei Sekunden stehen. Anschließend beschleunigt das Lauflicht auf dieUrsprungsgeschwindigkeit.
$regfile = "m8def.dat" 'ATMega8-Deklaration
$crystal = 3686400 'Taktfrequenz 3,686400MHz
Ddrd = &B0000000
Ddrb = &B0111111
Portd.2 = 1
Dim X As Byte
Dim I As Byte
Dim Z As Byte
Dim A As Byte
A = 0
I = 0
'-------------------------------------------------------------------------------
Do
For I = 0 To 5 Step 1
Portb.i = 1
Waitms 150
If Pind.2 = 0 Then
Portb = &B00000000
Waitms 500
X = Rnd(6)
For Z = 0 To X
Portb.z = 1
Next Z
Wait 3
Portb = &B00000000
A = 0
End If
Next I
For I = 5 To 0 Step -1
Portb.i = 0
Waitms 150
If Pind.2 = 0 Then
Portb = &B00000000
Waitms 500
X = Rnd(6)
For Z = 0 To X
Portb.z = 1
Next Z
Wait 3
Portb = &B00000000
A = 0
End If
Next I
Loop
End
Danke im Voraus!
Mit freundlichen Grüßen
Michael