Hi
vielen dank für deine Hilfe ich bin jetzt schon ein Stück weiter:
Code:
$regfile "m16def.dat "
$crystal = 1000000
Dim Test As Integer
Dim Zeit As Integer
Dim Hunderter As Integer
Dim Zehner As Integer
Dim Einer As Integer
Dim Seg_array(10) As Byte
seg_array(1)= &B00110000
seg_array(2) = &B01101101
seg_array(3) = &B01111001
seg_array(4) = &B00110011
seg_array(5) = &B01011011
seg_array(6) = &B01011111
seg_array(7) = &B01110000
seg_array(8) = &B01111111
seg_array(9) = &B01111011
seg_array(10) = &B01111110
Config Timer0 = Timer , Prescale = 1024
Enable Timer0
Stop Timer0
Timer0 = 0
Config Porta.0 = Input
Config Porta.1 = Input
Config Portb = Output
Config Portc = Output
Config Portd = Output
Do
If Pina.0 = 1 Then Start Timer0
If Pina.1 = 1 Then Stop Timer0
Timer0 = Zeit
Zeit / 1757 = Test '357
Test / 100 = Hunderter '357/100=3,57=3
(test / 10) -(hunderter * 10) = Zehner '357/10=35,7=35- 3*10)=5
Test -(hunderter * 100) -(zehner * 10) = Einer
If Hunderter = 1 Then Portd = Seg_array(1)
If Hunderter = 2 Then Portd = Seg_array(2)
If Hunderter = 3 Then Portd = Seg_array(3)
If Hunderter = 4 Then Portd = Seg_array(4)
If Hunderter = 5 Then Portd = Seg_array(5)
If Hunderter = 6 Then Portd = Seg_array(6)
If Hunderter = 7 Then Portd = Seg_array(7)
If Hunderter = 8 Then Portd = Seg_array(8)
If Hunderter = 9 Then Portd = Seg_array(9)
If Hunderter = 0 Then Portd = Seg_array(10)
If Zehner = 1 Then Portc = Seg_array(1)
If Zehner = 2 Then Portc = Seg_array(2)
If Zehner = 3 Then Portc = Seg_array(3)
If Zehner = 4 Then Portc = Seg_array(4)
If Zehner = 5 Then Portc = Seg_array(5)
If Zehner = 6 Then Portc = Seg_array(6)
If Zehner = 7 Then Portc = Seg_array(7)
If Zehner = 8 Then Portc = Seg_array(8)
If Zehner = 9 Then Portc = Seg_array(9)
If Zehner = 0 Then Portc = Seg_array(10)
If Einer = 1 Then Portb = Seg_array(1)
If Einer = 2 Then Portb = Seg_array(2)
If Einer = 3 Then Portb = Seg_array(3)
If Einer = 4 Then Portb = Seg_array(4)
If Einer = 5 Then Portb = Seg_array(5)
If Einer = 6 Then Portb = Seg_array(6)
If Einer = 7 Then Portb = Seg_array(7)
If Einer = 8 Then Portb = Seg_array(8)
If Einer = 9 Then Portb = Seg_array(9)
If Einer = 0 Then Portb = Seg_array(10)
End If
Waitms 1000
Loop
End
Probleme machen wir aber diese 4 Zeilen, die Bascom als Fehlerhaft ausweist und ich nicht weiß warum:
Code:
Zeit / 1757 = Test '357
Test / 100 = Hunderter '357/100=3,57=3
(test / 10) -(hunderter * 10) = Zehner '357/10=35,7=35- 3*10)=5
Test -(hunderter * 100) -(zehner * 10) = Einer
Lesezeichen