Irgendwie häng ich fest, es klappt nicht.
Ich hatte erst mit 6 74ern versucht da ging alles soweit, nun hab ich 9 74er und die machen irgendwie nur durcheinander.
Liegts amCode?

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

Dim I As Integer
Dim S As Integer

Dim Segment(9) As Byte
' SPI Bus (Hardware) als Master konfiguiren
Config Spi = Hard , Master = Yes

' SPI Bus initialisieren
' setzt das DDR Register entsprechend
Spiinit

' Bytes für die Daten

Segment(1) = &B00000001
Segment(2) = &B00000001
Segment(3) = &B00000001

Segment(4) = &B00000001
Segment(5) = &B00000001
Segment(6) = &B00000001

Segment(7) = &B00000001
Segment(8) = &B00000001
Segment(9) = &B00000001

Do
For I = 1 To 128
Segment(1) = Segment(1) + I
Segment(2) = Segment(1) + I
Segment(3) = Segment(1) + I

Segment(4) = Segment(1) + I
Segment(5) = Segment(1) + I
Segment(6) = Segment(1) + I

Segment(7) = Segment(1) + I
Segment(8) = Segment(1) + I
Segment(9) = Segment(1) + I
Spiout Segment(1) , 9
Wait 1
Next
Loop
Danke