Aplikasi sederhana Toko Buku dengan VB.net

pada kesempatan kali ini saya ingin membagi sedikit ilmu tentang membuat aplikasi sederhana toko buku.
yah barang kali dapat bermanfaat untuk teman teman semua.dalam mempelajari pemograman vb.net...dan mungkin dari sekian teman-teman yang sedang mempelajarinya dapat mengembangkan lebih lanjut,ok yuk kita sama-sama belajar..

langkah pertama buka aplikasi vb.net.
klik file > new >project ubah nama project menjadi toko buku lalu klik OK
setelah tampilan window telah tampil buat design seperti gambar 1.1

gambar 1.1

buat teman-teman yang masih bingung cara membuat design nya bisa melihat tutorial seperti contoh      Tutorial VB.net Simulasi Nilai

lanjut ya..setelah membuat design seperti diatas doble klik pada button input ketikan kode program sebagai berikut:

                 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 = ""

    End Sub

dan doble klik pada button proses ketikan kode program dibawah ini

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "VB" Or TextBox1.Text = "vb" Then
            TextBox3.Text = "VISUAL BASIC"
            TextBox4.Text = 60000
        ElseIf TextBox1.Text = "VC" Or TextBox1.Text = "vc" Then
            TextBox3.Text = "VISUAL C++"
            TextBox4.Text = 45000
        ElseIf TextBox1.Text = "VD" Or TextBox1.Text = "vd" Then
            TextBox3.Text = "VISUAL DELPHI"
            TextBox4.Text = 55000
        ElseIf TextBox1.Text = "VF" Or TextBox1.Text = "vf" Then
            TextBox3.Text = "VISUAL FOXPRO"
            TextBox4.Text = 50000
        ElseIf TextBox1.Text = "VJ" Or TextBox1.Text = "vj" Then
            TextBox3.Text = "VISUAL JAVA"
            TextBox4.Text = 70000
        Else
            TextBox3.Text = "LAIN-LAIN"
            TextBox4.Text = 15000

        End If

        If Val(TextBox2.Text) >= 20 Then
            TextBox6.Text = 20000
        ElseIf Val(TextBox2.Text) >= 10 Then
            TextBox6.Text = 15000
        ElseIf Val(TextBox2.Text) >= 5 Then
            TextBox6.Text = 10000
        ElseIf Val(TextBox2.Text) >= 3 Then
            TextBox6.Text = 5000
        ElseIf Val(TextBox2.Text) >= 0 Then
            TextBox6.Text = 0
        End If

        TextBox5.Text = Val(TextBox2.Text) * Val(TextBox4.Text)
        TextBox7.Text = Val(TextBox5.Text) - Val(TextBox6.Text)

    End Sub

doble klok lagi pada butoon exit.laluklik kode program berikut;

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

setelah semua kode kita masukan coba kita jalankan program tersebut dengan menekan F5 pada keyboard .
dan coba masukan kode buku ,serta banyaknya buku lalu klik proses.maka akan terlihat hasilnya.

contoh setelah dijalankan

sekian dari saya semoga bermanfaat...tetap semangat oke.