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

Jak zaprogramować przyciski do zmiany czasu i daty w zegarze?

kfiatos 26 Lut 2007 10:46 1053 4
REKLAMA
  • #1 3619077
    kfiatos
    Poziom 10  
    Posty: 58
    Ocena: 17
    Witam
    Jestem początkujący w tej dziedzinie.
    Chciałbym zrobić zegar pokazujący czas i datę i mam problem z jak oprogramować przyciski, mają być dwa jeden ma być funkcyjny przycisnięcie ma powodować zmianę ustawianej funkcji (po kolei godzina, minuta,dzień,miesiąc,rok), a drugi ma zwiększać tą funkcje czyli tzw "+"
    Jeżeli ktoś mugłby mi pomóc byłbym wdzięczny
    Pozdrawiam
    Kfiatos
  • REKLAMA
  • #2 3619093
    d.d
    Poziom 20  
    Posty: 386
    Pomógł: 36
    Ocena: 18
    w jakim języku programujesz ??
  • REKLAMA
  • #3 3619355
    redart
    Poziom 23  
    Posty: 529
    Pomógł: 51
    Ocena: 30
    Najprościej sprawdzając stan pinów do których podpięte są przyciski. Wprowadzasz zmienną wskazującą jaką wartość (godz. , min. itd) zmieniasz. Po wykryciu wciśniętego switch'a inkrementujesz (zwiększasz) wartość tej zmiennej i np jeśli Zmienna=1 to skaczesz do podprogramu zmiany wartości minut, jeśli Zmienna=2 to do zmiany godzin, itd. Jak Zmienna przekroczy 5 (tyle wartości ustawiasz) to ją zerujesz i wracasz do pętli głównej programu. Tak to wygląda w teorii :D.
  • REKLAMA
  • #4 3619424
    kfiatos
    Poziom 10  
    Posty: 58
    Ocena: 17
    przepraszam zapomniałem dodać chodzi o bascoma.
    czy mógłby ktoś podać mi jakis przykład jak to ma być napisane
    Pozdrawiam
    Kfiatos
  • #5 3621938
    gregoorr
    Poziom 18  
    Posty: 229
    Pomógł: 19
    Ocena: 34
    Może tak:
    Config Pind.2 = Input 'enter
    Config Pind.3 = Input 'minus
    Config Pind.4 = Input 'plus

    Enter Alias Pind.2
    Minus Alias Pind.3
    Plus Alias Pind.4

    Set Portd.2 'podciąnięcie wejść
    Set Portd.4 'po włączeniu stan wysoki
    Set Portd.3 'załączane masą


    Do
    If Plus = 0 Then
    Waitms 50
    Maks = Maks + 1
    End If

    If Minus = 0 Then
    Waitms 50
    Maks = Maks - 1
    End If

    If Enter = 1 Then 'po wciśnięciu przejście dalej
    Waitms 50
    Loop
    End If
REKLAMA