Kazalo po Svet elektronike forumu Svet elektronike
Revija za prave elektronike
 
AlbumAlbum   Pomoč pogostih vprašanjPomoč pogostih vprašanj   IščiIšči   Seznam članovSeznam članov   Skupine uporabnikovSkupine uporabnikov   Registriraj seRegistriraj se 
 Tvoj profilTvoj profil   Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil   PrijavaPrijava 

PROSIM ZA POMOČ.

 
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Digitalna elektronika
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
mredek
Novinec


Pridružen/-a: Sre Jan 2005 0:15
Prispevkov: 4

PrispevekObjavljeno: Ned Jan 16, 2005 10:15 am    Naslov sporočila: PROSIM ZA POMOČ. Odgovori s citatom

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
Poglej uporabnikov profil Pošlji zasebno sporočilo
vilko
Profesionalec


Pridružen/-a: Pon Jan 2004 11:54
Prispevkov: 807
Kraj: Ljubljana

PrispevekObjavljeno: Ned Jan 16, 2005 5:27 pm    Naslov sporočila: Hm, Odgovori s citatom

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
Poglej uporabnikov profil Pošlji zasebno sporočilo
mredek
Novinec


Pridružen/-a: Sre Jan 2005 0:15
Prispevkov: 4

PrispevekObjavljeno: Ned Jan 16, 2005 8:27 pm    Naslov sporočila: Re: Hm, Odgovori s citatom

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
Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo    Kazalo po Svet elektronike forumu -> Digitalna elektronika Časovni pas GMT + 1 ura, srednjeevropski - zimski č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
You cannot attach files in this forum
You cannot download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group