PENGECEK KADALUARSA KUE

1. Penjelasan Program Aplikasi

Program ini bertujuan untuk mengetahui kelayakan kue, apakah sudah kadaluarsa apakah masih aman dikonsumsi. Program ini cocok untuk toko kue yang cakupanya tidak besar. Berikut cara pengaplikasianya :

• pilih jenis kue yang ingin dicek, maka akan muncul berapa lama kue tersebut dapat bertahan

• setelah itu masukan tanggal produksi kue dan tanggal hari ini. Kemudian, klik tombol cek usia kue maka akan muncul usia kue tersebut

• Langkah selanjutnya adalah klik tombol cek kadaluarsa, maka akan muncul pesan apakah kue ini aman dikonsumsi atau sudah kadaluarsa

 

•  langkah terakhir, klik tombol clear untuk menghapus data-data yang ada

2. Screenshoot

bolu : RadioButton1
astor : RadioButton2
mayor : RadioButton3
risol : RadioButton4
pastel : RadioButton5
lemper : RadioButton6
masa kadaluarsa : textbox1
tgl produksi : textbox2
hari ini : textbox3
usia kue : textbox4
cek usia kue : button1
cek kadaluarsa : button2
clear : button3

3. source coding

Public Class Form1
    Dim a, x, y, z As Integer
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        a = 6
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        a = 2
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        a = 7
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        a = 14
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        a = 10
        TextBox1.Text = a
    End Sub

    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
        a = 4
        TextBox1.Text = a
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x = TextBox2.Text
        y = TextBox3.Text
        z = y - x
        TextBox4.Text = z
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox4.Text > a Then
            MsgBox("kadaluarsa")
        Else
            MsgBox("aman dikonsumsi")
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
End Class