Selasa, 18 September 2012
di
21.17
|
Form Latihan_08_36110037
terdapat tiga object yaitu Label, textbox, dan button.
Object Label
Terdapat dua belas label.
Object Textbox
Object Textbox
Terdapat enam belas
textbox yang terdiri dari 12 textbox berstatus input dan 4 textbox
berstatus read only.
Script Unique
Pada saat
membuat call prosedur
Private Sub cerita1()
Cerita1_36110037.Text = "Nama saya adalah " & NA_36110037.Text & " dan saya tinggal di " & alma_36110037.Text & "
Cerita1_36110037.Text = "Nama saya adalah " & NA_36110037.Text & " dan saya tinggal di " & alma_36110037.Text & "
Dst.
Saat Button
Click
Private Sub Close_36110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110037.Click
Close()
End Sub
Close()
End Sub
Saat Text changed
Private Sub alma_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles alma_36110037.TextChanged cerita1()
cerita2()
cerita3()
cerita4()
End Sub
cerita2()
cerita3()
cerita4()
End Sub
Event
Buttonclick
Textchanged
Property
Property textbox :
Readonly = True
Multiline = True
Scrollbar = Vertical
1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan
klik new item.
5. buat form seperti di bawah ini dengan menggunakan
toolbox.
6. setelah form selesai, ubah nama textbox dan button
menggunakan properties window.
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Private Sub cerita1()
Cerita1_36110037.Text = "Nama saya adalah " & NA_36110037.Text & " dan saya tinggal di " & alma_36110037.Text & ". Saya mempunyai 3 sahabat yang bernama " & N1_36110037.Text & ", " & N2_36110037.Text & ", dan " & N3_36110037.Text & ". mereka masing-masing tinggal di " & alm1_36110037.Text & ", " & alm2_36110037.Text & " dan " & alm3_36110037.Text & "."
End Sub
Private Sub cerita2()
Cerita2_36110037.Text = "" & NA_36110037.Text & " adalah sebuah pangeran yang tinggal di suatu istana yang bertempat di " & alma_36110037.Text & ". " & NA_36110037.Text & " mempunyai 5 anak nuah yang sangat tangguh dari daerah yang sangat jauh. mereka bernama " & N1_36110037.Text & ", " & N2_36110037.Text & ", " & N3_36110037.Text & ", " & N4_36110037.Text & ", dan " & N5_36110037.Text & ","
End Sub
Private Sub cerita3()
Cerita3_36110037.Text = "seorang petani yang bernama " & NA_36110037.Text & " memiliki sebuah kebun tomat di " & alma_36110037.Text & ". " & NA_36110037.Text & " sudah menikah, tetapi dia ditinggal mati istrinya. Dia mempunyai 2 anak yang bernama " & N1_36110037.Text & " dan " & N2_36110037.Text & "."
End Sub
Private Sub cerita4()
Cerita4_36110037.Text = "Si " & N1_36110037.Text & " anak nakal karena dia suka memukul " & N2_36110037.Text & ". dia sangat suka mengganggu, terlebih lagi terhadap " & N3_36110037.Text & ". Dia memiliki musuh bebuyutan yang bernama " & N4_36110037.Text & " dan " & N5_36110037.Text & "."
End Sub
Private Sub alma_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles alma_36110037.TextChanged, alm1_36110037.TextChanged, alm2_36110037.TextChanged, alm3_36110037.TextChanged, alm4_36110037.TextChanged, alm5_36110037.TextChanged, NA_36110037.TextChanged, N1_36110037.TextChanged, N2_36110037.TextChanged, N3_36110037.TextChanged, N4_36110037.TextChanged, N5_36110037.TextChanged
cerita1()
cerita2()
cerita3()
cerita4()
End Sub
Private Sub Close_36110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close_36110037.Click
Close()
End Sub
End Class
8. Uji program dengan mengklik "Start
Debugging".
9. Save program dengan mengklik icon "save".
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar