-
        

Ergebnis 1 bis 2 von 2

Thema: werte gabellichtschranke gp1a038 mit encoderscheibe

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    22.10.2005
    Beiträge
    56

    werte gabellichtschranke gp1a038 mit encoderscheibe

    Anzeige

    wie können negative werte für die U/min herauskommen ist doch rein rechnerisch nach der formel im code garnicht möglich und diese abweichungen??


    $regfile = "m32def.dat"

    $framesize = 32
    $swstack = 32
    $hwstack = 32

    $crystal = 8000000 'Quarzfrequenz
    $baud = 9600



    Config Int0 = Falling

    Config Timer1 = Timer , Prescale = 256
    Const Timervorgabe = 34285
    Const Markierungenproscheibe = 120

    Dim Zaehlerirq0 As Long
    Dim Impulseprosekunde As Long
    Dim Impulseprominute As Long
    Dim Umdrehungenprominute As Integer

    Print
    Print "* RN-Control 1.4 *"
    Print "Drehzahl Messung" "



    Zaehlerirq0 = 0
    On Int0 Irq0
    Enable Int0

    On Timer1 Timer_irq
    Enable Timer1

    Enable Interrupts


    Do
    Print
    Print "Impulse Sek: " ; Impulseprosekunde
    Impulseprominute = Impulseprosekunde * 60
    Umdrehungenprominute = Impulseprominute / Markierungenproscheibe
    Print "Umdreh. Min: " ; Umdrehungenprominute
    Wait 3
    Loop

    End




    'Pro Impuls (Markierung auf Scheibe) ein Aufruf
    Irq0:
    Incr Zaehlerirq0
    Return


    'Pro Sekunde ein Aufruf
    Timer_irq:
    Timer1 = Timervorgabe
    Impulseprosekunde = Zaehlerirq0
    Zaehlerirq0 = 0
    Return
    Miniaturansichten angehängter Grafiken Miniaturansichten angehängter Grafiken unbenannt_149.jpg  

  2. #2
    Benutzer Stammmitglied
    Registriert seit
    22.10.2005
    Beiträge
    56
    warum hilft mir keiner

Berechtigungen

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