Kalkulator Sederhana Dengan Visual Basic 6.0

Jumpa lagi dengan saya... kali ini saya akan menuliskan bagaimana caranya membuat sebuah kalkulator sederhana dengan menggunakan visual basic 6.0.
Lho kenapa yang dibuat artikel kacangan dan basi seperti ini siy..??
Sabar bung.. saya sengaja menuliskan ini agar para pemula pun bisa mempelajari mengenai bahasa pemrograman visual basic dari dasar tentunya..
Karena para master sekalipun semuanya berasal dari pemula yang tidak tahu apa-apa.. jadi atas dasar itulah saya tetap menuliskan artikel ini..

Ok cukup basa-basinya buat yang sudah master saya sarankan segeralah berpindah dari halaman ini karena pastinya nanti anda akan bosan ketika membacanya :-)

Langkah pertama yang haus dilakukan dalam membuat sebuah program di visual basic adalah menjalankan program Visual Basic 6.0 kemudian apabila muncul kotak dialog New Project pilihlah tab New kemudian pilih Standard EXE kemudian klik Open, Namun bila kotak dialog New Project tidak muncul anda bisa melakukannya dengan memilih menu File -> New Project atau dengan menekan kombinasi Ctrl + N nah nanti akan muncul kotak dialog New Project kemudian pilihlah Standard EXE kemudian klik OK.

Langkah berikutnya adalah mendesign tampilan form.. Pada form yang tampil designlah tampilannya seperti gambar berikut ini :

Komponen yang dipergunakan pada form tersebut adalah : Label, Textbox, dan juga Command Button.

Kemudian aturlah propertinya seperti berikut ini :

Nama Kontrol
Form1
Properties
StartUpPosition = CenterScreen
Caption = Kalkulator

Nama Kontrol
Label1
Properties
Caption = Nilai 1

Nama Kontrol
Label2
Properties
Caption = Nilai 2

Nama Kontrol
Label3
Properties
Caption = Hasil

Nama Kontrol
TextBox1
Properties
Name = txtnil1
Text = (dikosongkan saja)

Nama Kontrol
TextBox2
Properties
Name = txtnil2
Text = (dikosongkan saja)

Nama Kontrol
TextBox3
Properties
Name = txthasil
Text = (dikosongkan saja)

Nama Kontrol
Command1
Properties
Name = cmdtambah
Caption = +

Nama Kontrol
Command2
Properties
Name = cmdkurang
Caption = -

Nama Kontrol
Command3
Properties
Name = cmdbagi
Caption = /

Nama Kontrol
Command4
Properties
Name = cmdkali
Caption = *

OK kalo sudah ketikan listing kode berikut ini :

Private Sub cmdtambah_Click()

txthasil.Text = Val(txtnil1.Text) + Val(txtnil2.Text)

End Sub

Private Sub cmdkurang_Click()

txthasil.Text = Val(txtnil1.Text) - Val(txtnil2.Text)

End Sub

Private Sub cmdbagi_Click()

txthasil.Text = Val(txtnil1.Text) / Val(txtnil2.Text)

End Sub

Private Sub cmdkali_Click()

txthasil.Text = Val(txtnil1.Text) * Val(txtnil2.Text)

End Sub