Latihan_09_36110046

Deskripsi & Prosedur Form Latihan_09_36110046

Deskripsi Form Latihan_09_36110046

Gambar (1)

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

Object Label

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

Object Textbox

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

Object Button

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

Script Unique

Membuat prosedur sendiri dengan variabel

Private Sub Qipe (ByVal A As TextBox, ByVal B As TextBox)

B.text = Val (A.text) / 3

End sub

Event

Button Click

Property

Readonly

Prosedur Form Latihan_09_36110046

 Gambar (2)

Langkah-langkah mengerjakan Latihan 9, 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, seperti pada gambar

7.    Buat kolom sesuai dengan design pada latihan 9 dengan textbox, ikuti gambar dibawah ini:

Gambaar (3)

8.    Buat tombol sesuai dengan design pada latihan 9 dengan button.

9.    Setelah design sudah bagus, saatnya untuk membuat script

10.  Buat script prosedur sendiri seperti dibawah ini:

Private Sub Qipe(ByVal A As TextBox, ByVal B As TextBox, ByVal C As TextBox, ByVal D As TextBox, ByVal F As TextBox, ByVal G As TextBox, ByVal H As TextBox, ByVal I As TextBox)

If 1.2 * (Val(B.Text) / Val(A.Text)) + 1.4 * (Val(D.Text) / Val(A.Text)) + 3.3 * (Val(F.Text) / Val(A.Text)) + 0.6 * (Val(G.Text) / Val(H.Text)) >= 3.3 Then

         I.Text = "SEHAT"

     ElseIf 1.2 * (Val(B.Text) / Val(A.Text)) + 1.4 * (Val(D.Text) / Val(A.Text)) + 3.3 * (Val(F.Text) / Val(A.Text)) + 0.6 * (Val(G.Text) / Val(H.Text)) >= 1.81 Then

         I.Text = "WASPADA"

     ElseIf 1.2 * (Val(B.Text) / Val(A.Text)) + 1.4 * (Val(D.Text) / Val(A.Text)) + 3.3 * (Val(F.Text) / Val(A.Text)) + 0.6 * (Val(G.Text) / Val(H.Text)) >= 0 Then

         I.Text = "MENGALAMI KESULITAN"

     Else : I.Text = ""

     End If

11.  Kembali ke jendela form dan buat script dengan mengklik dua kali pada tombol “Analisa”

12.  Setelah jendela skrip muncul, ketik script seperti di bawah ini:

Qipe(TA1_36110046, MK1_36110046, PJ1_36110046, LD1_36110046, E1_36110046,   

     HPE1_36110046, NBH1_36110046, KET1_36110046)

Qipe(TA2_36110046, MK2_36110046, PJ2_36110046, LD2_36110046, E2_36110046,

     HPE2_36110046, NBH2_36110046, KET2_36110046)

Qipe(TA3_36110046, MK3_36110046, PJ3_36110046, LD3_36110046, E3_36110046,

     HPE3_36110046, NBH3_36110046, KET3_36110046)

13.  Silahkan jalankan program anda. Wassalam.