Witam wszystkich
Z gory przepraszam za wszystkie glupie pytania poniewaz dopiero zaczynam przygode z uK . Zlozylem programator STK 200 dziala poprawnie . Jako pierwszy mikroprocesor postanowilem kupic attiny 2313 . Program pisalem w BASCOM AVR . Do attiny podlaczylem wyswietlacz lcd 2x16 dziala poprawnie . Chcialem napisac program powiedzmy takie "demo" tego ukladu kod mojego programu zamieszczam ponizej , jezeli zle wklejilem prosze o moderatora o poprawienie . Problem polega na tym ze attiny nie reaguje na zaden z "guzikow" , w symulatorze bascom avr jest ok . Prosze kolegow o pomoc w rozwiazaniu tego problemu . Pozdrawiam Bartek
Kod programu :
Z gory przepraszam za wszystkie glupie pytania poniewaz dopiero zaczynam przygode z uK . Zlozylem programator STK 200 dziala poprawnie . Jako pierwszy mikroprocesor postanowilem kupic attiny 2313 . Program pisalem w BASCOM AVR . Do attiny podlaczylem wyswietlacz lcd 2x16 dziala poprawnie . Chcialem napisac program powiedzmy takie "demo" tego ukladu kod mojego programu zamieszczam ponizej , jezeli zle wklejilem prosze o moderatora o poprawienie . Problem polega na tym ze attiny nie reaguje na zaden z "guzikow" , w symulatorze bascom avr jest ok . Prosze kolegow o pomoc w rozwiazaniu tego problemu . Pozdrawiam Bartek
Kod programu :
$regfile = "attiny2313.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Cursor Off
Config Portd.6 = Input : Set Portd.6 ' Guzik 1
Config Porta.0 = Input : Set Porta.0 ' Guzik 2
Config Portd.1 = Input : Set Portd.1 ' Guzik 3
Config Portd.4 = Input : Set Portd.4 ' Guzik 4
Config Portd.0 = Output ' Dioda Czerwona
Guzik1 Alias Portd.4
Guzik2 Alias Portd.5
Guzik3 Alias Portd.6
Guzik4 Alias Portd.2
Dioda Alias Portd.0
Deflcdchar 1 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 ' replace ? with number (0-7)
Deflcdchar 2 , 17 , 21 , 21 , 14 , 4 , 4 , 10 , 17 ' replace ? with number (0-7)
Cls
Boot:
Lcd "Wczytywanie"
Waitms 200
Dioda = 1
Waitms 400
Dioda = 0
Waitms 400
Dioda = 1
Waitms 400
Dioda = 0
Lowerline
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 500
Cls
Gosub Menu
Cls
Informacje:
Cls
Lcd "Attiny 2313"
Lowerline
Waitms 1
Lcd "prog by Bartek" ; Chr(2)
Wait 5
Cls
Gosub Menu
Cls
Led:
Cls
Lcd "Migaj LED"
Lowerline
Waitms 1
Lcd "Czerwona dioda"
Waitms 200
Dioda = 1
Waitms 400
Dioda = 0
Waitms 400
Dioda = 1
Waitms 400
Dioda = 0
Waitms 200
Dioda = 1
Waitms 400
Dioda = 0
Waitms 400
Dioda = 1
Waitms 400
Dioda = 0
Waitms 200
Dioda = 1
Waitms 400
Dioda = 0
Waitms 400
Dioda = 1
Waitms 400
Dioda = 0
Cls
Waitms 250
Gosub Menu
Cls
Reboot:
Cls
Lcd "Reboot"
Lowerline
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Waitms 150
Lcd Chr(1)
Wait 1
Cls
Gosub Boot
Wizytowka:
Cls
Lcd "Bartek Morawski"
Lowerline
Waitms 1
Lcd "Klasa 2 TA nr.10"
Wait 5
Cls
Gosub Menu
Cls
Menu:
Lcd "1.Info 2.Wizyt"
Lowerline
Waitms 1
Lcd "3.Dioda 4.Reboot"
Do
If Guzik1 = 1 Then Gosub Informacje
If Guzik2 = 1 Then Gosub Wizytowka
If Guzik3 = 1 Then Gosub Led
If Guzik4 = 1 Then Gosub Reboot
Loop