Latihan 09_36110055

PROSEDUR LATIHAN 9:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat text dengan menggunakan label pada toolbox

Ø  Buat textbox sebanyak 25 dengan nama :

v  “Nama”

v  “TA1_36001155”,” TA2_36001155”, dan “TA3_36001155”

v  “MK1_36001155”, “MK2_36001155”,dan “MK3_36001155”

v  “P1_36001155”, “P2_36001155”,dan “P3_36001155”

v  “LD1_36001155”, “LD2_36001155”,dan “LD3_36001155”

v  “E1_36001155”, “E2_36001155”,dan “E3_36001155”

v  “HPE1_36001155”, “HPE2_36001155”,dan “HPE3_36001155”

v  “NBU1_36001155”, “NBU2_36001155”,dan “NBU3_36001155”

v   “TKK1_36001155”( property ReadOnly textbox di atur jadi true)

v   “TKK2_36001155” ( property ReadOnly textbox di atur jadi true)

v  “TKK3_36001155” ( property ReadOnly textbox di atur jadi true)

Ø  Buat tombol “Analisa” dengan menggunakan button.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini.

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_09_36001155

    Private Sub Masnur(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 = "SANGAT 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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Masnur(TA1_36001155, MK1_36001155, P1_36001155, LD1_36001155, E1_36001155, HPE1_36001155, NBU1_36001155, TKK1_36001155)

        Masnur(TA2_36001155, MK2_36001155, P2_36001155, LD2_36001155, E2_36001155, HPE2_36001155, NBU2_36001155, TKK2_36001155)

        Masnur(TA3_36001155, MK3_36001155, P3_36001155, LD3_36001155, E3_36001155, HPE3_36001155, NBU3_36001155, TKK3_36001155)

    End Sub

End Class