Form Latihan_02 terdapat tiga object
yaitu Label, Textbox, dan Button:
Object Label
Terdapat
sembilan object Label (ceritaku yang
menarik; nama saya; alamat sekarang; nama ayah; nama ibu; teman terbaik
di SD; teman terbaik SLTP; teman terbaik di SLTA; dan teman di Politeknik)
Object Textbox
Terdapat
sembilan objek textbox (delapan status input dan satu status readonly). Yang
berstatus input yaitu: nama saya; alamat sekarang; nama ayah; nama ibu; teman
terbaik di SD; teman terbaik SLTP; teman terbaik di SLTA; dan teman di
Politeknik. Yang berstatus readonly yaitu “text”.
Object Button
Trdapat
dua object button yaitu” Kisahku” dan “Sekian”.
Button ”kisahku” digunakan untuk menampilkan teks hasil
penyambungan yaitu "Nama
saya adalah " &
nama_36110044.Text & ", "
& "saya adalah cewek berusia 20
tahun" & ", "
& "sekarang ini saya tinggal di"
& alamat_36110044.Text & ". "
& "Orang tua saya bernama "
& ayah_36110044.Text & " dan "
& ibu_36110044.Text & ", "
& "mereka berdua mengharapkan saya untuk
tetap belajar keras demi masa depan yang lebih baik" & ". " & "Saya
telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga
di Politeknik" & ". "
& "Selama mengenyam pendidikan tersebut
saya memiliki beberapa teman terbaik" & ". " & "Di
sekolah dasar saya memiliki teman yang sangat baik bernama " &
sd_36110044.Text & ", " & "setelah lulus di sekolah dasar " &
sd_36110044.Text & " melanjutkan
pendidikan di sekolah yang berbeda dengan saya" & ", " & "saya
melanjutkan pendidikan di SLTP Favorit dan " & sd_36110044.Text
& " pindah ke Jakarta" & ". " & "Di
SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya
semangat hingga saya lulus sama-sama di sekolah" & ", " & "namanya
adalah " & sltp_36110044.Text & ".
" & "Setelah selesai di SLTP
kami sama-melanjutkan di sebuah SLTA" & ", " & "namun
ketika di SLTA si " & sltp_36110044.Text & " memilih Jurusan IPA dan saya sendiri di jurusan
IPS" & ", " & "di kelas saya terdapat seorang perempuan yang
sangat pintar dan orangnya baik pada saya namanya adalah " &
slta_36110044.Text & ", "
& "dia tidak pernah tidak menduduki peringkat
I" & ". " & "Di Politeknik juga saya memiliki teman baik"
& ", " & "namanya ialah " &
poltek_36110044.Text & ". "
& "Hingga semester ini saya masih berteman
baik dengan si " & poltek_36110044.Text & "."
Sedangkan
Buttom “Sekian” untuk mengosongkan kembali textbox.
Script Unique
Button "Kisahku"
text_36110044.Text = "Nama saya adalah " &
nama_36110044.Text & ", "
& "saya adalah cewek berusia 20
tahun" & ", "
& "sekarang ini saya tinggal di"
& alamat_36110044.Text & ". " dst.....dst..
nama_36110044.Text = ""
alamat_36110044.Text = ""
ayah_36110044.Text = ""
ibu_36110044.Text = ""
sd_36110044.Text = ""
sltp_36110044.Text = ""
slta_36110044.Text = ""
poltek_36110044.Text = ""
text_36110044.Text = ""
Even
kisah_36110044_Click
sekian_36110044_Click
Property
Property
TextBox ==> ReadOnly=True
PROSEDUR PENYELESAIAN:
1.
Klik star lalu pilih Microsoft Visual Studio 2008
2.
Pilih file => New => Project
3.
Isi Name dan Location pada kolom yang disiapkan lalu OK
4. Buat form
dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”
5. Ganti nama
Textbox dan Button menggunakan "Properties Window"
6. Klik 2x
pada kotak design untuk membuka lembar vb
Masukkan rumus berikut untuk menyelesaikan latihan_02
Masukkan rumus berikut untuk menyelesaikan latihan_02
Public Class Latihan_02_36110044
Private Sub OKButton_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs)
Me.Close()
End Sub
Private Sub kisah_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles kisah_36110044.Click
text_36110044.Text = "Nama saya adalah " &
nama_36110044.Text & ", "
& "saya adalah cewek berusia 20
tahun" & ", "
& "sekarang ini saya tinggal di"
& alamat_36110044.Text & ". "
& "Orang tua saya bernama "
& ayah_36110044.Text & " dan "
& ibu_36110044.Text & ", "
& "mereka berdua mengharapkan saya untuk
tetap belajar keras demi masa depan yang lebih baik" & ". " & "Saya
telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga
di Politeknik" & ". "
& "Selama mengenyam pendidikan tersebut
saya memiliki beberapa teman terbaik" & ". " & "Di
sekolah dasar saya memiliki teman yang sangat baik bernama " & sd_36110044.Text
& ", " & "setelah lulus di sekolah dasar " &
sd_36110044.Text & " melanjutkan
pendidikan di sekolah yang berbeda dengan saya" & ", " & "saya
melanjutkan pendidikan di SLTP Favorit dan " & sd_36110044.Text
& " pindah ke Jakarta" & ". " & "Di
SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya
semangat hingga saya lulus sama-sama di sekolah" & ", " & "namanya
adalah " & sltp_36110044.Text & ".
" & "Setelah selesai di SLTP
kami sama-melanjutkan di sebuah SLTA" & ", " & "namun
ketika di SLTA si " & sltp_36110044.Text & " memilih Jurusan IPA dan saya sendiri di jurusan
IPS" & ", " & "di kelas saya terdapat seorang perempuan yang
sangat pintar dan orangnya baik pada saya namanya adalah " &
slta_36110044.Text & ", "
& "dia tidak pernah tidak menduduki
peringkat I" & ". "
& "Di Politeknik juga saya memiliki teman
baik" & ", " &
"namanya ialah " &
poltek_36110044.Text & ". "
& "Hingga semester ini saya masih berteman
baik dengan si " & poltek_36110044.Text & "."
End Sub
Private Sub sekian_36110044_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles sekian_36110044.Click
nama_36110044.Text = ""
alamat_36110044.Text = ""
ayah_36110044.Text = ""
ibu_36110044.Text = ""
sd_36110044.Text = ""
sltp_36110044.Text = ""
slta_36110044.Text = ""
poltek_36110044.Text = ""
text_36110044.Text = ""
End Sub
Private Sub Latihan_02_36110044_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
End Sub
End Class
7.
Jalankan program dengan menggunakan “start debugging”
Tidak ada komentar:
Posting Komentar