-
        

Ergebnis 1 bis 2 von 2

Thema: sharp gp2d12 distanzberechnung

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    06.02.2006
    Ort
    Ingolstadt
    Alter
    29
    Beiträge
    32

    sharp gp2d12 distanzberechnung

    Anzeige

    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

  2. #2
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    09.11.2004
    Ort
    Hard, Vorarlberg
    Beiträge
    155
    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.
    Viele Grüße
    Josef
    -------------------------------------------------------------------------------------
    DOS-File System für BASCOM-AVR auf http://members.aon.at/voegel

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •