BlogHends: 2012

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.

Tutorial Simulasi angka

pada kesempatan kali ini saya ingin share tentang membuat program simulasi nilai dengan vb.net,ok kita langsung saja ya..

Langkah pertama buka vb.net pilih file > new >project.

Maka jendela baru terbuka.pilih windows form application,ganti name dengan simulasi nilai.lalu klik ok

Langkah selanjutnya buat desain dengan toolbox yang ada disebelah kiri form.dengan cara klik tool yang dibutuhkan tempatkan pada form.

tool yang digunakan:

4 label:

Label1 ganti TEXT pada profertis dengan SIMULASI NILAI

Label2 ganti TEXT pada profertis dengan Input angka

Label3 ganti TEXT pada profertis dengan Keterangan

Label4 ganti TEXT pada profertis dengan Predikat

3Textbox:

Text pada properties :dihapus

3Button:

Button1 ganti Text pada properties dengan Proses

Button1 ganti Text pada properties dengan refres

Button1 ganti Text pada properties dengan EXIT

Selanjutny double klik pada button 1(proses) maka form baru terbuka dan ketikan kode program sbb:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Val(TextBox1.Text) >= 80 Then

TextBox1.ForeColor = Color.Brown

TextBox2.ForeColor = Color.Brown

TextBox3.ForeColor = Color.Brown

TextBox2.Text = "A"

TextBox3.Text = "EXCELENT"

ElseIf Val(TextBox1.Text) >= 70 Then

TextBox1.ForeColor = Color.BlueViolet

TextBox2.ForeColor = Color.BlueViolet

TextBox3.ForeColor = Color.BlueViolet

TextBox2.Text = "B"

TextBox3.Text = "GOOD"

ElseIf Val(TextBox1.Text) >= 60 Then

TextBox1.ForeColor = Color.BlanchedAlmond

TextBox2.ForeColor = Color.BlanchedAlmond

TextBox3.ForeColor = Color.BlanchedAlmond

TextBox2.Text = "C"

TextBox3.Text = "ENOUGH"

ElseIf Val(TextBox1.Text) >= 45 Then

TextBox1.ForeColor = Color.BurlyWood

TextBox2.ForeColor = Color.BurlyWood

TextBox3.ForeColor = Color.BurlyWood

TextBox2.Text = "D"

TextBox3.Text = "BAD"

Else

TextBox1.ForeColor = Color.Chartreuse

TextBox2.ForeColor = Color.Chartreuse

TextBox3.ForeColor = Color.Chartreuse

TextBox2.Text = "E"

TextBox3.Text = "WORSE"

End If

End Sub

Lihat gbr.

Lanjut pada double klik button2(refresh) ketikan kode programnya:

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

End Sub

Selanjutnya double klik pada Button Exit dan ketikan kode programnya sbb:

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

Me.Close()

End Sub

Bila semua kode dimasukan langkah selanjutnya kita akan menjalankan program tersebut.klik icon start debugging atau tekan F5 pada keyboard.

Bila berhasil coba anda masukan angka dan klik proses.maka secara otomatis pada textbox2 dan 3 akan terlihat hasilnya.

Sekian TUTORIAL dari saya semoga dapat berguna dan selamat mencoba…..

Aplikasi sederhana Toko Buku dengan VB.net

Tutorial VB.net Simulasi Nilai