JustBASIC – Program Kontrol LED Pin13 Pada Starduino atau Arduino


justbasic

JustBASIC adalah sebuah software interpreter BASIC yang merupakan versi gratis dari LibertyBASIC. LibertyBASIC adalah bahasa pemrograman BASIC yang populer sejak tahun 1992 yang dibuat oleh ShopTalk System dengan presiden perusahaannya bernama Carl Gundel.

Namun demikian, sayangnya, baik JustBASIC maupun LibertyBASIC tidak populer atau bahkan tidak dikenal di Indonesia.πŸ˜€

Kebetulan saya lagi gemar mencoba dan membandingkan berbagai varian BASIC, baik interpreter maupun kompiler. Beberapa varian telah saya coba aplikasikan untuk keperluan interfacing, beberapa varian BASIC tersebut adalah: XBLite, FreeBASIC, dan ThinBASIC. Dan setelah beberapa hari mempelajari JustBASIC, menurut saya interpreter ini layak juga untuk dipertimbangkan sebagai alternatif bahasa pemrograman untuk keperluan interfacing dengan modul-modul driver relay, Starduino atau Arduino.

Dibanding varian yang lain, JustBASIC ini sangatlah terbatas fitur dan kemampuannya. Namun demikian, jika kita tidak membutuhkan akses ke sistem dan akses ke file-file DLL, maka JustBASIC dapat dijadikan pilihan karena JustBASIC ringkas, mudah dipelajari dan digunakan. Menurut pembuatnya, dibutuhkan pengalaman selama 31 tahun untuk menghasilkan LibertyBASIC dan JustBASIC yang mudah digunakan, berdaya guna tinggi dan menyenangkan.πŸ™‚

Installer JustBASIC berukuran cukup kecil, yakni cuma 2,6MB saja. Selain gratis, JustBASIC dapat digunakan untuk menghasilkan aplikasi standalone yang tentunya royalty free. Fasilitas untuk menghasilkan program GUI Windows yang disediakan JustBASIC sangatlah baik dan mudah. Kita tidak memerlukan GUI Visual Designer untuk menghasilkan program Windows yang mantap. Jamin!πŸ˜€

Namun demikian, untuk lebih memudahkan perancangan form aplikasi, JustBASIC menyediakan program FreeForm-J 1.0a. Sangat sederhana, tapi sangat membantu untuk mempercepat proses perancangan form aplikasi. Berikut adalah screenshot program FreeForm-J 1.0a.

image

Rancangan form aplikasi Simple Caller Log di atas jika dijalankan di JustBASIC akan menghasilkan tampilan sebagai berikut:

image

Tuh, lumayan banget kan?πŸ˜€

Dengan JustBASIC kita bisa membuat aplikasi-aplikasi sederhana dengan cepat, sehingga sangat cocok untuk kalangan hobi, akademisi, dan praktisi, baik pemula, menengah maupun profesional. JustBASIC layak digunakan!πŸ™‚

Nah, pada eksperimen ini kita akan membuat program JustBASIC untuk mengontrol nyala LED Pin-13 pada board Starduino atau Arduino. Komunikasi dilakukan melalui port serial RS232. Berikut adalah listing program JustBASIC-nya.

‘– Kontrol LED Pin-13 Pada Board Starduino/Arduino
‘– Chandra MDE – http://teknikelektrolinks.com
‘– 22/05/2013

    nomainwin

    UpperLeftX = int((DisplayWidth- 404)/2)
    UpperLeftY = int((DisplayHeight- 265)/2)
    WindowWidth = 400
    WindowHeight = 230

    portserial$ = "COM1"

    groupbox    #dlg.group1, "Port Serial:", 20, 15, 195, 58
    statictext  #dlg.label1, "Nomor Port:", 35, 40, 85, 20
    textbox     #dlg.tbPortSerial, 120, 36, 70, 25

    groupbox    #dlg.group2, "Kontrol:", 20, 85, 195, 60
    button      #dlg.LED13On, "LED ON", [LedOn], UL, 35, 105, 80, 28
    button      #dlg.LED13Off, "LED OFF", [LedOff], UL, 120, 105, 80, 28

    graphicbox  #dlg.gbox, 230, 20, 145, 125

    statictext  #dlg.about1, "By Chandra MDE – Teknik Elektro Links", 20, 160, 220, 15
    statictext  #dlg.about2, "http://teknikelektrolinks.com", 20, 175, 200, 20
    statictext  #dlg.about3, "[JustBasic 1.01]", 270, 170, 150, 20

    open "TELINKS – Kontrol LED-13 STARDUINO/ARDUINO" for dialog as #dlg
    print #dlg, "font Tahoma 9 bold"
    print #dlg.about1, "!font Tahoma 8 bold"
    print #dlg.about2, "!font Tahoma 8 bold"
    print #dlg.about3, "!font Tahoma 10 bold"
    portserial$ = "COM1"
    print #dlg.tbPortSerial, portserial$

    print #dlg.gbox, "home"
    print #dlg.gbox, "down"
    print #dlg.gbox, "fill black"
    print #dlg.gbox, "size 3"
    print #dlg.gbox, "color 200 200 200"
    print #dlg.gbox, "backcolor 100 0 0"
    print #dlg.gbox, "circlefilled 50"
    print #dlg.gbox, "flush"

