Form Pada Latihan 08
Deskripsi Form Latihan 08
Form latihan 08 terdapat tiga
object yaitu Label, Textbox, dan Button.
Object Label :
Dalam form ini terdapat 12 item 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 :
Dalam form ini terdapat 16 item Textbox yang digunakan untuk
(12 status input dan 4 untuk status
ReadOnly dan juga menggunakan have a scrollbar(vertikal). Status input ini
digunakan untuk menginput data/nilai,
sedangkan untuk status ReadOnly digunakan untuk menampilkan hasil fungsi yang
telah di kerjakan.
Object Button :
Pada Form ini terdapat Satu
object Button yang digunakan yaitu “Close” untuk mengembalikan form pada
keaadaan semula atau kembali kosong.
Cara Untuk Membuat Form Latihan 08 :
1. Pertama
Klik Microsoft Visual Basic 2008 pada computer anda.
2. Pilih dan
Buka Project dalam visual basic.
3. Kemudian
pilih Add Windows form
4.
Lalu add new item dan rename file
“form.vb menjadi Latihan_08_46110020”
5.
Setelah namenya di rename pilih add lalu muncullah
form seperti ini :
6.
Kemudian mulailah membuat form 08 dengan
menggunakan Label, TextBox, dan Button
7. Lalu
buatlah sesuai contoh latihan 08 dengan menggunkan Label sebanyak 12, TextBox
sebanyak 16 dan have a scrollbar (vertical), dan 1 Button untuk Close maka akan
menjadi seperti ini :
-
Ungu = Label
-
Biru =
TextBox
-
Merah = Button
8.
Setelah form di atas telah jadi maka klik kanan
lalu pilih View Code,kemudian masukkan rumus seperti berikut :
Public Class
Latihan_08_46110020
Private Sub CERITA1()
CERITA1_46110020.Text = "Perkenalkan
Nama saya adalah " & Saya46110020.Text & " saya beralamat
tinggal di" & AL_46110020.Text & " saya mempunyai teman baik
yang bernama " & T1_46110020.Text & " dia beralamat tinggal
di " & AL1_46110020.Text & ",kami selalu bersama."
End Sub
Private
Sub CERITA2()
CERITA2_46110020.Text = "Dan saya
juga mempunyai teman yang bernama " & T2_46110020.Text & "
dan " & T3_46110020.Text & " mereka beralamat di " &
AL2_46110020.Text & " dan " & AL3_46110020.Text & "."
& " Kami sering bepergiaan bersama seperti Jalan-jalan, Nonton Film,
dan Shopping."
End Sub
Private Sub CERITA3()
CERITA3_46110020.Text = "Pada
waktu saya Duduk Dibangku Sekolah tepatnya pada saat SMA saya mempunyai teman
yang sangat baik yaitu " & T4_46110020.Text & " dan dia
beralamat " & AL4_46110020.Text & " dia sangat senang cerewet
dan sangat menyenangkan dan setiap hari minggu kami sering mengunjungi pantai
untuk menghilangkan kepenatan."
End Sub
Private Sub CERITA4()
CERITA4_46110020.Text = "Dan Saya
juga mempunyai teman rumah yang bernama " & T5_46110020.Text & "
Kami sangat akrab seperti kakak dan adik dan keluarga kami sangat dekat tetapi
semenjak dia pindah ke " & AL5_46110020.Text & " kami sudah
jarang bertemu."
End Sub
Private Sub Saya46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
Saya46110020.TextChanged
CERITA1()
End Sub
Private Sub AL_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
AL_46110020.TextChanged
CERITA1()
End Sub
Private Sub T1_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
T1_46110020.TextChanged
CERITA1()
End Sub
Private Sub AL1_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
AL1_46110020.TextChanged
CERITA1()
End Sub
Private Sub T2_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
T2_46110020.TextChanged
CERITA2()
End Sub
Private Sub AL2_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
AL2_46110020.TextChanged
CERITA2()
End Sub
Private Sub T3_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
T3_46110020.TextChanged
CERITA2()
End Sub
Private Sub AL3_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
AL3_46110020.TextChanged
CERITA2()
End Sub
Private Sub T4_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
T4_46110020.TextChanged
CERITA3()
End Sub
Private Sub AL4_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
AL4_46110020.TextChanged
CERITA3()
End Sub
Private Sub T5_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
T5_46110020.TextChanged
CERITA4()
End Sub
Private Sub AL5_46110020_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
AL5_46110020.TextChanged
CERITA4()
End Sub
Private Sub CLOSE_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles CLOSE.Click
Saya46110020.Text = ""
T1_46110020.Text = ""
T2_46110020.Text = ""
T3_46110020.Text = ""
T4_46110020.Text = ""
T5_46110020.Text = ""
AL_46110020.Text = ""
AL1_46110020.Text = ""
AL2_46110020.Text = ""
AL3_46110020.Text = ""
AL4_46110020.Text = ""
AL5_46110020.Text = ""
CERITA1_46110020.Text = ""
CERITA2_46110020.Text = ""
CERITA3_46110020.Text = ""
CERITA4_46110020.Text = ""
End Sub
End Class
Langkah –
Langkah Menjalankan Latihan 08 :
1. Pertama, Klik start debugging.
2. Isi text box yang berstatus input seperti nama Anda dan Teman anda
3. Hasil akan muncul
sendri pada cerita 1, atau cerita 2, atau cerita 3, atau cerita 4 setelah anda
menginput textbox yang tersedia untuk di input dan sesuai dengan apa yang anda
masukkan.
4. Untuk menutup atau mengembalikan ke keadaan kosong klik tombol
Close.
Scirpt
unik
Script unik yang terdapat pada latihan
08 yaitu Private Sub CERITA1()...,,
script ini digunakan sebagai Procedure atau rumus yang dapat digunakan disetiap fungsi yang
diinginkan tanpa mengulangi lagi isi procedure tersebut dan adanya penggabungan
kata dari beberapa textbox sperti : Private Sub
CERITA1()
CERITA1_46110020.Text = "Perkenalkan
Nama saya adalah " & Saya46110020.Text & " saya beralamat
tinggal di" & AL_46110020.Text & " saya mempunyai teman baik
yang bernama " & T1_46110020.Text & " dia beralamat tinggal
di " & AL1_46110020.Text & ",kami selalu bersama."
Even
Textchanged
0 komentar:
Posting Komentar