Kits / Starterkit: Hardware Hacking / Beispiele / Funksteckdosen fernsteuern / Mit Visual Basic .NET

Funksteckdosen mit Visual Basic .NET fernsteuern¶

Für diese Projekt setzen wir voraus, dass eine Visual Basic .NET Entwicklungsumgebung eingerichtet ist und ein grundsätzliches Verständnis der Visual Basic .NET 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 << 0) | (1 << 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

Imports Tinkerforge

Module ExampleSimple
    Const HOST As String = "localhost"
    Const PORT As Integer = 4223
    Const UID As String = "ctG" ' Change to your UID
    Const VALUE_A_ON  As Integer = (1 << 0) Or (1 << 2) ' Pin 0 and 2 high
    Const VALUE_A_OFF As Integer = (1 << 0) Or (1 << 3) ' Pin 0 and 3 high
    Const VALUE_B_ON  As Integer = (1 << 1) Or (1 << 2) ' Pin 1 and 2 high
    Const VALUE_B_OFF As Integer = (1 << 1) Or (1 << 3) ' Pin 1 and 3 high

    Sub Main()
        Dim ipcon As New IPConnection() ' Create IP connection
        Dim iqr As New BrickletIndustrialQuadRelay(UID, ipcon) ' Create device object

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

        iqr.SetMonoflop(VALUE_A_ON, 15, 1500) ' Set pins to high for 1.5 seconds

        ipcon.Disconnect()
    End Sub
End Module