Powell
21.10.2006, 08:41
Hallo,
Ich habe ein BAscom-Programm geschrieben, bei dem mir ein LCD Display eine Eingangsfrequenz anzeigen soll. Jetzt habe ich den Befehl zum Schreiben an Display in die Hauptschleife gesetzt, wo auch die Frequenz durch PULSEIN abgefragt wird. Das Ergebnis ist leider, dass das Display so nur noch ganz schwach anzeigt, und kaum noch lesbar ist je höher die Frequenz ist.
Warum ist das so? Wie muss ich das Programm abändern?
$regfile = "m8def.dat"
$crystal = 1000000
Dim T As Word
Dim F As Word
Ddrb = &B11011000
Portb.1 = 1
Config Lcd = 16 * 1a
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcdbus = 4
Do
Pulsein F , Pinb , 2 , 0
Cls
Locate 1 , 1
Lcd "S=" ; F
Cursor Off
Loop
End
Ich habe ein BAscom-Programm geschrieben, bei dem mir ein LCD Display eine Eingangsfrequenz anzeigen soll. Jetzt habe ich den Befehl zum Schreiben an Display in die Hauptschleife gesetzt, wo auch die Frequenz durch PULSEIN abgefragt wird. Das Ergebnis ist leider, dass das Display so nur noch ganz schwach anzeigt, und kaum noch lesbar ist je höher die Frequenz ist.
Warum ist das so? Wie muss ich das Programm abändern?
$regfile = "m8def.dat"
$crystal = 1000000
Dim T As Word
Dim F As Word
Ddrb = &B11011000
Portb.1 = 1
Config Lcd = 16 * 1a
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcdbus = 4
Do
Pulsein F , Pinb , 2 , 0
Cls
Locate 1 , 1
Lcd "S=" ; F
Cursor Off
Loop
End