Langkah-langkah mengerjakan latihan 06
Saya mulai dengan membaca basmalah
1.
Klik start kemudian pilih microsoft visual
studio 2008
2.
Klik file kemudian new project kemudian
tempatkan pada lokasi yang di inginkan lalu muncullah form1
3.
Kemudian buat form sesuai yg di bawah ini
4.
Kemudian masukkan rumusnya:
Public Class latihan_06_36110040
Private Sub coto_36110040_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
coto_36110040.CheckedChanged
If
coto_36110040.Checked = True Then
Qcoto_36110040.ReadOnly = False
hcoto_36110040.ReadOnly = False
Else
Qcoto_36110040.ReadOnly = True
hcoto_36110040.ReadOnly = True
End If
End Sub
Private Sub pallubasa_36110040_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
pallubasa_36110040.CheckedChanged
If
pallubasa_36110040.Checked = True Then
Qpallub_36110040.ReadOnly = False
hpallub_36110040.ReadOnly = False
Else
Qpallub_36110040.ReadOnly = True
hpallub_36110040.ReadOnly = True
End If
End Sub
Private Sub sopkonro_36110040_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
sopkonro_36110040.CheckedChanged
If
sopkonro_36110040.Checked = True Then
Qsopk_36110040.ReadOnly = False
hsopk_36110040.ReadOnly = False
Else
Qsopk_36110040.ReadOnly = True
hsopk_36110040.ReadOnly = True
End If
End Sub
Private Sub sopsaudara_36110040_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
sopsaudara_36110040.CheckedChanged
If
sopsaudara_36110040.Checked = True Then
Qsops_36110040.ReadOnly = False
hsops_36110040.ReadOnly = False
Else
Qsops_36110040.ReadOnly = True
hsops_36110040.ReadOnly = True
End If
End Sub
Private Sub konrobakar_36110040_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
konrobakar_36110040.CheckedChanged
If
konrobakar_36110040.Checked = True Then
Qkonrob_36110040.ReadOnly = False
hkonrob_36110040.ReadOnly = False
Else
Qkonrob_36110040.ReadOnly = True
hkonrob_36110040.ReadOnly = True
End If
End Sub
Private Sub ulujuku_36110040CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
ulujuku_36110040.CheckedChanged
If
ulujuku_36110040.Checked = True Then
Quluj_36110040.ReadOnly = False
huluj_36110040.ReadOnly = False
Else
Quluj_36110040.ReadOnly = True
huluj_36110040.ReadOnly = True
End If
End Sub
Private Sub Qcoto_3611040_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
Qcoto_36110040.TextChanged
jcoto_36110040.Text =
Val(Qcoto_36110040.Text) * Val(hcoto_36110040.Text)
tot_36110040.Text =
Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) +
Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) +
Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)
End Sub
Private Sub Qpallub_36110040_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Qpallub_36110040.TextChanged
jpallub_36110040.Text =
Val(Qpallub_36110040.Text) * Val(hpallub_36110040.Text)
tot_36110040.Text =
Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) +
Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) +
Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)
End Sub
Private Sub Qsopk_36110040_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Qsopk_36110040.TextChanged
jsopk_36110040.Text =
Val(Qsopk_36110040.Text) * Val(hsopk_36110040.Text)
tot_36110040.Text =
Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text)
+ Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) +
Val(juluj_36110040.Text)
End Sub
Private Sub Qsops_36110040_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Qsops_36110040.TextChanged
jsops_36110040.Text =
Val(Qsops_36110040.Text) * Val(hsops_36110040.Text)
tot_36110040.Text =
Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) +
Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) +
Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)
End Sub
Private Sub Qkonrob_36110040_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Qkonrob_36110040.TextChanged
jkonrob_36110040.Text =
Val(Qkonrob_36110040.Text) * Val(hkonrob_36110040.Text)
tot_36110040.Text =
Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) +
Val(jsopk_36110040.Text) + Val(jsops_36110040.Text) +
Val(jkonrob_36110040.Text) + Val(juluj_36110040.Text)
End Sub
Private Sub Quluj_36110040_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Quluj_36110040.TextChanged
juluj_36110040.Text =
Val(Quluj_36110040.Text) * Val(huluj_36110040.Text)
tot_36110040.Text =
Val(jcoto_36110040.Text) + Val(jpallub_36110040.Text) + Val(jsopk_36110040.Text)
+ Val(jsops_36110040.Text) + Val(jkonrob_36110040.Text) +
Val(juluj_36110040.Text)
End Sub
Private Sub pot_36110040_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
pot_36110040.CheckedChanged
If True Then
potongan_36110040.Text = 0.1 *
Val(tot_36110040.Text)
jb_36110040.Text =
Val(tot_36110040.Text) - Val(potongan_36110040.Text)
End If
End Sub
Private Sub Nonpot_36110040_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Nonpot_36110040.CheckedChanged
If True Then
potongan_36110040.Text = 0
jb_36110040.Text =
Val(tot_36110040.Text) - Val(potongan_36110040.Text)
End If
End Sub
End Class
5.
Kemudian simpan dan klik
start debuggin
6.
Kemudian masukkan data dan jalankan
Tidak ada komentar:
Posting Komentar