MENGHITUNG VOLUME PRISMA SEGITIGA

MEMBUAT PROGRAM SEDERHANA

“MENGHITUNG VOLUME PRISMA SEGITIGA”

 

Jika kita ingin membuat sebuah program sederhana untuk menghitung “VOLUME PRISMA SEGITIGA”,maka langkah-langkah proses pembuatannya antara lain :

Langkah-1 :

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


Langkah-2 :

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

NO

FORM/OBYEK

PROPERTY

SETTING

1

FORM Name Frm_volume
Caption IDA AYU DINA APRIANI (1490)

2

Label 1 Caption MENGHITUNG VOLUME PRISMA SEGITIGA
Aligment 2-center
BackStyle 0 – Transparent
Font ALGERIAN , 22, BOLD
ForeColor System – Highlight

3

Label 2 Caption PANJANG
BackStyle 1 – Opaque
Font ALGERIAN, 22,BOLD
ForeColor System-Buttom text

4

Label 3 Caption LEBAR
BackStyle 1 – Opaque
Font ALGERIAN,22,BOLD
ForeColor System-Buttom text

5

Label 4 Caption TINGGI
BackStyle 1 – Opaque
Font ALGERIAN,22,BOLD
ForeColor System-Buttom text

6

Label 5 Caption MAKA VOLUMENYA ADALAH
BackStyle 1 – Opaque
Font ALGERIAN,22,BOLD
ForeColor System-Buttom text

7

Label 6 Name Lbl_coment
Aligment 2-center
BackStyle 1 – Opaque
Caption COMENT FOR ANSWER
Font ALGERIAN,22,BOLD
ForeColor System-Buttom text

8

Text1 Name Txt_bilsatu
Aligment 2-center
Font ALGERIAN,22,BOLD
Text <kosongkan>
BackColor Pallete – orange
ForeColor System-Buttom text

9

Text2 Name Txt_bildua
Aligment 2-center
Font ALGERIAN,22,BOLD
Text <kosongkan>
BackColor Pallete – orange
ForeColor System-Buttom text
10 Text3 Name Txt_biltiga
Aligment 2-center
Font ALGERIAN,22,BOLD
Text <kosongkan>
BackColor Pallete – orange
ForeColor System-Buttom text

11

Text4 Name Txt_bilhasil
Aligment 2-center
Font ALGERIAN,22,BOLD
Text <kosongkan>
BackColor Pallet-Hijau
ForeColor System-Buttom text

12

Image1 Name Img_balon
Picture (Bitmap)

13

Command1 Name cmd_start
Caption START
Font ALGERIAN,22,BOLD

14

Command2 Name cmd_corection
Caption CORECTION
Font ALGERIAN,22,BOLD

15

Command3 Name cmd_again
Caption AGAIN
Font ALGERIAN,22,BOLD

16

Command4 Name cmd_finish
Caption FINISH
Font ALGERIAN,22,BOLD

 

Langkah-3 :

Ketikkan kode program sebagai berikut :

Option Explicit

Public Bil_1, BIL_2, BIL_3, JAWABAN, JUMLAH As Integer

Private Sub cmd_start_Click()

Randomize

Bil_1 = Int(Rnd * 10) + 1

BIL_2 = Int(Rnd * 10) + 1

BIL_3 = Int(Rnd * 10) + 1

Txt_bilsatu.Text = Bil_1

Txt_bildua.Text = BIL_2

Txt_biltiga.Text = BIL_3

Txt_bilhasil.SetFocus

cmd_start.Enabled = False

End Sub

Private Sub Cmd_corection_Click()

JUMLAH = Bil_1 * BIL_2 * BIL_3 / 2

JAWABAN = Val(Txt_bilhasil.Text)

If JAWABAN = JUMLAH Then

Lbl_COMENT.Caption = “GOOD ANSWER, YOUR ANSWER IS RIGHT”

Else

Lbl_COMENT.Caption = “BAD ANSWER, THE RIGHT ANSWER IS ” & JUMLAH

End If

End Sub

Private Sub cmd_again_Click()

Randomize

Bil_1 = Int(Rnd * 10) + 1

BIL_2 = Int(Rnd * 10) + 1

BIL_3 = Int(Rnd * 10) + 1

Txt_bilsatu.Text = Bil_1

Txt_bildua.Text = BIL_2

Txt_biltiga.Text = BIL_3

Txt_bilhasil.Text = Empty

Lbl_COMENT.Caption = Empty

Txt_bilhasil.SetFocus

End Sub

Private Sub cmd_finish_Click()

End

End Sub

Langkah -4

Jika kode yang dimasukan telah sesuai, maka hasil yang diperoleh akan seperti gambar dibawah ini :

Untuk menjalankan progam ini,maka ikutilah langkah-langkah berikut ini :

1. Klik Start,maka secara otomatis akan muncul angka pada label panjang,lebar dan tinggi.

2. Lalu silahkan anda tulis jawaban anda pada “maka volumenya adalah

3. Selanjutnya klik corection untuk mengoreksi jawaban anda

4. Setelah itu,maka pada label coment for answer akan diberikan komentar tentang jawaban anda,jika jawaban anda benar,maka akan muncul tulisan Good answer,yor answer is right.dan jika jawaban anda salah akan muncul tulisan bad answer,the right answer is….

5. Jika anda ingin mencoba soal yang lain,anga tinggal klik AGAIN.

6. Jika ingin berhenti atau selesai klik FINISH

SELAMAT MENCOBA.UNTUK MENDAPATKAN EXENYA SILAHKAN  klik di sini

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