Hallo, ich möchte eine Porterweiterung mit dem 74HC595 herstellen, ich kann meine Bits & Bytes auch schon sehen wie sie durch "flutschen" nun wollte ich mit dem Rotate Befehl die Variable "Gelb" immer um ein Bit verschrieben.... nur leider funktioniert das nicht... ist bestimmt ein programmfehler $regfile = "m168pdef.dat" $crystal = 8000000 $hwstack = 40 $swstack = 16 $framesize = 32 Config Portc = Output Dim Modus1 As Byte Daten Alias Portc.3 Clock Alias Portc.4 Dim Gelb As Byte Dim Rot As Byte Dim Gruen As Byte Main: Do Gelb = &B00000001 Rotate Gelb , Left Shiftout Daten , Clock , Gelb , 1 , 8 , 3000 Portc.5 = 1 Waitms 100 Portc.5 = 0 Loop End
Gast
#3126464
Ohne Kenntnisse von BASCOM fällt mir folgendes auf: Du initialisierst die Variable Gelb in der Do .. LOOP Schleife. Gelb = &B00000001 Mach das mal vor dem DO, sonst hat es immer den gleichen Wert. Ob der Rest in Ordnung ist, weiß ich nicht.