Program Kontrol Modul USB-2REL Menggunakan VB.NET (Shell)


usb2rel_vbnet

Pada tulisan sebelumnya telah diberikan contoh program kontrol modul USB-2REL versi Delphi yang menggunakan fungsi ShellExecute().

Pada tulisan ini akan diberikan contoh program kontrol modul USB-2REL versi VB.NET yang menggunakan fungsi Shell() untuk memanggil program USB2R.EXE. Gambar di samping adalah screenshot program yang saya maksudkan. Dan berikut adalah listing program yang menangani event-event tombol.

Public Class frmUSB2REL
    Private Sub btnRelay1On_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRelay1On.Click
        Shell("""USB2R"" R1", , True, 10000)
        GroupBox1.Text = "RELAY-1 = ON"
    End Sub

    Private Sub btnRelay1Off_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRelay1Off.Click
        Shell("""USB2R"" r1", , True, 10000)
        GroupBox1.Text = "RELAY-1 = OFF"
    End Sub

    Private Sub btnRelay2On_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRelay2On.Click
        Shell("""USB2R"" R2", , True, 10000)
        GroupBox2.Text = "RELAY-2 = ON"
    End Sub

    Private Sub btnRelay2Off_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRelay2Off.Click
        Shell("""USB2R"" r2", , True, 10000)
        GroupBox2.Text = "RELAY-2 = OFF"
    End Sub

    Private Sub btnAllOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllOn.Click
        Shell("""USB2R"" RA", , True, 10000)
        GroupBox1.Text = "RELAY-1 = ON"
        GroupBox2.Text = "RELAY-2 = ON"
    End Sub

    Private Sub btnAllOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAllOff.Click
        Shell("""USB2R"" rA", , True, 10000)
        GroupBox1.Text = "RELAY-1 = OFF"
        GroupBox2.Text = "RELAY-2 = OFF"
    End Sub
End Class

Sangat mudah, bukan?

Anda dapat mengunduh file project VB.NET selengkapnya melalui link berikut ini.

USB2REL VB.NET.ZIP
(~318KB)

Untuk informasi harga dan pemesanan modul USB-2REL, silakan mengunjungi situsnya di: http://teknikelektrolinks.com.

Semoga bermanfaat, selamat belajar, dan selamat berkarya!

🙂

Iklan
Perihal

Cek situs kami di http://teknikelektrolinks.com. Blog Raspberry Pi: http://raspi.teknikelektrolinks.com

Tagged with: , ,
Ditulis dalam Antarmuka Komputer, Driver Relay, Elektronika, Gratisan, Industrial Control and Automation, Software/Programming, VB.NET

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

Bergabunglah dengan 2.503 pengikut lainnya

Hot Links




Display Counter 3-Digit Dengan Koneksi Wi-Fi
Display Nomor Antrian WiFi Android
Mengontrol Relay Via USB/Serial dan Wi-Fi
USB Relay USB-2REL
USB Relay USB-4REL
Water Level Control WLC-02
Serial Relay SER-4REL
NEO STARDUINO SMS ALARM

Alarm SMS Berbasis NEO STARDUINO

1 PC – 6 Unit USB-2REL

Testing 6 USB-2REL Pada 1 Komputer

Standard Pengujian USB-2REL

Pengujian USB-2REL Sebelum Dikirim

LPT-4REL on Knoppix 7.0.5

Testing LPT-4REL on Knoppix Linux

T101 Inkubator Telur

T101 Inkubator Penetas Telur

KONTROL PERALATAN LISTRIK VIA PORT LPT KOMPUTER

Demo Kontrol Kontaktor via Port LPT

STARDUINO meets ANDROID

Demo Kontrol Bluetooth Relay Android

STARDUINO SMS RELAY

Kontrol Relay Via SMS Dengan Starduino

STARDUINO WEB RELAY

Demo Kontrol Relay Via Web/Internet

JustBASIC USB-2REL Control

Demo Kontrol USB-2REL + JustBASIC

STARDUINO + GPS + LCD

Demo Starduino GPS Dengan LCD

USB-2REL EXTREME TEST

Demo Kontrol On/Off Lampu USB-2REL

THERMOSTAT T101 IN ACTION

Demo Thermostat T101 Pada SV=37.5°C

WATER LEVEL CONTROL WLC-02

Demo Kontrol Level Air Tandon WLC-02

HUMIDITY CONTROLLER H103

Demo Kontrol Kelembaban H103 (DHT11)

%d blogger menyukai ini: