DESKRIPSI LATIHAN 08
Form Latihan 08 terdapat tiga object yaitu Label, Textbox,
dan Button:
Object Label
Terdapat dua belas object Label (yang bertuliskan Nama,
Alamat, Anda, Teman 1, Teman 2, Teman 3, Teman 4, Teman 5, Cerita 1, Cerita 2, Cerita
3, dan Cerita 4)
Object Textbox
Terdapat enam belas object textbox (dua belas status input;
empat status read only). Status input digunakan untuk memasukkan data. Status
Read Only digunakan untuk menampilkan hasil dari data yang telah diinput.
RUMUS PERHITUNGAN : buat cerita yang berbeda pada masing-masing
Object textbox yaitu Cerita 1, Cerita 2, Cerita 3, dan Cerita 4
Object Button
Terdapat satu object button yaitu
“Close”
Object button ini digunakan untuk
mengosongkan kembali object TextBox.
Script Unique
CERITA1_36110043.Text = " AKU ADALAH " &
NMANDA_36110043.Text & " saya tinggal di
" & ALANDA_36110043.Text & "
saya punya teman dia adalah " & TEMAN1_36110043.Text...
Even
NMANDA_36110043_TextChanged
BUTTON Click
Property
Property TextBox ==> ReadOnly=True
Property TextBox ==> ScrollBars=Vertical
LANGKAH-LANGKAH
1.
BUKA
Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Click icon "Add new Item"
3.
pilih Windows Form, lalu
isi Name dengan Nama Latihan 08 dan click add.
4.
Buat design Form sesuai dengan Form
diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}
5. Ganti nama setiap object kecuali Label menggunakan
"Properties Window"
6. Klik 2x pada design form yang telah dibuat untuk membuka lembar Scripnya.
7.
Masukkkan Scrip di bawah
ini.
SCRIPT LATIHAN 8
Public Class LATIHAN_08_36110043
Private Sub NMANDA_36110043_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
NMANDA_36110043.TextChanged, TEMAN1_36110043.TextChanged,
TEMAN2_36110043.TextChanged, ALTEMAN3_36110043.TextChanged,
ALTEMAN4_36110043.TextChanged, ALTEMAN5_36110043.TextChanged
CERITA1_36110043.Text = " AKU ADALAH " &
NMANDA_36110043.Text & " saya tinggal di
" & ALANDA_36110043.Text & "
saya punya teman dia adalah " & TEMAN1_36110043.Text & " dia teman SD saya, dia tinggal di "
& ALTEMAN1_36110043.Text
CERITA2_36110043.Text =
NMANDA_36110043.Text & " adalah seorang
pengusaha sukses, dia tinggal di " & ALANDA_36110043.Text &
" dia punya begitu banyak rekan kerja,
salah-satunya seorang pengusaha muda yang bernama " &
TEMAN1_36110043.Text & " dia sangat sibuk.
dia tinggal di " & ALTEMAN1_36110043.Text
CERITA3_36110043.Text = NMANDA_36110043.Text
& " adalah seorang mahasiswa di politeknik
negeri ujung pandang. dia pendatag dari " &
ALANDA_36110043.Text & " dia tidak sendiri
akan tetapi dia bersama temannya yang bernama " &
TEMAN1_36110043.Text & " dia juga berasal
dari " & ALTEMAN1_36110043.Text
End Sub
Private Sub ALANDA_36110043_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
ALANDA_36110043.TextChanged, ALTEMAN1_36110043.TextChanged,
ALTEMAN2_36110043.TextChanged, ALTEMAN3_36110043.TextChanged,
ALTEMAN4_36110043.TextChanged, ALTEMAN5_36110043.TextChanged
CERITA1_36110043.Text = " AKU ADALAH " &
NMANDA_36110043.Text & " saya tinggal di
" & ALANDA_36110043.Text & "
saya punya teman dia adalah " & TEMAN1_36110043.Text & " dia teman SD saya, dia tinggal di "
& ALTEMAN1_36110043.Text
CERITA2_36110043.Text =
NMANDA_36110043.Text & " adalah seorang
pengusaha sukses, dia tinggal di " & ALANDA_36110043.Text &
" dia punya begitu banyak rekan kerja,
salah-satunya seorang pengusaha muda yang bernama " &
TEMAN1_36110043.Text & " dia sangat sibuk.
dia tinggal di " & ALTEMAN1_36110043.Text
CERITA3_36110043.Text =
NMANDA_36110043.Text & " adalah seorang
mahasiswa di politeknik negeri ujung pandang. dia pendatag dari "
& ALANDA_36110043.Text & " dia tidak
sendiri akan tetapi dia bersama temannya yang bernama " &
TEMAN1_36110043.Text & " dia juga berasal
dari " & ALTEMAN1_36110043.Text
End Sub
End Class
TERAKHIR,,,SAVE
DAN UNTUK MENJALANKAN PROGRAM INI CLICK STAR DEBUGGING
FINISH......
Tidak ada komentar:
Posting Komentar