Deskripsi from
Object Label
Pada latihan
08 ini terdapat Terdapat 12 label (Nama, Alamat, Anda, Teman 1, Teman
2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2,Cerita 3,
dan Cerita 4)
Object Textbox
Pada form
ini terdapat juga 16 textbox (12 status input, 4 berstatus read only dan have a
scrollbar(vertikal)). Status input digunakan untuk menginput nilai yang digunakan
dalam perhitungan sedangkan status Read Only digunakan untuk menampilkan hasil
perhitungan dari nilai yang sudah diinput.
Object Button
Pada form
ini terdapat 1 buah button yaitu “Close” yang berfungsi untuk menutup window
form..
Script Unique
Terdapat Script unik pada form ini yaitu “Private Sub rsty()” script ini digunakan sebagai Procedure yang dapat digunakan
disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure tersebut.
Even
Button click
Property
Property TextBox ==>
ReadOnly=True
Langkah-langkah membuat Latihan 08
1. Klik “START” lalu pilih Microsoft Visual Studio 2008
2. Setelah
itu pilih Kumpulan Latihan seperti berikut ini
3. Pilih
menu Project lalu klik
add windows form
4. Ketik
nama latihan_08 yang akan dibuat pada
kotak “NAME” lalu pilih “add”
5. Buatlah
desain seperti berikut menggunakan toolbox
6. Pilih
menu “view” klik “code”
7. Masukkan
rumus berikut:
Public Class Latihan_08_46110027
Private Sub rsty1()
crt1_46110027.Text = anda_46110027.Text
& " adalah seorang siswa yang terbiasa
hidup di perkotaan, dia tinggal di" & almt_46110027.Text & ". Karena ayah " &
anda_46110027.Text & " dipindahtugaskan di
sebuah pedesaan terpencil, maka " & anda_46110027.Text & " juga ikut pindah sekolah. Untungnya, di sekolah
barunya " & anda_46110027.Text & "
punya teman yang sangat baik yang bernama " &
tmn4_46110027.Text & "tinggal di"
& almt4_46110027.Text & ". sehingga
" & anda_46110027.Text & "
merasa betah. Di sekolah barunya, ternyata " &
anda_46110027.Text & " ditaksir oleh salah
seorang siswa yang sangat populer di sekolahnya yaitu" &
tmn1_46110027.Text & ". "
& tmn1_46110027.Text & " adalah ketua
OSIS dan pemain basket terhebat di sekolah tersebut, dia tinggal di"
& almt1_46110027.Text & ". Dan "
& tmn1_46110027.Text & " juga naksir
sama " & anda_46110027.Text & "."
End Sub
Private Sub rsty2()
crt2_46110027.Text = tmn1_46110027.Text
& " adalah orang yang sangat sombong.
" & tmn1_46110027.Text & "
memilki dua orang teman yang bernama " & tmn3_46110027.Text
& " dan " &
tmn4_46110027.Text & ". masing-masing
tinggal di" & almt3_46110027.Text & almt4_46110027.Text
& " Di sekolahnya, mereka dijuluki sebagai
GENG ANGKUH."
End Sub
Private Sub rsty3()
crt3_46110027.Text = tmn2_46110027.Text
& " memiliki dua orang sudara yang bernama
" & tmn1_46110027.Text & "
dan " & tmn3_46110027.Text & ".
Mereka bertiga sangat akur, kompak, dan sering jalan bareng."
End Sub
Private Sub rsty4()
crt4_46110027.Text = tmn3_46110027.Text
& " mempunyai dua orang sahabat. Lucunya,
mereka hanya bersahabat lewat dunia maya yaitu dengan chatting lewat YM dan FB.
Awalnya " & tmn1_46110027.Text & "
mendapat alamat email " & tmn3_46110027.Text & " dari salah seorang temannya yang bernama "
& tmn4_46110027.Text & ". Semenjak
saai itulah mereka bersahabat walaupun hanya lewat dunia maya."
End Sub
Private Sub anda_46110027_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
almt4_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub tmn1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
tmn1_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub tmn2_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles tmn2_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub tmn3_46110027_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
tmn3_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub tmn4_46110027_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
tmn4_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub Tmn5_46110027_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
tmn5_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub almt_46110027_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
almt_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub almt1_46110027_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
almt1_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub almt3_46110027_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
almt3_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub almt4_46110027_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
almt4_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub almt5_46110027_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles almt5_46110027.TextChanged
rsty1()
rsty2()
rsty3()
rsty4()
End Sub
Private Sub CLOSE_46110027_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Close_46110027.Click
crt1_46110027.Text = ""
crt2_46110027.Text = ""
crt3_46110027.Text = ""
crt4_46110027.Text = ""
anda_46110027.Text = ""
almt_46110027.Text = ""
tmn1_46110027.Text = ""
tmn2_46110027.Text = ""
tmn3_46110027.Text = ""
tmn4_46110027.Text = ""
tmn5_46110027.Text = ""
almt1_46110027.Text = ""
almt2_46110027.Text = ""
almt3_46110027.Text = ""
almt4_46110027.Text = ""
almt5_46110027.Text = ""
End Sub
End Class
Langkah – Langkah Menjalankan Form 07
- klik start debugging
- Input nama dan alamat pada textbox yang yang telah tersedia. Secara otomatis textbox berstatus readonly (cerita 1, 2, 3 dan 4) akan terisi cerita berdasarkan nama dan alamat yang telah diinput.
- Klik tombol “close” untuk kembali ke tampilan awal program atau menghapus data pada textbox input dan readonly.
Postingan
0 komentar:
Posting Komentar