Liste der Anhänge anzeigen (Anzahl: 1)
Hallo
Ich habs Geschafft!
Das Teil läuft jetzt wie gewünscht ,vielen dank nochmal an alle die geholfen haben!
hier mal ein Bild:
Anhang 19908
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