How to use multiple buttons in mikroPascal PRO?
Posted: 07 Jun 2010 03:46
I am a new user of mikroPascal PRO, and I have a question: How to detect multiple buttons connected to P0.0, P0.1, P0.2, etc? Your sample code shows how to use one button only, and I don't know how to define the "Button_Pin" if I use several buttons.
Here is you sample code for one button connected to P0.0:
program Button_Test;
var Button_Pin : sbit at P0_0_bit;
var oldstate : bit;
begin
P0 := 255; // configure PORT0 as input
P2 := 0xAA; // initial PORT2 value
oldstate := 0;
while TRUE do
begin
if (Button(1, 0) <> 0) then // detect logical one
oldstate := 1; // update flag
if (oldstate and Button(1, 1)) then // detect one-to-zero transition
begin
P2 := not P2; // invert PORT2
oldstate := 0; // update flag
end;
end;
end.
Here is you sample code for one button connected to P0.0:
program Button_Test;
var Button_Pin : sbit at P0_0_bit;
var oldstate : bit;
begin
P0 := 255; // configure PORT0 as input
P2 := 0xAA; // initial PORT2 value
oldstate := 0;
while TRUE do
begin
if (Button(1, 0) <> 0) then // detect logical one
oldstate := 1; // update flag
if (oldstate and Button(1, 1)) then // detect one-to-zero transition
begin
P2 := not P2; // invert PORT2
oldstate := 0; // update flag
end;
end;
end.