Senin, 22 Oktober 2012

membuat aplikasi rumah makan



PROJECT
“ PROGRAM  RUMAH MAKAN “
          Pada program kali ini saya akan membuat Program Rumah Makan dengan menggunakan visual basic 2010, dalam program kali ini toolbox yang kita gunakan hanya 3 yaitu : button, label dan textbox. Untuk lebih jelasnya kita simak dan pelajari langkah - langkah pembuatan program di bawah ini.
Langkah-langkah pembuatan program calculator
1.   Buka Microsoft Visual Studio 2010 lalu New Project



( tampilan utama pada Microsoft visual 2010)




2.   Kemudian pilih Windows Form Application, kemudian mengganti nama sesuai dengan keinginan anda.




3.     Buat Form seperti dibawah ini.



4.     Kemudian masukan label, button, textbox, dan checkbox.
5.     Lalu merubah nama label, button, textbox, dan checkbox sesuai gambar dibawah ini.

6.     Kemudian desain tampilan pada program tersebut  seperti dibawah ini.





7.     Kemudian membuat koding seperti gambar di bawah ini.


8.     kemudian langkah terakhir klik debug > klik start debugging
(selesai)

(tampilan program rumah makan padang)




“Listing program”
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        TxtTotbay.Text = Val(Txtnascin.Text) + Val(TxtNasrend.Text) + Val(Txtnastel.Text)
        Txtchange.Text = Val(Txtcash.Text) - Val(TxtTotbay.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Total Bayar :" & TxtTotbay.Text & vbNewLine &
                "CASH :" & Txtcash.Text & vbNewLine &
                "CHANGE :" & Txtchange.Text)


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Txtcash.Clear()
        Txtchange.Clear()
        Txtnascin.Clear()
        TxtNasrend.Clear()
        Txtnastel.Clear()
        TxtTotbay.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Anda Yakin", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class




Tidak ada komentar:

Poskan Komentar