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

Brascom Programik. Dioda ma świecić 2 sek...

barin 16 Gru 2009 14:37 1137 5
REKLAMA
  • #1 7396763
    barin
    Poziom 10  
    Witam mam programik napisany w bascom ale mam mały problem mianowicie gdy wcisnę przycisk to led swieci a chodzi mi o to aby świeciła 2 sec a potem dalej szedł program bez względu czy przycisk wciśnięty czy nie, a jeżeli go puszcze i wcisne raz kolejny znowu sie zatrzyma itd...
    Cytat:
    $regfile = "attiny2313.dat"
    $crystal = 4000000
    Config Portb = Input
    Portb.0 = 1
    Config Portd = Output
    Portd = &B11111111
    Dim Temp As Byte
    Temp = 1
    Do
    Temp = Temp * 2
    If Temp > 80 Then Temp = 1
    Portd = Temp
    Toggle Portd
    If Pinb.0 = 0 Then
    Waitms 100
    Bitwait Pinb.0 , Set
    Waitms 200
    End If
    Waitus 1000
    Loop
    End
  • REKLAMA
  • REKLAMA
  • #3 7400015
    barin
    Poziom 10  
    Cytat:
    $regfile = "attiny2313.dat"
    $crystal = 4000000
    Config Portb = Input
    Portb.0 = 1
    Config Portd = Output
    Portd = &B11111111
    Config Debounce = 30
    Dim Temp As Byte
    Temp = 1
    Do
    Temp = Temp * 2
    If Temp > 80 Then Temp = 1
    Portd = Temp
    Toggle Portd
    If Pinb.0 = 0 Then
    Waitms 100
    Bitwait Pinb.0 , Set
    Debounce Pinb.0 , 1 , X
    Waitms 200
    End If
    Waitus 1000
    X:
    Loop
    End


    Chyba coś z tym debounce nie zrozumiałem :( Nie działa :(
  • REKLAMA
  • #4 7403692
    jacekk232
    Poziom 17  
    W pętli głównej wpisz
    Debounce Pinb.0 , 0 , Zatrzymaj , Sub 

    a na końcu programu po słowie End wpisz
    Zatrzymaj:
    Wait 2
    Return

    Jak wciśniesz przycisk to program wskoczy do podprogramu gdzie zatrzyma się na 2 sekundy. Potem wróci do pętli głównej, w której będzie dalej migało diodą lub diodami.
  • REKLAMA
REKLAMA