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