Membuat Aplikasi Win32 GUI Dengan FreeBASIC – Lumayan!!


freebasic

FreeBASIC merupakan salah satu kompiler bahasa BASIC gratis atau freeware yang banyak menarik minat pecinta bahasa BASIC. Selain gratis, FreeBASIC juga tersedia untuk platform Win32, Linux, dan DOS.

Selain FreeBASIC, banyak sekali kompiler dan interpreter berdialek BASIC yang gratis. Sebut saja XBLite, XBASIC, QB64, Gambas, SmallBASIC, dan masih banyak lagi yang lain.

Saya pribadi sangat menyukai bahasa pemrograman BASIC karena lebih mudah dikuasai. Selain lebih mudah dikuasai, BASIC adalah bahasa pemrograman yang pertama kali saya pelajari. Pada masa SMA dulu, saya belajar pemrograman menggunakan interpreter GW-BASIC dan kompiler Borland TURBO BASIC. Komputer yang saya miliki saat itu adalah PC AT-286.🙂

Dari berbagai kompiler BASIC freeware yang ada, saya memilih XBLite dan FreeBASIC. XBLite adalah versi Win32 dari XBASIC dengan berbagai pengembangan dan efisiensi untuk menghasilkan file aplikasi Win32 yang optimal dari segi ukuran dan kecepatan proses. Berikut adalah beberapa latihan program yang telah saya buat menggunakan XBLite. Klik pada gambar untuk menuju link tulisan selengkapnya dari masing-masing contoh program.

XBLite sangat potensial, namun sayang popularitasnya kurang bagus.

Nah, sekarang mari kita kembali ke FreeBASIC.

FreeBASIC memiliki beberapa IDE pendukung yang dapat digunakan, yakni antara lain:

Saya menggunakan FBedit karena lebih lengkap dan memiliki fasilitas untuk membuat project Windows GUI lengkap dengan visual designer meskipun tidak secanggih Lazarus.

demo_freebasic

Untuk mencoba-coba FreeBASIC, saya membuat sebuah aplikasi sederhana yakni penjumlahan 2 bilangan bulat. Pada screenshot di samping, program menghitung nilai penjumlahan dari bilangan 54 dan –12 yang hasilnya adalah 42.

Dengan FreeBASIC, kita bisa mendapatkan berbagai kemudahan yang ditawarkan oleh bahasa BASIC dan menggunakan Windows API untuk mengakses fungsi-fungsi Windows seperti layaknya bahasa C. Berikut adalah listing program aplikasi DEMO PENJUMLAHAN dalam bahasa FreeBASIC.

LISTING PROGRAM FILE ADDITION.BAS

#Include Once "windows.bi"

#Include "Addition.bi"

Declare Function DlgProc(ByVal hWin As HWND, ByVal uMsg As UINT, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As Integer

”’
”’ Program start
”’

    ”
    ” Create the Dialog
    ”
    hInstance=GetModuleHandle(NULL)
    DialogBoxParam(hInstance, Cast(ZString Ptr,IDD_DLG1), NULL, @DlgProc, NULL)
    ”
    ” Program has ended
    ”

    ExitProcess(0)
    End

”’
”’ Program end
”’
Function DlgProc(ByVal hWin As HWND,ByVal uMsg As UINT,ByVal wParam As WPARAM,ByVal lParam As LPARAM) As Integer
    Dim As Long id, Event, x, y
    Dim hBtn As HWND
    Dim rect As RECT
    Dim A As Integer
    Dim B As Integer
    Dim C As Integer
    Select Case uMsg
        Case WM_CLOSE
            EndDialog(hWin, 0)
        Case WM_COMMAND
            id=LoWord(wParam)
            Event=HiWord(wParam)
            Select Case id
                Case IDC_BTN1
                    EndDialog(hWin, 0)
                Case IDC_BTN_ADD
                    A = GetDlgItemInt(hWin, IDC_EDT_A, NULL, 10)
                    B = GetDlgItemInt(hWin, IDC_EDT_B, NULL, 10)
                    C = A + B
                    SetDlgItemInt(hWin, IDC_EDT_C, C, TRUE)
                    ‘
            End Select
        Case Else
            Return FALSE
    End Select
    Return TRUE

End Function

Untuk program selengkapnya dapat Anda download melalui link berikut ini:

ADDITION.ZIP
(~20KB)

Dengan pengguna yang sangat banyak dan forum yang ramai, FreeBASIC merupakan alternatif development tools untuk mengembangkan aplikasi desktop baik CONSOLE maupun GUI untuk platform Windows, Linux, dan DOS.

Demikian sekelumit informasi yang bisa saya bagikan. Semoga bermanfaat.

Selamat belajar dan selamat berkarya!

🙂

2 comments

  1. Ricky · Maret 30, 2013

    Info yang berguna… Apakah di FreeBasic ini ada library untuk bisa berkomunikasi dengan mikrokontroler?

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