Mengontrol Relay Via USB Menggunakan BASIC dan USB-1REL

USB-1REL adalah modul USB Relay yang memiliki 1 buah relay sebagai output. Dengan modul ini kita bisa mengendalikan kondisi 1 buah relay (on/off) melalui program komputer dengan antarmuka port USB.

Modul ini mengambil daya secara langsung dari port USB sehingga tidak membutuhkan catu daya eksternal. Oleh karenanya modul USB-1REL sangat mudah dan praktis digunakan.

Screenshot di samping adalah tampilan program Demo Kontrol USB-1REL yang dibuat menggunakan interpreter Bahasa BASIC gratisan JustBASIC V1.01. Program mengontrol relay USB-1REL dengan memanggil command-line toolUSB1RC.EXE.

Modul USB-1REL sangat cocok untuk aplikasi bel sekolah terprogram berbasis komputer. Dengan scheduler dan database sederhana maka cukuplah untuk membuat aplikasi bel sekolah terprogram yang sederhana namun berdayaguna.
Selain bel sekolah atau bel pabrik, USB-1REL juga bisa diaplikasikan untuk mengaktifkan dan mematikan extra-fan atau air-conditioner pada ruang server pada kurun-kurun waktu yang telah ditentukan (terprogram).

Pada tulisan ini kami berikan contoh program Demo Kontrol USB-1REL dengan beberapa fungsi tombol yakni:

Tombol	Fungsi
ON	Mengaktifkan relay
OFF	Mematikan relay
ON-OFF Very Fast	Mengaktifkan kemudian mematikan dengan delay yang sangat singkat (flicker)
ON – 0.5s – OFF	Relay ON, delay 1/2 detik, kemudian Relay OFF
ON – 1s – OFF	Relay ON, delay 1 detik, kemudian Relay OFF
ON – 5s - OFF	Relay ON, delay 5 detik, kemudian Relay OFF

Untuk menghasilkan delay program menggunakan fungsi TIMER. Berikut adalah kode program selengkapnya.

'--- JB_USB1REL.BAS
'--- Demo pengontrolan modul relay USB-1REL
'--- Chandra MDE - Teknik Elektro Links
'--- 28 September 2014

    nomainwin

    WindowWidth = 300
    WindowHeight = 355

    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    groupbox #main.groupbox1, " Relay Control: ", 15, 15, 170, 72
    button #main.btnRelayOn, "ON", [btnRelayOnClick], UL, 25, 40, 70, 30
    button #main.btnRelayOff, "OFF", [btnRelayOffClick], UL, 105, 40, 70, 30

    groupbox #main.groupbox2, " Relay Trigger/Off-Delay: ", 15, 100, 170, 196
    button #main.btnRelayOnFast, "ON-OFF Very Fast", [btnRelayFastClick], UL, 25, 130, 150, 30
    button #main.btnRelayOn50, "ON - 0.5s - OFF", [btnRelay50Click], UL, 25, 170, 150, 30
    button #main.btnRelayOn1, "ON - 1s - OFF", [btnRelay1Click], UL, 25, 210, 150, 30
    button #main.btnRelayOn5, "ON - 5s - OFF", [btnRelay5Click], UL, 25, 250, 150, 30

    button #main.btnExit, "EXIT", [btnExitClick], UL, 200, 20, 78, 277

    statictext  #main.telinks, "http://teknikelektrolinks.com", 14, 302, 200, 20

    open "JustBASIC - Demo Kontrol USB-1REL" for dialog as #main
    print #main, "trapclose [quit.main]"

    print #main, "font Arial 9 Bold"
    print #main.telinks, "!font Verdana 8"

    wait

[quit.main]
    close #main
    end

[btnRelayOnClick]    'Perform action for the button named 'btnRelayOn'
    run "USB1RC.EXE R1", hide
    wait

[btnRelayOffClick]    'Perform action for the button named 'btnRelayOff'
    run "USB1RC.EXE r1", hide
    wait

[btnRelayFastClick]
    run "USB1RC.EXE R1 r1", HIDE
    wait

[btnRelay50Click]
    run "USB1RC.EXE R1", hide
    timer 500, [tmr500ms]
    wait
    [tmr500ms]
    timer 0
    run "USB1RC.EXE r1", HIDE
    wait

[btnRelay1Click]
    run "USB1RC.EXE R1", hide
    timer 1000, [tmr1000ms]
    wait
    [tmr1000ms]
    timer 0
    run "USB1RC.EXE r1", hide
    wait

[btnRelay5Click]    'Perform action for the button named 'btnRelay1Off'
    run "USB1RC.EXE R1", hide
    timer 5000, [tmr5000ms]
    wait
    [tmr5000ms]
    timer 0
    run "USB1RC.EXE r1", hide
    wait

[btnExitClick]    'Perform action for the button named 'btnExit'
    Close #main
    wait

USB-1REL dilengkapi dengan CD program yang berisi contoh program dalam berbagai bahasa seperti BASIC, C, Delphi/Lazarus, JustBASIC, Python, REBOL, VB/VB.NET.

Credit :

http://pcinterfacing.blogspot.com/2014/10/usb-1rel-adalah-modul-usb-relay-yang.html

Mengontrol Relay Via USB Menggunakan BASIC dan USB-1REL

Mengontrol Relay Via USB Menggunakan BASIC dan USB-1REL

0 comments:

Post a Comment