Nama            : Ni Luh Putu Astiti Rahayu

NPM                : 1447

Prodi              : Pendidikan Matematika

Semester       : VI

Tugas Tambahan – 01 : Komputer II

PROGRAM UJI KEMAMPUAN BERHITUNG DENGAN VISUAL BASIC 6.0

            Berikut ini merupakan salah satu program yang dapat dimanfaatkan untuk mengetahui suatu tingkat kemampuan berhitung seseorang yang dibuat dengan mengunakan Visual Basic 6.0. Program tersebut saya beri nama “PROGRAM UJI KEMAMPUAN BERHITUNG”.Dengan tampilan akhir sbb.

Untuk mencoba program tersebut, silahkan klik link download  di bawah ini.

” DOWNLOAD PROGRAM “

Catatan :

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

Perlu diketahui dalam program ini akan diberikan komentar jika jawaban benar ataupun salah sebagai suatu penguatan bagi seseorang yang diuji. Dari komponen tersebutlah kita akan dapat menentukan objek – objek serta code – code 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 5 buah kontrol Label, 3 buah text, 4 buah  Command, 1 Picture dan 1 Frame dengan tata letak sebagai berikut.

 

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

NO

FORM/OBYEK

PROPERTY

SETTING

1

FORM

Name

Caption

Frmlat_3

Astiti Rahayu (1447)

2

Label 1

Caption

MENJUMLAHKAN DUA BILANGAN

Font

STENCIL, 16, REGULAR

ForeColor

Pallet-Hitam

3

Label 2

Caption

BILANGAN PERTAMA

Font

ELEPHANT, 10, REGULAR

ForeColor

Pallet-Biru

4

Label 3

Caption

BILANGAN KEDUA

Font

ELEPHANT, 10, REGULAR

ForeColor

Pallet-Biru

5

Label 4

Caption

JAWABAN

Font

BROADWAY, 14, OBLIQUE

ForeColor

Pallet-Merah

6

Label5

Name

Lbl_komentar

Caption

KOMENTAR TERHADAP JAWABAN

Font

BROADWAY, 16, REGULAR

BackColor

Pallet-Pink

7

Text1

Name

Txt_bilsatu

Font

Times New Roman, 14, Bold

Text

<kosongkan>

8

Text2

Name

Txt_bildua

Font

Times New Roman, 14, Bold

Text

<kosongkan>

9

Text3

Name

Txt_bilhasil

Font

Times New Roman, 14, Bold

Text

<kosongkan>

10

Image1

Name

Img_depan

Picture

<Bitmap>

Stretch

True

11

Frame1

Caption

PILIHAN

Font

Times New Roman, 12 , Bold

12

Command1

Name

cmd_mulai

Caption

MULAI

Font

Century Gothic, 11, Bold

13

Command2

Name

cmd_koreksi

Caption

KOREKSI

Font

Century Gothic, 11, Bold

14

Command3

Name

cmd_lagi

Caption

LAGI

Font

Century Gothic, 11, Bold

15

Command4

Name

cmd_selesai

Caption

SELESAI

Font

Century Gothic, 11, Bold

Sehingga beberapa tampilannya berubah seperti berikut ini.

 

4.    Langkah Selanjutnya, penulisan kode program pada masing – masing tombol Mulai, Koreksi, Lagi dan Selesai.

Namun, sebelumnya perhatikan code d bawah ini, setelah klik view – code. dan untuk kembali pada objek, klik view – object.

 

Option Explicit

Public Bil_1, BIL_2, JAWABAN, JUMLAH As Integer

Kemudian, ketikkan kode selanjutnya.

a.   Pada Tombol “MULAI”

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

 

Private Sub cmd_mulai_Click()

Randomize

Bil_1 = Int(Rnd * 100) + 1

BIL_2 = Int(Rnd * 100) + 1

txt_bilsatu.Text = Bil_1

txt_bildua.Text = BIL_2

txt_bilhasil.SetFocus

cmd_mulai.Enabled = False

End Sub

 

b.   Pada Tombol “KOREKSI”

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

Private Sub cmd_koreksi_Click()

JUMLAH = Bil_1 + BIL_2

JAWABAN = Val(Txt_bilhasil.Text)

If JAWABAN = JUMLAH Then

Lbl_komentar.Caption = “HOREEEE, JAWABAN ANDA BENAR”

Else

Lbl_komentar.Caption = “OOpss… JAWABAN ANDA SALAH, YANG BENAR ADALAH ” & JUMLAH

End If

End Sub

 

c.   Pada Tombol “LAGI”

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

 

Private Sub cmd_lagi_Click()

Randomize

Bil_1 = Int(Rnd * 200) + 1

BIL_2 = Int(Rnd * 100) + 1

Txt_bilsatu.Text = Bil_1

Txt_bildua.Text = BIL_2

Txt_bilhasil.Text = Empty

Lbl_komentar.Caption = ” Ayoo… JAWAB LAGI !! “

Txt_bilhasil.SetFocus

End Sub

 

d.   Pada Tombol “SELESAI”

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

 

Private Sub cmd_selesai_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, klik tombol MULAI sehingga muncul bilangan pertama dan kedua.

 

Selanjutnya ketik jawaban yang menurut kamu benar, kemudian klik tombol KOREKSI, Akan diketahui apakah jawaban kamu benar atau salah. Dan akan muncul komentar pada kotak komentar di bawah.

 

6.    Jika ingin melanjutkan, klik tombol LAGI sehingga akan muncul angka baru pada bilangan pertama dan kedua. Dan begitu seterusnya.

7.    Klik tombol selesai untuk menutup program.

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

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

10.    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,,

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