Membuat Aplikasi Perhitungan Dengan Visual Studio

Aplikasi Perhitungan dengan Visual Studio ini memanfaatkan fungsi operator aritmatika pada Visual Studio. Yang memungkinkan kita untuk memberi perintah penjumlahan, pengurangan, perkalian, bagi hingga sisa bagi pada value yang di tentukan.

Di kesempatan kali ini kita juga akan menggunakan fungsi if namun dengan versi select case untuk menentukan apakah dia malakukan perkalian atau perkalian.
Langkah pertama pastikan kamu telah membuat project kamu dan menyimpan nya di lokasi yang telah kamu tentukan. Jika kamu masih belum tau bagaiman caranya kamu bisa baca Pengertian dan Fungsi Microsoft Visual Studio untuk cara membuat project tersebut

kamu bisa medesain form terlebih dahulu dan disini kita hanya menggunakan 2 object. Yaitu button dan textbox, dimana fungsi textbox sebagai media menampilkan angka yang di input ataupun hasil yang di kelola. Kemudia button sebagai tombol seperti pada umumnya.
Kamu perlu atur name dari setiap object seperti Button yang memiliki caption 1 ubah menjadi Btn1 dan textbx ubah menjadi txtlayar. jika sudah selesai kamu bisa masukan perintah di bawah ini untuk setiap name obcject. Pastikan kamu tidak langsung mengcopy semua list code, karna kemungkinan besar dapat error dimana mungkin saja kita memiliki name object yang berbeda.

 Public Class Form1
    Friend Hasil As Single = 0
    Dim Operasi As String = ""
    Dim OperasiHitung As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        OperasiHitung = False
        Operasi = ""
        Hasil = 0
        TxtLayar.Text = "0"
    End Sub

    Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "1"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "1"
        End If
    End Sub

    Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "2"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "2"
        End If
    End Sub

    Private Sub Btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn3.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "3"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "3"
        End If
    End Sub

    Private Sub Btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn4.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "4"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "4"
        End If
    End Sub

    Private Sub Btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn5.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "5"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "5"
        End If
    End Sub

    Private Sub Btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn6.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "6"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "6"
        End If
    End Sub

    Private Sub Btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn7.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "7"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "7"
        End If
    End Sub

    Private Sub Btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn8.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "8"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "8"
        End If
    End Sub

    Private Sub Btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn9.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "9"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "9"
        End If
    End Sub

    Private Sub Btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn0.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "0"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "0"
        End If
    End Sub
    Private Sub BtnMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMinus.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "-"
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "-"
        End If
    End Sub
    Private Sub BtnKoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKoma.Click
        If OperasiHitung = True Or TxtLayar.Text = "0" Then
            TxtLayar.Text = "."
            OperasiHitung = False
        Else
            TxtLayar.Text = TxtLayar.Text + "."
        End If
    End Sub

    Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
        Operasi = "tambah"
        Hasil = Val(TxtLayar.Text)
        OperasiHitung = True
    End Sub

    Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
        TxtLayar.Text = "0"
        Operasi = ""
    End Sub

    Private Sub BtnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKurang.Click
        Operasi = "kurang"
        Hasil = Val(TxtLayar.Text)
        OperasiHitung = True
    End Sub

    Private Sub BtnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKali.Click
        Operasi = "kali"
        Hasil = Val(TxtLayar.Text)
        OperasiHitung = True
    End Sub

    Private Sub BtnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBagi.Click
        Operasi = "bagi"
        Hasil = Val(TxtLayar.Text)
        OperasiHitung = True
    End Sub
    Private Sub BtnMod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMod.Click
        Operasi = "mod"
        Hasil = Val(TxtLayar.Text)
        OperasiHitung = True
    End Sub
    Private Sub BtnPangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPangkat.Click
        Operasi = "pangkat"
        Hasil = Val(TxtLayar.Text)
        OperasiHitung = True
    End Sub

    Private Sub BtnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHitung.Click
        Select Case Operasi
            Case "tambah"
                Hasil = Hasil + Val(TxtLayar.Text)
            Case "kurang"
                Hasil = Hasil - Val(TxtLayar.Text)
            Case "bagi"
                Hasil = Hasil / Val(TxtLayar.Text)
            Case "kali"
                Hasil = Hasil * Val(TxtLayar.Text)
            Case "mod"
                Hasil = Hasil Mod Val(TxtLayar.Text)
            Case "pangkat"
                Hasil = Hasil ^ Val(TxtLayar.Text)
        End Select
        TxtLayar.Text = Hasil
        OperasiHitung = True
    End Sub
End Class
 

Pastikan kembali pada list kamu tidak ada yang menandakan dia error dangan garis bawah berwarna merah.

Kamu juga dapat langsung mendownload source code tersebut di Portal Wio Code dan jangan lupa untuk bergabung di chanel telegram Wio Code untuk mendapatkan update informasi dan tutorial

Download Click here Daftar Akun Click here

Baca Juga