Contoh Program Microsoft Visual Studio 2008

Membuat Aplikasi pada Penjualan Mobil dengan Menggunakan Visual Studio 2008

Di sini kita menggunakan dua form, form yang pertama untuk background showroom dan disitu ada menu toolbarnya dan form yang kedua itu adalah data-data penjualan mobil.

Nah kemudian toolbar yang kita gunakan pada form1 itu adalah Menustrip dan di dalam menustrip kita bisa membuat beberapa menu yang akan kita gunakan.

Sedangkan form yang kedua itu adalah data penjualannya dengan menggunakan toolbar-toolbar yang sering di gunakan pada umumnya.

Bentuk form1 :

Codingnya :

Public Class Form1

Private Sub KeluarProgramToolStripMenuItem_Click( .... ) Handles

KeluarProgramToolStripMenuItem.Click

End

End Sub

Private Sub DataPenjualanToolStripMenuItem_Click( ... ) Handles

DataPenjualanToolStripMenuItem.Click

Form2.Show()

End Sub

End Class

Bentuk form2 :

Codingnya :

Public Class Form2

Sub Bersih()

faktur.Text = ""

merk.Text = ""

tipe.Text = ""

harga.Text = ""

tahun.Text = ""

jlh_beli.Text = ""

dp.Text = ""

lama.Text = ""

cicilan.Text = ""

End Sub

Private Sub Form2_Load( ... ) Handles MyBase.Load

'Faktur Penjualan'

faktur.Items.Add("001-TOYAVZ13")

faktur.Items.Add("001-TOYINO15")

faktur.Items.Add("002-HONBRI15")

faktur.Items.Add("002-HONJAZ20")

faktur.Items.Add("003-SUZSWI10")

faktur.Items.Add("003-SUZXOV12")

'Tahun'

tahun.Items.Add("2010")

tahun.Items.Add("2011")

tahun.Items.Add("2012")

'Jumlah Beli'

Dim i As Integer

For i = 1 To 10

jlh_beli.Items.Add(i)

'Lama'

lama.Items.Add("12")

lama.Items.Add("24")

lama.Items.Add("36")

Call Bersih()

Call BUAT_TABEL()

End Sub

Private Sub faktur_SelectedIndexChanged( ... ) Handles

faktur.SelectedIndexChanged

Dim x, y As String

x = Microsoft.VisualBasic.Mid(faktur.Text, 5, 3)

If x = "TOY" Then

merk.Text = "TOYOTA"

ElseIf x = "HON" Then

merk.Text = "HONDA"

ElseIf x = "SUZ" Then

merk.Text = "SUZUKI"

End If

y = Microsoft.VisualBasic.Mid(faktur.Text, 8, 3)

If y = "AVZ" Then

tipe.Text = "AVANZA"

ElseIf y = "INO" Then

tipe.Text = "INOVA"

ElseIf y = "BRI" Then

tipe.Text = "BRIO"

ElseIf y = "JAZ" Then

tipe.Text = "JAZZ"

ElseIf y = "SWI" Then

tipe.Text = "SWIFT"

ElseIf y = "XOV" Then

tipe.Text = "X-OVER"

End If

End Sub

Private Sub tahun_SelectedIndexChanged( ... ) Handles

tahun.SelectedIndexChanged

If tipe.Text = "AVANZA" And tahun.Text = "2010" Then

harga.Text = 110000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "AVANZA" And tahun.Text = "2011" Then

harga.Text = 125000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "AVANZA" And tahun.Text = "2012" Then

harga.Text = 150000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "INOVA" And tahun.Text = "2010" Then

harga.Text = 150000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "INOVA" And tahun.Text = "2011" Then

harga.Text = 165000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "INOVA" And tahun.Text = "2012" Then

harga.Text = 170000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "BRIO" And tahun.Text = "2010" Then

harga.Text = 180000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "BRIO" And tahun.Text = "2011" Then

harga.Text = 200000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "BRIO" And tahun.Text = "2012" Then

harga.Text = 225000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "JAZZ" And tahun.Text = "2010" Then

harga.Text = 225000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "JAZZ" And tahun.Text = "2011" Then

harga.Text = 250000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "JAZZ" And tahun.Text = "2012" Then

harga.Text = 226000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "SWIFT" And tahun.Text = "2010" Then

harga.Text = 185000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "SWIFT" And tahun.Text = "2011" Then

harga.Text = 190000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "SWIFT" And tahun.Text = "2012" Then

harga.Text = 200000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "X-OVER" And tahun.Text = "2010" Then

harga.Text = 150000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "X-OVER" And tahun.Text = "2011" Then

harga.Text = 180000000

dp.Text = 0.2 * harga.Text

ElseIf tipe.Text = "X-OVER" And tahun.Text = "2012" Then

harga.Text = 200000000

dp.Text = 0.2 * harga.Text

End If

End Sub

Private Sub keluar_Click( ... ) Handles keluar.Click

Me.Close()

End Sub

Private Sub lama_SelectedIndexChanged( ... ) Handles

lama.SelectedIndexChanged

If lama.Text = "12" Then

cicilan.Text = (0.1 * harga.Text + Val(harga.Text)) / 12

ElseIf lama.Text = "24" Then

cicilan.Text = (0.1 * harga.Text + Val(harga.Text)) / 24

ElseIf lama.Text = "36" Then

cicilan.Text = (0.1 * harga.Text + Val(harga.Text)) / 36

End If

End Sub

Private Sub masuk_Click( ... ) Handles masuk.Click

Dim lst As New ListViewItem

lst.Text = faktur.Text

lst.SubItems.Add(merk.Text)

lst.SubItems.Add(tipe.Text)

lst.SubItems.Add(tahun.Text)

lst.SubItems.Add(harga.Text)

lst.SubItems.Add(jlh_beli.Text)

lst.SubItems.Add(dp.Text)

lst.SubItems.Add(lama.Text)

lst.SubItems.Add(cicilan.Text)

lv.Items.Add(lst)

End Sub

Sub BUAT_TABEL()

lv.GridLines = True

lv.View = View.Details

lv.FullRowSelect = True

lv.Columns.Add("Faktur Penjualan")

lv.Columns.Add("Merk Mobil")

lv.Columns.Add("Tipe")

lv.Columns.Add("Tahun")

lv.Columns.Add("Harga")

lv.Columns.Add("Jlh Beli")

lv.Columns.Add("DP")

lv.Columns.Add("Lama")

lv.Columns.Add("Cicilan")

End Sub

Private Sub hps_record_Click( ... ) Handles hps_record.Click

lv.Items.Remove(lv.SelectedItems(0))

End Sub

Private Sub hps_list_Click( ... ) Handles hps_list.Click

lv.Items.Clear()

End Sub

End Class

:):):) Selamat Mencoba :):):)

DIRA OLSHOP

Pages

Sabtu, 08 Desember 2012