Probleme mit Shiftout

[rauf81]

Oh mein Fehler.
Programm Nr Zwei sollte natürlich so aussehen:

$regfile = "m16def.dat"
$crystal = 16000000

Ddra = &B11111111

Mosi Alias Porta.0
Sck Alias Porta.1
Ss Alias Porta.2

Dim Daten As Byte



Daten = &B01010101

Do

Shiftout Mosi , Sck , Daten
Set Ss
Reset Ss

Loop


End

Sorry

Also wenn ich das aufspiele dann sollte doch jedes zweite LED an sein.
Es blinkt aber nur QA also die erste LED.

Grüße Flo

[rauf81]

OK

Ich habe das Problem gelöst.

SCLR noch auf VCC gelegt und nun geht es.

Grüße Flo

[rauf81]

Was ich aber noch nicht verstehe:

Also ich schiebe &B00000001 in Schieberegister LED 1 leuchtet.
Dann &B00000010 Sollte doch LED 2 leuchten ?? aber es leuchtet LED 1

Warum ist das so und wie kann ich den Fehler beheben...

Grüße Flo