www.elektronik.si

[protoncek]

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.

[zok]

Sam uporabljam tega: http://www.ebay.com/itm/USB-ISP-USBASP-Programmer-for-ATMEL-AVR-51-ATMega-ATTiny-ATMEGA8-ATMEGA128-/151004354206?pt=LH_DefaultDomain_0&hash=item23288f969e

Programiram direktno z BascomAVR, verzija 2.0.7.5 DEMO, in deluje zelo lepo. Kako deluje s starejsimi verzijami ne vem, glede na to da sva si dokaj blizu ti ga pa lahko posodim da ga dodobra preizkusis kako in kaj. Glede na ceno, se ga splaca kupiti ze za rezervo - jaz sem ga pred vec kot enim letom zbiddal za 4,5 USD s postnino vred, in deluje brez vsakih problemov ves ta cas - se diplomsko sem naredil z njegovo pomocjo.

[rudiP]

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.

[zok]

se enkrat preberi.

[mucek]

[Cule]

Sem sprogramiral preko AVR studia 4
Hvala za pomoč.

[tretjic]

[MadMax]

A ni ukaz $prog za fuse bite?

[davyd1994]

Kateri ukaz naj uporabim v Bascomu da je izhod aktiven za določen čas.

[MesicekA]

Dodaj "wait" in potem postavi ta dva pin-a na 0.

[davyd1994]

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.

[Blaz 555]

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

[protoncek]

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.

[Blaz 555]

Hvala,

Sepravi da tega ukaza ne morem uporabiti na tipkovnici 3x4. Kako pa bi potem lahko naredi da lahko spremenim in napišem geslo??

[program_er]

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