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!

🙂

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