www.elektronik.si

[crto]

Pozdravljeni,

Ker sem čisti začetnik v programiranju bi vas prosil za malo pomoči, po prebiranju dokumentacije sem spravil skupaj naslednji program, ki pa ne dela po mojih željah in sicer:
$regfile = "2313def.dat"
$crystal = 3686400

Config Portd.2 = Input
Config Portd.3 = Input
Config Portb.0 = Output
Config Portd.6 = Output
Config Debounce = 40

Main:
Do
Debounce Pind.2 , 1 , Prog , Sub
Debounce Pind.3 , 1 , Program , Sub

Loop

Prog:
Set Portd.6
Wait 5
Wait 5
Reset Portd.6
Return

Program:
Set Portb.0
Wait 3
Reset Portb.0
Return

probal sem tugi goto, pa še vedno ni delalo tako kot sem hotel.

Torej moja zahteva je bila, da naredim dve tipki in z vsako lahko vklopim svojo luč za določen čas ampak v mojem primeru lahko naredim to samo za eno naenkrat, torej mi nekaj manjka.
Pa še vprašanje kako doseči daljše čase do cca 60 minut (ali dam toliko waitov da bo to cca 60 min)
Za pomoč se vam zahvaljujem

Črto

[fluffy111]

To imaš Attiny2313? Ali kaj drugega?

Lp

[crto]

AT90s2313 vem da je že star in ga ne delajo več vendar mi jih kar precej leži v predalih pa jih bi uporabil.

[lado]

ko si v wait se program ustavi in toliko časa ne dela nič.....bo potrebno uporabit prekinitve, ali pa časovnike...

[vilko]

Hm, Kako sta vezani tipki? Imata zunanje pullup upore? (Notranjih nisi vključil.)
Debounce si programiral tako, da se podprogram vključi, ko skoči napetost na tipkah gor.

[Obelix]

[crto]

Ja pullup upori so zunanji proti masi,vklop pa se vrši proti +5V, saj tipki delujeta vendar ena po ena torej ko vklopim prvo mora najprej biti tisti čas(wait) mimo da lahko ponovno prvo ali drugo, to je moj problem.

Ja valda jih ni ravno 100 je pa jih kar nekaj.

lp

[vilko]

[int47]

[crto]

Ja sem se spet naučil pullup in pulldown, no saj se tudi logično sliši.

Bom poskusil jutri dopoldne s tem kar ste predlagali,
ne da ne želim probati z prekinitvami - moram se najprej naučit potem pa jih z veseljem uporabim.
lp
črto

[crto]

Dobro sprobal sem obrnit tipke proti masi, deluje kot je delovalo prej torej dela ena tipka po ena.

Sprobal sem tudi program ki si mi ga napisal (int47) in definiral spremenljivke na naslednji način:

Dim Stevec_portd_6 As Integer
Dim Stevec_portb_0 As Integer

pa mi javlja napake za to vrstico:

else stevec_portd_6=stevec_portd_6 - 1 in sicer invalid datatype [[0007]]

ter v naslednji vrstici:

End if in sicer If Then expected in loop expected


Probal sem tudi z Dim Stevec_portd_6 As Byte pa je enako

tukaj se mi je zdaj malo ustavilo, bom še pogledal malo te prekinitve.

[Medo]

kaj spremeni če daš:
stevec_portd_6 v Stevec_portd_6

veliki S? Imaš različno uporabo enkrat velike začetnice drugič male?

[crto]

Mam stalno veliko zacetnico, poglej celi program:

$regfile = "2313def.dat"
$crystal = 1000000


Dim Stevec_portd_6 As Bit
Dim Stevec_portb_0 As Bit

Config Portd.2 = Input
Config Portd.3 = Input
Config Portb.0 = Output
Config Portd.6 = Output
Config Debounce = 40


Main:
Stevec_portd_6 = 0
Stevec_portb_0 = 0

Do
Debounce Pind.2 , 1 , Prog , Sub
Debounce Pind.3 , 1 , Program , Sub

If Stevec_portd_6 = 0 Then Reset Portd.6
Else Stevec_portd_6 = Stevec_portd_6 - 1
End If

If Stevec_portb_0 = 0 Then Reset Portb.0
Else Stevec_portb_0 = Stevec_portb_0 - 1
End If

Waitms 100
Loop

Prog:
Set Portd.6
Stevec_portd_6 = 10 * 5
Return

Program:
Set Portb.0
Stevec_portb_0 = 10 * 5
Return

Se že celo jutro učim pa matram zraven

[klemen88]

[crto]

ja zdaj zadeva res dela

Hvala