Tugas 4 1.List Box Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim control As Windows.Forms.ListBox TextBox1.Text = TextBox1.Text TextBox1.Text = ListBox1.Items.Add(TextBox1.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For bil = 1 To 10 ListBox1.Items.Add(bil) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ListBox1.Text = ListBox2.Items.Add(ListBox1.Text) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ListBox1.SelectionMode = SelectionMode.MultiExtended Dim i, j As Integer j = ListBox1.Items.Count For i = 0 To j - 1 Try ListBox2.Items.Add(ListBox1.Items(Lis
Postingan
Menampilkan postingan dari November, 2012
Modifikasi Program If dan Case dan Membuat Puzzle
- Dapatkan link
- Aplikasi Lainnya
Modifikasi Program If dan Case dan Membuat Puzzle Program sebelumnya Setelah dimodifikasi dengan berbagai ketentuan 1. Menambahkan Button “Isi Data” 2. Saat form dijalankan: semua isian tidak aktif,tombol Isi data dan Tutup aktif, tombol Clear tidak aktif 3. Saat tombol Isi Data ditekan maka, Kode barang, Jumlah barang, cara beli, Tombol clear aktif danntombol Isi data tidak aktif 4. Saat tombol Clear ditekan sama dengan saat form dijalankan Berikut adalah Source Code untuk Form Menambahkan button "Clear" Selanjutnya adalah menambahkan button "Isi Data" Membuat permainan Puzzle Tampilan Puzzle: Mendeklarasikan variabel: Membuat event acak: Membuat event button acak: Membuat event button Aturan: Membuat event button 0 hingga 8: