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:
Posting Komentar