Gambas Adalah aplikasi development Linux pengganti Visual Basic di Windows.
Saya asumsikan anda sudah mempunyai gambas, jika belum, nanti saya buatkan posting cara untuk mendownload gambas.
Tutorial kali ini kita akan mencoba membuat kalkulator sederhana yang screenshootnya seperti gambar diatas.Itu asli buatan saya. asli dua kelinci :)
- Buka Aplikasi Gambas.
- Pilih Proyek baru ...
- Pilih vb dan Next
- Pilih Folder penyimpanan
- Ketik Nama Project anda.
- Klik Ok dan succes.
- Lembar project baru muncul dan siap anda membuatnya.
- Klik ganda pada FMain. Maka akan muncul lembar form baru.
- Desain Formnya seperti ini.
- Ada 4 Label, yang saya rubah namanya hanya LblHasil(menampilkan hasil perhitungan) 2 TextBox masing masing namanya TxtBil1 & TxtBil2, OptButton ada 4, OptKali, OptBagi, OptTambah, OptKurang, 3 Command Button antara lain CmdHitung, CmdClear & CmdKeluar.
- Kita Mulai membuat Scriptnya.
- Jika sudah, Kita Run.
- Sudah Jadi, Semoga Berhasil
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' Gambas class file | |
PUBLIC FUNCTION TidakSiapIsi() | |
LblHasil.Caption = "" | |
END | |
PUBLIC SUB CmdHitung_Click() | |
DIM xBil1 AS Integer | |
DIM xBil2 AS Integer | |
DIM xHasil AS Integer | |
xBil1 = TxtBil1.Text | |
xBil2 = TxtBil2.Text | |
IF OptKali.Value = TRUE THEN | |
xHasil = xBil1 * xBil2 | |
ELSE IF OptBagi.Value = TRUE THEN | |
xHasil = xBil1 / xBil2 | |
ELSE IF OptTambah.Value = TRUE THEN | |
xHasil = xBil1 + xBil2 | |
ELSE IF OptKurang.Value = TRUE THEN | |
xHasil = xBil1 - xBil2 | |
ENDIF | |
LblHasil.Caption = xHasil | |
END | |
PUBLIC FUNCTION FormKosong() | |
TxtBil1.Text = "" | |
TxtBil2.Text = "" | |
OptKali.Value = TRUE | |
LblHasil.Caption = "" | |
END | |
PUBLIC SUB CmdClear_Click() | |
FormKosong | |
TidakSiapIsi | |
TxtBil1.SetFocus | |
END | |
PUBLIC SUB CmdKeluar_Click() | |
QUIT | |
END | |
PUBLIC SUB Form_Open() | |
TxtBil1.SetFocus | |
END |
Terimakasih Sudah Berkunjung
Google + : https://plus.google.com/u/0/+esaprasetio
Twitter : http://twitter.com/aphriell_art
IG : @aphriel_art
Blog :
aprilartwork.blogspot.com for my artwork
aphriellart.blogspot.com for some tutorial
Email : aphriellart@gmail.com