- fchao-Sinus-Wechselrichter AliExpress         
Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 12 von 12

Thema: Frage wegen timer

  1. #11
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    11.05.2006
    Ort
    Oberschopfheim
    Alter
    36
    Beiträge
    380
    Anzeige

    E-Bike
    Code:
    $regfile = "m8def.dat"
    $crystal = 3686400
    Baud 9600
    
    Config Portb = Output
    Config Pinc.0 = Input
    Config Pinc.1 = Input
    Config Pinc.2 = Input
    
    Portc = &B11111111
    Dim Taste As Bit
    Dim Taste1 As Bit
    Dim Taste2 As Bit
    
    Taste = 0
    Taste1 = 0
    Taste2 = 0
    
    Config Timer1 = Timer , Prescale = 64
    Enable Timer1
    On Timer1 Isr_von_timer1
    Enable Interrupts
    Timer1 = 36736
    
    Do
    If Pinc.0 = 0 Then
    Taste = 1
    End If
    If Pinc.1 = 0 Then
    Taste1 = 1
    Else
    Taste1 = 0
    End If
    If Pinc.2 = 0 Then
    Taste2 = 1
    Else
    Taste2 = 0
    End If
    Loop
    
    
    
    Isr_von_timer1:
    Timer1 = 36736
    
    If Taste = 1 Then
    Toggle Portb.0
    End If
    If Taste1 = 1 Then
    Portb.0 = 0
    Toggle Portb.1
    End If
    If Taste2 = 1 Then
    Portb.1 = 0
    Toggle Portb.0
    End If
    Return

    jetzt is eben dass problem je nachdem ich pin0 oder pinb1 auf 1 setze dass portb1 oder portb0 1 bleibt also sich nicht auf 0 setzt wie ich es in der isr angegeben habe.

  2. #12
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    11.05.2006
    Ort
    Oberschopfheim
    Alter
    36
    Beiträge
    380
    hallo
    also hab mal schnell noch ne frage.
    wenn ich nun im hauptprogramm

    if pinc.4 =1 then
    portb.0 =0
    portb.1 =0

    schreibe wird dann der befehl in der isr auch beendet? ich mein soll er ja aber tut er dass dann auch.

Seite 2 von 2 ErsteErste 12

Berechtigungen

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

Labornetzteil AliExpress