Deskripsi Latihan_08_36110038
Form Latihan_08 terdapat dua object
yaitu Label dan Textbox:
Object Label
Terdapat dua belas label (yang
bertuliskan nama; alamat; anda; teman1; teman2; teman3; teman4; teman5; cerita1;
cerita2; cerita3; dan cerita4)
Object Text Box
Terdapat enam belas textbox (dua
belas status input dan empat status multiline=true dengan scrollbars=vertikal).
Status input digunakan untuk memasukkan nilai/text nama saya, nama teman1
sampai dengan nama teman5, alamat saya, dan alamat teman1 sampai alamat teman5.
Status multiline=true dengan scrollbars=vertical digunakan untuk menampilkan
hasil penyambungan text dari nama saya, nama teman1 sampai dengan nama teman5,
alamat saya, dan alamat teman1 sampai alamat teman5. Sehingga menghasilkan
4 cerita yang berbeda-beda.
Property
Property
TextBox ==> ReadOnly=True
Multiline=True
Scrollbars=vertical
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama
Latihan_08_36110038 sesuai form dibawah ini.
4. Ganti
nama textbox dan button menggunakan "Properties Window" sesuai dengan
yang diinginkan.
5. Klik
2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan
rumus berikut untuk menyelesaikan Latihan_08
Public Class Latihan_08_36110038
Private Sub nm1_36110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
nm1_36110038.TextChanged, alm1_36110038.TextChanged, nm2_36110038.TextChanged,
alm2_36110038.TextChanged, nm3_36110038.TextChanged, alm3_36110038.TextChanged,
nm4_36110038.TextChanged, alm4_36110038.TextChanged, nm5_36110038.TextChanged,
alm5_36110038.TextChanged, nm6_36110038.TextChanged, alm6_36110038.TextChanged
cerita1_36110038.Text = "Nama saya adalah " &
nm1_36110038.Text & ", saya tinggal di
makassar bersama kedua orang tua dan saudara-saudara saya. saya tinggal di
" & alm1_36110038.Text & ".
Saya punya tetangga yang sangat baik bernama " &
nm2_36110038.Text & ", dia tinggal tidak
jauh dari rumahku yaitu di " & alm2_36110038.Text & ". ayahnya bernama " &
nm3_36110038.Text & " berasal dari "
& alm3_36110038.Text & " dan ibunya
bernama " & nm4_36110038.Text & "
berasal dari " & alm4_36110038.Text & ". Dia punya seorang tante bernama "
& nm5_36110038.Text & ". Ibu "
& nm5_36110038.Text & " merupakan guru
SLTP saya yang tinggal di jalan " & alm5_36110038.Text & "." & nm6_36110038.Text & " adalah teman sekelasku d SLTP dulu. Sekarang dia
tinggal di " & alm6_36110038.Text
cerita2_36110038.Text = "Nama saya adalah " &
nm1_36110038.Text & ", saya seorang
mahasiswa di " & alm1_36110038.Text & ". saya memiliki teman baik di sana bernama "
& nm2_36110038.Text & ","
& nm3_36110038.Text & ","
& nm4_36110038.Text & " dan "
& nm5_36110038.Text & " mereka
masing-masing berasal dari " & alm2_36110038.Text & "," & alm3_36110038.Text & "," & alm4_36110038.Text & " dan " & alm5_36110038.Text
cerita3_36110038.Text = "Nama saya adalah " &
nm1_36110038.Text & ", saya memiliki 2
saudara perempuan dan 2 saudara laki- laki. Nama mereka adalah "
& nm2_36110038.Text & ","
& nm3_36110038.Text & ","
& nm4_36110038.Text & " dan "
& nm5_36110038.Text & ". Kami tinggal
bersama di " & alm3_36110038.Text
cerita4_36110038.Text = "Nama saya adalah " &
nm1_36110038.Text & ", saya tinggal di
" & alm1_36110038.Text & ".
Tetapi walaupun begitu, saya sering berjalan-jalan ke " &
alm2_36110038.Text & "," &
alm3_36110038.Text & "," &
alm4_36110038.Text & "," &
alm5_36110038.Text & " dan "
& alm6_36110038.Text & " bersama
teman-teman kuliah saya yaitu " & nm2_36110038.Text & "," & nm3_36110038.Text & "," & nm4_36110038.Text & "," & nm5_36110038.Text & " dan " & nm6_36110038.Text
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar