VB Resep Masakan

Berikut adalah program untuk mengetahui resep-resep masakan dengan menggunakan Bahasa Pemrograman Visual Basic 6.

Di Form menu utama terdapat 3menu, 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. Didalam sub menu Jenis Masakan digunakan untuk mengetahui bahan dari jenis masakan yang diinputkan. Kemudian ada Menu About dan Menu Exit.

1.    Tampilan Output

a.     Tampilan Output Form Menu Utama

b.     Tampilan Pembuatan Menu

 

c.      Tampilan Output Menu Resep Masakan

 

d.     Tampilan Output Form Jenis Masakan

e.     Tampilan Output Tambah Jenis Masakan

 

f.      Tampilan Output Form Menu About

 

2.     Listing Program

a.    Listing Program Form Menu Utama

Private Sub maboutus_Click() Form4.Show End Sub Private Sub mexit_Click(Index As Integer) End End Sub Private Sub mjenis_Click() Form2.Show End Sub Private Sub mresepmasakan_Click() Form1.Show End Sub

b.    Listing Program Form Menu Resep Masakan

Private Sub cmdbatal_Click() Form1.Hide End Sub Private Sub cmdsimpan_Click() adodc.Recordset.AddNew adodc.Recordset!jenismasakan = txtjenis.Text adodc.Recordset!namamasakan = txtnama.Text adodc.Recordset!bahan = txtbahan.Text adodc.Recordset!caramemasak = txtcara.Text adodc.Recordset.Update psn = MsgBox("Data Telah Tersimpan", vbOKOnly, "Informasi") End Sub Private Sub Form_Load() adodc.RecordSource = "select * from resep" adodc.Refresh End Sub

c.    Listing Program Form Jenis Masakan

Private Sub cmdbatal_Click() Form2.Hide End Sub Private Sub cmdtambah_Click() Form2.Hide Form3.Show End Sub Private Sub cmdtampil_Click() adodc.RecordSource = "select * from resep where jenismasakan ='" & txtjenis.Text & "'" adodc.Refresh  While Not adodc.Recordset.EOF   fg.Row = 1   fg.Col = 0   fg.Text = 1   fg.Col = 1   fg.Text = adodc.Recordset!bahan   adodc.Recordset.MoveNext baris = baris + 1 Wend End Sub Private Sub Form_Load() fg.Row = 0 fg.Col = 0 fg.Text = "No" fg.Col = 1 fg.Text = "Bahan" fg.ColWidth(0) = 500 fg.ColWidth(1) = 2500 End Sub

d.    Listing Program Form Sub Menu Kelulusan

Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdproses_Click() If (txtnilai.Text >= 70) Then     txtket.Text = "LULUS" Else     txtket.Text = "TIDAK LULUS"     End If End Sub

e.    Listing Program Form Tambah Jenis Masakan

Private Sub cmdbatal_Click() Form3.Hide End Sub Private Sub cmdtambah_Click() adodc.Recordset.AddNew adodc.Recordset!jenismasakan = txtjenis.Text adodc.Recordset.Update psn = MsgBox("Data Telah Tersimpan", vbOKOnly, "Informasi") End Sub Private Sub Form_Load() adodc.RecordSource = "select * from jenismasakan" adodc.Refresh End Sub