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

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
Objavljeno: Tor Jan 12, 2010 11:05 pm Naslov sporočila: Bascom- programiranje semaforja in dvižnega mostu |
|
|
Ž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
Opis: |
to je vmesnik, ki ga uporabljam |
|
Velikost datoteke: |
214.74 KB |
Pogledana: |
6 krat |

|
|
|
Nazaj na vrh |
|
 |
frenki Moderator



Pridružen-a: Ned 23 Feb 2003 21:26 Prispevkov: 6732 Aktiv.: 28.42 Kraj: Ljubljana (JN76GB)
|
Objavljeno: Tor Jan 12, 2010 11:47 pm Naslov sporočila: |
|
|
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 .
Lp, Frenki
|
|
Nazaj na vrh |
|
 |
WR3 Član

Pridružen-a: Čet 10 Dec 2009 1:16 Prispevkov: 166 Aktiv.: 0.88 Kraj: Okolica Tolmina
|
Objavljeno: Sre Jan 13, 2010 12:09 am Naslov sporočila: |
|
|
Moj nasvet bi bil počasi 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 |
|
 |
rozica1 Članica

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
Objavljeno: Sre Jan 13, 2010 4:06 am Naslov sporočila: |
|
|
Ž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...
Hvala za pomoč in lp
|
|
Nazaj na vrh |
|
 |
program_er Član


Pridružen-a: Sob 08 Mar 2008 13:47 Prispevkov: 2173 Aktiv.: 10.33 Kraj: Maribor (Pohorje)
|
|
Nazaj na vrh |
|
 |
rozica1 Članica

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
Objavljeno: Sre Jan 13, 2010 1:48 pm Naslov sporočila: |
|
|
Oj, hvala za pomoč, vendar ne dela ....
Sedaj ostane v zgornji poziciji in se ne spusti v nobenem primeru .
Aja, pa v teh ukazih, ki si jih pisal, je mišljen Izhod =Getadc (1)
lp
|
|
Nazaj na vrh |
|
 |
rozica1 Članica

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
Objavljeno: Sre Jan 13, 2010 2:01 pm Naslov sporočila: |
|
|
uuuu, dela dela
ko sem menjala besedico Vhod z Izhod, sem en Vhod pozabila prepisati.
Sedaj so namesto vseh tvojih Vhodov--- Izhodi.
Super, res hvala
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 |
|
 |
rozica1 Članica

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
Objavljeno: Sre Jan 13, 2010 2:43 pm Naslov sporočila: |
|
|
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 |
|
 |
program_er Član


Pridružen-a: Sob 08 Mar 2008 13:47 Prispevkov: 2173 Aktiv.: 10.33 Kraj: Maribor (Pohorje)
|
Objavljeno: Sre Jan 13, 2010 8:33 pm Naslov sporočila: |
|
|
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 |
|
 |
rozica1 Članica

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
Objavljeno: Sre Jan 13, 2010 10:40 pm Naslov sporočila: |
|
|
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)
|
|
Nazaj na vrh |
|
 |
program_er Član


Pridružen-a: Sob 08 Mar 2008 13:47 Prispevkov: 2173 Aktiv.: 10.33 Kraj: Maribor (Pohorje)
|
Objavljeno: Sre Jan 13, 2010 10:44 pm Naslov sporočila: |
|
|
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)  |
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
|
|
Nazaj na vrh |
|
 |
bungee Član


Pridružen-a: Pon 07 Mar 2005 18:49 Prispevkov: 1479 Aktiv.: 6.24 Kraj: Ljubljana
|
Objavljeno: Čet Jan 14, 2010 1:14 am Naslov sporočila: |
|
|
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)  |
Uporabi obratno logiko. Če boš dala PORTC.3=1 bo tiho
|
|
Nazaj na vrh |
|
 |
rozica1 Članica

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
Objavljeno: Čet Jan 14, 2010 3:29 am Naslov sporočila: |
|
|
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...
|
|
Nazaj na vrh |
|
 |
program_er Član


Pridružen-a: Sob 08 Mar 2008 13:47 Prispevkov: 2173 Aktiv.: 10.33 Kraj: Maribor (Pohorje)
|
Objavljeno: Čet Jan 14, 2010 6:33 am Naslov sporočila: |
|
|
Lepo, da dela. A lahko prosim zazipaš .bas fajl ter ga pripneš tukaj?
|
|
Nazaj na vrh |
|
 |
rozica1 Članica

Pridružen-a: Tor 12 Jan 2010 22:40 Prispevkov: 14 Aktiv.: 0.07 Kraj: koper
|
|
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
|