Hi,
ich möchte eine Druckmessung aufbauen und habe folgendes Problem.
Zahlendarstellung von 0 bis 1024 mBar. Geht mein Druck unter
1000 mBar so bleibt die letzte gültige 4.te Ziffer stehen.
Anzeige statt z.B. 567 mBar 5670 mBar.
Ich habe mit Schleifen, shiften und mehr schon viel probiert, aber nichts funzt
und das blinken stört.
Hat schon mal jemand mein Problem gelöst
Hier mein Bascom-Programm:
$regfile = "m8def.dat"
$crystal = 3686400
$hwstack = 100
$swstack = 100
$framesize = 100
Dim Schleifenzaehler As Byte
Dim Messergebnis As Word
Schleifenzaehler = 0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Config Portd = Output
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcdbus = 4
Config Lcdmode = Port
Cls
Start Adc
Do
'Cls 'Mit Cls richtige Anzeige,dafür Blinken;
'ohne Cls richtige Anzeige bei 4 Ziffern aber
'falsche Anzeige bei 3 Ziffern da die vierte Stelle
'sich nicht löscht
Do
Messergebnis = Messergebnis + Getadc(0) 'Mittelwertbildung
Incr Schleifenzaehler 'aus
Loop Until Schleifenzaehler = 64 '64
Shift Messergebnis , Right , 6 'Messungen
Locate 1 , 1
Lcd Messergebnis
Locate 1 , 5
Lcd "mBar"
Waitms 100
Schleifenzaehler = 0
Messergebnis = 0
Loop
ich möchte eine Druckmessung aufbauen und habe folgendes Problem.
Zahlendarstellung von 0 bis 1024 mBar. Geht mein Druck unter
1000 mBar so bleibt die letzte gültige 4.te Ziffer stehen.
Anzeige statt z.B. 567 mBar 5670 mBar.
Ich habe mit Schleifen, shiften und mehr schon viel probiert, aber nichts funzt
und das blinken stört.
Hat schon mal jemand mein Problem gelöst
Hier mein Bascom-Programm:
$regfile = "m8def.dat"
$crystal = 3686400
$hwstack = 100
$swstack = 100
$framesize = 100
Dim Schleifenzaehler As Byte
Dim Messergebnis As Word
Schleifenzaehler = 0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Config Portd = Output
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcdbus = 4
Config Lcdmode = Port
Cls
Start Adc
Do
'Cls 'Mit Cls richtige Anzeige,dafür Blinken;
'ohne Cls richtige Anzeige bei 4 Ziffern aber
'falsche Anzeige bei 3 Ziffern da die vierte Stelle
'sich nicht löscht
Do
Messergebnis = Messergebnis + Getadc(0) 'Mittelwertbildung
Incr Schleifenzaehler 'aus
Loop Until Schleifenzaehler = 64 '64
Shift Messergebnis , Right , 6 'Messungen
Locate 1 , 1
Lcd Messergebnis
Locate 1 , 5
Lcd "mBar"
Waitms 100
Schleifenzaehler = 0
Messergebnis = 0
Loop