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

Pomoc przy napisaniu kodu w bascom

krystoferek 29 Sie 2010 11:55 1158 10
REKLAMA
  • #1 8451505
    krystoferek
    Poziom 14  
    Witam!
    Mam taki problem
    Chciałem napisać taki kod żeby po wciśnięciu S1 zaświeciła Led1 i po 500ms zgasła
    $regfile = "m16def.dat"
    $crystal = 16000000
    
    Config Portb = Output
            Portb = &B11111111
    Config Portd = Input
            Portd = &B11111111
    
    S1 Alias Pind.0
    
    Led1 Alias Portb.0
    
    Do
    If S1 = 0 Then
    Led1 = 0
    Waitms 500
    Led1 = 1
    End If
     Loop
      End

    I działa jeśli przyciskam S1 na krótką chwile
    Jeśli natomiast trzymam S1 przyciśnięty Led świeci cały czas a chciałbym żeby po tych 500ms zgasła
    Dodam jeszcze że jestem początkujący w języku bascom
    Z góry dziękuje za pomoc
  • REKLAMA
  • REKLAMA
  • #3 8451575
    krystoferek
    Poziom 14  
    A dlaczego nie?
    Na płytce przy tych nóżkach jest oznaczenie PD0 do PD7
  • REKLAMA
  • #4 8451586
    tadzik85
    Poziom 38  
    Po zgaszeniu diody dodaj oczekiwanie na zwolnienie przycisku
  • #5 8451598
    krystoferek
    Poziom 14  
    Próbuje na wiele sposobów i nic mi nie wychodzi
    Pewnie to bardzo proste ale ja nie daje rady
  • #6 8451630
    Konto nie istnieje
    Poziom 1  
  • REKLAMA
  • #7 8451644
    Matracz
    Poziom 12  
    Uprość jak najbardziej ten program i napisz tak:
    $crystal = 16000000
    Config Portb = Output
             Portb = &B11111111
    Config Portd = Input
             Portd = &B1111111
    Do
    Bitwait Pind.0, RESET
    Bitwait Pind.0, SET
    Portb.0 = 0
    Waitms 500
    Portb.0 = 1
    Loop
  • #8 8451669
    krystoferek
    Poziom 14  
    Kolego Matracz Twój program się nie kopiluje
    Kolego gromleon nie o to mi chodziło to znaczy nie za każdym razem działa
  • #10 8451736
    Matracz
    Poziom 12  
    Wgrasz do mikrokontrolera i gotowe.
  • #11 8451780
    krystoferek
    Poziom 14  
    Ok już działa
    Mała modyfikacja kolegi Matracz
    $regfile = "m16def.dat"
    $crystal = 16000000
    
    Config Portb = Output
            Portb = &B11111111
    Config Portd = Input
            Portd = &B11111111
    
    S1 Alias Pind.0
    
    Led1 Alias Portb.0
    
    Do
    If S1 = 0 Then
    Led1 = 0
    Waitms 500
    Led1 = 1
    Bitwait Pind.0 , Set
    End If
     Loop
    
     End

    Po 100kroć dziękuje koledzy
REKLAMA