|
www.elektronik.si Forum o elektrotehniki in računalništvu
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
dkone Član
Pridružen-a: Sre 07 Mar 2007 18:53 Prispevkov: 2104 Aktiv.: 10.13 Kraj: Krško
|
Objavljeno: Sob Dec 20, 2008 8:25 pm Naslov sporočila: |
|
|
Sem že pogruntal,namesto ; uporabi : _________________ Denis |
|
Nazaj na vrh |
|
|
program_er Član
Pridružen-a: Sob 08 Mar 2008 13:47 Prispevkov: 2173 Aktiv.: 11.12 Kraj: Maribor (Pohorje)
|
Objavljeno: Sob Dec 20, 2008 8:48 pm Naslov sporočila: |
|
|
Ja, poglej:
LCD a : LCD "nekaj" : LCD b : LCD "bla"
LCD a ; "nekaj" ; b ; "bla" _________________ Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
Nazaj na vrh |
|
|
dkone Član
Pridružen-a: Sre 07 Mar 2007 18:53 Prispevkov: 2104 Aktiv.: 10.13 Kraj: Krško
|
Objavljeno: Sob Dec 20, 2008 9:10 pm Naslov sporočila: |
|
|
program_er je napisal/a: |
Ja, poglej:
LCD a : LCD "nekaj" : LCD b : LCD "bla"
LCD a ; "nekaj" ; b ; "bla" |
Posledica dopusta pri AVR-jih _________________ Denis |
|
Nazaj na vrh |
|
|
Misko Član
Pridružen-a: Ned 16 Apr 2006 15:15 Prispevkov: 549 Aktiv.: 2.51 Kraj: MS
|
Objavljeno: Sre Dec 24, 2008 9:26 pm Naslov sporočila: |
|
|
Super sem danes preizkusil pa deluje. Sedaj pa imam še eno vprašanje.
Kako vi naredil da bi se npr. en if stavek izvedel samo enkrat vse dokler se nebi program ponovno zagnal. Upam da sem jasen če ne pa povejte.
Hvala! |
|
Nazaj na vrh |
|
|
zlabo Član
Pridružen-a: Sre 16 Jan 2008 21:38 Prispevkov: 283 Aktiv.: 1.44 Kraj: Domžale-Kamnik
|
Objavljeno: Sre Dec 24, 2008 9:34 pm Naslov sporočila: |
|
|
umestiš ga na začetku pred neskončno zanko (do-loop) |
|
Nazaj na vrh |
|
|
Misko Član
Pridružen-a: Ned 16 Apr 2006 15:15 Prispevkov: 549 Aktiv.: 2.51 Kraj: MS
|
Objavljeno: Sre Dec 24, 2008 10:43 pm Naslov sporočila: |
|
|
Hvala. Kako da mi to ni padlo v glavo. |
|
Nazaj na vrh |
|
|
Misko Član
Pridružen-a: Ned 16 Apr 2006 15:15 Prispevkov: 549 Aktiv.: 2.51 Kraj: MS
|
Objavljeno: Čet Dec 25, 2008 12:46 pm Naslov sporočila: |
|
|
Že spet jaz.
Kako naredim da se mi en del zanke izvaja tako dolgo dokler ne pritisnem tipke in se pri naslednjem ciklu zanke ta del preskoči.
Da malo razložim kaj hočem. Na začetku programa nastavim eno vrednost in ko jo potrdim hočem da se zanka izvaja od tu dalje dokler ni dosežena ta vrednost. |
|
Nazaj na vrh |
|
|
stursc Član
Pridružen-a: Tor 08 Jun 2004 14:29 Prispevkov: 323 Aktiv.: 1.45
|
Objavljeno: Čet Dec 25, 2008 2:13 pm Naslov sporočila: |
|
|
Nova zanka
Do
if ta vrednost dosežena
ExitDo
end if
Loop
Lp, stursc |
|
Nazaj na vrh |
|
|
Misko Član
Pridružen-a: Ned 16 Apr 2006 15:15 Prispevkov: 549 Aktiv.: 2.51 Kraj: MS
|
Objavljeno: Čet Dec 25, 2008 5:22 pm Naslov sporočila: |
|
|
Hvala deluje |
|
Nazaj na vrh |
|
|
Misko Član
Pridružen-a: Ned 16 Apr 2006 15:15 Prispevkov: 549 Aktiv.: 2.51 Kraj: MS
|
Objavljeno: Pet Dec 26, 2008 5:45 pm Naslov sporočila: |
|
|
Kako pa vklopim notranje pullup upore?
Nekaj sem bral datashet za atmego8 pa me zanima če je potrebno povezat AVcc ter Vcc? Tako sem razumel vendar vseeno raje vprašam.
Hvala |
|
Nazaj na vrh |
|
|
klemen88 Član
Pridružen-a: Tor 01 Jan 2008 17:37 Prispevkov: 747 Aktiv.: 3.78 Kraj: Slovenj Gradec
|
Objavljeno: Pet Dec 26, 2008 5:51 pm Naslov sporočila: |
|
|
portx=&B1111_1111
Odvisno na kerem pinu je tipka...če hočeš vklopit pull-up daš 1 če ne pa 0. Šteje se pa iz desne proti levi. |
|
Nazaj na vrh |
|
|
dkone Član
Pridružen-a: Sre 07 Mar 2007 18:53 Prispevkov: 2104 Aktiv.: 10.13 Kraj: Krško
|
Objavljeno: Pet Dec 26, 2008 6:23 pm Naslov sporočila: |
|
|
kaj pa takole:
ddrb=255
set portb.x
_________________ Denis |
|
Nazaj na vrh |
|
|
strobos Član
Pridružen-a: Sre 24 Sep 2003 12:19 Prispevkov: 726 Aktiv.: 3.27 Kraj: Brežice
|
Objavljeno: Pet Dec 26, 2008 6:37 pm Naslov sporočila: |
|
|
dkone je napisal/a: |
kaj pa takole:
ddrb=255
set portb.x
|
Tako postaviš pine, da so izhodni.
Pine moraš definirat kot vhodne ddrb=0 in
potem npr. z portb=255 vklopiš pull up upore ali pa s set portb.x vključuješ posamezni pull up upor.
Lp |
|
Nazaj na vrh |
|
|
Misko Član
Pridružen-a: Ned 16 Apr 2006 15:15 Prispevkov: 549 Aktiv.: 2.51 Kraj: MS
|
Objavljeno: Ned Dec 28, 2008 4:27 pm Naslov sporočila: |
|
|
Spet se mi je zataknilo.
Imam dve zanki v prvi določim pogoj koliko krat se naj izvede druga zanka.
Prosim če mi lahko kdo malo nakaže to rešit sem že nekaj delal na tem vendar mi program ne gre v drugo do-loop zanko.
Koda: |
...
C = 0
Do
If Pinc.5 = 0 Then
Waitms 20
If Pinc.5 = 0 Then
Gosub Vec
End If
End If
If Pinc.3 = 0 Then
Waitms 20
If Pinc.3 = 0 Then
Gosub Manj
End If
End If
If Pinc.4 = 0 Then
Waitms 20
If Pinc.4 = 0 Then
Exit Do
End If
End If
Loop
Do
'Ta zanka bi se naj izvedla C krat.
Loop
Vec:
Incr C
Locate 3 , 5 : Lcd C : Lcd " "
Return
Manj:
Decr C
Locate 3 , 5 : Lcd C : Lcd " "
Return |
Hvala |
|
Nazaj na vrh |
|
|
rudiP Član
Pridružen-a: Tor 07 Avg 2007 15:30 Prispevkov: 1234 Aktiv.: 6.09 Kraj: KOPER
|
Objavljeno: Ned Dec 28, 2008 8:53 pm Naslov sporočila: |
|
|
Tu je rešitev na hitro:
Prvo se nauči pregledno pisati programe, da boš hitro našel ko boš kaj popravljal !
Koda: |
$regfile = "m8def.dat"
$crystal = 11059200
Config Portc = Input
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 20 * 4
Dim C As Byte
Dim C_flag As Bit
Declare Sub Vec
Declare Sub Manj
Reset C_flag
Cls
'****************************************
Do
If Pinc.5 = 0 Then
' Waitms 20
If Pinc.5 = 0 Then
Call Vec
End If
End If
If Pinc.3 = 0 Then
' Waitms 20
If Pinc.3 = 0 Then
Call Manj
End If
End If
If Pinc.4 = 0 Then
' Waitms 20
If Pinc.4 = 0 Then Set C_flag
End If
' If C_flag = 1 Then Lcd "*"
If C_flag = 1 And C > 0 Then
If C = 1 Then
Reset C_flag ' dodaj svojo kodo
Lcd "#"
End If
Decr C
Lcd C
End If
Loop
'********************************************
Sub Vec:
Incr C
Locate 1 , 1 : Lcd C : Lcd " "
End Sub
'********************************************
Sub Manj:
Decr C
Locate 1 , 1 : Lcd C : Lcd " "
End Sub
'********************************************
|
Zelo lepo je to opisano v literaturi , Gregorja Mačka & ostalih
Malo prehitevaš, zato pojdi po vrsti. _________________ Lep pozdrav iz Kopra Rudi |
|
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: 47 dni
Powered by phpBB © 2001, 2005 phpBB Group
|