|
www.elektronik.si Forum o elektrotehniki in računalništvu
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
protoncek Član
Pridružen-a: Sre 31 Jan 2007 9:41 Prispevkov: 9573 Aktiv.: 45.68 Kraj: Mengeš
|
Objavljeno: Pet Apr 05, 2013 12:14 pm Naslov sporočila: |
|
|
Jaz vedno programiram preko AVR studia, skoraj nikoli z Bascom-ovim vmesnikom. Ne vem, nekako mi ne leži. Če uspeš narediti hex, potem sprogramiraš z AVR studio, pa je. Če ti novi ne podpira programatorja, si namesti AVR verzijo 4, ki še podpira recimo Darkotov stari programator. |
|
Nazaj na vrh |
|
|
zok Član
Pridružen-a: Pet 02 Jan 2009 23:59 Prispevkov: 1115 Aktiv.: 5.99 Kraj: Ponikva
|
|
Nazaj na vrh |
|
|
rudiP Član
Pridružen-a: Tor 07 Avg 2007 15:30 Prispevkov: 1234 Aktiv.: 6.07 Kraj: KOPER
|
Objavljeno: Pet Apr 05, 2013 2:17 pm Naslov sporočila: |
|
|
Fantje !
Vi lahko menjavate takšne ali drugačne programatorje, vendar če ti demo prevajalnik ne prevede več kot 4k kode je vse vaše pametovanje okoli programatorjev zastonj. _________________ Lep pozdrav iz Kopra Rudi |
|
Nazaj na vrh |
|
|
zok Član
Pridružen-a: Pet 02 Jan 2009 23:59 Prispevkov: 1115 Aktiv.: 5.99 Kraj: Ponikva
|
Objavljeno: Pet Apr 05, 2013 2:32 pm Naslov sporočila: |
|
|
se enkrat preberi. |
|
Nazaj na vrh |
|
|
mucek Član
Pridružen-a: Tor 01 Avg 2006 10:47 Prispevkov: 5333 Aktiv.: 24.73 Kraj: Domzale
|
Objavljeno: Pet Apr 05, 2013 4:18 pm Naslov sporočila: |
|
|
protoncek je napisal/a: |
Jaz vedno programiram preko AVR studia, skoraj nikoli z Bascom-ovim vmesnikom. |
Heh, tudi jaz. Če ne zaradi drugega zato, ker ti programiranje iz Bascoma eeprom povozi po defaultu Pa seveda nimaš dostopa do fuse bitov itd. Je pa priročen za takrat, ko kaj aktivno razvijaš, da ne rabiš preklapljat med programi.
LP, g _________________ ...lahko pa se tudi motim ... |
|
Nazaj na vrh |
|
|
Cule Član
Pridružen-a: Sob 28 Maj 2011 14:50 Prispevkov: 114 Aktiv.: 0.73 Kraj: Šentjur
|
Objavljeno: Pet Apr 05, 2013 4:27 pm Naslov sporočila: |
|
|
Sem sprogramiral preko AVR studia 4
Hvala za pomoč. |
|
Nazaj na vrh |
|
|
tretjic Član
Pridružen-a: Čet 24 Sep 2009 1:19 Prispevkov: 391 Aktiv.: 2.20 Kraj: Postojna
|
Objavljeno: Pet Apr 05, 2013 8:06 pm Naslov sporočila: |
|
|
mucek je napisal/a: |
protoncek je napisal/a: |
Jaz vedno programiram preko AVR studia, skoraj nikoli z Bascom-ovim vmesnikom. |
Če ne zaradi drugega zato, ker ti programiranje iz Bascoma eeprom povozi po defaultu Pa seveda nimaš dostopa do fuse bitov |
Zakaj pa to dvoje? Jaz nimam takih izkušenj. Mogoče odvisno od programatorja? |
|
Nazaj na vrh |
|
|
MadMax Član
Pridružen-a: Pet 09 Sep 2005 22:16 Prispevkov: 4743 Aktiv.: 21.29
|
Objavljeno: Pet Apr 05, 2013 9:04 pm Naslov sporočila: |
|
|
A ni ukaz $prog za fuse bite? |
|
Nazaj na vrh |
|
|
davyd1994 Član
Pridružen-a: Sob 17 Okt 2009 21:26 Prispevkov: 53 Aktiv.: 0.30 Kraj: Šentjur pri Celju-Ponikva
|
Objavljeno: Sob Apr 06, 2013 1:29 pm Naslov sporočila: |
|
|
Kateri ukaz naj uporabim v Bascomu da je izhod aktiven za določen čas.
Koda: |
If S_la = 1 Then
If Tempc < 22.0 Then
Portd.6 = 1
Else
Portd.6 = 0
End If
If Tempc > 25.0 Then
Portd.7 = 1
Portb.1 = 1
Else
Portd.7 = 0
Portb.1 = 0
End If
End If
If S_la = 0 Then
If S_pec = 1 Then
Portd.6 = 1
Else
Portd.6 = 0
End If
Portd.2 = 1
Portd.3 = 1
Portd.4 = 1
Portd.5 = 1
End If
|
Konkretno bi rad, da sta PORD.7 in PORTB.1 aktivna x sekund.
Lahko to naredim s Timer0? _________________ Ko misliš da ne zmoreš več pa mal pospeši.
Lp. David |
|
Nazaj na vrh |
|
|
MesicekA Član
Pridružen-a: Ned 27 Jan 2013 20:51 Prispevkov: 92 Aktiv.: 0.67 Kraj: KK in MB
|
Objavljeno: Sob Apr 06, 2013 1:48 pm Naslov sporočila: |
|
|
Dodaj "wait" in potem postavi ta dva pin-a na 0.
Koda: |
If Tempc > 25.0 Then
Portd.7 = 1
Portb.1 = 1
wait 10 //Počaka 10 sekund, ali pa waitms 10
Portd.7 = 0
Portb.1 = 0
Else
Portd.7 = 0
Portb.1 = 0
End If |
Probaj tako |
|
Nazaj na vrh |
|
|
davyd1994 Član
Pridružen-a: Sob 17 Okt 2009 21:26 Prispevkov: 53 Aktiv.: 0.30 Kraj: Šentjur pri Celju-Ponikva
|
Objavljeno: Sob Apr 06, 2013 2:11 pm Naslov sporočila: |
|
|
Ja, ampak program bo napisan tako da ko bo vrednost Tempc > 25.0 se morata izhoda aktivirati za 5 sekund, ko bo Tempc > 27.0 morata biti izhoda spet aktivna za 5 sekund in tako naprej. Če pa ostane Tempc med 25.0 in 27.0 pa izhoda nista aktivna. _________________ Ko misliš da ne zmoreš več pa mal pospeši.
Lp. David |
|
Nazaj na vrh |
|
|
Blaz 555 Neznanec
Pridružen-a: Pon 06 Dec 2010 20:19 Prispevkov: 5 Aktiv.: 0.03 Kraj: Ponikva
|
Objavljeno: Pon Apr 08, 2013 8:26 pm Naslov sporočila: matrična tipkovnica |
|
|
zdravo,
imam matrično tipkovnico 3x4 rad bi naredil ključavnico. napisal sem že nekaj programa. v programu moram uporabiti tudi ukaz getkbd ki pa mi ni jasno kako ta ukaz sploh deluje. tule pa imam program ki sem ga do sedaj napisal.
hvala
$regfile = "m8def.dat"
$crystal = 1000000
'_______________________________________________________________________________
'_______________________________________________________________________________
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.5 , Rs = Portd.6
Config Lcd = 16 * 2
'_______________________________________________________________________________
Dim Keyread As Byte
Dim Mycode As Word
Dim Code As Word
Dim Digits As Byte
Dim Point As Byte
Dim Key As Byte
Ddrd = 255
Portc = 0
Led_zelena Alias Portc.0
Led_rdeca Alias Portc.1
Config Kbd = Portb , Debounce = 40
Mycode = 1234
Do
Cls
Cursor Off Noblink
Lcd " PONIKVA"
Lowerline
Lcd " Podgaj 8a"
Wait 3
Cls
Set Led_zelena
Waitms 100
Reset Led_zelena
Waitms 100
Begin:
Code = 0
Digits = 0
Point = 0
Scan:
Cls
Lcd " Vnesite geslo"
Wait 3
Do
Keyread = Getkbd(portb)
If Keyread <> 16 Then Gosub Gotkey
Waitms 100
If Digits = 4 Then
If Code = Mycode Then
Goto Odprivrata
Else
Goto Napacno Geslo
End If
End If
Loop
Loop
Gotkey:
Set Led_zelena
Waitms 100
Reset Led_zelena
Waitms 100
Key = Lookup(keyread , Dta)
Incr Digits
Point = Digits + 6
Locate 2 , Point
Lcd "*"
Code = Code * 10
Code = Code + Key
Return
Dta:
Data 12 , 9 , 6 , 3 , 0 , 8 , 5 , 2 , 11 , 7 , 4 , 1
Napacnogeslo:
Cls
Lcd " Napacno geslo"
Waitms 100
Set Led_rdeca
Wait 3
Reset Led_rdeca
Wait 20
Goto Begin
Ok:
Waitms 100
Set Led_zelena
Waitms 200
Reset Led_zelena
Waitms 200
Set Led_zelena
Waitms 200
Reset Led_zelena
Return
Odprivrata:
Cls
Lcd " Koda sprejeta"
Gosub Ok
Lowerline
Lcd " odprto"
Waitms 300
Set Led_zelena
Wait 1
Reset Led_zelena
Wait 1
Goto Begin |
|
Nazaj na vrh |
|
|
protoncek Član
Pridružen-a: Sre 31 Jan 2007 9:41 Prispevkov: 9573 Aktiv.: 45.68 Kraj: Mengeš
|
Objavljeno: Pon Apr 08, 2013 8:56 pm Naslov sporočila: |
|
|
Ukaz getkbd ti vrne številko od 0 do 16 in je namenjen za tipkovnico 4x4. Pri tem je 16 če nobena od tipk ni pritisnjena. Potem ti vrne 0 če pritisneš 1, 1 za 2, 2 za 3, 3 za tipko desno od trojke, potem 4 za 4 itd. Saj imaš v HELP-u tipkovnico narisano. ČE ne uporabljaš skrajne desne kolone pač ne boš dobil tistih vrednosti.
Torej če je tipkovnica takale
1 2 3 F1
4 5 6 F2
7 8 9 F3
* 0 # F4
boš dobil ven vrednosti:
0 1 2 3
4 5 6 7
8 9 10 11
12 13 14 15
ter 16, če ni nič pritisnjeno. |
|
Nazaj na vrh |
|
|
Blaz 555 Neznanec
Pridružen-a: Pon 06 Dec 2010 20:19 Prispevkov: 5 Aktiv.: 0.03 Kraj: Ponikva
|
Objavljeno: Pon Apr 08, 2013 9:12 pm Naslov sporočila: |
|
|
Hvala,
Sepravi da tega ukaza ne morem uporabiti na tipkovnici 3x4. Kako pa bi potem lahko naredi da lahko spremenim in napišem geslo?? |
|
Nazaj na vrh |
|
|
program_er Član
Pridružen-a: Sob 08 Mar 2008 13:47 Prispevkov: 2173 Aktiv.: 11.08 Kraj: Maribor (Pohorje)
|
Objavljeno: Pon Apr 08, 2013 9:19 pm Naslov sporočila: |
|
|
Lahko. Odpri Help -> Index -> Config KBD
Config Kbd = Portb , Debounce = 40, Cols = 3
Sicer pa preizkusi, ker za ta način ne vem ali boš dobil:
1 2 3
4 5 6
7 8 9
10 11 12
ali
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16 _________________ Upanje ni del naše projektne strategije.
Member of Trisat - 1. Slovenian satellite running new fault tolerant aerospace processor.
|
|
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: 68 dni
Powered by phpBB © 2001, 2005 phpBB Group
|