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 

Bascom- programiranje semaforja in dvižnega mostu
Pojdi na stran 1, 2  Naslednja
 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Naloge, izpiti, seminarske
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Tor Jan 12, 2010 11:05 pm    Naslov sporočila: icon_sad Bascom- programiranje semaforja in dvižnega mostu Odgovori s citatom

Živijo!

Imam problem, namreč sprogramirati hočem dvižni most s servomotrjem,
dvema semaforjema ter
dvema svetlobnima senzorjema z LED in fotouporom.

Deloval naj bi nekako tako:

Na začetku sveti zelena luč na semaforju.
Ko se svetlobni snop prvega senzorja (ko se mostu približa ladja) prekine, naj se na semaforjih prižge rumena in nato rdeča luč (kot pravi semaforji). Potem naj se most dvigne (torej ko je prižgana rdeča luč na semaforju naj začne delovati servomotor).

Potem imamo tukaj drugi svetlobni senzor. Ko gre ladja skozi, prekine snop svetlobe in je le ta nekaj časa prekinjen (prekinjen je toliko časa, dokler cela ladja ne gre skozi). Torej ko bi bil zoper vzpostavljen snop svetlobe, naj ugasne rdeča, se prižge rumena in na koncu še zelena luč.

zelena luč je vezana na C7
rumena luč na C6
rdeča na C5
1. LED C4
2. LED C2
1. fotoupor A0
2. fotoupor A1
servomotor na A7

Vmesnik ki ga uporabljam je EproDasRob, uporabljam mikrokrmilnik atmega16.

Zataknilo se mi je že, ko sem pisala ukaze za drugi svetlobni senzor....

nujno potrebujem pomoč (ukaze) , zato vam hvala za karkoli kar bi mi koristilo!

lp Sad Sad



vmesnik slika.jpg
 Opis:
to je vmesnik, ki ga uporabljam
 Velikost datoteke:  214.74 KB
 Pogledana:  6 krat

vmesnik slika.jpg


Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
frenki
Moderator
Moderator



Pridružen-a: Ned 23 Feb 2003 21:26
Prispevkov: 6732
Aktiv.: 28.42
Kraj: Ljubljana (JN76GB)

PrispevekObjavljeno: Tor Jan 12, 2010 11:47 pm    Naslov sporočila:   Odgovori s citatom

Temo sem premaknil med seminarske naloge, ker mi po napisanem sodeč nekako sodi v ta sklop. Cvetka predlagam, da si najprej prebereš tole in tole. Potem pa z dosedanjim trudom na dan, pa se bo mogoče tudi s skupnimi močmi kaj premaknilo naprej Wink .

Lp, Frenki
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo Obišči avtorjevo spletno stran
WR3
Član
Član



Pridružen-a: Čet 10 Dec 2009 1:16
Prispevkov: 166
Aktiv.: 0.88
Kraj: Okolica Tolmina

PrispevekObjavljeno: Sre Jan 13, 2010 12:09 am    Naslov sporočila:   Odgovori s citatom

Moj nasvet bi bil počasi Smile Vsaj tako sem (sicer s picem) spravil skupaj garažna vrata.

Začni s stikalcem, ko skleneš naj se prižge rumena, nato rdeča, urejaj dokler ne deluje. Nadaljuj z še enim stikalom, ki vrne nazaj v prvotno stanje, ponovno poskusiš. Ko dela dodaš motor (najbolje spisat svoj programček samo za motor, ko ga imaš ga kopiraj v ta projekt). Nazadnje se po mojem mnenju ubadaj s senzorji.
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Sre Jan 13, 2010 4:06 am    Naslov sporočila:   Odgovori s citatom

Živijo!

Naredila sem že zelo veliko, prilagam ukaze:

Koda:
[b]$regfile = "m16def.dat"
$crystal = 8000000

Config Porta = Input
Config Portc = Output

Dim Vhod As Word
Dim Izhod As Word

Config Adc = Single , Prescaler = Auto , Reference = Off
Start Adc

Config Servos = 1 , Servo1 = Porta.7 , Reload = 15
Enable Interrupts


