Nasrudin Hoja Bersembunyi

Suatu malam seorang pencuri memasuki rumah Nasrudin. Kabetulan Nasrudin sedang melihatnya. Karena ia sedang sendirian aja, Nasrudin cepat-cepat bersembunyi di dalam peti. Sementara itu pencuri memulai aksi menggerayangi rumah. Sekian lama kemudian, pencuri belum menemukan sesuatu yang berharga. Akhirnya ia membuka peti besar, dan memergoki Nasrudin yang bersembunyi.

"Aha!" kata si pencuri, "Apa yang sedang kau lakukan di sini, ha?"

"Aku malu, karena aku tidak memiliki apa-apa yang bisa kau ambil. Itulah sebabnya aku bersembunyi di sini."

Einstein VS Mr.Bean

SUATU KALI EINSTEIN DAN MR.BEAN SECARA KEBETULAN DUDUK BERDAMPINGAN DI SEBUAH PENERBANGAN YANG PANJANG. Untuk mengusir jenuh selama penerbangan, Einstein

Tugas Puzzle VB.Net

Membuat puzzle menggunakan VB.Net

1.      Buat form seperti berikut :

 

Pertemuan 4

Pada pertemuan 4 kali ini adalah membuat form seperti berikut :

kode yang diberikan sebagai berikut :


Public Class Form2

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        For a = 1 To Val(TextBox1.Text)
            ListBox1.Items.Add("*" + a.ToString)
            ListBox1.Items.Add(a + 1)
            If a Mod 4 <> 0 Then
                ListBox2.Items.Add(a)
            End If
            If a Mod 3 = 2 Then
                ListBox3.Items.Add(a)
            End If
        Next
    End Sub
End Class

Rangkuman Pertemuan 3

Menambahkan item ke combo box dari text box
ada beberapa cara yang bisa dilakukan. namun cara yang umum adalah seperti berikut :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click