[mainLoop]
    wait

[LedOn]
    Com = 16384
    print #dlg.tbPortSerial, "!contents? portserial$";
    oncomerror [PortSerialError]
    open portserial$ + ":9600,n,8,1,ds0,cs0,rs" for random as #hCom
    print #hCom, "111"
    close #hCom
    print #dlg.gbox, "home"
    print #dlg.gbox, "down"
    print #dlg.gbox, "fill black"
    print #dlg.gbox, "size 3"
    print #dlg.gbox, "color 200 200 200"
    print #dlg.gbox, "backcolor 255 0 0"
    print #dlg.gbox, "circlefilled 50"
    print #dlg.gbox, "flush"
    wait

[LedOff]
    Com = 16384
    print #dlg.tbPortSerial, "!contents? portserial$";
    oncomerror [PortSerialError]
    open portserial$ + ":9600,n,8,1,ds0,cs0,rs" for random as #hCom
    print #hCom, "000"
    close #hCom
    print #dlg.gbox, "home"
    print #dlg.gbox, "down"
    print #dlg.gbox, "fill black"
    print #dlg.gbox, "size 3"
    print #dlg.gbox, "color 200 200 200"
    print #dlg.gbox, "backcolor 100 0 0"
    print #dlg.gbox, "circlefilled 50"
    print #dlg.gbox, "flush"
    wait

[PortSerialError]
    notice "Error opening port "; portserial$
    wait

Program di atas akan menghasilkan tampilan sebagai berikut:

led13_justbasic_off led13_justbasic_on

Tampilan GUI di atas tidak dirancang menggunakan program FreeForm-J 1.0a, tapi langsung mengatur parameter-paramter masing-masing komponen. Selain komponen-komponen umum seperti label, textbox, dan button, program juga menampilkan graphicbox, yakni canvas untuk menggambar garis dan bentuk-bentuk seperti kotak dan lingkaran.

Tampilan GUI yang tidak mengecewakan, bukan?πŸ˜€

Program sederhana ini hanya berfungsi untuk mengirimkan data karakter β€œ1” ketika button LED ON ditekan dan mengirimkan data karakter β€œ0” ketika button LED OFF ditekan. Selain itu, program juga meng-update tampilan lingkaran berwarna merah sesuai dengan button yang ditekan.

Lalu bagaimana dengan komunikasi data serial RS232?

TenangπŸ™‚. JustBASIC memiliki rutin-rutin untuk menangani komunikasi data serial RS232 yang handal dan tentunya mudah digunakan. Jika Anda pernah mempelajari bahasa BASIC sebelumnya, maka tentunya tidak akan kesulitan membuat program dengan JustBASIC.

Untuk membuka port serial yang diinginkan, perintah yang digunakan adalah:

Open ”COM1:9600,8,n,1,ds0,cs0,rs” for random as #hCom

Dan setelah port berhasil dibuka, kita dapat mengirimkan karakter perintah LED ON dan LED OFF ke board Starduino/Arduino dengan perintah:

print #hCom, β€œ111” atau print #hCom, β€œ000”

Dan untuk menyambut data karakter dari program JustBASIC, berikut ini adalah skrip Arduino yang saya tulis menggunakan IDE Arduino 1.0.1.

image

Bagaimana, sangat mudah bukan?πŸ˜€

Jika Anda seorang pemula yang mungkin bingung mau menggunakan bahasa pemrograman apa untuk β€œmenjalin” komunikasi antara PC dengan board Starduino atau Arduino Anda, maka mungkin JustBASIC bisa menjadi alternatif yang mudah dan tentunya gratis.

Nah, selamat mencoba!πŸ˜€

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