VB.Net

Diposting oleh : rizky ae | Dirilis : 03:59:00 | Series :
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....!!!!!!!!!!!!!!!!! ^_^