Membuat Aplikasi Perhitungan Sederhana Dengan Visual Basic Net 2010

Materi kali ini membahas bagaimana membuat program sederhana untuk melakukan proses perhitungan matematika yaitu penjumlahan, pengurangan, perkalian dan pembagian. Pertama buka aplikasi Visual Basic Net 2010 atau visual basic .net yang  sudah terpasang di komputer. Buat project baru kemudian desain form1 seperti gambar dibawah ini lalu tambahkan komponen sebagai berikut :

button1
name diubah menjadi = btntambah
//Source
nilaia = txtawal.Text
nilaib = txtkedua.Text
hasil = nilaia + nilaib
 txthasil.Text = hasil

button2
name diubah menjadi = btnkurang
//Source
nilaia = txtawal.Text
nilaib = txtkedua.Text
hasil = nilaia - nilaib
txthasil.Text = hasil

button3
name diubah menjadi = btnkali
//Source
 nilaia = txtawal.Text
nilaib = txtkedua.Text
hasil = nilaia * nilaib
 txthasil.Text = hasil

button4
name diubah menjadi = btnbagi
//source
 nilaia = txtawal.Text
 nilaib = txtkedua.Text
hasil = nilaia / nilaib
txthasil.Text = hasil

button5
name diubah menjadi = btnulang
//source
txtawal.Clear()
txthasil.Clear()
txtkedua.Clear()
txtawal.Focus()

Label1
Text = Nilai Awal
Label2
Text = Nilai Kedua
Label3
Text = Hasil

Masked TextBox1
name = txtawal

Masked TextBox2
name = txtkedua

Masked TextBox3
name = txthasil

kemudian tambahkan source  pada Public Class Form1 untuk mendefinisakan nilai masukan pada Masked TextBox1
Public Class Form1
    Dim nilaia, nilaib, hasil As Long

Source code secara utuh dapat dilihat sebagai berikut :
Public Class Form1
    Dim nilaia, nilaib, hasil As Long
    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click

        nilaia = txtawal.Text
        nilaib = txtkedua.Text
        hasil = nilaia + nilaib
        txthasil.Text = hasil
    End Sub

    Private Sub btnulang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnulang.Click
        txtawal.Clear()
        txthasil.Clear()
        txtkedua.Clear()
        txtawal.Focus()
    End Sub


    Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click

        nilaia = txtawal.Text
        nilaib = txtkedua.Text
        hasil = nilaia - nilaib
        txthasil.Text = hasil
    End Sub

    Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click

        nilaia = txtawal.Text
        nilaib = txtkedua.Text
        hasil = nilaia * nilaib
        txthasil.Text = hasil
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        nilaia = txtawal.Text
        nilaib = txtkedua.Text
        hasil = nilaia / nilaib
        txthasil.Text = hasil
    End Sub
End Class

Project jadinya bisa didownload disini

demikian tutorial Membuat Aplikasi Perhitungan Sederhana Dengan Visual Basic Net 2010, semoga tulisan ini bermanfaat, Terima Kasih