Ich habe einen Code für einen Frequenzzähler gefunden.
Hierbei wird das Ergebnis auf ein LCD-Display ausgegeben.
Ich möchte das Ergebnis aber auf ein 5-6 Stellige Siebensegmentanzeige ausgeben.
Wie bekomme ich das hin, ohne dass die Multiplex-Geschichte das Ergebnis des Frequenzzählers beeinflusst ?
Hier mal der "geklaute" Code:
(Quellenangabe : http://bascom-forum.de/index.php/topic,10.msg136.html#msg136 )
Das Ergebnis seriell auf einen 2. MC zu übertragen, und den 2. die Anzeige machen zu lassen, wäre sicher zu umständlich ?!
Micha
Hierbei wird das Ergebnis auf ein LCD-Display ausgegeben.
Ich möchte das Ergebnis aber auf ein 5-6 Stellige Siebensegmentanzeige ausgeben.
Wie bekomme ich das hin, ohne dass die Multiplex-Geschichte das Ergebnis des Frequenzzählers beeinflusst ?
Hier mal der "geklaute" Code:
Code:
$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 128
$framesize = 128
$swstack = 128
Dim Zaehler As Long
Dim Result As Long
Config Timer0 = Counter , Edge = Falling
Config Timer1 = Timer , Prescale = 256
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 1a 'LCD-Modul 1x16
Config Portb = Output
Config Pind.2 = Input
Config Pind.3 = Input
Config Pind.4 = Input 'PD4 ist counterinput T0
Config Portd.7 = Output
'Pins von Port C definieren
Config Portc = Input
'Set Portd.4 'Pullup Einschalten
On Timer0 Sprung_in_sup
On Timer1 Timer_irq
Enable Timer0
Enable Timer1
Enable Interrupts
Cursor Off
Cls
Load Timer1 , 62750
Do
Cls
Home
Lcd Result ; " Hz"
Waitms 100
Loop
Sprung_in_sup:
Incr Zaehler
Return
Timer_irq:
Load Timer1 , 62750
Zaehler = Zaehler * &HFF
Zaehler = Timer0 + Zaehler
Result = Zaehler
Timer0 = 0
Zaehler = 0
Return
End
Das Ergebnis seriell auf einen 2. MC zu übertragen, und den 2. die Anzeige machen zu lassen, wäre sicher zu umständlich ?!
Micha