Jaranguda

Belajar Mengajar

Gambas

Menampilkan Gambar dengan Gambas

Last Updated on By Leave a Comment

Buat design aplikasi yang akan kita buat seperti gambar dibawah ini
menampilkan gambar dengan gambas

Komponen yang digunakan Button dan PictureBox. Ubah text pada button menjadi Pilih, lalu klik dua kali pada tombol pilih tersebut, tambahkan script dibawah ini

Dim pic As Picture
dialog.Path = "/home/tommy/Pictures"
If dialog.OpenFile() Then Return
pic = New Picture
pic.Load(dialog.Path)
PictureBox1.Picture = Picture[Dialog.Path]

/home/tommy/Pictures adalah letak file-file gambar anda.
Lalu jalankan program dengan mengekan tombol F5 di keyboard
design gambar gambas

klik tombol pilih, lalu pilih salah satu gambar, dah hasilnya akan seperti gambar dibawah ini
hasil gambar dengan gambas

Download

Download “Gambas Picture”

GambasPicture-0.0.1.tar.gz – Downloaded 1261 times – 178.00 B

Program Menghitung Nilai Mahasiswa dengan Gambas

Last Updated on By Leave a Comment

Kali ini kita akan mencoba membuat program untuk menghitung nilai mahasiswa dengan aturan sebagai berikut
Nilai Total = Nilai Tugas + Nilai UTS + Nilai UAS
Nilai Akhir = Nilai Total dibagi 3 (Nilai Total/3)

Buat design form seperti gambar dibawah ini
design program menghitung nilai mahasiswa

Klik dua kali pada tombol Hitung lalu tambahkan script dibawah ini

 Dim UT As Integer
  Dim UTS As Integer
  Dim UAS As Integer
  Dim nilaitotal As Integer
  Dim nilaiakhir As Integer
 
  ' menghitung nilai total dengan rumus Nilai Tugas + Nilai UTS + Nilai UAS
  UT = TextBox2.Text
  UTS = TextBox3.Text
  UAS = TextBox4.Text
  nilaitotal = UT + UTS + UAS
  TextBox5.Text = nilaitotal
 
  ' Menghitung nilai akhir dengan rumus nilaitotal/3
  nilaiakhir = nilaitotal / 3
  TextBox6.Text = nilaiakhir
 
  ' Menerjemahkan hasil akhir kedalam huruf dengan aturan
  ' 
  If nilaiakhir >= 80 Then
    TextBox7.Text = "A"
    Label8.Caption = "Lulus"
  Else If nilaiakhir >= 70 Then
    TextBox7.Text = "B"
    Label8.Caption = "Lulus"
  Else If nilaiakhir >= 50 Then
    TextBox7.Text = "C"
    Label8.Caption = "Lulus"
  Else If nilaiakhir >= 35 Then
    TextBox7.Text = "D" 
    Label8.Caption = "Lulus"
  Else
    TextBox7.Text = "E"
    Label8.Caption = "Tidak Lulus"
  Endif

kembali ke design form, klik dua kali di tempat kosong lalu tambahkan script dibawah ini

TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox4.Clear
TextBox5.Clear
TextBox6.Clear
TextBox7.Clear
Label8.Caption = ""

Klik dua kali pada tombol Batal dan tambahkan script dibawah ini

' Gambas class file
 
Public Sub _new()
 
End
 
Public Sub Form_Open()
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox4.Clear
TextBox5.Clear
TextBox6.Clear
TextBox7.Clear
Label8.Caption = ""
End
 
Public Sub Button1_Click()
 
  Dim UT As Integer
  Dim UTS As Integer
  Dim UAS As Integer
  Dim nilaitotal As Integer
  Dim nilaiakhir As Integer
 
  ' menghitung nilai total dengan rumus Nilai Tugas + Nilai UTS + Nilai UAS
  UT = TextBox2.Text
  UTS = TextBox3.Text
  UAS = TextBox4.Text
  nilaitotal = UT + UTS + UAS
  TextBox5.Text = nilaitotal
 
  ' Menghitung nilai akhir dengan rumus nilaitotal/3
  nilaiakhir = nilaitotal / 3
  TextBox6.Text = nilaiakhir
 
  ' Menerjemahkan hasil akhir kedalam huruf dengan aturan
  ' 
  If nilaiakhir >= 80 Then
    TextBox7.Text = "A"
    Label8.Caption = "Lulus"
  Else If nilaiakhir >= 70 Then
    TextBox7.Text = "B"
    Label8.Caption = "Lulus"
  Else If nilaiakhir >= 50 Then
    TextBox7.Text = "C"
    Label8.Caption = "Lulus"
  Else If nilaiakhir >= 35 Then
    TextBox7.Text = "D" 
    Label8.Caption = "Lulus"
  Else
    TextBox7.Text = "E"
    Label8.Caption = "Tidak Lulus"
  Endif
End
 
Public Sub Button2_Click()
 
TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox4.Clear
TextBox5.Clear
TextBox6.Clear
TextBox7.Clear
Label8.Caption = ""
 
End

Jalankan program diatas dengan menekan tombol F5 di keyboard, tampilannya akan seperti gambar dibawah ini
menghitung nilai mahasiswa

menghitung nilai mahasiswa

menghitung nilai mahasiswa lulus

menghitung nilai mahasiswa tidak lulus

Download

Download “Menghitung nilai mahasiswa”

nilaimahasiswa-0.0.1.tar.gz – Downloaded 1547 times – 178.00 B

Menghitung Total Gaji dengan Gambas

Last Updated on By Leave a Comment

Buat project baru (CTRL + N), namakan gajikaryawan, lalu design formnya seperti gambar dibawah ini
hitunggaji

