Maxxtro
31.12.2008, 13:45
Hallo allerseits,
ich habe eine Frage/ein Problem beim programmieren in Bascom - vorweg, ich bin Anfänger O:)
Ich möchte mit folgendem, zugegeben sehr primitivem Code
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.5 = Output
Config Pind.6 = Output
Led1 Alias Portd.5
Led2 Alias Portd.6
Dim Laenge As Byte
Laenge = 1
Do
Led1 = 1
Waitms 1
Led1 = 0
Waitms Laenge
Laenge = Laenge + ?
If Laenge > 30 Then Laenge = 1
Loop
End
(vorerst) eine LED aus"faden" und anschliesend wieder aufblitzen usw. lassen.
Wenn ich nun an der Stelle des Fragezeichens eine Zahl größer als 0,5 (.5) eingebe funktioniert das ganze, nur leider zu schnell. Gebe ich allerdings eine Zahl gleich oder kleiner 0,5 ein, so passiert im Endeffekt überhaupt nichts mehr, die LED leuchtet nur noch.
Warum ist das so? Und wie kann ich das ändern?
MfG,
maxxtro
ich habe eine Frage/ein Problem beim programmieren in Bascom - vorweg, ich bin Anfänger O:)
Ich möchte mit folgendem, zugegeben sehr primitivem Code
$regfile = "m8def.dat"
$crystal = 8000000
Config Pind.5 = Output
Config Pind.6 = Output
Led1 Alias Portd.5
Led2 Alias Portd.6
Dim Laenge As Byte
Laenge = 1
Do
Led1 = 1
Waitms 1
Led1 = 0
Waitms Laenge
Laenge = Laenge + ?
If Laenge > 30 Then Laenge = 1
Loop
End
(vorerst) eine LED aus"faden" und anschliesend wieder aufblitzen usw. lassen.
Wenn ich nun an der Stelle des Fragezeichens eine Zahl größer als 0,5 (.5) eingebe funktioniert das ganze, nur leider zu schnell. Gebe ich allerdings eine Zahl gleich oder kleiner 0,5 ein, so passiert im Endeffekt überhaupt nichts mehr, die LED leuchtet nur noch.
Warum ist das so? Und wie kann ich das ändern?
MfG,
maxxtro