Program Sederhana Daftar Nilai Mahasiswa Visual Basic

 

Private Sub Command1_Click()
Nilai_Akhir.Text = Val(Text3.Text * 0.1) + Val(Text4.Text * 0.2) + Val(Text5.Text * 0.2) + Val(Text6.Text * 0.5)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Nilai_Akhir.Text = ""
Combo1.Text = ""
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub form_load()
Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajeman"
Combo1.AddItem "Sistem Komputer"
End Sub