Tugas 2 Pemrograman Bisnis

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..