JustBASIC – Demo Program Pengontrolan Modul Relay USB-2REL


usb2rel_jb_ideapad

USB-2REL adalah modul relay yang memiliki dua buah relay yang dapat dikontrol secara langsung melalui port USB tanpa memerlukan adanya catudaya eksternal, sehingga sangat praktis untuk aplikasi pengontrolan mesin tiket, palang pintu, bel otomatis, dan lain-lain. Tulisan-tulisan sebelumnya mengenai modul USB-2REL dapat Anda baca di sini.

Gambar di samping adalah foto eksperimen pengontrolan modul USB-2REL pada netbook Lenovo menggunakan pemrograman Just BASIC dengan sistem operasi Windows 7. Program kontrol JustBASIC memanggil program aplikasi eksternal USB2R.EXE untuk mengontrol modul relay USB-2REL. Maklum saja, JustBASIC tidak diberi kemampuan untuk mengakses file .DLL, jadi salah satu cara termudah untuk mengakses hardware adalah dengan memanggil file aplikasi eksternal. Namun demikian, jangan berharap dengan cara ini akan mendapatkan respon pengontrolan yang cepat karena pengaksesan aplikasi eksternal membutuhkan waktu yang lebih lama dibandingkan dengan mengakses hardware secara langsung.

Program USB2R.EXE
USB2R.EXE saya buat menggunakan bahasa C dengan kompiler freeware Pelles C. Program ini mengenali parameter-parameter program yang berfungsi untuk mengontrol relay-relay pada modul USB-2REL. Berikut adalah screenshot program USB2R.EXE yang menampilkan daftar parameter beserta fungsinya.

image

Kelebihan dari program USB2R.EXE adalah dapat menerima lebih dari 1 parameter program. Oleh karenanya, seperti dicontohkan pada screenshot di atas, kita dapat mengaktifkan RELAY-2 dan mematikan RELAY-1 dengan memberikan parameter “R2 r1” kepada program USB2R.EXE.

Program demo pengontrolan modul USB-2REL nantinya hanya menggunakan parameter-parameter R1, r1, R2, r2, RA, dan rA.

Program JB_USB2REL.BAS
jb_usb2rel

Gambar di samping adalah screenshot program demo pengontrolan modul relay USB-2REL yang menampilkan 3 grup yakni grup RELAY-1, grup RELAY-2, dan grup RELAY1+2. Masing-masing grup terdiri dari button ON dan button OFF.

Button ON pada grup RELAY-1 akan memanggil program eksternal USB2R.EXE dengan parameter “R1” untuk mengaktifkan RELAY-1. Dan Button OFF pada grup ini akan memanggil USB2R.EXE dengan parameter “r1” untuk mematikan RELAY-1.

Button ON pada grup RELAY-2 akan memanggil USB2R.EXE dengan parameter “R2” yang akan mengaktifkan RELAY-2, sedangkan button OFF pada grup ini akan memanggil USB2R.EXE dengan parameter “r2” untuk mematikan RELAY-2. Dan seperti halnya kedua grup yang lain, button ON dan button OFF pada grup RELAY-1+2 juga akan memanggil program USB2R.EXE namun dengan parameter yang berbeda yakni “RA” untuk mengaktifkan kedua relay dan “rA” untuk mematikan kedua relay.

Berikut adalah listing program JB_USB2REL.BAS.

‘— JB_USB2REL.BAS
‘— Demo pengontrolan modul relay USB-2REL
‘— Chandra MDE – Teknik Elektro Links (10/8/2013)

nomainwin

WindowWidth = 360
WindowHeight = 365

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

groupbox #main.groupbox5, ” RELAY-1: “, 22, 21, 216, 90
button #main.btnRelay1On, “ON”, [btnRelay1OnClick], UL, 46, 51, 80, 30
button #main.btnRelay1Off, “OFF”, [btnRelay1OffClick], UL, 134, 51, 80, 30
groupbox #main.groupbox4, ” RELAY-2: “, 22, 126, 216, 90
button #main.btnRelay2On, “ON”, [btnRelay2OnClick], UL, 46, 156, 80, 30
button #main.btnRelay2Off, “OFF”, [btnRelay2OffClick], UL, 134, 156, 80, 30
button #main.btnExit, “EXIT”, [btnExitClick], UL, 254, 31, 80, 285
groupbox #main.groupbox10, ” RELAY-1+2: “, 22, 231, 216, 90
button #main.btnRelay12On, “ON”, [btnRelay12OnClick], UL, 46, 261, 80, 30
button #main.btnRelay12Off, “OFF”, [btnRelay12OffClick], UL, 134, 261, 80, 30
open “JustBASIC – Demo Kontrol USB-2REL” for dialog as #main
print #main, “trapclose [quit.main]”

print #main, “font Arial 9 Bold”
print #main.groupbox5, “!font Arial 9 bold”
print #main.btnRelay1On, “!font Arial 9 bold”
print #main.btnRelay1Off, “!font Arial 9 bold”
print #main.groupbox4, “!font Arial 9 bold”
print #main.btnRelay2On, “!font Arial 9 bold”
print #main.btnRelay2Off, “!font Arial 9 bold”
print #main.btnExit, “!font Arial 9 bold”
print #main.groupbox10, “!font Arial 9 bold”
print #main.btnRelay12On, “!font Arial 9 bold”
print #main.btnRelay12Off, “!font Arial 9 bold”

wait

[quit.main]
Close #main
END

[btnRelay1OnClick]
RUN “D:\USB2R.EXE R1”, HIDE
wait

[btnRelay1OffClick]
RUN “D:\USB2R.EXE r1”, HIDE
wait

[btnRelay2OnClick]
RUN “D:\USB2R.EXE R2”, HIDE
wait

[btnRelay2OffClick]
RUN “D:\USB2R.EXE r2”, HIDE
wait

[btnRelay12OnClick]
RUN “D:\USB2R.EXE RA”, HIDE
wait

[btnRelay12OffClick]
RUN “D:\USB2R.EXE rA”, HIDE
wait

[btnExitClick]
Close #main
wait

Wow! Cukup pendek bukan listing programnya? Smile

Pada eksperimen ini, file program USB2R.EXE berada di root direktori D:\. Namun demikian, lokasi ini tidaklah bersifat mutlak, Anda dapat menempatkan file tersebut di direktori yang Anda kehendaki dan menyesuaikan perintah-perintah RUN pada listing program. Dan pemilihan mode HIDE pada perintah RUN akan menyembunyikan window console command ketika program USB2R.EXE dieksekusi, sehingga tampilan program tidak terganggu oleh munculnya window console command.

Nah, demikianlah hasil eksperimen pemrograman Just BASIC untuk pengontrolan modul relay USB-2REL. Semoga bermanfaat!

Listing program di atas terdapat pada CD bawaan modul USB-2REL yang terbaru dan termasuk di dalamnya adalah installer program interpreter Just BASIC. Bagi Anda pengguna USB-2REL yang membeli produk ini sebelum tulisan ini dibuat, Anda dapat menghubungi kami melalui email ke info@teknikelektrolinks.com.

Video demo dari eksperimen pengontrolan modul relay USB-2REL menggunakan Just BASIC dapat Anda saksikan di YouTube melalui link berikut ini:

http://youtu.be/Vefp-Pn_3Mw

Selamat belajar dan selamat berkarya!

Smile

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