Re: Bemutatkozás, AVR kérdés
Sragner Miklós
srami at kabelnet.hu
Wed Apr 18 20:53:57 CEST 2007
Hali!
nézz körül itt, az első címen, tudsz kommunikálni Cseh Robival és még néhány
hozzáértővel -mindent tudnak és mindig segítenek.
http://avr.tavir.hu/
http://avrhelp.mcselec.com/bascom-avr.html?CONFIG_KEYBOARD
Bye:
----- Original Message -----
From: "Ifj. Tóth Ferenc" <ifjftoth at gmail.com>
To: <elektro at tesla.hu>
Sent: Sunday, April 15, 2007 2:29 PM
Subject: Bemutatkozás, AVR kérdés
> Sziasztok!
>
> A nevem Tóth Ferenc. Egy kedves ismerősöm javasolta a listát a számomra.
Azt
> mondta, hogy ha itt nem kapok választ az elektronikai témájú kérdésekre,
> akkor sehol. Remélem idővel én is beállhatok a válasz adók sorába, nem
csak
> kérdezni fogok.
>
> Most kezdek ismerkedni az AVR-ekkel. Csináltam magamnak egy kis panelt,
ezen
> tesztelgetek. LCD, sorosport kezelés, I2C minden megy, de egy nyavajás
gomb
> státuszát nem tudom lekérdezni. Bascom-ban progizom a kicsikét. Egy kicsit
> zavaros számomra ez a Portx.y illetve Pinx.y. Mikor melyiket kell
használni?
>
>
> Egy billentyűmátrix van rákötve a kontrollerre, a bemenetre állított
lábakon
> felhúzó ellenállások vannak (4,7k)
> Egyenlőre fix nullát adtam a kimenetekre, most csak az a célom hogy
> normálisan tudjam detektálni a változást a porton. Később jöhet a rendes
> feldolgozás.
>
> Itt a progim:
>
>
> $regfile = "m2560def.dat" 'regiszterfájl
> definíció
> $crystal = 14745600
> $hwstack = 40 ' default use
32
> for the hardware stack
> $swstack = 40 ' default use
10
> for the SW stack
> $framesize = 40 ' default use
40
> for the frame space
>
> Config Pinj.0 = Output
> Config Pinj.1 = Output
> Config Pinj.2 = Output
> Config Pinj.3 = Output
> Config Pinj.4 = Input
> Config Pinj.5 = Input
> Config Pinj.6 = Input
>
> Pinj.0 = 0
> Pinj.1 = 0
> Pinj.2 = 0
> Pinj.3 = 0
>
> Config Lcdpin = Pin , Db4 = Porth.2 , Db5 = Porth.3 , Db6 = Porth.4 , Db7
=
> Porth.5 , E = Porth.1 , Rs = Porth.0
> Config Lcd = 20 * 4
> Cls
>
> Lcd "Hello"
> Do
> If Pinj.5 = 0 Then
> Cls
> Lcd "Valami tortent..."
> End If
> Loop
> End
>
More information about the Elektro
mailing list