DeviceSTMPE811

STMPE811 S-Touch advanced resistive touchscreen controller device driver.

References:

• ST STMPE811 datasheet

• https://blog.embeddedexpert.io/?p=2093

Types

Device* = RECORD
        bus* : PtrBus;
        adr* : INTEGER;
        error* : INTEGER;
    END;

Procedures

Init

Initialize driver.

PROCEDURE Init* (VAR dev : Device; VAR bus: BusI2C.Bus; adr : INTEGER);

Device.ReadDeviceId

Read Device Identification.

PROCEDURE (VAR this : Device) ReadDeviceId* (): UNSIGNED16;

Device.Reset

Reset device.

PROCEDURE (VAR this : Device) Reset* ();

Device.EnableTouchInterrupt

Enable touch interrupt on INT pin.

PROCEDURE (VAR this : Device) EnableTouchInterrupt* ();

Device.ClearInterrupts

Clear pending interrupts

PROCEDURE (VAR this : Device) ClearInterrupts* ();

Device.Config

Configure device

PROCEDURE (VAR this : Device) Config* ();

Device.HasTouchData

Return TRUE if we have touch data.

PROCEDURE (VAR this : Device) HasTouchData* (): BOOLEAN;

Device.ReadXY

Return TRUE if we have touch data.

PROCEDURE (VAR this : Device) ReadXY* (VAR x, y : UNSIGNED16);