sharp gp2d12 distanzberechnung

[{;} 2be]

hi
ich mich mal ein kleines Programm geschrieben,welches ein Sharp gp2d12
simuliert und dann den Abstand in cm ausgibt.
kann des sein das nur single deklarierte variablen Komma stellen berücksichtigen???
habt ihr noch verbesserungsvorschläge ??

Hier mein Prog (ich habs mit Werten aus dem Datasheet berechnet):



Dim Ir_dig As Integer
Dim Ir_volt As Single
Dim Dist As Single
Const Ref = 5 / 1023
Declare Sub Get_dist


Do

Call Get_dist


Print Dist
Waitms 200
Loop


Sub Get_dist
Dist = 22.532
Ir_dig = Rnd(382)
Ir_dig = Ir_dig + 150
Ir_volt = Ir_dig
Ir_volt = Ir_volt * Ref
Ir_volt = Ir_volt - 0.21667
Dist = Dist / Ir_volt
End Sub Get_dist

[oe9vfj]

Schau mal in der Hilfe nach. Nur Single und Double sind Fließkommazahlen. Alle anderen Variablentypen (Byte, Word, Integer, Long) sind Ganzzahlen und haben daher keine Dezimalstellen.