Pada kali ini saya akan mengajarkan kalian untuk membuat sebuah perhitungan luas persegi panjang..
Yang harus kalian buat terlebih dahulu yaitu desain form kalian.. saya anjurkan untuk sesuai dengan desain form saya supaya anda tidak pusing...
Setelah anda membuat desain formnya, Kita akan membuat fungsi hitung supaya panjang dikalikan lebar hasilnya akan keluar pada label4..
jadi, klik Button1 yaitu hitung.. lalu ketik kode seperti ini..
-------------------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Label4.Text = TextBox1.Text*TextBox2.Text
End Sub
--------------------------------------------------------------------------------------------------------
Keterangan :
ketika Button1 di Clik, maka, TextBox1 dikalikan dengan TextBox2 yang mana hasilnya akan diletakkan di label4
Setelah itu, kita akan membuat fungsi Button2 yaitu Bersih...
ketika kita menekan fungsi bersih, maka textbox1,textbox2, dan label4 akan dibersihkan dan kursornya akan berada di textbox1..
Klik Button2... Lalu ketik kode seperti ini...
-------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label4.Text = ""
TextBox1.Focus()
End Sub
--------------------------------------------------------------------------------------------------------
Keterangan :
Ketika Button2 di click, maka isi dari textbox1,textbox2,label4 akan dikosongkan dengan menggunakan "", lalu kursor akan langsung ke textbox1 dengan menggunakan method Focus()
Setelah itu, saya akan menambahkan sebuah event lagi untuk Aplikasi kita ini... lihatlah gambar dibawah ini
Pada saat kursor diarahkan ke Panjang, maka Panjang akan berwarna merah, dan pada saat kursor diarahkan ke Lebar, maka Lebar akan berwarna merah dan Panjang akan menjadi hitam lagi...
Nah gimanakah caranya ??
tekan Textbox1 lalu ikuti Koding dibawah ini :
-------------------------------------------------------------------------------------------------------
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
Label1.ForeColor = Color.Red
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Label1.ForeColor = Color.Black
End Sub
-------------------------------------------------------------------------------------------------------
Keterangan :
ubah event click textbox1 menjadi GotFocus, sama juga halnya dengan LostFocus...
foreColor berguna untuk mengubah warna pada tulisan dari label yang ditunjuk, yang mana sesuai dengan Color.(terserah mau isi apa) warna yang anda pilih
GotFocus = melakukan segala perintah yang ada didalam pada saat kursor lagi ditempat tersebut
LostFocus = melakukan segala perintah yang ada didalam pada saat kursor tidak ada ditempat
Nah gimana teman teman ??
Sampai disinilah Pengkodingan kita. Saya harap ini bisa berguna bagi anda dan Saya juga berharap anda mengerti apa yang saya jelaskan. Kalau anda tidak mengerti, berikanlah komentar anda dan saya akan membalasnya, Tapi, jika saya belum membalasnya selama beberapa hari, Tolong anda ingatkan saya di Chatbox yang ada disebalah kanan anda...
Terima Kasih Atas Perhatiannya
Yang harus kalian buat terlebih dahulu yaitu desain form kalian.. saya anjurkan untuk sesuai dengan desain form saya supaya anda tidak pusing...
Setelah anda membuat desain formnya, Kita akan membuat fungsi hitung supaya panjang dikalikan lebar hasilnya akan keluar pada label4..
jadi, klik Button1 yaitu hitung.. lalu ketik kode seperti ini..
-------------------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Label4.Text = TextBox1.Text*TextBox2.Text
End Sub
--------------------------------------------------------------------------------------------------------
Keterangan :
ketika Button1 di Clik, maka, TextBox1 dikalikan dengan TextBox2 yang mana hasilnya akan diletakkan di label4
Setelah itu, kita akan membuat fungsi Button2 yaitu Bersih...
ketika kita menekan fungsi bersih, maka textbox1,textbox2, dan label4 akan dibersihkan dan kursornya akan berada di textbox1..
Klik Button2... Lalu ketik kode seperti ini...
-------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label4.Text = ""
TextBox1.Focus()
End Sub
--------------------------------------------------------------------------------------------------------
Keterangan :
Ketika Button2 di click, maka isi dari textbox1,textbox2,label4 akan dikosongkan dengan menggunakan "", lalu kursor akan langsung ke textbox1 dengan menggunakan method Focus()
Setelah itu, saya akan menambahkan sebuah event lagi untuk Aplikasi kita ini... lihatlah gambar dibawah ini
Pada saat kursor diarahkan ke Panjang, maka Panjang akan berwarna merah, dan pada saat kursor diarahkan ke Lebar, maka Lebar akan berwarna merah dan Panjang akan menjadi hitam lagi...
Nah gimanakah caranya ??
tekan Textbox1 lalu ikuti Koding dibawah ini :
-------------------------------------------------------------------------------------------------------
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
Label1.ForeColor = Color.Red
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Label1.ForeColor = Color.Black
End Sub
-------------------------------------------------------------------------------------------------------
Keterangan :
ubah event click textbox1 menjadi GotFocus, sama juga halnya dengan LostFocus...
foreColor berguna untuk mengubah warna pada tulisan dari label yang ditunjuk, yang mana sesuai dengan Color.(terserah mau isi apa) warna yang anda pilih
GotFocus = melakukan segala perintah yang ada didalam pada saat kursor lagi ditempat tersebut
LostFocus = melakukan segala perintah yang ada didalam pada saat kursor tidak ada ditempat
Nah gimana teman teman ??
Sampai disinilah Pengkodingan kita. Saya harap ini bisa berguna bagi anda dan Saya juga berharap anda mengerti apa yang saya jelaskan. Kalau anda tidak mengerti, berikanlah komentar anda dan saya akan membalasnya, Tapi, jika saya belum membalasnya selama beberapa hari, Tolong anda ingatkan saya di Chatbox yang ada disebalah kanan anda...
Terima Kasih Atas Perhatiannya