logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Attiny2313 bascom przyciski

Manianass 12 Paź 2011 21:34 1677 3
REKLAMA
  • #1 10021012
    Manianass
    Poziom 10  
    Chciałem napisać program ze jak nacisnę przycisk czyli podam na pind.0 stan wysoki to ma się pojawić stan wysoki na portb.0
    a jak nacisnę drugi ras to ma się zmienić na stan niski na portb.0
    i to działa ale jak chce zrobić dwa przyciski i wtedy cały czas ten drugi port zmieni stan z niskiego na wysoki i nie reaguje na przycisk.
    a oto kod
    
    $regfile = "attiny2313.dat"
    $crystal = 8000000
    
    Config Portb = Output
    Config Pind.0 = Input
    Config Pind.1 = Input
    
    Do
     Debounce Pind.1 , 1 , Wlacz , Sub
     Debounce Pind.0 , 1 , Wlacza , Sub
    Loop
    
    Wlacz:
    Toggle Portb.0
    Return
    
    Wlacza:
    Toggle Portb.1
    Return
    
    
    End
    


    proszę o pomoc a możne jakieś kondensatory zastosować bo nie dałem żadnego.
  • REKLAMA
  • #2 10021397
    netotron
    Poziom 26  
    Witam
    W zasadzie powinno działać ale :) na pewno czekasz na przycisk 1 a nie 0? to sprawdz:
    $regfile = "attiny2313.dat" 
    $crystal = 8000000 
    
    Config Portb.0 = Output 
    Config Portb.1 = Output
    Config Pind.0 = Input 
    Config Pind.1 = Input 
    Portd.0 = 0
    Portd.1 = 0
    
    Do 
     Debounce Pind.1 , 1 , Zmien0 , Sub 
     Debounce Pind.0 , 1 , Zmien1 , Sub 
    Loop 
    
    Zmien0: 
     Toggle Portb.0 
    Return 
    
    zmien1: 
     Toggle Portb.1 
    Return 
    
    
    End
  • REKLAMA
  • #3 10023839
    Konto nie istnieje
    Poziom 1  
  • #4 10028210
    Manianass
    Poziom 10  
    Zamiast
    Portd.0 = 0
    Portd.1 = 0
    trzeba wstawić
    Set Pind.0
    Set Pind.1
    i działa tylko ze ja jeszcze zmieniłem żeby działało na stan niski
    było tak i działało na stan wysoki
    Debounce Pind.1 , 1 , Zmien0 , Sub
    a ja zrobiłem tak i działa na stan niski
    Debounce Pind.1 , 0 , Zmien0 , Sub
    A oto cały kod
    
    $regfile = "attiny2313.dat"
    $crystal = 8000000
    
    Config Portb.0 = Output
    Config Portb.1 = Output
    Config Pind.0 = Input
    Config Pind.1 = Input
    Set Pind.0
    Set Pind.1
    
    Do
     Debounce Pind.1 , 0 , Zmien0 , Sub
     Debounce Pind.0 , 0 , Zmien1 , Sub
    Loop
    
    Zmien0:
     Toggle Portb.0
    Return
    
    Zmien1:
     Toggle Portb.1
    Return
    
    
    End
    
REKLAMA