Edblum
06.10.2009, 09:35
Moin,
Ich habe schon etwas Erfahrung mit Basic und Bascom. So habe ich eine Mega88 controller programmiert mit 6 LED's in ein Kreis. Dabei habe ich die Bascomfunktion Rotate benützt. Ging allerdings ganz gut. Die LED's leuchten nach einander. Hier der Routine:
$regfile = "m88def.dat" 'bzw ATtiny2313.dat
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Dim J as Byte
Do
Portd = &B10111111
For J = 1 To 6
Rotate Portd , Right
Waitms 60
Next J
Loop
End
Wie gesagt, auf den Mega88 kein Problem
Beim Tiny2313 sieht das ganz anders aus. Im 1. Schritt leuchtet den 1. LED, beim 2. Schritt folgt den 2. LED, aber der 1. LED löscht nicht. Gleiches mit den folgenden Schritte und folgenden LED's. Am Ende der "for-next" loop leuchten alle 6 LED's.
Warum den Unterschied?
LG,
Ed
Ich habe schon etwas Erfahrung mit Basic und Bascom. So habe ich eine Mega88 controller programmiert mit 6 LED's in ein Kreis. Dabei habe ich die Bascomfunktion Rotate benützt. Ging allerdings ganz gut. Die LED's leuchten nach einander. Hier der Routine:
$regfile = "m88def.dat" 'bzw ATtiny2313.dat
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000
Dim J as Byte
Do
Portd = &B10111111
For J = 1 To 6
Rotate Portd , Right
Waitms 60
Next J
Loop
End
Wie gesagt, auf den Mega88 kein Problem
Beim Tiny2313 sieht das ganz anders aus. Im 1. Schritt leuchtet den 1. LED, beim 2. Schritt folgt den 2. LED, aber der 1. LED löscht nicht. Gleiches mit den folgenden Schritte und folgenden LED's. Am Ende der "for-next" loop leuchten alle 6 LED's.
Warum den Unterschied?
LG,
Ed