Latihan_07_36110046

Deskripsi & Prosedur Form Latihan_07_36110046

Deskripsi Form Latihan_07_36110046

 

Gambar (1)

Form Latihan 07 terdapat tiga object, yaitu label, textbox, dan button.

Object Label

Terdapat 2 objek label (seperti yang terlihat pada gambar di atas)

Object Textbox

Terdapat 30 objek textbox (seperti yang terlihat pada gambar di atas)

Object Button

Terdapat 3 objek button (seperti yang terlihat pada gambar di atas)

Script Unique

Membuat prosedur sendiri

Private Sub Qipe ( )

Textbox.text=val(textbox1.text)+val(textbox2.text)

End sub

Memanggil prosedur

Qipe  ()

Event

Button Click

Property

Readonly

Prosedur Form Latihan_07_36110046

Gambar (2)

Langkah-langkah mengerjakan Latihan 7, sbb:

1.    Buka Ms. Visual Studio

2.    Klik Create Project

3.    Ketik nama file yang ingin disimpan

4.    Akan terbuka jendela pekerjaan Ms. Visual Studio

5.    Design form dengan menggunakan tools pada toolbox

6.    Buat text pada form dengan menggunakan label, al:

a.    “Masukkan Angka”

b.    “Hasil Perhitungan”

7.    Buat kolom sesuai dengan design pada latihan 7 dengan textbox, kolom sebanyak 30

a.    Kolom 1 diberi nama “A1_36110046”

b.    Kolom 2 diberi nama “A2_36110046”

c.    Kolom 3 diberi nama “A3_36110046”

(berurut nama kolom sampai kolom 30)

d.   Kolom 29 diberi nama “A29_36110046”

e.    Kolom 30 diberi nama “A30_36110046”

8.    Buat 3 tombol sesuai dengan design pada latihan 7 dengan button. Button berisi tulisan “HITUNG 1”,”HITUNG 2”, dan “HITUNG 3”

9.      Setelah design sudah bagus, saatnya untuk membuat script

10.  Buat sript dengan mengklik dua kali pada button “HITUNG 1”

11.  Buka jendela script dengan cara klik kanan pada form dan pilih “view code”

12.  Setelah jendela skrip muncul, saatnya membuat skrip prosedur sendiri. Ketik skrip seperti dibawah ini:

13.  Setelah itu kembali ke jendela form dan klik 2 kali tombol “HITUNG 1”

14.  Setelah jendela skrip muncul, buat skrip sbb:

A6_36110046.Text = Val(A1_36110046.Text) + Val(A2_36110046.Text) + Val(A3_36110046.Text)

  + Val(A4_36110046.Text) + Val(A5_36110046.Text)

A7_36110046.Text = Val(A1_36110046.Text) + Val(A2_36110046.Text) + Val(A3_36110046.Text)

  + Val(A4_36110046.Text)

QIPE()

A29_36110046.Text = Val(A1_36110046.Text) + Val(A2_36110046.Text) + Val(A3_36110046.Text)

A30_36110046.Text = Val(A3_36110046.Text) + Val(A4_36110046.Text)

15.  Lakukan langkah seperti “HITUNG 1” untuk “HITUNG 2”. Skrip sbb:

A6_36110046.Text = Val(A1_36110046.Text) - Val(A2_36110046.Text) - Val(A3_36110046.Text)     

    - Val(A4_36110046.Text) - Val(A5_36110046.Text)

A7_36110046.Text = Val(A1_36110046.Text) - Val(A2_36110046.Text) - Val(A3_36110046.Text)

    - Val(A4_36110046.Text)

QIPE()

A29_36110046.Text = Val(A2_36110046.Text) - Val(A3_36110046.Text) –

     Val(A4_36110046.Text)

A30_36110046.Text = Val(A3_36110046.Text) - Val(A4_36110046.Text)

16.  Lakukan langkah seperti “HITUNG 1” untuk “HITUNG 3”. Skrip sbb:

A6_36110046.Text = Val(A1_36110046.Text) / Val(A2_36110046.Text) * Val(A3_36110046.Text)

    + Val(A4_36110046.Text)

A7_36110046.Text = Val(A1_36110046.Text) / Val(A2_36110046.Text) * Val(A3_36110046.Text)

    / Val(A5_36110046.Text)

QIPE()

A29_36110046.Text = Val(A3_36110046.Text) / Val(A4_36110046.Text) /

     Val(A5_36110046.Text) / Val(A3_36110046.Text)

A30_36110046.Text = Val(A1_36110046.Text) * Val(A2_36110046.Text) *   Val(A3_36110046.Text) * Val(A4_36110046.Text) * Val(A5_36110046.Text)

17.  Silahkan jalankan program anda. Wassalam.