 |
www.elektronik.si Forum o elektrotehniki in računalništvu
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
vilko Član



Pridružen-a: Pet 13 Feb 2004 10:26 Prispevkov: 3359 Aktiv.: 14.18 Kraj: Dragomer
|
Objavljeno: Pon Maj 19, 2008 9:12 pm Naslov sporočila: z |
|
|
Z debounce zaznaš kratek pritisk na tipko, oziroma, da je tipko nekdo pritisnil.
vse števce, ki jih poganja Timer interrupt postaviš na 0 in nekako nekam zapišeš, da je tipka bila ravnokar pritsnjena, potem zapustiš debounce podprogram za retur
Potem v glavnem programu, ki se odvija dalje z if stavkom ugotavljaš,
ali je zapis, ki si ga zapisal v deboucne podorgramu aktiven, to je lahko kak bit.
eli je tipka še vedno 0, pritisnjena in
ali so sekunde 1, 2 ali 3, in s tem ugotoviš, ali se drži tipka pritisnjena dol manj kot eno, eno dve ali tri sekunde, in za vsako varianto programiraš željeno akcijo.
_________________ Nihče ni za vojno in vsi so za mir,
vsi so za bratstvo, nihče za prepir.
Od same ljubezni vsak čas na granatah
bo vtisnjeno geslo: "Darilo za brata"
Janez Menart |
|
Nazaj na vrh |
|
 |
toncibalonci Član

Pridružen-a: Pet 03 Avg 2007 21:12 Prispevkov: 331 Aktiv.: 1.52 Kraj: Dravograd
|
Objavljeno: Pon Maj 19, 2008 11:21 pm Naslov sporočila: |
|
|
A si mislil mogoče takole?
Koda: |
$crystal = 12000000
Config Timer0 = Timer , Gate = Internal , Mode = 0
On Timer0 Timer0isr
Load Timer0 , 250
Enable Timer0
Start Timer0
Enable Interrupts
Start Timer0
Dim Stevec As Byte
Dim Test As Bit
Tipka Alias P3.0
Test = 0
Do
Gosub Dolga
Debounce Tipka , 0 , Kratka , Sub
If Test = 1 And Tipka = 1then
Test = 0
P3.5 = 0
Waitms 100
P3.5 = 1
End If
Loop
Dolga:
If Tipka = 1 Then
Stevec = 0
Else
If Stevec > 125 Then
P3.7 = 0
Wait 2
P3.7 = 1
Test = 0
End If
End If
Return
Kratka:
Stevec = 0
Test = 1
Return
Timer0isr:
Load Timer0 , 250
Incr Stevec
Return |
|
|
Nazaj na vrh |
|
 |
toncibalonci Član

Pridružen-a: Pet 03 Avg 2007 21:12 Prispevkov: 331 Aktiv.: 1.52 Kraj: Dravograd
|
Objavljeno: Sre Maj 21, 2008 10:17 am Naslov sporočila: |
|
|
Spet vprašanje. Kako lahko shranim v 24c02 številko večjo od 255?? Imam 3x4 tipkovnico in 89c52 in 24c02 in 4x LED display. Če natipkam npr. 300 mi v eeprom shrani samo razliko od 256 ,torej 44. Niti se mi ne sanja kako se to sploh naredi. Prosim za pomoč.
|
|
Nazaj na vrh |
|
 |
Silvo Moderator


 
Pridružen-a: Pon 24 Feb 2003 17:09 Prispevkov: 14673 Aktiv.: 61.93 Kraj: Koroška-okolica Dravograda
|
Objavljeno: Sre Maj 21, 2008 10:21 am Naslov sporočila: |
|
|
Na eno lokacijo nikakor. Potrebno bo uporabit dve lokaciji.
_________________ lp
Silvo |
|
Nazaj na vrh |
|
 |
toncibalonci Član

Pridružen-a: Pet 03 Avg 2007 21:12 Prispevkov: 331 Aktiv.: 1.52 Kraj: Dravograd
|
Objavljeno: Sre Maj 21, 2008 11:26 pm Naslov sporočila: |
|
|
Sem si mislil da bo nekaj podobnega. Ampak ni mi jasno kako to narediti , prosim če mi kdo to malo razloži (tudi kak primer je zaželen ). Hvala
|
|
Nazaj na vrh |
|
 |
stursc Član

Pridružen-a: Tor 08 Jun 2004 14:29 Prispevkov: 323 Aktiv.: 1.36
|
Objavljeno: Čet Maj 22, 2008 10:07 am Naslov sporočila: |
|
|
Poskušaj si pomagati s to prilogo
LP, stursc
Opis: |
|
 Download |
Ime datoteke: |
deljenje bitov.GIF |
Velikost datoteke: |
5.58 KB |
Downloadano: |
15 krat |
|
|
Nazaj na vrh |
|
 |
toncibalonci Član

Pridružen-a: Pet 03 Avg 2007 21:12 Prispevkov: 331 Aktiv.: 1.52 Kraj: Dravograd
|
Objavljeno: Čet Maj 22, 2008 7:47 pm Naslov sporočila: |
|
|
Mi je že malo bolj jasen postopek,ampak kako to spraviti v Bascom pa mi še ni jasno! Bom probal nakaj nakvačkat,mislim pa da se bom kar hitro javil in prosil za pomoč. Hvala
|
|
Nazaj na vrh |
|
 |
Vlado Član

Pridružen-a: Sre 03 Mar 2004 21:35 Prispevkov: 563 Aktiv.: 2.38 Kraj: Ljubljana
|
Objavljeno: Čet Maj 22, 2008 9:42 pm Naslov sporočila: Debounce |
|
|
V Helpu poglej ukaza High in Low. Svojo spremenljivko definiraj kot Word ter jo s prejšnjimi ukazi ločiš na dva bajta, ter vsakega posebaj shraniš v EEP.
Vlado
|
|
Nazaj na vrh |
|
 |
toncibalonci Član

Pridružen-a: Pet 03 Avg 2007 21:12 Prispevkov: 331 Aktiv.: 1.52 Kraj: Dravograd
|
Objavljeno: Čet Maj 22, 2008 11:34 pm Naslov sporočila: |
|
|
Aha,bo šlo počasi. Čeprav sem zdaj ugotovil da mi bo verjetno zadostovalo tistih 255,bom poizkušal kasneje. Hvala za pomoč!
|
|
Nazaj na vrh |
|
 |
|
|
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: 493 dni
Powered by phpBB © 2001, 2005 phpBB Group
|