menu

Rabu, 18 Januari 2012

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.....

Tidak ada komentar:

Posting Komentar