Membuat Program Resep Masakan Menggunakan Visual Basic

Ini adalah program untuk mengetahui Resep masakan dengan menggunakan Bahasa Pemrograman Visual Basic.

Di Form menu utama terdapat 3 menu, dimana sub menu dari menu Resep Masakan adalah  Resep Masakan dan jenis Masakan, Sub menu Resep Masakan dipergunakan user untuk menginputkan bahan, dan tata cara memasak sub menu Jenis Masakan di gunakan agar User dapat mengetahui bahan-bahan apa saja yang ada di resep masakan. Menu Tambah Jenis Masakan digunakan untuk Bila Mana User ingin Menambah Jenis masakan. Kemudian ada Menu About dan Menu Exit.

Tampilan Screen Shoot nya :

1. Form awal Menu Utama

Listing Program Menu Utama: 

Private Sub mexit_Click()

End

End Sub

Private Sub mjenis_Click()

Form2.Show

End Sub

Private Sub mkanan_Click()

Form1.Show

End Sub

Private Sub mtambah_Click()

Form3.Show

End Sub

Private Sub mus_Click()

Form4.Show

End Sub

2.Form Resep Masakan

Listing Program Form 2 :

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!jenismasakan = Tjenis.Text

Adodc1.Recordset!NamaMakanan = Tnama.Text

Adodc1.Recordset!Bahan = Tbahan.Text

Adodc1.Recordset!Caramasak = Tcara.Text

Adodc1.Recordset.Update

MsgBox "Data Masakan Sudah Di Simpan!"

End Sub

Private Sub Command2_Click()

Unload.me

End Sub

Private Sub Form_Load()

Adodc1.RecordSource = "select * From Resep"

Adodc1.Refresh

End Sub

Private Sub Next_Click()

MDIForm1.Show

End Sub

3.Form 2 Jenis Masakan

Listing Program Jenis Masakan

Private Sub btTampil_Click()

Adodc2.RecordSource = "select * from Resep where JenisMasakan = '" & Tjenis.Text & "'"

Adodc2.Refresh

While Not Adodc1.Recordset.BOF

fg1.Row = baris

fg1.Col = 0

fg1_text = baris

fg1.Col = 1

fg1.Text = Adodc2.Recordset.MoveNext

baris = baris + 1

End Sub

Private Sub fg1_Click()

fg1.ColWidth(0) = 1500

fg1.ColWidth(1) = 1500

End Sub

Private Sub Form_Load()

fg1.Row = 0

fg1.Col = 0

fgl.Text = "No"

fg1.Col = 1

fg1.Text = "NamaMakanan"

End Sub

4.Form 3 Tambah Jenis Masakan

Listing Program Form3 Tambah Jenis Masakan

Private Sub cmdtambah_Click()

Adodc.Recordset.AddNew

Adodc.Recordset!jenismasakan = Tjenis.Text

Adodc.Recordset.Update

MsgBox "Data Masakan Sudah Di Simpan!"

End Sub

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

MDIForm1.Show

End Sub

Private Sub Form_Load()

Adodc1.RecordSource = "select * From resep"

Adodc1.Refresh

End Sub

5.Form 4 About us

Sekian Postingan Dari Saya, Mudah-mudahan Bermanfaat .