Menambah nilai Text di Visual basic

Menambah nilai Text di Visual basic

16:45 Vincent utomo No comments

Mungkin ada beberapa orang yang bingung untuk melakukan tambah-tambahan di visual basic, oleh karena itu kami kali ini akan memberitahu tutorialnya.

Kategori: Visual Basic 2008
Tingkat: Sangat Mudah
Waktu: 10-15 Menit

Ayo dimulai!


1. Bukalah Visual Basic 2008

2. Pada Recent Project pilih Create

Lalu pilih Windows Form Application

3. Beri nama terserah Anda

4. Pada mula-mula, buatlah 2 Label, 2 Textbox dan 1 Command Button

 










Kira-kira seperti ini. Label sebenarnya tidak terlalu penting, hanya untuk informasi saja.

5. Pada jendela properties di kanan bawah, beri nama setiap objek, kira-kira seperti ini:

Textbox:
a. (Name): txttotal (Yang atas)
b. (Name): txttambah (Yang bawah)

Command Button: 
(Name): cmdtambah
Text: Tambah

Label:
a. Text: Total (Yang atas)
b. Text: Tambah (Yang bawah)

*Bedakan Name dengan Text
Name adalah nama yang akan digunakan ketika di pengkodean nanti, sedangkan text adalah nama yang muncul di form.
Kenapa Caption tidak diganti namanya? Karena pada projek kita kali ini caption hanya berfungsi sebagai informasi biasa.

Hasil akhirnya akan seperti ini:

6. Sekarang saatnya dikasih kodenya.
Cara masuk ke tab pengkodean adalah klik dua kali salah satu objek yang ada. Misal tombol tambah.
Nanti akan muncul tab baru yang berbentuk seperti ini:

di tab itu terlihat ada tulisan

Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click

End Sub
Itu berarti kita sedang menulis kode untuk cmdtambah yang akan berjalan ketika cmdtambah di klik 1 kali.
(Lihat tulisan yang ditebali, tertulis cmdtambah_Click) Itu berarti perintah akan berjalan ketika cmdtambah di klik 1 kali.

7. Saatnya menulis kode.
kodenya kurang lebih seperti ini:

txttotal.Text = Val(txttotal.Text) + Val(txttambah.Text)

Selesai! gampang kan? Sekarang akan kami jelaskan maksud kode itu

1. Ketika cmdtambah diklik, text dari txttotal akan berubah menjadi nilai dari txttotal itu sendiri ditambah nilai dari txttambah. Contohnya: txttotal textnya adalah 10, jika txttambah textnya juga 10. Ketika cmdtambah diklik, nilai dari txttotal akan menjadi 20.

2. Kenapa memakai Val()?
Karena Val() itu berarti nilai dai apa yang kita tulis dari dalam ()
jika tidak, misal seperti contoh di atas, ketika diklik cmdnya txttotal akan menjadi 1010, yaitu text 10 tambah 10, jadi 1010.

3. Kenapa pakai .Text? Itu berarti kita melihat Text yang ada di textbox yang kita pilih.

8. Jadi secara keseluruhan codenya akan menjadi seperti ini:

Public Class Form1
Private Sub cmdtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdtambah.Click
        txttotal.Text = Val(txttotal.Text) + Val(txttambah.Text)

End Sub
End Class

9. Sekarang untuk mencoba, pilih menu Debug > Start Debugging, atau tinggal menekan tombol F5

10. Coba isi txttambah dengan nilai 10, lalu klik cmdtambah, nilai txttotal menjadi 10 kan?


Tolong beri komentar ya.. Terima Kasih