Nama            : Ni Luh Putu Astiti Rahayu

NPM                : 1447

Prodi              : Pendidikan Matematika

Semester       : VI

Tugas Tambahan – 01 : Komputer II

PROGRAM OPERASI HITUNG BILANGAN BULAT DENGAN VISUAL BASIC 6.0

            Berikut ini merupakan salah satu program matematika yang dapat dibuat mengunakan Visual Basic 6.0. Program tersebut adalah “PROGRAM OPERASI HITUNG BILANGAN BULAT”. Dengan tampilan akhir seperti gambar berikut ini.

Untuk mencoba program tersebut, silahkan klik link download dibawah ini.

Catatan :

file masih dalam bentuk .doc, setelah d download silahkan ubah eksistensinya menjadi .exe terlebih dahulu.

LANGKAH – LANGKAH MEMBUAT PROGRAM

Perlu diingat bahwa rumus jenis operasi bilangan bulat antara lain penjumlahan, pengurangan, perkalian, pembagian. Dari komponen tersebutlah kita akan dapat menentukan object – object yang diperlukan.

Berikut langkah – langkah pembuatan program sederhana “Program Operasi Hitung Bilangan Bulat” dengan menggunakan VB 6.0.

1.    Buka VB6 pilih Standard EXE, seperti tampilan dibawah ini:

Sehingga tampilannya menjadi sbb.

2.    Buat beberapa object yang diperlukan, antara lain :

Tempatkan 4 buah kontrol Label, 3 buah text, dan  6 buah  Command, 1 Frame, dengan tata letak sebagai berikut.

3.    Setelah semua object terpasang, edit beberapa dengan pengaturan properti sbb.

Nama Kontrol

Properti

Pengaturan

Form1 CaptionName Tugas Tambahan – 01 (Astiti Rahayu 1447)Frmlat_2
Label1 Caption Program Operasi Hitung Bilangan Bulat
Label2 Caption Bilangan Pertama
Label3 Caption Bilangan Kedua
Label4 Caption Hasil =
Text1 NameText Txtbil1Kosongkan
Text2 NameText Txtbil2Kosongkan
Text3 NameText TxthasilKosongkan
Frame1 Name Jenis Operasi
Command1 NameCaption Cmdtambah+
Command2 NameCaption Cmdkurang-
Command3 NameCaption CmdkaliX
Command4 NameCaption Cmdbagi:
Command4 NameCaption CmdhapusHAPUS
Command4 NameCaption CmdtutupTUTUP

Sehingga beberapa tampilannya berubah seperti berikut ini.

4.    Langkah Selanjutnya, penulisan kode program pada masing – masing tombol hitung  “ +, -, x, dan : “ .

a.   Pada Tombol Hitung “+”

Klik dua kali (doble click) kontrol cmdtambah  atau TOMBOL “+”, selanjutnya ketikkan kode program sebagai berikut :

Private Sub Cmdkurang_Click()

 

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Long

 

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 – Bil2)

  Txthasil.Text = Hasil

End Sub

b.   Pada Tombol Hitung “-”

Klik dua kali (doble click) kontrol cmdkurang  atau TOMBOL “-”, selanjutnya ketikkan kode program sebagai berikut :

Private Sub Cmdtambah_Click()

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Long

 

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 + Bil2)

  Txthasil.Text = Hasil

End Sub

c.   Pada Tombol Hitung “X”

Klik dua kali (doble click) kontrol cmdkali  atau TOMBOL “X”, selanjutnya ketikkan kode program sebagai berikut :

Private Sub Cmdkali_Click()

 

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Long

 

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 * Bil2)

  Txthasil.Text = Hasil

End Sub

d.   Pada Tombol Hitung “:”

Klik dua kali (doble click) kontrol cmdkali  atau TOMBOL “:”, selanjutnya ketikkan kode program sebagai berikut :

Private Sub Cmdbagi_Click()

  Dim Bil1, Bil2 As Integer

  Dim Hasil As Single

 

  Bil1 = Val(Txtbil1.Text)

  Bil2 = Val(Txtbil2.Text)

  Hasil = Val(Txthasil.Text)

 

  Hasil = (Bil1 / Bil2)

  Txthasil.Text = Hasil

 

End Sub

e.   Pada Tombol Hapus

Untuk kembali pada tampilan object, Klik menu View | Object, lalu klik dua kali (doble click) kontrol cmdhapus  atau TOMBOL HAPUS, selanjutnya ketikkan code program berikut :

Private Sub cmdbatal_Click()

 

  Txtbil1.Text = “”

  Txtbil2.Text = “”

  Txthasil.Text = “”

End Sub

f.     Pada Tombol Tutup

Seperti langkah di atas, Klik kembali menu View | Object, lalu klik dua kali (doble click) kontrol cmdtutup  atau TOMBOL TUTUP, selanjutnya ketikkan code program berikut :

Private Sub cmdtutup_Click()

  End

End Sub

 

 

5.    Selanjutnya, klik View | Object, untuk menjalankan program yang telah dibuat tekan F5 pada keyboard.

Sehingga muncul tampilan program yang siap dijalankan, ketik angka pada kotak “Bilangan Pertama dan Bilangan Kedua” sesuai keperluan, selanjutnya klik tombol HITUNG “ +, -, x, : ”, maka hasilnya akan muncul pada kotak HASIL, seperti berikut ini.

Menjadi sbb.

6.    Jika sudah dicoba dan hasilnya benar, selanjutnya project dapat disave dengan klik File | Save Project

7.    Dan untuk menyimpan program yang telah dibuat klik File | Make Project.

8.    Program siap dijalankan.

About astitirahayu

saia maHasiswa.. yang masiH daLam pRoses beLajar,, ,,tapiii,, memPunyai keinGinan kuAt unTuk biZa ,, ,tetap berusaha jaDi yg tErbaik tuK gapai miMpi.. ;,,keep smiLe,,

2 responses »

  1. Dewa Putu A.M. mengatakan:

    wow
    pnter buat program ya??

SiLahkaN koMentaR di bawah iNii khawand''....

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