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

Sabtu, 05 Maret 2011

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