Codingan VB bro..
Public Class Form1
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Mid(TextBox3.Text, 3, 5) = "41010" Then
TextBox2.Text = "Sistem Informasi"
ElseIf Mid(TextBox3.Text, 3, 5) = "39010" Then
TextBox2.Text = "Menejemen Informasi"
ElseIf Mid(TextBox3.Text, 3, 5) = "41011" Then
TextBox2.Text = "Komp Akuntansi"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox7.Text = ((TextBox4.Text * 0.4) + (TextBox5.Text * 0.3) + (TextBox8.Text * 0.4))
If TextBox7.Text > "80" Then
TextBox6.Text = "A"
ElseIf TextBox7.Text > "70" And TextBox7.Text < "80" Then
TextBox6.Text = "B+"
ElseIf TextBox7.Text > "65" And TextBox7.Text < "70" Then
TextBox6.Text = "B"
ElseIf TextBox7.Text > "55" And TextBox7.Text < "65" Then
TextBox6.Text = "C"
ElseIf TextBox7.Text < "54" And TextBox7.Text > "0" Then
TextBox6.Text = "D"
End If
MsgBox("Mahasiswa dengan NIM :" & _
"NIM :" & TextBox3.Text & _
"Nama :" & TextBox1.Text & _
"Nilai Tugas :" & TextBox4.Text & _
"Nilai UTS :" & TextBox5.Text & _
"Nilai UAS :" & TextBox8.Text & _
"Nilai AKHIR :" & TextBox7.Text & _
"Nilai HURUF :" & TextBox6.Text)
End Sub
End Class
Tampilan MenyusuL....!!!!!!!!!!!!!!!!! ^_^