'začetek
Portc.7 = 1
Portc.4 = 1
Portc.2 = 1

Do
Servo(1) = 80
Vhod = Getadc(0)
   If Vhod < 500 Then
   Wait 1
      Portc.7 = 0
      Portc.6 = 1
      Waitms 800
      Portc.6 = 0
      Portc.5 = 1
      Wait 2

Servo(1) = 80
Waitms 100
Servo(1) = 75
Waitms 100
Servo(1) = 70
Waitms 100
Servo(1) = 65
Waitms 100
Servo(1) = 60
Waitms 100
Servo(1) = 55
Waitms 100
Servo(1) = 50
Waitms 100
Servo(1) = 45
Waitms 100
Servo(1) = 40


Wait 3

Servo(1) = 40
Waitms 100
Servo(1) = 45
Waitms 100
Servo(1) = 50
Waitms 100
Servo(1) = 55
Waitms 100
Servo(1) = 60
Waitms 100
Servo(1) = 65
Waitms 100
Servo(1) = 70
Waitms 100
Servo(1) = 75
Waitms 100
Servo(1) = 80


Wait 2
Portc.5 = 0
Portc.6 = 1
Waitms 800
Portc.6 = 0
Portc.7 = 1

End If
Loop
End[/b]


sedaj imam samo še en problem in sicer, kako narediti, da bo uporaben še izhoden senzor (ko bo snop svetlobe prekinjen in potem zopet vzpostavljen, da se most začne spuščati)? To bi potrebovala tam, ko je most dvignjen (3s)...


Je pa res bilo počasi in precej je bolela glava, ko sem tole skupi dajala...

Brick wall Evil or Very Mad

Hvala za pomoč in lp
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
program_er
Član
Član



Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.33
Kraj: Maribor (Pohorje)

PrispevekObjavljeno: Sre Jan 13, 2010 6:43 am    Naslov sporočila:   Odgovori s citatom

Tam ko imaš Wait 3, lahko namesto njega uporabiš IF stavke, s katerimi gledaš 2. senzor. Povej, če bo delalo Wink
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo MSN Messenger - naslov
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Sre Jan 13, 2010 1:48 pm    Naslov sporočila:   Odgovori s citatom

Oj, hvala za pomoč, vendar ne dela ....

Sedaj ostane v zgornji poziciji in se ne spusti v nobenem primeru Rolling Eyes .

Aja, pa v teh ukazih, ki si jih pisal, je mišljen Izhod =Getadc (1)

lp
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Sre Jan 13, 2010 2:01 pm    Naslov sporočila:   Odgovori s citatom

uuuu, dela dela Applause Very Happy

ko sem menjala besedico Vhod z Izhod, sem en Vhod pozabila prepisati.

Sedaj so namesto vseh tvojih Vhodov--- Izhodi.

Super, res hvala Applause Very Happy


Torej, namesto Wait 3 je sedaj:

Do
Izhod = Getadc(1)
If Izhod < 500 Then
Waitms 300
Do
Izhod = Getadc(1)
Waitms 100
Loop Until Izhod > 500
Exit Do
End If
Waitms 300
Loop
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Sre Jan 13, 2010 2:43 pm    Naslov sporočila:   Odgovori s citatom

Imam še eno vprašanje...

Sedaj ko most dela kot mora, bi rada vključila še piskač, takrat ko se most dviga in spušča. Imam namreč težavo. Takoj ko ga vključim na C3, začne piskat.

Če dam ukaz portc.3=0, sploh ne utihne, zakaj?

lp in hvala
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
program_er
Član
Član



Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.33
Kraj: Maribor (Pohorje)

PrispevekObjavljeno: Sre Jan 13, 2010 8:33 pm    Naslov sporočila:   Odgovori s citatom

rozica1 je napisal/a:
Imam še eno vprašanje...

Sedaj ko most dela kot mora, bi rada vključila še piskač, takrat ko se most dviga in spušča. Imam namreč težavo. Takoj ko ga vključim na C3, začne piskat.

