www.elektronik.si Seznam forumov www.elektronik.si
Forum o elektrotehniki in računalništvu
 
 PomočPomoč  IščiIšči  Seznam članovSeznam članov  SkupineSkupine  StatisticsStatistika  AlbumAlbum  DatotekeFilemanager DokumentacijaDocDB LinksPovezave   Registriraj seRegistriraj se 
  PravilaPravila  LinksBolha  PriponkePriponke  KoledarKoledar  ZapiskiZapiski Tvoj profilTvoj profil Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil PrijavaPrijava 

Numerična tipkovnica

 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Elektronika
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
jerny
Član
Član



Pridružen-a: Čet 17 Apr 2008 11:27
Prispevkov: 414
Aktiv.: 1.98
Kraj: Dravograd
PrispevekObjavljeno: Pon Jun 21, 2010 11:22 pm    Naslov sporočila:  Numerična tipkovnica Odgovori s citatom
Izdelujem program za numerično tipkovnico v Bascomu, in sicer zaenkrat bi ob pritisku na določeno tipko samo prižigal ledico. Kje sem storil napako?
Koda:

$regfile = "attiny26.dat"
$crystal = 1000000


Dim Vrednost_t As Byte                                      ' Vrednost prebrane tipke


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Config Portb.0 = Output
Ddra = &B11111000
Porta = &B11111000
Portb = 0

Start:
Config Debounce = 40                                        ' Nastavi Debounce cas na 40 ms

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Led Alias Portb.7                                           ' LED dioda za signalizacijo
Kolona1 Alias Porta.0                                       ' Definicija kolon
Kolona2 Alias Porta.1
Kolona3 Alias Porta.2                                       ' Dodaj se eno kolono za 4x4 tipkovnico
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Vhodi so aktivni, ko so nic
Vrstica1 Alias Pina.3                                       ' Definicija vrstic
Vrstica2 Alias Pina.4
Vrstica3 Alias Pina.5
Vrstica4 Alias Pina.6
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Zacetne vrednosti spremenljivk

Vrednost_t = 0

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Preverjanje_t:                                              ' Skeniramo tipkovnico
Kolona1 = 0 : Kolona2 = 1 : Kolona3 = 1                     ' Postavljamo kolone na nic
Vrednost_t = 1 : Debounce Vrstica1 , 0 , Led1 , Sub         ' Gre v subrutino, ce je tipka pritisnjena
Vrednost_t = 4 : Debounce Vrstica2 , 0 , Led4 , Sub
Vrednost_t = 7 : Debounce Vrstica3 , 0 , Led7 , Sub
Vrednost_t = 11 : Debounce Vrstica4 , 0 , Led11 , Sub       ' Tipka *
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Kolona1 = 1 : Kolona2 = 0 : Kolona3 = 1                     ' Postavljamo kolone na nic
Vrednost_t = 2 : Debounce Vrstica1 , 0 , Led2 , Sub
Vrednost_t = 5 : Debounce Vrstica2 , 0 , Led5 , Sub
Vrednost_t = 8 : Debounce Vrstica3 , 0 , Led8 , Sub
Vrednost_t = 0 : Debounce Vrstica4 , 0 , Led0 , Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Kolona1 = 1 : Kolona2 = 1 : Kolona3 = 0                     ' Postavljamo kolone na nic
Vrednost_t = 3 : Debounce Vrstica1 , 0 , Led3 , Sub
Vrednost_t = 6 : Debounce Vrstica2 , 0 , Led6 , Sub
Vrednost_t = 9 : Debounce Vrstica3 , 0 , Led9 , Sub
Vrednost_t = 12 : Debounce Vrstica4 , 0 , Led12 , Sub       ' Tipka #
Goto Preverjanje_t
End


Led0:
Portb.0 = 1

Led1:
Portb.0 = 1

Led2:
Portb.0 = 0

Led3:
Portb.0 = 0

Led4:
Portb.0 = 0

Led5:
Portb.0 = 0

Led6:
Portb.0 = 0

Led7:
Portb.0 = 0

Led8:
Portb.0 = 0

Led9:
Portb.0 = 0

Led11:
Portb.0 = 0

Led12:
Portb.0 = 0
Goto Start

_________________
Če smrdi je kemija, če kadi pa elektronika!
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo MSN Messenger - naslov
jerny
Član
Član



Pridružen-a: Čet 17 Apr 2008 11:27
Prispevkov: 414
Aktiv.: 1.98
Kraj: Dravograd
PrispevekObjavljeno: Pon Jun 21, 2010 11:37 pm    Naslov sporočila:   Odgovori s citatom
Ravno sem našel funkcijo, če še koga zanima:

Koda:
Config Kbd = Porta
B = Getkbd()


Vrednost tipkovnice zapisana v spremenljivko b.
_________________
Če smrdi je kemija, če kadi pa elektronika!
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo MSN Messenger - naslov
program_er
Član
Član



Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.32
Kraj: Maribor (Pohorje)
PrispevekObjavljeno: Tor Jun 22, 2010 5:45 am    Naslov sporočila:   Odgovori s citatom
Če so rutine Led0, Led1,... subrutine, moja biti na koncu Return.

Koda:
Led0:
Portb.0 = 1
Return

Led1:
Portb.0 = 1
Return

Led2:
Portb.0 = 0
Return

Led3:
Portb.0 = 0
Return
...


Kaj točno pa je narobe (kako se obnaša)?

Ali ti zdaj z rutino KBD dela?
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo MSN Messenger - naslov
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Elektronika Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu

Uptime: 498 dni


Powered by phpBB © 2001, 2005 phpBB Group