Cara membuat Kalkulator Sederhana

Cara Membuat Kalkulator Sederhana Menggunakan Visual Basic 

 Assalamu'alaikum wr,wb

Cara Membuat Kalkulator Sederhana dengan Visual Basic 6.0 - Pada tutorial Visual Basic kali ini kita akan membuat kalkulator dengan VB 6.0 yang terdiri dari penjumlahan pengurangan dan pembagian. Tentunya konsep pembuatan atau logika program yang akan kita buat ini bisa diterapkan pada rumus matematika atau fisika, yang pada intinya kita harus mengetahui alur kerja secara manual dari sebuah rumus tersebut sehingga bisa diterjemahkan kedalam bahasa pemograman visual basic. Baca juga tentang

17.32 tutorial visual basic.

Langkah 1 :

Silahkan buat project baru dengan cara File > New Project

Langkah 2 :

Pilih windows form aplication dan beri nama kalkulator

Langkah 3 :

Buat design seperti gambar di bawah ini

Langkah 4 :

Klik 2 kali pada button 1 (tombol +) kemudian ketikan kode seperti di bawah ini.

TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

Klik 2 kali pada button 2 (tombol -) kemudian ketikan kode seperti di atas tetapi ganti tanda "+" menjadi "-" dan lakukan hal yang sama pada tombol yang lain tetapi ganti dari "+" menjadi "*" dan "/".

Langkah 5 :

Silahkan coba kalkulator yang telah anda buat dengan cara tekan tombol F5 di keyboard.

Tambahan :

Berikut ini kode lengkap dari kalkulator sederhana.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
End Class

Catatan :

Bilangan Pertama = Label 1
Bilangan Kedua = Label 2
Hasil = Label 3

Jangan lupa menyimpan project yang telah anda buat.