PROGRAM MENGHITUNG MAKANAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

Oleh peistar

Wednesday, 22 June 2016

Bagikan :

Tweet

Program sederhana untuk menghitung makanan dan minuman dengan menggunakan Visual Basic 6.0. Program sederhana ini bisa juga digunakan untuk mengitung pendapatan pada Cafe tanpa harus terjadinya kekeliruan dalam penghitungan makanan yang telah dipesan oleh konsumen.

Adapun langkah – langkah pengerjaannya sebagai berikut :

- Langkah Pertama : Desainlah tampilan Penghitung Makanan dan Minuman seperti gambar dibawah ini.

- Langkah Kedua : Copy dan pastekan Coding Program dibawah ini kedalam area kerja pengcodean

Coding Program Class Makanan :

Private Sub Makanan()

Combo1.AddItem "Pecel Lele"

Combo1.AddItem "Pecel Ayam"

Combo1.AddItem "Ayam Penyet"

Combo1.AddItem "Ayam Bakar"

Combo1.AddItem "Bebek Bakar"

Combo1.AddItem "Bebek Goreng"

Combo1.AddItem "Bebek Penyet"

Combo1.AddItem "Soto Lamongan"

Combo1.AddItem "Sop IGA"

Combo1.AddItem "Nasi Putih"

End Sub

Codinga Program Class Minuman :

Private Sub Minuman()

Combo2.AddItem "Es Kelapa Muda"

Combo2.AddItem "Es Jeruk"

Combo2.AddItem "Es Teh"

Combo2.AddItem "Capucino Dingin"

Combo2.AddItem "Weding Jahe"

End Sub

Catatan : Perkenalkan Class Minuman dan Makanan ke area Form_Load()

- Langkah Ketiga : Klik 2 Kali pada Combo1 dan Combo2 kemudian ubahlah Procedure yang awalnya Change menjadi Click. Selanjutnya Copy Codong dibawah ini masukan kearea kerja yang telah kita tentukan.

Coding Program Combo1 :

If Combo1.Text = "Pecel Lele" Then

Text1.Text = 18000

Text2.SetFocus

Else

If Combo1.Text = "Pecel Ayam" Then

Text1.Text = 18000

Text2.SetFocus

Else

If Combo1.Text = "Ayam Penyet" Then

Text1.Text = 19000

Text2.SetFocus

Else

If Combo1.Text = "Ayam Bakar" Then

Text1.Text = 19000

Text2.SetFocus

Else

If Combo1.Text = "Bebek Bakar" Then

Text1.Text = 25000

Text2.SetFocus

Else

If Combo1.Text = "Bebek Goreng" Then

Text1.Text = 24000

Text2.SetFocus

Else

If Combo1.Text = "Bebek Penyet" Then

Text1.Text = 28000

Text2.SetFocus

Else

If Combo1.Text = "Soto Lamongan" Then

Text1.Text = 19000

Text2.SetFocus

Else

If Combo1.Text = "Sop IGA" Then

Text1.Text = 23000

Text2.SetFocus

Else

If Combo1.Text = "Nasi Putih" Then

Text1.Text = 5000

Text2.SetFocus

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

Coding Program Combo2 :

If Combo2.Text = "Es Kelapa Muda" Then

Text4.Text = 10000

Text3.SetFocus

Else

If Combo2.Text = "Es Jeruk" Then

Text4.Text = 8000

Text3.SetFocus

Else

If Combo2.Text = "Es Teh" Then

Text4.Text = 4000

Text3.SetFocus

Else

If Combo2.Text = "Capucino Dingin" Then

Text4.Text = 8000

Text3.SetFocus

Else

If Combo2.Text = "Weding Jahe" Then

Text4.Text = 9000

Text3.SetFocus

Else

End If

End If

End If

End If

End If

Coding Program Combo2 :

If Combo2.Text = "Es Kelapa Muda" Then

Text4.Text = 10000

Text3.SetFocus

Else

If Combo2.Text = "Es Jeruk" Then

Text4.Text = 8000

Text3.SetFocus

Else

If Combo2.Text = "Es Teh" Then

Text4.Text = 4000

Text3.SetFocus

Else

If Combo2.Text = "Capucino Dingin" Then

Text4.Text = 8000

Text3.SetFocus

Else

If Combo2.Text = "Weding Jahe" Then

Text4.Text = 9000

Text3.SetFocus

Else

End If

End If

End If

End If

End If

- Langkah Keempat : Pada Text2 dan Text3 masukan Coding Program dibawah ini dengan cara klik 2 kali pada Text2 dan Tex3.

Coding Program Text2 :

Set LS = ListView1.ListItems.Add(, , Combo1.Text)

LS.SubItems(1) = Text1.Text

LS.SubItems(2) = Text2.Text

LS.SubItems(3) = Val(Text2) * Val(Text1)

Text5.Text = Val(Text5) + ((Val(Text2) * Val(Text1)))

Coding Program Text3 :

Set LS = ListView1.ListItems.Add(, , Combo2.Text)

LS.SubItems(1) = Text4.Text

LS.SubItems(2) = Text3.Text

LS.SubItems(3) = Val(Text3) * Val(Text4)

Text5.Text = Val(Text5) + ((Val(Text3) * Val(Text4)))

- Langkah Kelima : Pada area Form_Load() masukan Coding Program dibawah ini.

Coding Program ListView1 :

ListView1.View = lvwReport

ListView1.GridLines = True

ListView1.ColumnHeaders.Add , , "Daftar Makanan & Minuman", 2000, lvwColumnLeft

ListView1.ColumnHeaders.Add , , "Harga", 1000, lvwColumnLeft

ListView1.ColumnHeaders.Add , , "Jumlah", 1000, lvwColumnLeft

ListView1.ColumnHeaders.Add , , "Total", 1000, lvwColumnLeft

- Langkah Keenam : Masukan Coding Program dibawah ini kedalam Command1 atau Tombo Proses

Coding Program :

Text7.Text = Val(Text6.Text) - Val(Text5.Text)

Tampilan Akhir Program

Selamat menjoba semoga bermanfaat. Wasalammmm.... !!!

Tag : Pemrograman Visual Basic 6.0