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