Source VB Calculator Matematika

Bagi yang mencari source code VB untuk perhitungan matematika berbentuk kalkulator, silahkan dicomot abis :

source :

Public Class Form1

    'sub class hitung

    'berfungsi menghitung data sesuai kondisi

    Sub hitung(ByVal a As Double, ByVal b As Double, ByRef c As String)

        Dim d As Double

        If c = "+" Then

            d = a + b

            cetak(d)

        ElseIf c = "-" Then

            d = a - b

            cetak(d)

        ElseIf c = "*" Then

            d = a * b

            cetak(d)

        ElseIf c = "/" Then

            d = a / b

            cetak(d)

        ElseIf c = "^" Then

            d = a ^ b

            cetak(d)

        End If

    End Sub

    'sub class cetak

    'berfungsi untuk mencetak output

    Sub cetak(ByVal e As Double)

        TextBox3.Text = e

    End Sub

    'fungsi cekdata

    'berfungsi untuk mengecek data inputan

    Private Function cekdata() As Boolean

        If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then

            Return True

        Else

            Return False

        End If

    End Function

    'fungsi tombol 1

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

        If cekdata() = True Then

            If RadioButton1.Checked Then

                Label1.Text = "+"

                hitung(TextBox1.Text, TextBox2.Text, "+")

            ElseIf RadioButton2.Checked Then

                Label1.Text = "-"

                hitung(TextBox1.Text, TextBox2.Text, "-")

            ElseIf RadioButton3.Checked Then

                Label1.Text = "*"

                hitung(TextBox1.Text, TextBox2.Text, "*")

            ElseIf RadioButton4.Checked Then

                Label1.Text = "/"

                hitung(TextBox1.Text, TextBox2.Text, "/")

            ElseIf RadioButton5.Checked Then

                Label1.Text = "^"

                hitung(TextBox1.Text, TextBox2.Text, "^")

            End If

        Else

            MessageBox.Show("Inputan Harus Angka!!")

        End If

    End Sub

                           End Class

Semoga bermanfaat, salam.

Thnks Bro...

Advertisment

** Share nya Jangan Lupa Ya.. Salam,salam **

Judul Artikel: Source VB Calculator Matematika

Unknown

Saya hanya blogger biasa yang suka kutak-katik blogger, senang belajar dan berbagi pengetahuan dan pengalaman dengan yang lain. Blog ini hasil dari source mas Septi Rosidi, semoga dapat bermanfaat untuk semua. Silahkan masukan email Anda pada kotak di bawah ini untuk mendapatkan update artikel dari semujursite.

• Rss
• Twitter
• FaceBook
• Follow This Blog