diskripsi dan prosedur latihan 08

22.01 |

DISKRIPSI LATIHAN 8

Latihan_08_36110030

A. Object-object dalam Latihan_08_36110030 :

1. Object Label

Terdapat dua belas 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).

2. Object Textbox

Terdapat enam belas textbox (dua belas status input; empat status read only). Status input digunakan untuk memasukkan nilai yang akan dimasukkan dalam perhitungan. Status Read Only digunakan untuk menampilkan hasil perhitungan dari angka-angkat yang sudah diinput.

3. Object Button

Terdapat satu object button (Close). Button Close digunakan untuk mengosongkan kembali semua TextBox.

B. Script Unique

Untuk button Close

cerita1_36110030.Text = ""

C. Even

cerita1_36110030 TextChanged

Close_Click

D. Property

Property TextBox ==> ReadOnly=True

PROSEDUR PENYELSAIAN LATIHAN 8

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDI0 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT\

4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

Public Class latihan_08_36110030

Private Sub anda_36110030_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles anda_36110030.TextChanged, alamat0_36110030.TextChanged, teman1_36110030.TextChanged, alamat1_36110030.TextChanged, teman2_36110030.TextChanged, alamat2_36110030.TextChanged, teman3_36110030.TextChanged, alamat3_36110030.TextChanged, teman4_36110030.TextChanged, alamat4_36110030.TextChanged, teman5_36110030.TextChanged, alamat5_36110030.TextChanged

cerita1_36110030.Text = " nama saya adalah " & anda_36110030.Text & " saya tinggal di " & alamat0_36110030.Text & " saya memiliki bebrapa teman yaitu " & teman1_36110030.Text & "yang tinggal di " & alamat1_36110030.Text & ", teman kedua bernama " & teman2_36110030.Text & " dia anak yang sangat baik dan suka menolong dia sekarang tinggal di jalan " & alamat2_36110030.Text & ", ada juga teman saya bernama " & teman3_36110030.Text & " dia tinggal di " & alamat3_36110030.Text & " dia orangnya suka mencela dan tidak ramah, dia selalu mau menjadi yang terbaik padahal dia tidak sebaik itu. ada juga teman ku yang sama dengan dia yaitu " & teman4_36110030.Text & " dia beralamat di " & alamat4_36110030.Text & " dan temanku yang lainnya bernama " & teman5_36110030.Text & " dia tidak pelit dan murah senyum ,dia tinggal di" & alamat5_36110030.Text & "."

cerita2_36110030.Text = " nama saya adalah " & anda_36110030.Text & " saya tinggal di " & alamat0_36110030.Text & " saya memiliki bebrapa teman yaitu " & teman1_36110030.Text & "yang tinggal di " & alamat1_36110030.Text & ", teman lainnya bernama " & teman2_36110030.Text & " dia anak yang sangat pemalas tp, menolong dia tinggal di jalan " & alamat2_36110030.Text & ", temankku yang lain juga teman saya bernama " & teman3_36110030.Text & " dia tinggal di " & alamat3_36110030.Text & " dia orangnya ramah, dia jadi yang terbaik padahal dia tidak sebaik itu. ada juga teman ku yang sama dengan dia yaitu " & teman4_36110030.Text & " dia beralamat di " & alamat4_36110030.Text & " dan temanku yang lainnya bernama " & teman5_36110030.Text & " dia tidak pelit dan murah senyum ,dia tinggal di" & alamat5_36110030.Text & "."

cerita3_36110030.Text = " nama saya adalah " & anda_36110030.Text & " saya tinggal di " & alamat0_36110030.Text & " saya memiliki bebrapa teman yaitu " & teman1_36110030.Text & "yang tinggal di " & alamat1_36110030.Text & ", teman kedua bernama " & teman2_36110030.Text & " dia anak yang sangat baik dan suka menolong dia sekarang tinggal di jalan " & alamat2_36110030.Text & ", ada juga teman saya bernama " & teman3_36110030.Text & " dia tinggal di " & alamat3_36110030.Text & " dia orangnya suka mencela dan tidak ramah, dia selalu mau menjadi yang terbaik padahal dia tidak sebaik itu. ada juga teman ku yang sama dengan dia yaitu " & teman4_36110030.Text & " dia beralamat di " & alamat4_36110030.Text & " dan temanku yang lainnya bernama " & teman5_36110030.Text & " dia tidak pelit dan murah senyum ,dia tinggal di" & alamat5_36110030.Text & "."

cerita4_36110030.Text = " nama saya adalah " & anda_36110030.Text & " saya tinggal di " & alamat0_36110030.Text & " saya memiliki bebrapa teman yaitu " & teman1_36110030.Text & "yang tinggal di " & alamat1_36110030.Text & ", teman kedua bernama " & teman2_36110030.Text & " dia anak yang sangat baik dan suka menolong dia sekarang tinggal di jalan " & alamat2_36110030.Text & ", ada juga teman saya bernama " & teman3_36110030.Text & " dia tinggal di " & alamat3_36110030.Text & " dia sangat baik " & teman4_36110030.Text & " dia beralamat di " & alamat4_36110030.Text & " dan temanku yang lainnya bernama " & teman5_36110030.Text & " dia tidak pelit dan murah senyum ,dia tinggal di" & alamat5_36110030.Text & "."

End Sub

Private Sub CLOSE_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE_36110030.Click

cerita1_36110030.Text = ""

cerita2_36110030.Text = ""

cerita3_36110030.Text = ""

cerita4_36110030.Text = ""

End Sub

Private Sub latihan_08_36110030_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

6. KEMUDIAN UJI PROGRAM

7. JIKA SUDAH BERHASIL Save program anda