RSS

MEMBUAT PROGRAM MENGHITUNG PERPANGKATAN BILANGAN BULAT

08 Mei

MEMBUAT PROGRAM MENGHITUNG PERPANGKATAN BILANGAN BULAT

 

Program ini dibuat untuk membantu kita dalam mencari nilai-nilai perpangkatan. Dengan program ini diharapkan dapat membantu mencari nilai-nilai perpangkatan.

                                                                                                                                                                                                                                                                                                           

Langkah-1 :

Masukkan Obyek yang diperlukan ke dalam form, seperti gambar berikut :

 

Langkah-2 :

Aturlah Properti masing-masing Form/Obyek yang dipergunakan, dengan minimal memuat pengaturan sebagai berikut :

NO

FORM/OBYEK

PROPERTY

SETTING

1

FORM Name Frm_pangkat
Caption I GST AYU EKA ANGGARAENI (1432)

2

Label 1 Caption PERPANGKATAN BILANGAN BULAT
Font Kristen ITC, 18, Bold
ForeColor Pallet-Black

3

Label 2 Caption BILANGAN POKOK
Font Kristen ITC, 12, Bold
ForeColor Pallet-purple

4

Label 3 Caption PANGKAT
Font Kristen ITC, 12, Bold
ForeColor Pallet-purple

5

Label 4 Caption JAWABAN
Font Kristen ITC, 12, Bold
ForeColor Pallet-purple

6

Label5 Name Lbl_komentar
Caption KOMENTAR TERHADAP JAWABAN
Font Kristen ITC, 12, Bold
BackColor Pallet-Black

7

Text1 Name Txt_bilsatu
Font Kristen ITC, 12, Bold
Text <kosongkan>

8

Text2 Name Txt_bildua
Font Kristen ITC, 12, Bold
Text <kosongkan>

9

Text3 Name Txt_bilhasil
Font Kristen ITC, 12, Bold
Text <kosongkan>

10

Image1 Name Img_depan
Picture <Loadpicture>
Stretch True

11

Image2 Name Img_belakang
Picture <Loadpicture>
Stretch True

12

Image3 Name Img_depan
Picture <Loadpicture>
Stretch True

13

Command1 Name cmd_mulai
Caption MULAI
Font Kristen ITC, 12, Bold

14

Command2 Name cmd_koreksi
Caption KOREKSI
Font Kristen ITC, 12, Bold

15

Command3 Name cmd_lagi
Caption LAGI
Font Kristen ITC, 12, Bold

16

Command4 Name cmd_selesai
Caption SELESAI
Font Kristen ITC, 12, Bold

 

Langkah-3 :

Ketikkan code program sebagai berikut :

 

Option Explicit

Public Bil_1, BIL_2, JAWABAN, JUMLAH As Integer

Private Sub Cmd_mulai_Click()

Randomize

Bil_1 = Int(Rnd * 10) + 1

BIL_2 = Int(Rnd * 5) + 1

Txt_bilsatu.Text = Bil_1

Txt_bildua.Text = BIL_2

Txt_bilhasil.SetFocus

Cmd_mulai.Enabled = False

End Sub

Private Sub cmd_koreksi_Click()

JUMLAH = Txt_bilsatu ^ Txt_bildua

JAWABAN = Val(Txt_bilhasil.Text)

If JAWABAN = JUMLAH Then

Lbl_komentar.Caption = “HORE,,,,, JAWABAN ANDA BENAR ”

Else

Lbl_komentar.Caption = ” JAWABAN SALAH,,,,, YANG BENAR ADALAH ” & JUMLAH

End If

End Sub

Private Sub Cmd_lagi_Click()

Randomize

Bil_1 = Int(Rnd * 10) + 1

BIL_2 = Int(Rnd * 5) + 1

Txt_bilsatu.Text = Bil_1

Txt_bildua.Text = BIL_2

Txt_bilhasil.Text = Empty

Lbl_komentar.Caption = Empty

Txt_bilhasil.SetFocus

End Sub

Private Sub Cmd_selesai_Click()

End

End Sub

Langkah-4:

 

Kita juga dapat menambahkan warna dengan mengklik Forecolor dan juga kita bisa menambahkan gambar untuk mempercantik tampilan. Dan jika semua kode telah dimasukkan dan tampilan telah dihias, maka akan diperoleh hasil seperti tampilan dibawah ini:

Untuk mendapatkan program ini, silakan Donload di sini

 
Tinggalkan komentar

Ditulis oleh pada Mei 8, 2012 in TUGAS

 

Tinggalkan Balasan

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

 
%d blogger menyukai ini: