 |
|
|
Elektronika.lt portalo forumas
Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2025 12 23, 11:02. Visos datos yra GMT + 2 valandos.
|
|
|
 |
Forumas » Mikrovaldikliai » BascomAVR programavimas
|
Jūs negalite rašyti naujų pranešimų į šį forumą
Jūs negalite atsakinėti į pranešimus šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite ištrinti savo pranešimų šiame forume
Jūs negalite dalyvauti apklausose šiame forume
|
|
|
Puslapis 2 iš 2
Pereiti prie Atgal 1, 2 |
|
 |
BascomAVR programavimas |
 Parašytas: 2009 01 31, 17:09 |
  |
|
|
|
| Dabar siulyciau ismesti uzrasiuka ant LCD ar dar koki nieka bet siulyciau nesustoti nes is pavysdziu galima ir didesne programa susirinkti. |
|
|
|
|
|
|
BascomAVR programavimas |
| Parašytas: 2009 01 31, 18:12 |
|
|
|
|
| Jeigu teisingai suprantu, siūlai dėti pavyzdžius iš HELP failo. Tai ar verta? |
|
|
|
|
|
|
BascomAVR programavimas |
| Parašytas: 2009 01 31, 19:02 |
|
|
|
|
Ne pavz. tokius
$regfile = "2313def.dat" 'MK at90s2313'
$baud = 9600 'UART greitis'
$crystal = 4000000 ' kvarcas 4 MHz'
config lcd = 16 * 2 'LCD displejus 2 eiluciu 16 simboliu'
config lcdpin = pin, db4 = portb.1, db5 = portb.2, db6 = portb.3, db7 =(cia
viena eilute) portb.4, E = portb.5, Rs = portb.6
do 'ciklo pradzia'
cls 'panaikina ant ekrano esancius zenklus'
lcd "ziurek" 'ant ekrano (ziurek) pasirodo'
wait 3 'laukia 3 sekundes'
cls 'panaikina ant ekrano esancius zenklus'
lcd "grazu" 'ant ekrano (grazu) pasirodo'
wait 3
loop 'soka i ciklo pradzia'
end |
|
|
|
|
|
|
|
BascomAVR programavimas |
| Parašytas: 2009 01 31, 19:47 |
|
|
|
|
nu visas tas iniciliazacijos nesamoes niera ko cia rasyti
o siap LCD tai jau nuo LCD tipo proklauso ir nuo to kokia binlioteka naudoji.
ir kadangi C kompiliatoriai nera vienodi tai sunku kazka konretais pasakyti, bet is principo nera nieko sudetingiau o gal ir lengviau.
sakykime tu nori atspausdinti koki nors daznomacio rezultata.
tai bus
int f=10 // daznio kintamasis sakykim kad f =10
printf("daznumas %d Hz ",f) //atspausdina daznumas 10 mhz |
|
|
|
|
|
|
|
BascomAVR programavimas |
| Parašytas: 2009 02 28, 09:49 |
|
|
|
|
Imetu litavimo stotelės programa, nes manau kad tokios programos gal ką nors daugiau išjudins.
'Pavyzdys:"
'Start adc"
'V = GETADC(0)"
'Print V"
'Start Adc "nustatyti Itaisa I Rezima Analoginis -skaitmeninis Keitiklis. "
'Stop Adc "sustabdyti Rezima Analoginis -skaitmeninis Keitiklis. "
'V = Getadc(channel) "is Konkretaus Channel Kanalo Gauti Keitimo Rezultata "
'Siuo pagrindu mes parasysim programa ir pratestuosim su LCD ADC"
$regfile = "m32def.dat" 'naudojam Atmega32(mrc40 Su Universaliu Moduliu "
$crystal = 16000000 '"Mk Kvarco Daznis 16 Mhz"
$lib "lcd4.lbx " 'naudojame 4x Bitu Pajungima Lcd Su Alternatyvia Biblioteka "
'LCD = ATmega32
'Rs = PortB.0
'RW = PortB.1 'nevisuomet naudojama)
' E = PortB.2
'E2 = PortB.3 'nevisuomet naudojama)
'Db4 = PortB.4
'Db5 = PortB.5
'Db6 = PortB.6
'Db7 = PortB.7
'pajungimo konfiguracija LCD prie MK
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.2 , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7
Config Lcd = 16 * 2 'Naudojamas Lcd 2 Eiluciu 16 Zenklu
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'konfiguracija ADC nustatome kintamuosius
Dim W As Word
Dim V As Word
Start Adc 'paleidziame analogini - skaitmenini keitima
'--------------ijungiame uztvara-------------------------------
Waitms 10 'uzlaikimas 1 s
Cursor Off 'atjungiame kursoriu
Cls 'isvalome displeju
Locate 1 , 1 'pozicija kursoriaus
Lcd "Elektronika.LT" 'Elektronika.LT isvedam uzrasa i LCD
Locate 2 , 1 'pozicija kursoriaus
Lcd "Litavimo stotis" 'ADC test isvedam i uzrasa
Waitms 20 'uzlaikimas 2 s
'--------------pagrindines programos ciklas--------------------
Cls
Do
W = Getadc(0) 'nuskaitome reiksme is itaiso A, kojele 0
Locate 1 , 2 'pozicija kursoriaus
Lcd "Uzduota T:" ; W ; " " 'isvedam reiksme
V = Getadc(1) 'nuskaitome reiksme is itaiso A, kojele 1
Locate 2 , 3 'pozicija kursoriaus
Lcd "Reali T:" ; V ; " " 'isvedam reiksme
Waitms 10 'uzlaikome 0,1 s
Loop 'i ciklo pradzia
End 'pabaiga |
|
|
|
|
|
|
|
BascomAVR programavimas |
| Parašytas: 2009 02 28, 19:24 |
|
|
|
|
Jo idomi tema 
Manau visiems reiketu pereiti prie fortrano ir perfo juostu
Sheiptai programavimo kalbos pasirinkimas pagal kiekvieno norus ir galomybes ir supratima |
|
|
|
|
|
|
BascomAVR programavimas |
| Parašytas: 2010 01 21, 18:12 |
|
|
|
|
| Manau temos pavadinimas turetu skambei biski kitaip "Pasimatuokim Vyrai Pimpalais" ir kas geriau moka. |
|
|
|
|
|
|
BascomAVR programavimas |
| Parašytas: 2010 01 21, 18:25 |
|
|
|
|
| Turėjom vieną sektantą-lyg ir nebeliko, tai dabar sex maniakas atsirado . |
|
|
|
|
|
|
 |
Google paieška forume |
|
|
|
Naujos temos forume |
|
|
FS25 Tractors
Farming Simulator 25 Mods,
FS25 Maps,
FS25 Trucks |
|
ETS2 Mods
ETS2 Trucks,
ETS2 Bus,
Euro Truck Simulator 2 Mods
|
|
FS22 Tractors
Farming Simulator 22 Mods,
FS22 Maps,
FS25 Mods |
|
Dantų protezavimas
All on 4 implantai,
Endodontija mikroskopu,
Dantų implantacija |
|
FS25 Mods
FS25 Maps,
FS25 Cheats,
FS25 Install Mods |
|
FS25 Mods
Farming Simulator 25 Mods,
FS25 Maps |
|
ATS Trailers
American Truck Simulator Mods,
ATS Trucks,
ATS Maps |
|
Must have farming mods
Farming simulator modhub,
Best farming simulator mods |
|
|
 |
