PROGRAM INI UNTUK MENGETAHUI NILAI IP(INDEKS PRESTASI)MAT-KUL AKUNTANSI MAHASISWA VA 2010
CODING:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox5.Text = (((TextBox2.Text * 15 / 100) + (TextBox3.Text * 40 / 100) + (TextBox4.Text * 45 / 100)) / 25)
Select Case TextBox5.Text
Case Is >= 3.5
TextBox7.Text = "A"
Case Is >= 3
TextBox7.Text = "B"
Case Is >= 2.5
TextBox7.Text = "C"
Case Is >= 2
TextBox7.Text = "D"
Case Is < 2
TextBox7.Text = "E"
End Select
If TextBox7.Text = "A" Then
TextBox6.Text = "anda lulus matkul akuntansi"
ElseIf TextBox7.Text = "B" Then
TextBox6.Text = "anda lulus matkul akuntansi"
ElseIf TextBox7.Text = "C" Then
TextBox6.Text = "anda lulus matkul akuntansi"
ElseIf TextBox7.Text = "D" Then
TextBox6.Text = "anda tidak lulus matkul akuntansi"
ElseIf TextBox7.Text = "E" Then
TextBox6.Text = "anda tidak lulus matkul akuntansi"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ComboBox1.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
End Class
program setelah dijalankan:
1.ketika di debug
2.combobox untuk memilih jurusan anda
3.isi data anda dan nilai anda, dan klik hitung
4..klik clear untuk menghapus seluruh isi textbox dan combobox
5. klik exit untuk keluar proggram
Terimakasih kurang lebihnya saya mohon komentar di blog saya..