|
Svet elektronike Revija za prave elektronike
|
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
robertos Novinec
Pridružen/-a: Čet Avg 2004 19:27 Prispevkov: 4 Kraj: vuhred
|
Objavljeno: Sob Dec 18, 2004 8:15 pm Naslov sporočila: |
|
|
Vilko pozdrav!
Ali lahko prosim objaviš celotno, delujočo kodo, v Bascom jeziku z uporabo debounce ukaza.
Hvala v naprej! |
|
Nazaj na vrh |
|
|
vilko Profesionalec
Pridružen/-a: Pon Jan 2004 11:54 Prispevkov: 807 Kraj: Ljubljana
|
Objavljeno: Ned Dec 19, 2004 9:44 am Naslov sporočila: Testirano na Bascom testni plošči |
|
|
Eto, to je to:
Koda: | ' Vaja Debounce
'
' Definiramo procesor
$regfile = "89c4051.dat"
' Definiramo kristal
$crystal = 12000000
' Definiramo pine
Tipka Alias P3.3
Ledica Alias P3.4
' vstopimo v zanko
Do
'Če je pritisil tipko, kličemo podprogram
Debounce Tipka , 0 , Preklopi , Sub
' če bi bilo potrebno še kaj programirati, pote
' se programira v zanki tukaj...
'.....
' povratek na začetek zanke
Loop
' Podprogram Preklopi:
Preklopi:
' Preklopilo stanje svetlo/temno:
If Ledica = 1 Then
Ledica = 0
Else
Ledica = 1
End If
' Hm zanimivo. Tako kot sem mislil da gre
' Ledica = Not Ledica
' ne gre.
' Povratek V Glavni Program:
Return
|
_________________ Sliši se paradoksalno, a je vendarle res:
Nekateri ljudje imajo vedno vse prav. No, včasih. |
|
Nazaj na vrh |
|
|
Mitjaf Novinec
Pridružen/-a: Sre Dec 2004 21:06 Prispevkov: 9 Kraj: Maribor
|
Objavljeno: Pon Dec 20, 2004 4:48 pm Naslov sporočila: |
|
|
Super !!!
Deluje tako kot more.
Če bom še imel kakšno vprašanje vas bom kr tukaj na forumu vprašal, v bodoče pa si bom omislil tudi kakšno knjigo o bascomu sej nekaj jih že imam samo še kakšna več ne more škodit.... |
|
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 You cannot attach files in this forum You cannot download files in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|