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 w wyświetlaniem na lcd bascom

krystoferek 17 Sty 2010 19:53 975 6
REKLAMA
  • #1 7550933
    krystoferek
    Poziom 14  
    Proszę o pomoc
    Co jest żle lub czego brakuje żeby po wciśnięciu przycisku S1 na wyświetlaczu liczba wzrastała o 1?
    $regfile = "m16def.dat"
    $crystal = 16000000
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
    
    Dim A As Byte
    
    Config Porta = Input : Porta = &B11111111
    
    S1 Alias Pina.0
    
    Cursor Off
    Cls
    Lcd A
    
    Do
    If S1 = 0 Then
    A = A + 1
    End If
    Loop
  • REKLAMA
  • #2 7550970
    megao
    Poziom 24  
    W pętli głównej programu nie wysyłasz nic do LCD.
  • REKLAMA
  • #3 7551030
    krystoferek
    Poziom 14  
    próbuje ale nic

    Dodano po 2 [minuty]:

    ok. już sobie poradziłem
    Dzięki za podpowiedz

    Dodano po 19 [minuty]:

    Wracam
    Jednak jest żle nie tego oczekiwałem
    Pomocy
  • REKLAMA
  • #4 7551476
    as1200
    Poziom 12  
    Spróbuj tak:

    ...
    Cursor Off 
    Cls 
    
    Do 
       If S1 = 0 Then 
          A = A + 1 
          Lcd A 
       End If 
       '
      Petla:
      If s1=0 then goto Petla   '...aż zostanie puszczony przycisk!
      '
      Waitms 10  'małe opóźnienie dla zniwelowania drgań
    Loop

    Pozdrawiam.
  • #5 7561014
    M. S.
    Poziom 34  
    $regfile = "m16def.dat"
    $crystal = 16000000
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
    
    Dim A As Byte
    
    Config Porta = Input : Porta = &B11111111
    
    S1 Alias Pina.0
    
    Cursor Off
    Cls
    Lcd A
    
    Do
    Debounce S1 , 0 , Wyswietl , Sub
    Loop
    End
    
    Wyswietl:
    Incr A
    Locate 1 , 1
    Lcd A; "  "
    Return



    Petla:
      If s1=0 then goto Petla   '...aż zostanie puszczony przycisk! 


    Kiedyś na swoim Goto popłyniesz!

    Nie lepiej

    Do:Loop Until S1 = 1
  • REKLAMA
  • #6 7566043
    krystoferek
    Poziom 14  
    Wszystko gra tylko co zrobic żeby przyciskiem S2 odejmowac?
  • #7 7567369
    Wojtek75
    Poziom 24  
    Poczytać w helpie o DECR.
REKLAMA