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

Read More … VB Resep Masakan

VB Mengetahui Nilai-nilai dan Indeks Prestasi Komulatif (IPK) Mahasiswa

Berikut adalah program untuk mengetahui Nilai-nilai dan Indeks Prestasi Komulatif (IPK) Mahasiswa dengan menggunakan Bahasa Pemrograman Visual Basic 6.

Di Form menu utama terdapat 3menu, dimana sub menu File adalah sub menu Login dan sub menu Exit. Sub menu Login dipergunakan user agar dapat, mengakses program tersebut. Didalam menu Form ada sub menu Kelulusan dan Indeks Prestasi Komulatif (IPK).  Sub menu Kelulusan digunakan untuk mengetahui lulus atau tidaknya suatu nilai. Sub menu Predikat digunakan untuk mengetahui Nilai Indeks Prestasi setelah dikomulatifkan dan mengetahui predikat yang disandang atas nilai tersebut. Didalam menu Help ada sub menu About Us.

1.    Tampilan Output

a.     Tampilan Output Form Menu Utama

 

 

Read More … VB Mengetahui Nilai-nilai dan Indeks Prestasi Komulatif (IPK) Mahasiswa