Download software perangkat lunak dan driver. Find a great range of driver downloads for free. Free full version crack software for all types of operating systems such as windows and others including drivers.

Diberdayakan oleh Blogger.

Selasa, 23 Juni 2015

Tutorial Gambas : Cara Membuat Kalkulator Sederhana

0 comments

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 :)

  1. Buka Aplikasi Gambas.
  2. Pilih Proyek baru ...
  3.  Pilih vb dan Next
  4. Pilih Folder penyimpanan
  5. Ketik Nama Project anda.
  6. Klik Ok dan succes.
  7. Lembar project baru muncul dan siap anda membuatnya.
  8. Klik ganda pada FMain. Maka akan muncul lembar form baru.
  9. Desain Formnya seperti ini.
  10. 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.
  11. Kita Mulai membuat Scriptnya.
  12. ' 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

  13. Jika sudah, Kita Run.
  14. Sudah Jadi, Semoga Berhasil
Semoga Bermanfaat.
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

Tidak ada komentar:

Posting Komentar