Cara membuat Kalkulator dengan VB.Net

Kali ini saya akan membagikan tutoraial "Membuat Kalkulator komplit dengan VB.Net",tutorial ini di tujukan untuk teman - teman yang masih awam dengan VB, karena tutorial ini termasuk tutorial dasar.
Baiklah pertama-tama buka Visual Studio Anda setelah terbuka pilih New Project >> Windows Aplication Form untuk lebih jelasnya bisa dilihat pada gambar dibawah ini.

Langkah Awal

Rubahlah tulisan WindowAplication menjadi ProgramKalkulator tanpa spasi,kemudian klik browse dan tentukan sobat ingin menyimpan file tersebut dimana.Setelah selesai menyimpan maka otomatis akan muncul sebuah form defaultnya dengan nama Form1 seperti gambar dibawah ini

Form1

Kemudian klik Toolbox pada sebelah kiri Form, setelah itu drag dan drop 1 buah Textbox dan 20 buah Button.

Textbox dan Button

Lebarkan Textbox1 dengan cara klik textbox kemudian tanda panah pada pojok kanan textbox, centang multiline agar textbox bisa di lebarkan,lihatlah gambar di bawah ini agar lebih jelas

Multiline textbox

buatlah tampilan Form1 kira-kira seperti gambar di bawah ini

Klik 2x pada badan Form1 dibawah Public Class Form1 tuliskan kode dibawah ini


Dim nilai, hasil As Double Dim rumus As String

Klik 2x pada Btn1(angka 1) dan isikan kode dibawah ini

Private Sub btnSatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSatu.Click If text1.Text = "0" Then text1.Text = "1" Else : text1.Text = text1.Text & "1" End If End Sub

Klik 2x pada Btn2(angka 2) dan isikan kode dibawah ini

Private Sub btnDua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDua.Click If text1.Text = "0" Then text1.Text = "2" Else : text1.Text = text1.Text & "2" End If End Sub

Klik 2x pada Btn3(angka 3 ) dan isikan kode dibawah ini

Private Sub btnTiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTiga.Click If text1.Text = "0" Then text1.Text = "3" Else : text1.Text = text1.Text & "3" End If End Sub

Klik 2x pada Btn4(angka 4 ) dan isikan kode dibawah ini
Private Sub btnEmpat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmpat.Click If text1.Text = "0" Then text1.Text = "4" Else : text1.Text = text1.Text & "4" End If End Sub

Klik 2x pada Btn5(angka 5 ) dan isikan kode dibawah ini
Private Sub btnLima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLima.Click If text1.Text = "0" Then text1.Text = "5" Else : text1.Text = text1.Text & "5" End If End Sub

Klik 2x pada Btn6(angka 6 ) dan isikan kode dibawah ini
Private Sub btnEnam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnam.Click If text1.Text = "0" Then text1.Text = "6" Else : text1.Text = text1.Text & "6" End If End Sub

Klik 2x pada Btn7(angka 7 ) dan isikan kode dibawah ini
Private Sub btnTujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTujuh.Click If text1.Text = "0" Then text1.Text = "7" Else : text1.Text = text1.Text & "7" End If End Sub

Klik 2x pada Btn8(angka 8 ) dan isikan kode dibawah ini
Private Sub btnDelapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelapan.Click If text1.Text = "0" Then text1.Text = "8" Else : text1.Text = text1.Text & "8" End If End Sub

Klik 2x pada Btn9(angka 9 ) dan isikan kode dibawah ini
Private Sub btnSembilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSembilan.Click If text1.Text = "0" Then text1.Text = "9" Else : text1.Text = text1.Text & "9" End If End Sub

Klik 2x pada Btn0(angka 0 ) dan isikan kode dibawah ini
Private Sub btnNol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNol.Click If text1.Text = "0" Then text1.Text = "0" Else : text1.Text = text1.Text & "0" End If End Sub

Klik 2x pada Btnkoma(tanda . ) dan isikan kode dibawah ini
Private Sub btnKoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKoma.Click If text1.Text = "0" Then text1.Text = "." Else : text1.Text = text1.Text & "." End If End Sub

Klik 2x pada BtnOff(Off ) dan isikan kode dibawah ini
Private Sub btnOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOff.Click Close() End Sub

Klik 2x pada btnAC(AC) dan isikan kode dibawah ini
Private Sub btnAc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAc.Click text1.Text = Nothing nilai = Nothing hasil = Nothing rumus = Nothing End Sub

Klik 2x pada btnTambah(+) dan isikan kode dibawah ini
Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click If nilai = 0 Then nilai = Val(text1.Text) Else : nilai = nilai + Val(text1.Text) End If rumus = "+" text1.Text = Nothing End Sub

Klik 2x pada btnKurang(-) dan isikan kode dibawah ini
Private Sub btnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKurang.Click If nilai = 0 Then nilai = Val(text1.Text) Else : nilai = nilai + Val(text1.Text) End If rumus = "-" text1.Text = Nothing End Sub

Klik 2x pada btnAkar(Akar) dan isikan kode dibawah ini
Private Sub btnAkar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAkar.Click text1.Text = Math.Sqrt(text1.Text) End Sub

Klik 2x pada btnKuadrat(X^2) dan isikan kode dibawah ini
Private Sub btnKuadrat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKuadrat.Click If nilai = 0 Then nilai = Val(text1.Text) Else : nilai = nilai ^ Val(text1.Text) End If rumus = "^" text1.Text = Nothing End Sub

Klik 2x pada btnBagit(/) dan isikan kode dibawah ini
Private Sub btnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBagi.Click If nilai = 0 Then nilai = Val(text1.Text) Else : nilai = nilai / Val(text1.Text) End If rumus = "/" text1.Text = Nothing End Sub

Klik 2x pada btnKali(X) dan isikan kode dibawah ini
Private Sub btnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKali.Click If nilai = 0 Then nilai = Val(text1.Text) Else : nilai = nilai * Val(text1.Text) End If rumus = "*" text1.Text = Nothing End Sub

Klik 2x pada btnSamaDengan(=) dan isikan kode dibawah ini
Private Sub btnSamaDengan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSamaDengan.Click If rumus = "+" Then hasil = nilai + Val(text1.Text) text1.Text = hasil ElseIf rumus = "-" Then hasil = nilai - Val(text1.Text) text1.Text = hasil ElseIf rumus = "*" Then hasil = nilai * Val(text1.Text) text1.Text = hasil ElseIf rumus = "/" Then hasil = nilai / Val(text1.Text) text1.Text = hasil ElseIf rumus = "^" Then hasil = nilai ^ Val(text1.Text) text1.Text = hasil End If End Sub

Setelah semua kodingan diisi coba sobat Run projectnya apakah ada yang eror atau tidak, apabila ada yang eror coba perhatikan setiap kodingannya. Sekian tutorial ini saya buat.

Salam Blogger.

September 11, 2016