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

VISUAL BASIC ( SEWA KOSTAN )

NAMA : DANIEL BUDIMAN

NPM: 1006724311

Universitas Indonesia

Penjelasan

  Pada tugas visual basic ini saya membuat aplikasi penyewaan kost-kostan

berikut penjelasan dan cara menjalankan program ini:

1. kita pilih type kost2an yg kita ingin kan

2. Cari nama barang yang ingin kita beli di combobox1

3. pilih lama sewa

4. pilih type pembayaran dgn credit(charge 10 %) atau cash

5. klik clear untuk clear textbox 1 dan 2

inputnya dan output bila pembayaran dgn credit

inputnnya dan outputnya bila di clear

inputnya dan outputnya bila pembayaran dgn cash

KODING :

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "kecil" Then

            TextBox1.Text = "150000"

        Else

            If ComboBox1.Text = "sedang" Then

                TextBox1.Text = "200000"

            Else

                If ComboBox1.Text = "besar" Then

                    TextBox1.Text = "300000"

                End If

                End If

            End If

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If ComboBox2.Text = "1 bulan" Then

            TextBox2.Text = TextBox1.Text * 1

        Else

            If ComboBox2.Text = "3 bulan" Then

                TextBox2.Text = TextBox1.Text * 3

            Else

                If ComboBox2.Text = "6 bulan" Then

                    TextBox2.Text = TextBox1.Text * 6

                End If

                End If

            End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If ComboBox2.Text = "1 bulan" Then

            TextBox2.Text = TextBox1.Text * 1 + (10 / 100 * TextBox1.Text)

        Else

            If ComboBox2.Text = "3 bulan" Then

                TextBox2.Text = TextBox1.Text * 3 + (10 / 100 * TextBox1.Text)

            Else

                If ComboBox2.Text = "6 bulan" Then

                    TextBox2.Text = TextBox1.Text * 6 + (10 / 100 * TextBox1.Text)

                End If

            End If

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Clear()

        TextBox2.Clear()

       

    End Sub

End Class

demikian penjelasannya kurang lebihnya saya mohon maaf, bila ada kesalahan mohon di komentarkan . terimakasih