Cara Membuat Kalkualator Menggunakan Visual Basic 2005 Part2

Di dalam hal ini admint ingin berbagi tentang Microsoft Visual Basic 2005Express  Edition di dalam pembahasan ini kita membuat pengenalan tentang penggunaan Microsoft Visual Basic 2005 (VB). Cara membuat kalkulator sederhana dengan menggunakan serta source kode yang digunakan VB , beberapa tahapan – tahapan sebagai berikut :

No.	Tahapan – Tahapan	Keteranagan
1.	Sediakan PC / Laptop	Sudah terinstall Sistem Operasi yang anda sukai seperti Windows 7, Windows 8 dll.
2.	Sediakan Softwere	Installkan  Microsoft Visual Basic 2005
3.	Operasikan Microsoft Visual Basic 2005	Seperti Langkah yang akan di jelaskan
4.	Runing Source code yang di buat	Pastikan telah benar semua
www.sulis04.blogspot.com

 Penjelasn :

Langsung saja buka program Microsoft Visual Basic 2005 Express  Edition yang telah dijelaskan pada artikel sebelumnya ( Cara Mengganti backgroud dan Tulisan ) kita akan membuat sebuat tampilan seperti dibawah ini :

Komponen yang diguanakan adalah label,textbox dan button seperti yang telah dijelaskan pada artikel sebelumnya ( Cara Mengganti backgroud dan Tulisan )  buat sama seperti gambar di atas., Source code yang digunakan program diatas silakan samakan namanya pada gambar di atas :

Public Class Form2

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

        tbnilai1.Enabled = False

        tbnilai2.Enabled = False

        tbhasil.Enabled = False

        btntambah.Enabled = False

        btnkurang.Enabled = False

        btnkali.Enabled = False

        btnbagi.Enabled = False

        btninputbaru.Enabled = False

    End Sub

    Private Sub btninputbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninputbaru.Click

        tbnilai1.Text = ""

        tbnilai2.Text = ""

        tbhasil.Text = ""

        tbnilai1.Focus()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        tbnilai1.Enabled = True

        tbnilai2.Enabled = True

        tbhasil.Enabled = True

        btntambah.Enabled = True

        btnkurang.Enabled = True

        btnkali.Enabled = True

        btnbagi.Enabled = True

        btninputbaru.Enabled = True

       

        tbnilai1.Focus()

    End Sub

    Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click

        Dim n1 As New Integer

        Dim n2 As New Integer

        Dim hasil As New Double

        n1 = Val(tbnilai1.Text)

        n2 = Val(tbnilai2.Text)

        hasil = n1 + n2

        tbhasil.Text = hasil

    End Sub

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

        Dim n1 As New Integer

        Dim n2 As New Integer

        Dim hasil As New Double

        n1 = Val(tbnilai1.Text)

        n2 = Val(tbnilai2.Text)

        hasil = n1 - n2

        tbhasil.Text = hasil

    End Sub

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

        Dim n1 As New Integer

        Dim n2 As New Integer

        Dim hasil As New Double

        n1 = Val(tbnilai1.Text)

        n2 = Val(tbnilai2.Text)

        hasil = n1 * n2

        tbhasil.Text = hasil

    End Sub

    Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

        Dim n1 As New Integer

        Dim n2 As New Integer

        Dim hasil As New Double

        n1 = Val(tbnilai1.Text)

        n2 = Val(tbnilai2.Text)

        hasil = n1 / n2

        tbhasil.Text = hasil

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        tbnilai1.Enabled = False

        tbnilai2.Enabled = False

        tbhasil.Enabled = False

        btntambah.Enabled = False

        btnkurang.Enabled = False

        btnkali.Enabled = False

        btnbagi.Enabled = False

        btninputbaru.Enabled = False

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        MsgBox("TERIMA KASIH", MsgBoxStyle.Critical)

        Me.Close()

    End Sub

    Private Sub tbhasil_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbhasil.TextChanged

    End Sub

End Class

Setelah memasukan code ini mari kita running... !! Untuk mengetahui gimana cara kerja dari pemograman java dan lainnya caranya klik cara kerja pemograman java, cara menghitung luas persegi panjang vibi.net, Cara Mengganti backgroud vibi.net  sekian dari admint semoga bermanfaat. dan klik ilmu pengetahuan yang admint miliki terima kasih.