Roberto
16.11.2005, 03:43
Hallo
Habe da den Sharp GP2D120 jetzt so hinbekommen, dass er mir die Entfernung in cm ausgibt. :-)
'--------Sharp GP2D120 Entfernungsmessung --------------------
' 8MHz Quarz
' LCD auf Port B ,
' +AD
$regfile = "m8def.dat"
$crystal = 8000000
'---Config für LCD -----------------
Config Lcd = 40 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Config Lcdbus = 4
Config Lcdmode = Port
Cursor On
'------------- config ADC -----------------------
Config Adc = Single , Prescaler = Auto
Config Portc = Input
'------------------sonstiges Config -----------------
Dim Sharp As Word
Dim Wert As Word
Dim Entfernung As Long
Enable Interrupts
Start Adc '
'--------------------Hauptprogramm--------------------------
Cls
Locate 1 , 1
Lcd "---Entfernungs messen mit Sharp GP2D120----"
Waitms 500
Do
Wert = Getadc(0)
Locate 2 , 1
Lcd Wert ; " "
Entfernung = Wert - -5.692
Entfernung = 2390 / Entfernung
Locate 2 , 15
Lcd Entfernung ; "cm "
Loop
End
Aber irgendwie gibt er mir am LCD nicht die Kommawerte mit aus ?
Es reichen zwar die die ganzen cm auch, aber irgendwie habe ich es immer mit der Kommaausgabe/verarbeitung und würde gerne wissen, warum ich am LCD keine Nachstellen sehe .
Kennt sich da jemand näher in Bascom aus ? :-)
l.G. aus Graz
Habe da den Sharp GP2D120 jetzt so hinbekommen, dass er mir die Entfernung in cm ausgibt. :-)
'--------Sharp GP2D120 Entfernungsmessung --------------------
' 8MHz Quarz
' LCD auf Port B ,
' +AD
$regfile = "m8def.dat"
$crystal = 8000000
'---Config für LCD -----------------
Config Lcd = 40 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , Rs = Portb.4 , E = Portb.5
Config Lcdbus = 4
Config Lcdmode = Port
Cursor On
'------------- config ADC -----------------------
Config Adc = Single , Prescaler = Auto
Config Portc = Input
'------------------sonstiges Config -----------------
Dim Sharp As Word
Dim Wert As Word
Dim Entfernung As Long
Enable Interrupts
Start Adc '
'--------------------Hauptprogramm--------------------------
Cls
Locate 1 , 1
Lcd "---Entfernungs messen mit Sharp GP2D120----"
Waitms 500
Do
Wert = Getadc(0)
Locate 2 , 1
Lcd Wert ; " "
Entfernung = Wert - -5.692
Entfernung = 2390 / Entfernung
Locate 2 , 15
Lcd Entfernung ; "cm "
Loop
End
Aber irgendwie gibt er mir am LCD nicht die Kommawerte mit aus ?
Es reichen zwar die die ganzen cm auch, aber irgendwie habe ich es immer mit der Kommaausgabe/verarbeitung und würde gerne wissen, warum ich am LCD keine Nachstellen sehe .
Kennt sich da jemand näher in Bascom aus ? :-)
l.G. aus Graz