|
Svet elektronike Revija za prave elektronike
|
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
mredek Novinec
Pridružen/-a: Sre Jan 2005 0:15 Prispevkov: 4
|
Objavljeno: Ned Jan 16, 2005 10:15 am Naslov sporočila: PROSIM ZA POMOČ. |
|
|
Sem začetnik in najprej vsem en lep pozdrav.
Težavo imam z programiranjem Bascoma.Mic.2051
Želim narediti program, kateri bi prižigal ledice.Ampak vsako v svojem ritmu.
Recimo:
P1.0 v ritmu 10ms
P1.1 v ritmu 20ms
P1.2 v ritmu 30ms
in tako naprej
Kot se mi zdi se zadeva naredi z tajmerji,prekinitvami.
Hvala vsem za pomoč.
Jure.
ČE BO PA KAKŠEN TEČAJ ZA ZAČETNIKE IZ BASCOMA , PROSIM ZA OBVESTILO. |
|
Nazaj na vrh |
|
|
vilko Profesionalec
Pridružen/-a: Pon Jan 2004 11:54 Prispevkov: 807 Kraj: Ljubljana
|
Objavljeno: Ned Jan 16, 2005 5:27 pm Naslov sporočila: Hm, |
|
|
Hm, taka preprosta naloga se reši lahko tudi brez timerja, recimo tako:
Koda: | $regfile = "89c2051.dat"
$crystal = 12000000
Led1 Alias P3.1
Led2 Alias P3.2
Led3 Alias P3.3
Dim Stevec As Integer
Do
Incr Stevec
Dim Pomozni As Byte
' krmilimo led1 tako, da vsako parno periodo prizgemo,
' vsako liho periodo ugasnemo led
Pomozni = Stevec Mod 2 'rezultat je lahko le 0 in 1
If Pomozni < 1 Then
Set Led1
Else
Reset Led1
End If
' krmilimo led2 tako, da če vsako parno periodo prizgemo,
' vsako liho periodo ugasnemo led
Pomozni = Stevec Mod 4 'rezultat je lahko med 0 in 3
If Pomozni < 2 Then
Set Led2
Else
Reset Led2
End If
' krmilimo led 3 tako, da vsako parno periodo prizgemo,
' vsako liho periodo ugasnemo led
Pomozni = Stevec Mod 6 'rezulat je lahko med 0 in 5
If Pomozni < 3 Then
Set Led3
Else
Reset Led3
End If
' ko smo končali krmiljenje, gremo v čakanje za gotov čas in nazaj v zanko
' torej gre tudi brez timerjev ...
Waitms 250
Loop
|
Hm, zakaj imam občutek, da nekomu delam domačo nalogo?
Vilko _________________ Sliši se paradoksalno, a je vendarle res:
Nekateri ljudje imajo vedno vse prav. No, včasih. |
|
Nazaj na vrh |
|
|
mredek Novinec
Pridružen/-a: Sre Jan 2005 0:15 Prispevkov: 4
|
Objavljeno: Ned Jan 16, 2005 8:27 pm Naslov sporočila: Re: Hm, |
|
|
vilko je napisal/a: | Hm, taka preprosta naloga se reši lahko tudi brez timerja, recimo tako:
Koda: | $regfile = "89c2051.dat"
$crystal = 12000000
Led1 Alias P3.1
Led2 Alias P3.2
Led3 Alias P3.3
Dim Stevec As Integer
Do
Incr Stevec
Dim Pomozni As Byte
' krmilimo led1 tako, da vsako parno periodo prizgemo,
' vsako liho periodo ugasnemo led
Pomozni = Stevec Mod 2 'rezultat je lahko le 0 in 1
If Pomozni < 1 Then
Set Led1
Else
Reset Led1
End If
' krmilimo led2 tako, da če vsako parno periodo prizgemo,
' vsako liho periodo ugasnemo led
Pomozni = Stevec Mod 4 'rezultat je lahko med 0 in 3
If Pomozni < 2 Then
Set Led2
Else
Reset Led2
End If
' krmilimo led 3 tako, da vsako parno periodo prizgemo,
' vsako liho periodo ugasnemo led
Pomozni = Stevec Mod 6 'rezulat je lahko med 0 in 5
If Pomozni < 3 Then
Set Led3
Else
Reset Led3
End If
' ko smo končali krmiljenje, gremo v čakanje za gotov čas in nazaj v zanko
' torej gre tudi brez timerjev ...
Waitms 250
Loop
|
Hm, zakaj imam občutek, da nekomu delam domačo nalogo?
Vilko |
VILKO HVALA.Zadeva elegantno deluje. Verjamem,da je to zate in še nekatere enostavno, ampak, začetnik sem pač ... . |
|
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
|