setelah selesai membuat design seperti gambar diatas, klik dua kali pada tombol hitung lalu tambah script dibawah ini

Public Sub Button1_Click()
Dim gaji As String
Dim pajak As String
Dim total As String
 
  gaji = TextBox1.Text
  pajak = 0.1 * gaji
  total = gaji - pajak
  TextBox2.text = pajak
  Label4.Caption = total
 
End

pajak kita hitung 10% dari gaji total.

tekan tombol F5 di keyboard untuk menjalankan program
hasil hitung gaji

Download :

Download “Hitung Total Gaji - Gambas”

totalbarang-0.0.1.tar.gz – Downloaded 1304 times – 178.00 B

Membuat Program Launcher dengan Gambas

Last Updated on By Leave a Comment

Komponen yang akan digunakan untuk membuat program launcher di Gambas adalah button. Buat project baru dengan menekan tombol ctrl + N di Gambas, lalu buat design seperti gambas dibawah ini, property yang diubah hanya pada Text
program launcher gambas3

Sekarang waktunya untuk menambahkan perintah untuk mengeksekusi bisa tombol diklik, klik dua kali pada tombol Firefox, lalu tambahkan

shell "firefox"

sehingga lengkapnya menjadi

Public Sub Button1_Click()
Shell "firefox"
End

Google Chrome

Public Sub Button2_Click()
 
  Shell "google-chrome"
 
End

VLC

Public Sub Button3_Click()
 
  Shell "vlc"
 
End

Gambas3

Public Sub Button4_Click()
 
  Shell "gambas3"
 
End

XChat

Public Sub Button5_Click()
 
  Shell "xchat"
 
End

Calculator

Public Sub Button6_Click()
 
  Shell "gcalctool"
 
End

Untuk beberapa aplikasi seperti XChat, Gambas3 dan VLC sebelumnya harus diinstal di komputer anda, apabila belum terinstall aplikasi tersebut tidak akan terbuka.

Instalasi Gambas 3.3.3 di Fedora 17

Last Updated on By Leave a Comment

Gambas 3.3.3 dirilis pada 10 Oktober 2012, sampai saat ini Gambas versi terbaru ini belum terdapat di repository Fedora, maka kita akan meng-compile langsung dari source Gambas 3.3.3. Sebelum memulai kompilasi, install terlebih dahulu software tambahan di bawah ini:
Kompiler dan library yang dibutuhkan

yum groupinstall "Development Tools" "Development Libraries";

Aplikasi yang dibutuhkan oleh gambas, 3rd party dll

yum install cairo-devel libsqlite3x-devel sqlite2-devel gtk2-devel gtkglext-devel imlib2-devel librsvg2-devel poppler-devel qt-devel libv4l-devel SDL-devel SDL_sound-devel SDL_ttf-devel SDL_net-devel SDL_mixer-devel SDL_image-devel SDL_gfx-devel SDL_Pango-devel firebird-libfbclient unixODBC-devel postgresql-devel libXtst-devel mysql-devel pcre-devel mesa-libGLU-devel mesa-libGLw-devel mesa-libGL-devel glew-devel firebird-devel dbus-devel libzip libzip-devel bzip2-devel libcurl-devel qt-webkit-devel libxml2-devel libxslt-devel libv4l-devel libjpeg-turbo-devel ncurses-devel gsl-devel libXtst-devel gstreamer-devel gstreamer-plugins-base-devel

Download source gambas dari situs Gambas, filenya bernama gambas3-3.3.3.tar.bz2
ekstrak file tersebut dengan cara

tar -xjf gambas3-3.3.3.tar.bz2

lalu berpindah ke folder gambas3-3.3.3

cd gambas3-3.3.3

eksekusi perintah dibawah ini untuk mulai proses kompilasi

reconf-all
./configure
make

terakhir install gambas

make install

Membuat Aplikasi Aritmatika dengan Gambas3

Last Updated on By Leave a Comment

Setelah sebelumnya membuat Program Aritmatika dengan Delphi XE kali ini kita akan mengubah koding tersebut ke Gambas3.

Design form seperti gambar dibawah ini
design form gambas3

klik dua kali pada tombol kali dan tambahkan script dibawah ini

Dim angka1 As String
Dim angka2 As String
Dim hasil As String
 
  angka1 = TextBox1.Text
  angka2 = TextBox2.Text
  hasil = angka1 * angka2
  TextBox3.Text = hasil

klik dua kali pada tombol bagi dan tambahkan script dibawah ini

Dim angka1 As String
Dim angka2 As String
Dim hasil As String
 
  angka1 = TextBox1.Text
  angka2 = TextBox2.Text
  hasil = angka1 / angka2
  TextBox3.Text = hasil

klik dua kali pada tombol tambah dan tambahkan script dibawah ini

Dim angka1 As String
Dim angka2 As String
Dim hasil As String
 
  angka1 = TextBox1.Text
  angka2 = TextBox2.Text
  hasil = angka1 + angka2
  TextBox3.Text = hasil

klik dua kali pada tombol kurang dan tambahkan script dibawah ini

Dim angka1 As String
Dim angka2 As String
Dim hasil As String
 
  angka1 = TextBox1.Text
  angka2 = TextBox2.Text
  hasil = angka1 - angka2
  TextBox3.Text = hasil

klik dua kali pada tombol clear dan tambahkan script dibawah ini

  TextBox1.Clear
  TextBox2.Clear
  TextBox3.clear

jalankan program dengan menekan tombol F5, hasil eksekusi program aritmatika tersebut kurang lebih seperti gambar dibawah ini
hasil eksekusi aritmatika gambas

Download :

Download “Aritmatika Gambas”

Aritmatika-0.0.1.tar.gz – Downloaded 2497 times – 178.00 B