Če dam ukaz portc.3=0, sploh ne utihne, zakaj?

lp in hvala


Kakšen piskač pa imaš? Kako vezan? Kam pa si dala ukaz PORTC.3 = 0?
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo MSN Messenger - naslov
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Sre Jan 13, 2010 10:40 pm    Naslov sporočila:   Odgovori s citatom

piskač nima nobene oznake, vezan je na +5V in C3.

Ukaz portc.3=0 sem dala takoj na začetek, tam kjer so tudi uni trije ukazi:
portc.4=1
portc.2=1
portc.7=1
PORTC.3=0 (da bi bil tiho, ker takoj ko se priklopi, vpije) Smile
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
program_er
Član
Član



Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.33
Kraj: Maribor (Pohorje)

PrispevekObjavljeno: Sre Jan 13, 2010 10:44 pm    Naslov sporočila:   Odgovori s citatom

rozica1 je napisal/a:
piskač nima nobene oznake, vezan je na +5V in C3.

Ukaz portc.3=0 sem dala takoj na začetek, tam kjer so tudi uni trije ukazi:
portc.4=1
portc.2=1
portc.7=1
PORTC.3=0 (da bi bil tiho, ker takoj ko se priklopi, vpije) Smile


Pazi! Ko je izhod na 0 je na nizkem nivoju oz. je enako kot GND ali -. Ko je na 1, je pa enako VCC ali +. Torej, če imaš ti vezan piskač med VCC, bo piskal, ko mu boš drugi konec sklenila z GND, torej stanje 0. Veži piskač med PORTC.3 in GND ali pa v programu spremeni da bo 1 ugasnjen piskač, 0 pa prižgan Wink
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo MSN Messenger - naslov
bungee
Član
Član



Pridružen-a: Pon 07 Mar 2005 18:49
Prispevkov: 1479
Aktiv.: 6.24
Kraj: Ljubljana

PrispevekObjavljeno: Čet Jan 14, 2010 1:14 am    Naslov sporočila:   Odgovori s citatom

rozica1 je napisal/a:
piskač nima nobene oznake, vezan je na +5V in C3.

Ukaz portc.3=0 sem dala takoj na začetek, tam kjer so tudi uni trije ukazi:
PORTC.3=0 (da bi bil tiho, ker takoj ko se priklopi, vpije) Smile

Uporabi obratno logiko. Če boš dala PORTC.3=1 bo tiho Wink
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Čet Jan 14, 2010 3:29 am    Naslov sporočila:   Odgovori s citatom

super, všeč mi je ideja o obratni logiki. niti nisem pomislila na to, hvala...

Glede vezave na izhod in gnd ... ni delalo, sem pa opazila da ima piskač na ohišju narisan +...

zdej spušča nadležen zvok ko se most dviga in spušča. super, to bo fino na predstavitvi, hvala vam za pomoč, je zrihtano... Smile
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
program_er
Član
Član



Pridružen-a: Sob 08 Mar 2008 13:47
Prispevkov: 2173
Aktiv.: 10.33
Kraj: Maribor (Pohorje)

PrispevekObjavljeno: Čet Jan 14, 2010 6:33 am    Naslov sporočila:   Odgovori s citatom

Lepo, da dela. Applause A lahko prosim zazipaš .bas fajl ter ga pripneš tukaj? Wink
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo MSN Messenger - naslov
rozica1
Članica
Članica



Pridružen-a: Tor 12 Jan 2010 22:40
Prispevkov: 14
Aktiv.: 0.07
Kraj: koper

PrispevekObjavljeno: Čet Jan 14, 2010 4:16 pm    Naslov sporočila:   Odgovori s citatom

Lahko Smile


dvizni most projekt.zip
 Opis:

Download
 Ime datoteke:  dvizni most projekt.zip
 Velikost datoteke:  1.17 KB
 Downloadano:  38 krat

Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Naloge, izpiti, seminarske Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Pojdi na stran 1, 2  Naslednja
Stran 1 od 2

 
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: 493 dni


Powered by phpBB © 2001, 2005 phpBB Group