4-fach 7-Seg. Anzeigemodul aus DVD-Player

[Padavan]

Hallo

Ich habs Geschafft!
Das Teil läuft jetzt wie gewünscht ,vielen dank nochmal an alle die geholfen haben!
hier mal ein Bild:



Anbei der Code in Bascom:

'*******************************************
'*** 7-Segment Modul aus DVD-Player mit ***
'*** 3 tasten,1 IR-Sensor, 2 Status Leds ***
'*** 05.11.2011 by Padavan ***
'*******************************************

$regfile = "m8def.dat"
$crystal = 7372800 '7,37 Mhz
$hwstack = 20
$swstack = 8
$framesize = 24

'Ports

Ddrd = &B11111111

T3 Alias Portd.2 'Pin4,T4
T4 Alias Portd.3 'Pin5,T3
T2 Alias Portd.4 'Pin6,T2
T1 Alias Portd.5 'Pin7,T1
Led_gruen Alias Portd.6 'Pin8,Led Gr.

Led_gruen = 1

' Variablen

Dim Z As Byte
Dim Tausend As Byte
Dim Hundert As Byte
Dim Zehner As Byte
Dim Einer As Byte

'***TEST***

' SPI
Config Spi = Soft , Dout = Portb.3 , Ss = None , Clock = Portb.5
Ddrb = &B111111


' Timer0
Config Timer0 = Timer , Prescale = 256
On Timer0 Timer0_isr
Enable Timer0
Enable Interrupts

Const T0wert = 160 '112 für 100hz,160 für 150hz ,184 für 200hz


Tausend = 249 '&B11111001
Hundert = 164 '&B10100100
Zehner = 176 '&B10110000
Einer = 153 '&B10011001


'Main
Do


Loop

End

Timer0_isr:

Timer0 = T0wert
Incr Z

If Z = 1 Then
T1 = 0
Spiout Tausend , 1
Elseif Z = 2 Then
T2 = 0
T1 = 1
Spiout Hundert , 1
Elseif Z = 3 Then
T3 = 0
T2 = 1
Spiout Zehner , 1
Elseif Z = 4 Then
T4 = 0
T3 = 1
Spiout Einer , 1

Elseif Z = 5 Then
T4 = 1
Z = 0
End If
Return


MFG
Padavan