Deskripsi Form
Latihan 02
·
Form Latihan_02_36110030 terdapat tiga object yaitu label,
textbox, dan button:
1. Object Label
Terdapat
sembilan label (yang bertuliskan ceritaku yang menarik; nama saya; alamat
sekarang; nama ayah; nama ibu; teman terbaik di SD; teman terbaik di SLTP;
teman terbaik di 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; teman terbaik di
SLTP; teman terbaik di SLTA, teman di Politeknik. Status ReadOnly digunakan
untuk menampilkan hasil dari data yang diinput.
3. Object
Button
Terdapat dua
object button (Kisahku dan Sekian). Tombol Kisahku digunakan untuk menampilkan
hasil data yang diinput dari object TextBox (status input) kedalam object
TextBox ReadOnly. Rumus perhitungannya adalah:
Public Class
Form2
Private Sub kisah36110030_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles kisah36110030.Click
isi36110030.Text = "nama saya adalah " &
nama36110030.Text & ",saya adalah cewek
berusia 20 Tahun, sekarang ini saya tinggal di " &
alamat36110030.Text & " orang tua saya
bernama " &
ayah36110030.Text & "dan"
& ibu36110030.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 " & sd36110030.Text & ",
setelah lulus di sekolah dasar" & sd36110030.Text & "melanjutkan pendidikan di sekolah yang berbeda
dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan "
& sd36110030.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
" & sltp36110030.Text & ".
Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA, namun ketika di
SLTA si " & sltp36110030.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" & slta36110030.Text & ",
dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik
mesti tidak satu kelas dengan saya, namanya ialah " &
poltek36110030.Text & ". Hingga semester
ini saya masih berteman baik dengan si" & poltek36110030.Text &
"."
End Sub
Private Sub sekian36110030_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles sekian36110030.Click
isi36110030.Text = ""
End Sub
End Class
Sedangkan tombol Sekian digunakan untuk mengosongkan nilai pada semua
TextBox.
Sekian = “”
·
Script Unique
Untuk button Kisahku:
Kisah36110030_Click
Untuk button Sekian:
NAMA36110030.Text = ""
·
Even
Kisah36110030_Click
Sekian36110030_Click
·
Property
Property TextBox ==> ScrollBars = Vertical
TextBox Tasks ==> MultiLine
PROSEDUR PENYE;ESAIAN LATIHAN 2
A.gerakann panah komputer ke atas sebelah kiri layar kemudian pilih add new item
B.setelah add new item terbuka, pilih windows form, windows form, lalu ketik ketik nama form dan add seperti ini
C.buat form dengan desain seperti ini :
D. setelah from selesai ubah data yang di textboxt dan button menjadi PROSEDUR PENYE;ESAIAN LATIHAN 2
A.gerakann panah komputer ke atas sebelah kiri layar kemudian pilih add new item
B.setelah add new item terbuka, pilih windows form, windows form, lalu ketik ketik nama form dan add seperti ini
C.buat form dengan desain seperti ini :
nama saya : nama36110030
alamat sekarang : alamat36110030
nama ayah : ayah 36110030
nama ibu : ibu36110030
teman terbaik sd : sd36110030
teman terbaik dltp: sltp36110030
teman terbaik di slta : slta36110030
teman terbaik di pnup : pnup36110030
kisahku : kisah36110030
sekian : sekian361100030
kertas isi : isi3610030
E. . setelah itu, masuk ke lembar "vb" dengan cara mengklik 2 kali form dan kemudian masukan rumus berikut.
Private Sub kisah36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kisah36110030.Click
isi36110030.Text = "nama saya adalah " & nama36110030.Text & ",saya adalah cewek berusia 20 Tahun, sekarang ini saya tinggal di " & alamat36110030.Text & " orang tua saya bernama " & ayah36110030.Text & "dan" & ibu36110030.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 " & sd36110030.Text & ", setelah lulus di sekolah dasar" & sd36110030.Text & "melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & sd36110030.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 " & sltp36110030.Text & ". Setelah selesai di SLTP kami sama-melanjutkan di sebuah SLTA, namun ketika di SLTA si " & sltp36110030.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" & slta36110030.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & poltek36110030.Text & ". Hingga semester ini saya masih berteman baik dengan si" & poltek36110030.Text & "."
End Sub
Private Sub sekian36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekian36110030.Click
isi36110030.Text = ""
End Sub
End Class
F. setelah itu uji program dengan mengkklik " star debugging
G. setelah program jalan save lah
I. selesai \(*0*)/
0 komentar:
Posting Komentar