Latihan_08_36110033
A.
Object-object dalam Latihan_08_36110033:
1. Object Label
Terdapat 12 label
dalam latihan 08 yang bertuliskan (yang bertuliskan nama, alamat, anda, teman
1, teman 2, teman 3, teman 4, teman 5, cerita 1, cerita 2, cerita 3, dan cerita
4) pada text dalam property tiap label yang dibuat.
2. Object Textbox
Terdapat
enam belas textbox, dua belas status input dan 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
NA_36110033.Text = ""
NT1_36110033.Text = ""
NT2_36110033.Text = ""
NT3_36110033.Text = ""
NT4_36110033.Text = ""
NT5_36110033.Text = ""
AA_36110033.Text = ""
A1_36110033.Text = ""
A2_36110033.Text = ""
A3_36110033.Text = ""
A4_36110033.Text = ""
A5_36110033.Text = ""
C1_36110033.Text = ""
C2_36110033.Text = ""
C3_36110033.Text = ""
C4_36110033.Text = ""
C.
Even
CLS_36110033_Click
NA_36110033_TextChanged
D.
Property
Property TextBox ==> ReadOnly=True
Prosedur
1.
Klik Start lalu pilih Microsoft
Visual Studio 2008
1. Buka Ms.
Visual Studio
2. Lalu akan muncul jendela awal
Microsoft Visual Studio
3. Klik Add New
Item dan akan muncul jendela add new item seperti berikut:
Setelah
muncul pilih windos from, kemudian
ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add.. Langkah ini dilakukan karena kita
sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan
membuat project
4. Buat text
pada form dengan menggunakan label,
sebanyak 2 label. Dengan nama text masing-masing bernama nama, alamat, anda, teman 1, teman 2, teman 3, teman 4, teman 5, cerita
1, cerita 2, cerita 3, dan cerita 4.
Adapun posisi lebel disesuai dengan
design pada latihan08.
5. Buat kolom
sesuai dengan design pada latihan 08 dengan mengguanakan textbox, sebanyak 16 kolom.
Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor
stambuk. 12 textbox menggunakan readonly false dan selebihnya
menggunakan readonly true.
6. Buat 1
tombol sesuai dengan design pada latihan 08 dengan menggunakan button. Kemudian beri nama text close kemudian beri nama apa saja yang anda inginkan atau CLS_36110033.
7. Untuk
menuliskan rumus pada latihan 08, klik dua kali pada NA_36110033 dan CLS_36110033_Click kumudian
tuliskan rumusnya masing-masing seperti dibawah ini:
Public Class Latihan_08_36110033
Private Sub NA_36110033_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NA_36110033.TextChanged
C1_36110033.Text = "Nama
saya adalah " & NA_36110033.Text & "sekarang
ini saya tinggal di " & AA_36110033.Text & ". SAYA MEMILIKI BEBERAPA TEMAN, TEMAN SAYA SI
" & NT1_36110033.Text & "
DIA TINGGAL di" & A1_36110033.Text & " dekat dengan rumah saya. saya sering berkunjung ke
rumahnya bersama" & NT2_36110033.Text & " rumahnya juga tidak jauh dari rumahku. dia juga
punya teman cewek yang sering diajak main bersama " &
NT3_36110033.Text & " yang tinggal serumah
dengannya di" & A2_36110033.Text & "
walaupun rumah sebenarnya tidak disitu, melainkan" &
A3_36110033.Text & ". Saya kuliah di
Politeknik Negeri Ujung Pandang bersama dengan " &
NT4_36110033.Text & ". dia tinggal di
kos-kosan tepatnya di" & A4_36110033.Text & ", dikosannya dia tinggal bersama adiknya"
& NT5_36110033.Text & " dan jelas dia
tinggal ditempat yang sama di" & A5_36110033.Text & "."
C2_36110033.Text = " nama
saya" & NA_36110033.Text & "saya
tinggal bersama mama di" & AA_36110033.Text & ". saya punya teman kecil" &
NT1_36110033.Text & "yang tinggal tidak
jauh dari rumah"& A1_36110033.Text&".
disekolah kami sering bermain dengan" & NT2_36110033.Text&","&NT3_36110033.Text&" dan " & NT4_36110033.Text &" yang masing-masing tinggal di"&A2_36110033.Text&","& A3_36110033.Text & " dan " & A4_36110033.Text & ". Disekolah ada seorang cowok yang sangat aneh
menurut saya, namanya" & NT5_36110033.Text &" dan tinggal tidak jauh dari sekolah namun selalu
terlambat kesekolah. dia tinggal di" & A5_36110033.Text & " hanya sekitar 30 meter dari sekolah."
C3_36110033.Text = "Saya
adalah seorang mahasisiwa dari sebuah perguruan tinggi di" &
AA_36110033.Text&", teman teman
memanggilku" & NA_36110033.Text & ".
Banyak masalah yang sering terjadi dikampus dan juga dirumah selama saya
kuliah." & NT1_36110033.Text & "adalah
tempat saya berbagi cerita tersebut, dia tinggal tak jauh dari kampus"
& A1_36110033.Text & ". dikampus dia
selalu bergaul dengan siapa saja, termasuk" & NT2_36110033.Text
& "," & NT3_36110033.Text
& " dan " &
NT4_36110033.Text & ". Walaupun tempat
Rumah mereka jauh dan tidak searah, "&A2_36110033.Text & "," & A3_36110033.Text & " dan " & A4_36110033.Text & ". Jarak mereka sangat jauh akan tetapi waktu tiba
kekampus hampir selalu bersamaan. Saya dimakassar tinggal dikos-kosan, orang
tuaku tinggal di barru "& NT5_36110033.Text & " bersama dengan adikku"
&A5_36110033.Text& "."
C4_36110033.Text = " saya
berasal dari" & AA_36110033.Text & "
dan nama saya" & NA_36110033.Text & ". " & NT1_36110033.Text & " adalah teman saya yang tinggal di "
& A1_36110033.Text & " tak jauh dari
temapat saya ada " & NT2_36110033.Text& "tinggal di"&A2_36110033.Text&".saya punya sepupu bernama"&
NT3_36110033.Text&" Dia tinggal bersama
keluarga saya" & NT4_36110033.Text&",
alamtnya di"& A4_36110033.Text & ".
Rumah sepupu saya sebenarnya " & A3_36110033.Text & ". Alasan dia tinggal di rumah keluarga saya, agar
dia ada teman untuk belajar. Disana dia punya teman yang bernama "
& NT5_36110033.Text & " yang tinggal
tak jauh dari tempat ia tinggal sekarang " & A5_36110033.Text
& "."
End Sub
Rumus untuk Close:
Private Sub CLS_36110033_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles CLS_36110033.Click
NA_36110033.Text = ""
NT1_36110033.Text = ""
NT2_36110033.Text = ""
NT3_36110033.Text = ""
NT4_36110033.Text = ""
NT5_36110033.Text = ""
AA_36110033.Text = ""
A1_36110033.Text = ""
A2_36110033.Text = ""
A3_36110033.Text = ""
A4_36110033.Text = ""
A5_36110033.Text = ""
C1_36110033.Text = ""
C2_36110033.Text = ""
C3_36110033.Text = ""
C4_36110033.Text = ""
End Sub
End Class
8. Kemudian di Start Debbuging,
maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba
jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk
mengetahui hasilnya yang lebih jelas lagi.
9. Jika program
berjalan simpan dengan menekan tombol ctrl+s
untuk menyimpan data dan prosedur
latihan 08 selesai.
Tidak ada komentar:
Posting Komentar