Pertemuan 3

rumus :
Public Class FormHitungNilai
Dim a, b, c, d As Double
Dim Akhir As String
Dim Huruf As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
If MsgBox("Apa kamu mau keluar dari sini?", MsgBoxStyle.YesNo, "EXIT") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub ButtonReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonReset.Click
TxtNPM.Text = ""
TxtNama.Text = ""
TxtKuliah.Text = ""
Txttugas.Text = ""
TxtKuis.Text = ""
TxtUTS.Text = ""
TxtUAS.Text = ""
LblNilaiAkhir.Text = ""
LBData.Items.Clear() 'Untuk membersihkan ListBox



End Sub

Private Sub ButtonHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHitung.Click
a = Val(Txttugas.Text)
b = Val(TxtKuis.Text)
c = Val(TxtUTS.Text)
d = Val(TxtUAS.Text)

LblNilaiAkhir.Text = ((a * 0.2) + (b * 0.1) + (c * 0.3) + (d * 0.4))

If Akhir >= 80 Then
Huruf = "A"
ElseIf Akhir >= 68 Then
Huruf = "B"
ElseIf Akhir >= 56 Then
Huruf = "C"
ElseIf Akhir >= 45 Then
Huruf = "D"
Else
Huruf = "E"
End If

LBData.Items.Add("HASIL NILAI AKHIR")
LBData.Items.Add("")
LBData.Items.Add("Untuk Sdr.")
LBData.Items.Add("NPM : " + TxtNPM.Text)
LBData.Items.Add("Nama : " + TxtNama.Text)
LBData.Items.Add("Mata Kuliah : " + TxtKuliah.Text)
LBData.Items.Add("adalah " + Huruf)
End Sub

Private Sub LBData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBData.SelectedIndexChanged

End Sub

Private Sub TxtKuliah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtKuliah.TextChanged

End Sub
End Class

pertemuan 1

rumus SIMPAN & RESET

Public Class FormPengisianBiodata

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBLJudul.Click

End Sub

Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click
'Ini Untuk Tombol keluar aplikasi
End
End Sub

Private Sub BTNReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNReset.Click
'Ini untuk tombol mereset data
TxtNama.Text = " "
TxtNPM.Text = " "
TxtAlamat.Text = " "
End Sub
End Class