Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
mata_kuliah.Items.Add("pemograman visual I")
mata_kuliah.Items.Add("PTI")
dosen.Items.Add("Tonni Limbong, S.Kom, M.kom")
dosen.Items.Add("Sinar Sinurat, ST, M.kom")
End Sub
Private Sub btn_proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_proses.Click
nilai_akhir.Text = 0.1 *
nilai_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_mid.Text + 0.45 *
nilai_semester.Text
End Sub
Private Sub hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus.Click
mata_kuliah.Text = ""
dosen.Text = ""
nilai_hadir.Text = ""
nilai_tugas.Text = ""
nilai_mid.Text = ""
nilai_semester.Text = ""
nilai_akhir.Text = ""
End Sub
Private Sub btn_keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
SUMBER : ESRA HANDAYANI
Tidak ada komentar:
Posting Komentar