Pertama-tama silahkan buka Microsoft Visual Studio 2010 kalian terlebih dahulu,
klik project->add windows form
lalu buatlah design form seperti ini :
Berikut adalah source codenya :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
Dim pilihan As String
pilihan = MsgBox("Keluar Dari Program", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")
If pilihan = vbNo Then
MsgBox("Batal Keluar")
Exit Sub
Else
MsgBox("Terima Kasih")
Me.Close()
End If
Me.Close()
End Sub
Private Sub btnPesan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesan1.Click
MsgBox("Anda Memesan Mie Ayam")
Me.txtPesan.Text = "Mie Ayam"
End Sub
Private Sub btnPesan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesan2.Click
Dim tanya As String
tanya = MsgBox("Pesan Bakso???", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")
If tanya = vbNo Then
MsgBox("Batal Memesan Bakso", MsgBoxStyle.Information, "Batal")
Exit Sub
Else
Me.txtPesan.Text = "Bakso"
End If
End Sub
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
Me.txtPesan.Text = ""
End Sub
Private Sub txtPesan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPesan.TextChanged
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
Dim pilihan As String
pilihan = MsgBox("Keluar Dari Program", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")
If pilihan = vbNo Then
MsgBox("Batal Keluar")
Exit Sub
Else
MsgBox("Terima Kasih")
Me.Close()
End If
Me.Close()
End Sub
Private Sub btnPesan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesan1.Click
MsgBox("Anda Memesan Mie Ayam")
Me.txtPesan.Text = "Mie Ayam"
End Sub
Private Sub btnPesan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPesan2.Click
Dim tanya As String
tanya = MsgBox("Pesan Bakso???", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Keluar")
If tanya = vbNo Then
MsgBox("Batal Memesan Bakso", MsgBoxStyle.Information, "Batal")
Exit Sub
Else
Me.txtPesan.Text = "Bakso"
End If
End Sub
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
Me.txtPesan.Text = ""
End Sub
Private Sub txtPesan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPesan.TextChanged
End Sub
End Class
Bagikan
Membuat Program Sederhana Dengan VB.Net
4/
5
Oleh
Hery Prasetyo

