Senin, 04 April 2011

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