Latihan_02_36110051
DESKRIPSI DAN PROSEDUR PENGERJAAN
1.
Object Label
Terdapat sembilan label (yang bertuliskan ceritaku
yang menarik, nama saya, alamat sekarang, nama ayah, nama ibu, teman terbaik di
SD; SLTP; SLTA, teman di Politeknik.
2.
Object Textbox
Terdapat sembilan textbox (delapan status input; satu
status ReadOnly). Status input digunakan untuk memasukkan nilai:
Nama saya,
alamat sekarang, nama ayah, nama ibu, teman terbaik di SD; SLTP; SLTA, teman di
Politeknik. Status ReadOnly digunakan untuk menampilkan hasil dari input.
3.
Object Button
Terdapat dua object button (Kisahku dan Sekian).
Tombol Kisahku digunakan untuk menampilkan hasil input di object TextBox
ReadOnly (Hasil36110051). Rumus
perhitungannya adalah:
Hasil36110051.Text = "Nama saya adalah " & a36110051.Text
& "," & " saya adalah cowok/cewek berusia 20 Tahun,sekarang
ini saya tinggal di " & b36110051.Text & "." & "
Orang tua saya bernama " & c36110051.Text & " dan " & d36110051.Text & "," & "
mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang
lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari
sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya
memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang
sangat baik bernama " & e36110051.Text & "," & "
setelah lulus di sekolah dasar " & e36110051.Text & " melanjutkan pendidikan di sekolah yang berbeda
dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan "
& e36110051.Text & " pindah ke
Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu
memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah
" & f36110051.Text & "."
& " Setelah selesai di SLTP kami
sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si " &
f36110051.Text & " memilih Jurusan IPA dan
saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang
sangat pintar dan orangnya baik pada saya namanya adalah " &
g36110051.Text & "," & " dia tidak pernah tidak menduduki peringkat I. Di
Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya
ialah " & h36110051.Text & "."
& " Hingga semester ini saya masih
berteman baik dengan si " & h36110051.Text & "."
·
SCRIPT
UNIQUE
Menyambung text yang akan
ditampilkan pada textbox tertentu.
Textbox9.Text = “ Nama saya
adalah “& a36110051 &”, Saya adalah cowok/cewek berusia 20 tahun.”
Mengosongkan nilai Textbox
Textbox1.Text = “ ”
Dst.
·
EVENT
Buttonclick
·
PROPERTY
Property textbox :
Readonly=True
Multiline = True
Multiline = True
Backcolor = Info
v PROSEDUR PENYELESAIAN
1. Buka Ms. Visual
Studio
2. Klik Create
Project
3. Ketik nama file
yang ingin disimpan
4. Akan terbuka
jendela pekerjaan Ms. Visual Studio
6. Buat text pada
form dengan menggunakan label, al:
a.
“CERITAKU YANG MENARIK” sebagai judulnya.
b.
“Nama saya”
c.
“Alamat sekarang”
d.
“Nama Ayah”
e.
“Nama Ibu”
f.
“Teman terbaik di SD”
g.
“Teman terbaik di SLTP”
h.
“Teman terbaik di SLTA”
i.
“Teman di Politeknik”
7. Buat kolom sesuai
dengan design pada latihan 2 dengan textbox,
kolom sebanyak 9
a. Kolom 1 diberi nama “a36110051”
b. Kolom 2 diberi nama “b36110051”
c. Kolom 3 diberi nama “c36110051”
d. Kolom 4 diberi nama “d36110051”
e.
Kolom 5 diberi nama “e36110051”
f. Kolom 6 diberi nama “f46110051”
g. Kolom 7 diberi nama
“g36110051”
h. Kolom 8 diberi nama
“h36110051”
i. Kolom 9
diberi nama “Hasil36110051”
8. Buat tombol sesuai dengan design pada latihan 2
dengan button
a.
Button 1 berisi teks “Kisahku” dengan nama “K36110051”
b. Button
2 berisi teks “Sekian” dengan nama “sekian36110051”
9. Setelah itu,
masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian
ketikkan formula berikut.
Public Class latihan_02_36110051
Private Sub latihan_02_36110051_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub k36110051_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles K36110051.Click
Hasil36110051.Text = "Nama saya adalah " & a36110051.Text
& "," & " saya adalah cewek berusia 20 Tahun,sekarang ini
saya tinggal di " & b36110051.Text & "." & "
Orang tua saya bernama " & c36110051.Text & " dan " & d36110051.Text & "," & "
mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang
lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari
sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya
memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang
sangat baik bernama " & e36110051.Text & "," & "
setelah lulus di sekolah dasar " & e36110051.Text & " melanjutkan pendidikan di sekolah yang berbeda
dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan "
& e36110051.Text & " pindah ke
Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu
memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah
" & f36110051.Text & "."
& " Setelah selesai di SLTP kami
sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si " &
f36110051.Text & " memilih Jurusan IPA dan
saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang
sangat pintar dan orangnya baik pada saya namanya adalah " &
g36110051.Text & "," & " dia tidak pernah tidak menduduki peringkat I. Di
Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya
ialah " & h36110051.Text & "."
& " Hingga semester ini saya masih
berteman baik dengan si " & h36110051.Text & "."
End Sub
Private Sub sekian36110051_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles Sekian36110051.Click
Hasil36110051.Text = ""
End Sub
End Class
10.
Uji program dengan mengklik “Start Debbuging”.
11.
Save program dengan mengklik “Save”.
12.
Sekian.
Tidak ada komentar:
Posting Komentar