Projekti - LED diode
Općenito o projektima s LED diodama
Svaki projekt sa LED diodama koji slijedi temeljen je na mikrokontrolerskom sustavu spojenom kao na donjoj slici. Razlika je samo u softveru mikrokontrolera. Iako se neki projekti čine izuzetno slični, riješeni su na različite načine kako bi čitatelj mogao naučiti više o programiranju mikrokontrolera u programskom jeziku mikroPascal.
Napomena: na kraju svakog projekta možete preuzeti mikroPascal projekt i Proteus shemu.
Projekt 1
Blinkanje LED dioda.
_ program LEDblink;
{ Declarations section }
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
repeat //pocetak beskonacne petlje
portc:=0; //postavljanje svih izboda portc u stanje "0"
delay_ms(500); //cekanje 500 ms
portc:=255; //postavljanje svih izboda portc u stanje "1"
delay_ms(500); //cekanje 500 ms
until 1=2 //kraj beskonacne petlje
end. //kraj programa
{ Declarations section }
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
repeat //pocetak beskonacne petlje
portc:=0; //postavljanje svih izboda portc u stanje "0"
delay_ms(500); //cekanje 500 ms
portc:=255; //postavljanje svih izboda portc u stanje "1"
delay_ms(500); //cekanje 500 ms
until 1=2 //kraj beskonacne petlje
end. //kraj programa
ledblink.rar | |
File Size: | 58 kb |
File Type: | rar |
Projekt 2
Binarno brojanje.
_
program LEDcount;
var i:byte;
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
repeat //pocetak beskonacne petlje
for i:=0 to 255 do //petlja za brojenje od 1 do 255
begin //pocetak petlje
portc:=i; //stanje portc je jednako brojacu i
delay_ms(350); //cekanje 350 ms
end; //kraj petlje
until 1=2 //kraj beskonacne petlje
end. //kraj programa
var i:byte;
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
repeat //pocetak beskonacne petlje
for i:=0 to 255 do //petlja za brojenje od 1 do 255
begin //pocetak petlje
portc:=i; //stanje portc je jednako brojacu i
delay_ms(350); //cekanje 350 ms
end; //kraj petlje
until 1=2 //kraj beskonacne petlje
end. //kraj programa
ledcount.rar | |
File Size: | 46 kb |
File Type: | rar |
Projekt 3
Efekti s LED diodama - trčanje 1.
_
program LEDrunINOUT;
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
portc:=0;
repeat //pocetak beskonacne petlje
portc:=24; //uključi dvije srednje led diode
delay_ms(350); //čekanje 350 ms
portc:=36; //uključi sljedeći par dioda
delay_ms(350); //čekanje 350 ms
portc:=66; //uključi sljedeći par dioda
delay_ms(350); //čekanje 350 ms
portc:=129; //uključi dvije vanjske diode
delay_ms(350); //čekanje 350 ms
until 1=2 //kraj beskonacne petlje
end. //kraj programa
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
portc:=0;
repeat //pocetak beskonacne petlje
portc:=24; //uključi dvije srednje led diode
delay_ms(350); //čekanje 350 ms
portc:=36; //uključi sljedeći par dioda
delay_ms(350); //čekanje 350 ms
portc:=66; //uključi sljedeći par dioda
delay_ms(350); //čekanje 350 ms
portc:=129; //uključi dvije vanjske diode
delay_ms(350); //čekanje 350 ms
until 1=2 //kraj beskonacne petlje
end. //kraj programa
ledruninout.rar | |
File Size: | 47 kb |
File Type: | rar |
Projekt 4
_Efekti s LED diodama - trčanje 2.
program LEDrunOUTIN;
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
portc:=0;
repeat //pocetak beskonacne petlje
portc.0:=1; //uključi diodu na RC0 - nulti izvod portc
portc.7:=1; //uključi diodu na RC7 - sedmi izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
portc.1:=1; //uključi diodu na RC1 - prvi izvod portc
portc.6:=1; //uključi diodu na RC6 - šesti izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
portc.2:=1; //uključi diodu na RC2 - drugi izvod portc
portc.5:=1; //uključi diodu na RC5 - peti izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
portc.3:=1; //uključi diodu na RC3 - teći izvod portc
portc.4:=1; //uključi diodu na RC4 - četvrti izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
until 1=2 //kraj beskonacne petlje
end. //kraj programa
begin //pocetak glavnog programa
trisc:=0; //postavljanje portc kao izlaznog porta
portc:=0;
repeat //pocetak beskonacne petlje
portc.0:=1; //uključi diodu na RC0 - nulti izvod portc
portc.7:=1; //uključi diodu na RC7 - sedmi izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
portc.1:=1; //uključi diodu na RC1 - prvi izvod portc
portc.6:=1; //uključi diodu na RC6 - šesti izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
portc.2:=1; //uključi diodu na RC2 - drugi izvod portc
portc.5:=1; //uključi diodu na RC5 - peti izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
portc.3:=1; //uključi diodu na RC3 - teći izvod portc
portc.4:=1; //uključi diodu na RC4 - četvrti izvod portc
delay_ms(350); //čekaj 350 ms
portc:=0; //isključi sve diode
until 1=2 //kraj beskonacne petlje
end. //kraj programa
ledrunoutin.rar | |
File Size: | 47 kb |
File Type: | rar |
Projekt 5
_Efekti s LED diodama - trčanje 3.
_
program LEDrunLR;
begin //pocetak glavnog programa
trisc:=0; //postavljanje portb kao izlaznog porta
portc:=0;
repeat //pocetak beskonacne petlje
portc:=1; //uključi prvu led diodu
delay_ms(350); //čekaj 350 ms
portc:=2; //uključi drugu led diodu
delay_ms(350); //čekaj 350 ms
portc:=4; //uključi treću led diodu
delay_ms(350); //čekaj 350 ms
portc:=8; //uključi četvrtu led diodu
delay_ms(350); //čekaj 350 ms
portc:=16; //uključi petu led diodu
delay_ms(350); //čekaj 350 ms
portc:=32; //uključi šestu led diodu
delay_ms(350); //čekaj 350 ms
portc:=64; //uključi sedmu led diodu
delay_ms(350); //čekaj 350 ms
portc:=128; //uključi osmu led diodu
delay_ms(350); //čekaj 350 ms
until 1=2 //kraj beskonacne petlje
end. //kraj programa
begin //pocetak glavnog programa
trisc:=0; //postavljanje portb kao izlaznog porta
portc:=0;
repeat //pocetak beskonacne petlje
portc:=1; //uključi prvu led diodu
delay_ms(350); //čekaj 350 ms
portc:=2; //uključi drugu led diodu
delay_ms(350); //čekaj 350 ms
portc:=4; //uključi treću led diodu
delay_ms(350); //čekaj 350 ms
portc:=8; //uključi četvrtu led diodu
delay_ms(350); //čekaj 350 ms
portc:=16; //uključi petu led diodu
delay_ms(350); //čekaj 350 ms
portc:=32; //uključi šestu led diodu
delay_ms(350); //čekaj 350 ms
portc:=64; //uključi sedmu led diodu
delay_ms(350); //čekaj 350 ms
portc:=128; //uključi osmu led diodu
delay_ms(350); //čekaj 350 ms
until 1=2 //kraj beskonacne petlje
end. //kraj programa
ledrunlr.rar | |
File Size: | 47 kb |
File Type: | rar |
Projekt 6
_Efekti s LED diodama - trčanje 4.
program LEDrunRL;
begin //pocetak glavnog programa
trisc:=0; //postavljanje portb kao izlaznog porta
portc:=128;
repeat //pocetak beskonacne petlje
delay_ms(350); //čekaj 350 ms
portc:=portc shr 1; //pomakni registar portc u desno za 1 mjesto
if portc=0 then portc:=128;//ukoliko je portc=0 "kreni ispočetka"
until 1=2 //kraj beskonacne petlje
end. //kraj programa
begin //pocetak glavnog programa
trisc:=0; //postavljanje portb kao izlaznog porta
portc:=128;
repeat //pocetak beskonacne petlje
delay_ms(350); //čekaj 350 ms
portc:=portc shr 1; //pomakni registar portc u desno za 1 mjesto
if portc=0 then portc:=128;//ukoliko je portc=0 "kreni ispočetka"
until 1=2 //kraj beskonacne petlje
end. //kraj programa
ledrunrl.rar | |
File Size: | 47 kb |
File Type: | rar |