Reading Raspberry Pi GPIO Pins using Lazarus / Free Pascal

Way back when, I did a simple example of using Free Pascal to turn an LED on and off:

Accessing Raspberry Pi GPIO using Lazarus/Free Pascal

To date, that has been the most I’ve needed to do to the real world with a Raspberry Pi. Mainly I use Arduinos and have them talk to a Raspberry Pi.

A project I’m working on at the moment requires that I sense a push button being pressed on a Raspberry Pi, so I can silence an alarm.

I found that both pull up and pull down resistors are available, so I figured I would write a quick test program and verify I can make everything work under Free Pascal.

As you probably know, you need to make sure you use the 3.3V power pins when feeding them back into GPIO ports; otherwise, you will fry your RPI.

I find the GPIO pin numbers vs. the physical pin numbers to be a bit confusing. The GPIO pin numbers are printed on the RPI and Pi Cobbler but (at least) Free Pascal want physical pin numbers.

To map between the two I use this diagram:

I am using the wiringpi library and free pascal wrapper found at

• https://projects.drogon.net/raspberry-pi/wiringpi/
• http://forum.lazarus.freepascal.org/index.php/topic,17404.0.html

When you attempt to run a program compiled with this library, it must have root permission, so if you name your program xyz, use ‘sudo xyz’ to run it!

Using a Physical Pull Down Resistor

First I use a pull down resistor, mainly to make sure everything works before I mess with the internal pull down resistor.

I wired the switch as follows:

When the switch is open, the GPIO pin is LOW, pulled down to ground. When the switch is closed, it goes HIGH to 3.3V.

I then used the following code to test this configuration:

program readgpio;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes,
    hwiringpi;

{$R *.res}

var
    lastState                   : integer;

begin

If wiringPiSetup = -1 then begin // Setup Hardware (Gordons magic)
    writeln('wirintPiSetup failed');
    halt;
    end;

pinMode(p15, INPUT);

lastState := LOW;

while true do begin

    if digitalRead(p15) <> lastState then begin     // print state when it changes
        delay(50);                                  // debounce
        lastState := abs(lastState - 1);            // tricky way to toggle state between low/high 0/1
        if lastState = LOW then
            writeln('LOW')
        else
            writeln('HIGH');
        end;

    delay(10);

    end; // while

end.

This worked perfect. Pressing the button displays ‘HIGH’ and releasing it displays ‘LOW’.

Now to try an internal pull down resistor. The switch is now wired like this:

To enable the internal pull down resistor, I use the pullUpDnControl call:

program readgpio;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes,
    hwiringpi;

{$R *.res}

var
    lastState                   : integer;

begin

If wiringPiSetup = -1 then begin // Setup Hardware (Gordons magic)
    writeln('wirintPiSetup failed');
    halt;
    end;

pinMode(p15, INPUT);
pullUpDnControl(p15, PUD_DOWN);                 // enable pull down resistor

lastState := LOW;

while true do begin

    if digitalRead(p15) <> lastState then begin // print state when it changes
        delay(50);                              // debounce
        lastState := abs(lastState - 1);        // tricky way to toggle state between low/high 0/1
        if lastState = LOW then
            writeln('LOW')
        else
            writeln('HIGH');
        end;

    delay(10);

    end; // while

end.

This worked exactly like having the physical pull down resistor in place.

Instead of using the internal pull down transistor you can use the internal pull up transistor. In the pullUpDnControl call, just use PUD_UP instead.

When using the pull up resistor, it uses the same reverse logic one must handle when using pull up resistors on the arduino.

When doing this, you must connect the switch to ground. So when the switch is pressed, you get a LOW instead of a HIGH.

I tend to NOT think like this and must immediately NOT the digitalRead into positive logic so I don’t get confused. It is really nice not to have to do that on the RPI.

Advertisements