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

Słabo widoczna zmienna na wyświetlaczu LCD

xamrex 01 Gru 2010 18:55 890 2
REKLAMA
  • #1 8813712
    xamrex
    Poziom 28  
    Witam,
    Napisałem sobie kodzik, który będzie zliczał i wyświetlał na LCD ile razy zwarłem pind.3 do masy.
    Oto kod:
    $regfile = "attiny2313.dat"
    $crystal = 1000000
    Config Lcd = 16 * 2
    
    Dim Ilosc As Byte
    Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portd.2 , Rs = Portd.0
    
    Config Pind.3 = Input
    Portd.3 = 1
    
    Do
    If Pind.3 = 0 Then
    Incr Ilosc
    Waitms 200
    End If
    
    Cls : Cursor Off :
    Lcd "klikniete " ; Ilosc ; " x"
    Loop
    End


    Jak widać kod nie jest jakiś trudny, ale mam z nim pewien problem.
    Normalnie na wyświetlaczu ładnie widać słowo temperatura, natomiast zmienną ilosc oraz znak x widać bardzo słabo:

    Natomiast gdy zwieram ten pind.3 do masy to już wszystko widać dobrze.

    Tutaj filmik w roli wyjaśnienia:





    Co powinienem zrobić, aby wyświetlało to się dobrze?
  • REKLAMA
  • Pomocny post
    #2 8813853
    landy13
    Poziom 31  
    xamrex napisał:

    Natomiast gdy zwieram ten pind.3 do masy to już wszystko widać dobrze.
    Bo dochodzi opóźnienie Waitms 200.
    xamrex napisał:

    Co powinienem zrobić, aby wyświetlało to się dobrze?
    Wyrzucić Cls przed pętlę i poczytać o Locate.
  • #3 8813886
    xamrex
    Poziom 28  
    dzięki.
    Poprawiony kod
    
    $regfile = "attiny2313.dat"
    $crystal = 1000000
    Config Lcd = 16 * 2
    
    Dim Ilosc As Byte
    Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portd.2 , Rs = Portd.0
    
    Config Pind.3 = Input
    Portd.3 = 1
    Cls : Cursor Off
    Do
    
    If Pind.3 = 0 Then
    
    Incr Ilosc
    Waitms 200
    cls
    End If
    
    Locate 1 , 1
    Lcd "klikniete " ; Ilosc ; " x"
    Loop
    End
    
REKLAMA