Hallo,

mache jetzt nicht extra einen neuen Thread auf, da es auch zum Thema Schieberegister in Bascom ist.
Hab einen 74HC595 hier und wollte damit mal einwenig experimentieren.
Habe den nun an meinem ATMEGA8 angeschlossen und Eingänge ein und ausschalten können mit untenstehendem Code. Funktioniert auch soweit. Nun wollte ich mal ein kleines Lauflicht damit machen. Wie mach ich das am besten?

Code:
$regfile = "m8def.dat"
$crystal = 3686400

Config Pind.2 = Input
Taster Alias Pind.2
Portd.2 = 1

Dim A As Byte

Sclk Alias Portc.1
Seriell Alias Portc.0

A = &B00000001

Do
If Taster = 0 Then
Waitms 150
Shiftout Seriell , Sclk , A , 0 , 8 , 0
Portc.2 = 1
Waitms 1
Portc.2 = 0
End If
Loop
Schonmal danke für Eure Hilfe.

Grüße