Deskripsi
penyelesaian
Form
Latihan_08_36110034
terdapat tiga object yaitu Label,
Textbox, dan Button:
Terdapat duabelas label (yang bertuliskan anda; teman1; teman2; teman3; teman4; teman5; nama; alamat; cerita1;
cerita2; cerita3; cerita4.)
Object Text Box
Terdapat enambelas textbox (duabelas status input; empat status read only ,multiline, dan scrollbars : vertical).
Status input
digunakan untuk memasukkan data pada
textbox (anda; teman1; teman2; teman3; teman4; dan teman4.) Dan textbox
yang berstatus readonly berada dibawah label yang bertuliskan (cerita1;
cerita2; cerita3; dan cerita3) digunakan untuk memperlihatkan data yang telah
di input.
Object Button
Terdapat satu object button (CLOSE). Yang digunakan
untuk mengkosongkan semua object textbox.
Script Unique
Buttom
"close”
NS_36110034.Text
= ""
NT1_36110034.Text = ""
NT2_36110034.Text = ""
NT3_36110034.Text = ""
NT4_36110034.Text = ""
NT5_36110034.Text = ""
ASY_36110034.Text = ""
AT1_36110034.Text = ""
AT2_36110034.Text = ""
AT3_36110034.Text = ""
AT4_36110034.Text = ""
AT5_36110034.Text = ""
CT1_36110034.Text = ""
CT2_36110034.Text = ""
CT3_36110034.Text = ""
CT4_36110034.Text = ""
Even
CL_36110034_Clik
Property
Property
TextBox ==> ReadOnly=True
TextBox ==> multiline=True
TextBox ==> scroolbars=vertical
Prosedur
penyelesaian
1. buka project yang telah dibuat sebelumnya klik add new item
=> add windows form => ganti nama project => add.
2.
membuat
form dengan menggunakan Label, Textbox, dan Button yang ada dalam
"Toolbox”.
3.
ganti nama textbox dan
button menggunakan "Properties Window".
Public Class latihan_08_36110034
Private Sub
Cer1()
CT1_36110034.Text = "Nama saya
adalah" & NS_36110034.Text & "."
& "saya punya teman bernama"
& NT1_36110034.Text & ","
& "dia tinggal dijalan" &
AT1_36110034.Text
End Sub
Private Sub
cer2()
CT2_36110034.Text = "setiap hari
sabtu,saya selalu berolahraga sama teman saya." & "nama teman saya adalah" &
NT2_36110034.Text & "." &
NT2_36110034.Text & "tinggal dijalan"
& AT2_36110034.Text
End Sub
Private Sub
cer3()
CT3_36110034.Text = "Minggu lalu saya
pergi ke toko buku bersama teman saya." & "teman saya bernama" &
NT3_36110034.Text & ",toko buku itu berada
di jalan" & AT3_36110034.Text
End Sub
Private Sub
cer4()
CT4_36110034.Text = NT4_36110034.Text & "adalah
teman saya." & "dia punya
kakak bernama" & NT5_36110034.Text & "mereka tinggal bersama dijalan" &
AT5_36110034.Text
End Sub
Private Sub
NS_36110034_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles
NS_36110034.MouseMove
End Sub
Private Sub
NS_36110034_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
NS_36110034.TextChanged, NT1_36110034.TextChanged, NT2_36110034.TextChanged,
NT3_36110034.TextChanged, NT4_36110034.TextChanged, NT5_36110034.TextChanged,
ASY_36110034.TextChanged, AT1_36110034.TextChanged, AT2_36110034.TextChanged,
AT3_36110034.TextChanged, AT4_36110034.TextChanged, AT5_36110034.TextChanged
Cer1()
cer2()
cer3()
cer4()
End Sub
Private Sub
CL_36110034_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles CL_36110034.Click
NS_36110034.Text = ""
NT1_36110034.Text = ""
NT2_36110034.Text = ""
NT3_36110034.Text = ""
NT4_36110034.Text = ""
NT5_36110034.Text = ""
ASY_36110034.Text = ""
AT1_36110034.Text = ""
AT2_36110034.Text = ""
AT3_36110034.Text = ""
AT4_36110034.Text = ""
AT5_36110034.Text = ""
CT1_36110034.Text = ""
CT2_36110034.Text = ""
CT3_36110034.Text = ""
CT4_36110034.Text = ""
End Sub
End Class
5. Jalankan
program dengan “start debugging”.
Tidak ada komentar:
Posting Komentar