Latihan_08_46110022
DESKRIPSI
FORM
- Merah = objek label
- Biru = objek textbox (status input) ==> Status input digunakan untuk menginput nilai yang digunakan dalam perhitungan.
- Hijau = objek textbox (status Read Only and scrollbar(vertikal)) ==> status Read Only digunakan untuk menampilkan hasil perhitungan dari nilai yang sudah diinput.
- Hitam = button ==> terdapat 1 buah button yaitu “Close” yang berfungsi untuk menutup window form.
Script
Unique :
Private Sub
cerita1() ==> script ini digunakan sebagai Procedure yang dapat
digunakan disetiap fungsi yang diinginkan tanpa mengulang apa isi procedure
tersebut.
Even :
Textchanged
Properti :
Property
TextBox ==> ReadOnly=True
Langkah-Langkah
Membuat Latihan 08
1.
Klik “START” lalu pilih Microsoft Visual Studio 2008
2.
Kemudian pilih kumpulan latihan seperti berikut
3.
Pilih menu Project lalu klik "add windows
form"
4.
Ketik nama form "Latihan_08_46110007" pada name kemudian click add
5.
Kemudian buat form seperti berikut ini
6.
Setelah selesai membuat form, masukan rumus seperti berikut ini
Public Class Latihan_08_46110022
Private Sub
CERITA1()
CERITA146110022.Text = "Nama saya adalah " &
TB146110022.Text & " saya tinggal di
" & TB746110022.Text & "
saya mempunyai teman baik yang bernama " & TB246110022.Text
& " dia tinggal di " & TB846110022.Text
End Sub
Private Sub
CERITA2()
CERITA246110022.Text = "Saya mempunyai teman-teman yang selalu menemani
saya mereka adalah " & TB346110022.Text & " dan " & TB446110022.Text & " mereka tinggal di " &
TB946110022.Text & " dan "
& TB1046110022.Text & "."
& "siap sore kami selalu belajar bersama
di rumahku."
End Sub
Private Sub
CERITA3()
CERITA346110022.Text = "sewaktu SMA saya mempunyai teman sebanggu yang
bernama " & TB546110022.Text & "
dia tinggal di " & TB1146110022.Text & ", dia sangat menyenangkan sebagai teman."
End Sub
Private Sub
CERITA4()
CERITA446110022.Text = TB646110022.Text
& " adalah teman kecil saya, dia tinggal
di " & TB1246110022.Text & ".
Kami sudah lama tidak bertemu karena sekarang dia melanjutkan sekolahnya di
daerah lain."
End Sub
Private Sub
TB146110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB146110022.TextChanged
CERITA1()
End Sub
Private Sub
TB746110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB746110022.TextChanged
CERITA1()
End Sub
Private Sub
TB246110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB246110022.TextChanged
CERITA1()
End Sub
Private Sub
TB846110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB846110022.TextChanged
CERITA1()
End Sub
Private Sub
TB346110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB346110022.TextChanged
CERITA2()
End Sub
Private Sub
TB946110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB946110022.TextChanged
CERITA2()
End Sub
Private Sub
TB446110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB446110022.TextChanged
CERITA2()
End Sub
Private Sub
TB1046110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB1046110022.TextChanged
CERITA2()
End Sub
Private Sub
TB546110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB546110022.TextChanged
CERITA3()
End Sub
Private Sub
TB1146110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB1146110022.TextChanged
CERITA3()
End Sub
Private Sub
TB646110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB646110022.TextChanged
CERITA4()
End Sub
Private Sub
TB1246110022_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles
TB1246110022.TextChanged
CERITA4()
End Sub
Private Sub
CLOSE_46110022_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles CLOSE_46110022.Click
TB146110022.Text = ""
TB246110022.Text = ""
TB346110022.Text = ""
TB446110022.Text = ""
TB546110022.Text = ""
TB646110022.Text = ""
TB746110022.Text = ""
TB846110022.Text = ""
TB946110022.Text = ""
TB1046110022.Text = ""
TB1146110022.Text = ""
TB1246110022.Text = ""
CERITA146110022.Text = ""
CERITA246110022.Text = ""
CERITA346110022.Text = ""
CERITA446110022.Text = ""
End Sub
End Class
7.
Untuk menjalankan form ini, klik tombol debugging seperti berikut ini
Langkah-Langkah
Menjalankan Latihan 08
·
Klik
simbol debugging.
·
Isi textbox yang
berstatus input, sesuai dengan yang diinginkan.
·
Hasil
akan muncul sendri setelah anda menginput textbox yang tersedia untuk di input.
·
Untuk
menutup klik “close”.
·
Good
luck…
Postingan
