Senin, 22 Oktober 2012

Aplikasi Penjualan Kredit "Rizki Kidiw Clothes and Accecories"

Nama          : Rizki Anisa Erawati
Kelas          : TI 11 C
NIM           : 11.11.2640

Visual Basic yaitu bahasa pemrograman yang dapat digunakan untuk membuat suatu program sederhana. Aplikasi Penjualan kredit menggunakan bahasa pemrogaraman vb.net 2010 merupakan tugas awal mata kuliah pemrograman visual.Ini merupakan materi awal vb yang saya dapatkan di perkuliahan pemrograman visual.Langsung saja ya ke pembahasan aplikasi,saya akan langsung menjelaskan tentang cara membuatnya,dimulai dari cara menyusun tampilanya.Untuk  tugas kali ini saya membuat aplikasi dengan nama "Rizki Kidiw Clothes and Accesories"

Setelah Vb.net 2010 terbuka,langsung saja membuat aplikasi baru dengan cara pilih file-pilih new project-pilih visual basic-pilih windows Form Application,untuk nama project kita beri nama Rizki Kidiw Clothes and Accesories.

Kemudian susunlah form sedemikan rupa hingga tampil seperti dibawah ini :



sekarang tinggal tahap pengkodingan,
untuk combo box pada “Lama Kredit” klik kanan kemudian edit items, islah dengan :
1  Bulan
2  Bulan
3  Bulan
4  Bulan
5  Bulan
6  Bulan
Kemudian ok
Double klik pda combo box tersebut kemudia isikan koding seperti berikut :
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "1  Bulan" Then
            TextBox1.Text = "10000"
            TextBox2.Text = "0"
        ElseIf ComboBox1.Text = "2  Bulan" Then
            TextBox1.Text = "20000"
            TextBox2.Text = "0"
        ElseIf ComboBox1.Text = "3  Bulan" Then
            TextBox1.Text = "30000"
            TextBox2.Text = "0"
        ElseIf ComboBox1.Text = "4  Bulan" Then
            TextBox1.Text = "40000"
            TextBox2.Text = "0"
        ElseIf ComboBox1.Text = "5  Bulan" Then
            TextBox1.Text = "50000"
            TextBox2.Text = "0"
        ElseIf ComboBox1.Text = "6  Bulan" Then
            TextBox1.Text = "60000"
            TextBox2.Text = "0"
        End If
    End Sub

Untuk button “Detail” double klik kemudian isikan koding seperti berikut :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("-------------------------------------------" & vbNewLine & _
              "=============== RIZKI KIDIW ================" & vbNewLine & _
              "========== CLOTHES AND ACCECORIES ==========" & vbNewLine & _
              "--------------------------------------------" & vbNewLine & _
              "Lama Kredit          : " & ComboBox1.Text & vbNewLine & _
              "Bunga                : Rp" & TextBox1.Text & vbNewLine & _
              "Total Pembelian      : Rp." & TextBox2.Text & vbNewLine &
              "Total Pembayaran     : Rp." & TextBox3.Text & vbNewLine & _
               "======== Thank You and Happy Shoping =======")
    End Sub

Untuk button “Clear” double klik kemudian isikan koding seperti berikut :
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ComboBox1.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

Untuk button “EXIT” double klik kemudian isikan koding seperti berikut :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox(" ANDA YAKIN MAU KELUAR ? ", vbYesNo + vbQuestion + vbDefaultButton2, "EXIT") = vbYes Then
            Me.Close()
            End
        End If
    End Sub

Untuk button “Hitung” double klik kemudian isikan koding seperti berikut :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim hasil, text1, tet2 As Integer
        text1 = TextBox1.Text
        tet2 = TextBox2.Text
        hasil = text1 + tet2
        TextBox3.Text = hasil
    End Sub

Untuk sisa nya bias di isikan dengan  koding berikut ini dibawah nya

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub


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

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub
End Class

Tahap pengkodingan sudah selesai sekarang saya akan menunjukan cara menjalankan aplikasi nya. Untuk menjalankan aplikasi dengan cara klik tool start debugging,
Akan muncul tampilan seperti dibawah ini,

 
Klik pada combo box “Lama Kredit” maka akan muncul list seperti dibawah ini,



Pilih bulan yang akan digunakan untuk mengkredit barang, setelah itu isilah pembelian total yang digunakan untuk belanja, klik button “Hitung” untuk menghitung total pembayaran :  




Untuk mengetahui secara detail rincian biaya kredit nya, klik button “Detail” maka akan muncul kotak dialog seperti berikut :




Untuk keluar dari aplikasi klik button “EXIT” kemudian “Yes”

 
 

Seperti itulah contoh aplikasi sederhana yang bias saya buat, semoga bermanfaat,and good luck guys ^^