JUAL SSH UNTUK INTERNET UNLIMITED HANYA 20.000 / BULAN, JOIN GRUP INTERNET SOLUTION

Masukkan Kata Kunci Pencarian Anda Disini

Loading...

Saturday, 9 July 2011

Contoh Program sederhana Memilih Menu Makan dengan VB.Net 10

Langsung saja di buka Vb.Net 10 kamu……,
VB.Net 2010
Pilih di menu Windows Form Application Visual basic

Isi pada kolom Nama, Trus OK
Buat Form seperti tampilan berikut
VB.Net 2010.1
Kodenya seperti ini
VB.Net 2010.2
VB.Net 2010.3
Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("Pagi")
        ListBox1.Items.Add("Siang")
        ListBox1.Items.Add("Malam")
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        CheckedListBox1.Items.Add("Tiwul")
        CheckedListBox1.Items.Add("Nasi")
        CheckedListBox1.Items.Add("Baso")
        Dim pilihan As String
        pilihan = "Pilihanya...." + ListBox1.SelectedItem
        TextBox1.Text = ListBox1.SelectedItem
        MessageBox.Show(pilihan, "Menu saat ini adalah", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Dim jumlah As Integer
        jumlah = CheckedListBox1.CheckedItems.Count
        MessageBox.Show(CStr(jumlah), "Pilihan Berjumlah",
                        MessageBoxButtons.OK, MessageBoxIcon.Information)
        If jumlah = 2 Then
            CheckedListBox1.Items.Add("Cukup")
        End If
    End Sub
End Class
Coba di Debug ( Run ), jika benar hasilnya seperti ini
VB.Net 2010.4
Selamat mencoba…
Atau download Program Disini.

No comments:

Post a Comment

Gunakan bahasa yang baik dan sopan. Komentar yang berbau SARA akan di HAPUS / DELETE.
Komentar akan muncul setelah mendapat persetujuan dari Admin Anak Rantau.