Projekti - tipkala i sklopke
Općenito o projektima s tipkalima
Svaki projekt sa tipkalima 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.
Projek 1
Očitavanje stanja tipkala
_
program MyProject;
{ Declarations section }
begin
trisb:=255; //postavi portb kao ulazni port
trisc:=0; //postavi portc kao izlazni port
portc:=0; //postavi portc u "0"
repeat //pocetak beskonacne petlje
portc:=portb; //preslikaj stanje portb na portc
until 1=2 //kraj beskonacne petlje
end.
{ Declarations section }
begin
trisb:=255; //postavi portb kao ulazni port
trisc:=0; //postavi portc kao izlazni port
portc:=0; //postavi portc u "0"
repeat //pocetak beskonacne petlje
portc:=portb; //preslikaj stanje portb na portc
until 1=2 //kraj beskonacne petlje
end.
buttonbasic.rar | |
File Size: | 49 kb |
File Type: | rar |
Projekt 2
Osnovni logički sklopovi
_ program ButtonLogic;
{ Declarations section }
begin
trisb:=255; //postavi portb kao ulazni port
trisc:=0; //postavi portc kao izlazni port
portc:=0; //postavi portc u "0"
repeat //pocetak beskonacne petlje
if portb.0=1 then portc.0:=0 //funkcija NE
else portc.0:=1; //funkcija NE
if ((portb.1=1) and (portb.2=1)) then portc.1:=1 //funkcija I
else portc.1:=0; //funkcija I
if ((portb.3=1) or (portb.4=1)) then portc.2:=1 //funkcija NILI
else portc.2:=0; //funkcija NILI
until 1=2 //kraj beskonacne petlje
end.
{ Declarations section }
begin
trisb:=255; //postavi portb kao ulazni port
trisc:=0; //postavi portc kao izlazni port
portc:=0; //postavi portc u "0"
repeat //pocetak beskonacne petlje
if portb.0=1 then portc.0:=0 //funkcija NE
else portc.0:=1; //funkcija NE
if ((portb.1=1) and (portb.2=1)) then portc.1:=1 //funkcija I
else portc.1:=0; //funkcija I
if ((portb.3=1) or (portb.4=1)) then portc.2:=1 //funkcija NILI
else portc.2:=0; //funkcija NILI
until 1=2 //kraj beskonacne petlje
end.
buttonlogic.rar | |
File Size: | 50 kb |
File Type: | rar |