Animasi Teks Blink

Assalamu'alaikum........

Bagaimana ya..... cara membuat animasi text yang berkedip-kedip ?
Ternyata scriptnya simple banget sahabat semua.
sediakan beberapa komponen berikut ini:

• 1 buah label. pada properties teks anda rubah tulisannya "ANIMASI BERKEDIP"
• 1 buah komponen timer dan pada properties anda rubah Enable = True. Jika sahabat masih bingung anda lihat gambar dibawah ini

• klik komponen timer1 dan anda ketikkan script berikut ini.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles             Timer1.Tick

        Label1.Visible = Not Label1.Visible = True

    End Sub

• Anda klik run. Jadi deh............ ^_^

Tombol Interaktif

Assalamu'alaikum.........
Pa kabar sahabat semuanya mudahn sehat semua....
Tadi habis isi bensin gratis sekarang gilirannya saya yang sebarkan ilmu gratis buat sahabat yang baru belajar vb.net.
Supaya tombol lebih keren dikit ada muncul pertanyaan seperti gambar dibawah ini  caranya mudah sahabat semua.

klik 2 x pada tombol keluar kemudian ketikkan script dibawah ini:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        "mendeklarasinyan variabel tanya
        Dim tanya = MsgBox("Anda yakin ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sebiru")
        'Jika variabel tanya diklik tombol "Yes" maka akan mengakhiri jalannya program
        If tanya = MsgBoxResult.Yes Then
            End
        'kondisi berikutnya "Else"
        'Jika tidak melakukan klik tombol "Yes" maka program akan tetap berjalan kembali
        Else
            Return
        End If
    End Sub


He.... Semoga bermanfaat. Ikuti materi selanjutnya

Percabangan IF

Vb.net merupakan bahasa pemrograman yg saya gemari karena cukup mudah dan banyak referensi belajarnya.
Yuk teman-teman kita belajar bareng dari yang dasar.
1. Sediakan 2 komponen label dan masing-masing pada properties text beri nama input dan output
2. sediakan 2 texbox
3. sediakan 1 button

pada button anda klik 2 kali kemudian ketikkan script dibawah ini.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Maaf........ data masih kosong", MsgBoxStyle.Information, "Pesan")
        Else
            TextBox2.Text = TextBox1.Text
            TextBox1.Text = ""
        End If
    End Sub
End Class



Keterangan:

    If TextBox1.Text = "" Then

        

           MsgBox("Maaf........ data masih kosong", MsgBoxStyle.Information, "Pesan")

Jika texbox1 dalam kondisi kosong maka akan menampilkan pesan "("Maaf........ data masih kosong", MsgBoxStyle.Information, "Pesan")

Else

            TextBox2.Text = TextBox1.Text

            TextBox1.Text = ""

        End If

kondisi kedua, jika kondisi diatas terpenuhi maka nilai pada texbox2 adalah nilai texbox 1
kemudian kita hapus data yg ada pada texbox 1

Mohon maaf bahasanya g'karuan maklum baru belajar nulis. he.....