Kits / Starterkit: Hardware Hacking / Beispiele / Funksteckdosen fernsteuern / Mit Delphi/Lazarus

Funksteckdosen mit Delphi fernsteuern¶

Für diese Projekt setzen wir voraus, dass eine Delphi Entwicklungsumgebung eingerichtet ist und ein grundsätzliches Verständnis der Delphi Programmiersprache vorhanden ist.

Falls dies nicht der Fall ist sollte hier begonnen werden. Informationen über die Tinkerforge API sind dann hier zu finden.

Wir setzen weiterhin voraus, dass die Fernbedienung mit einem Industrial Quad Relay Bricklet verbunden wurde wie hier beschrieben.

Ziele¶

Das Ziel dieses kleinen Projekts ist es, eine Vorstellung darüber zu vermitteln wie die Relais des Industrial Quad Relay Bricklets geschaltet werden müssen, damit die Funksteckdosen an- und ausgeschaltet werden können.

Der folgende Quelltext benutzt SetMonoflop um eine Knopfdruck auf der Fernbedienung auszulösen. Ein Monoflop setzt einen neuen Zustand (Relais offen oder geschlossen) und hält diesen für eine bestimmte Zeit (1,5s im Beispielquelltext). Nach dieser Zeit wird der vorheriger Zustand wiederhergestellt. Dieses Ansatz simuliert einen Knopfdruck der für 1,5s (1500ms) anhält.

Gemäße der Hardware-Aufbau Beschreibung ist die Fernbedienung wie folgt mit den Relais verbunden:

Signal	Relais
A	0
B	1
ON	2
OFF	3

Um "A ON" auf der Fernbedienung auszulösen müssen also die Relais 0 und 2 des Industrial Quad Relay Bricklets geschlossen werden. Dies wird durch die Bitmaske (1 shl 0) or (1 shl 2) repräsentiert.

Die Monoflop-Funktion kann also mit dieser Bitmaske und einer Zeit von 1500ms aufgerufen werden um einen Knopfdruck von "A ON" zu simulieren. Im Folgenden wird dies in einem minimalen Beispielquelltext dargestellt.

Quelltext¶

Download

program RemoteSwitch;

{$ifdef MSWINDOWS}{$apptype CONSOLE}{$endif}
{$ifdef FPC}{$mode OBJFPC}{$H+}{$endif}

uses
  SysUtils, IPConnection, BrickletIndustrialQuadRelay;

type
  TRemoteSwitch = class
  private
    ipcon: TIPConnection;
    iqr: TBrickletIndustrialQuadRelay;
  public
    procedure Execute;
  end;

const
  HOST = 'localhost';
  PORT = 4223;
  UID = 'ctG'; { Change to your UID }
  VALUE_A_ON  = (1 shl 0) or (1 shl 2); { Pin 0 and 2 high }
  VALUE_A_OFF = (1 shl 0) or (1 shl 3); { Pin 0 and 3 high }
  VALUE_B_ON  = (1 shl 1) or (1 shl 2); { Pin 1 and 2 high }
  VALUE_B_OFF = (1 shl 1) or (1 shl 3); { Pin 1 and 3 high }

var
  rs: TRemoteSwitch;

procedure TRemoteSwitch.Execute;
begin
  { Create IP connection }
  ipcon := TIPConnection.Create;

  { Create device object }
  iqr := TBrickletIndustrialQuadRelay.Create(UID, ipcon);

  { Connect to brickd }
  ipcon.Connect(HOST, PORT);
  { Don't use device before ipcon is connected }

  { Set pins to high for 1.5 seconds }
  iqr.SetMonoflop(VALUE_A_ON, 15, 1500);
end;

begin
  rs := TRemoteSwitch.Create;
  rs.Execute;
  rs.Destroy;
end.