sharp gp2d12 distanzberechnung

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):

Code:

---

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

---

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.