Membuat Kalkulator Menggunakan Fungsi

artikel berikut ini kita akan Membuat Kalkulator Sederhana Menggunakan Fungsi dengan vbnet, sudah banyak tutorial yang membahas mengenai bagaimana cara membuat kalkulator menggunakan vbnet namun kali ini kita akan membuat sesuatu yang berbeda yaitu membuat kalkulator menggunakan fungsi jadi diharapkan setelah mengikuti tutorial ini anda dapat memahami beberapa materi diantaranya adalah : yang akan sangat berguna jika anda mengembangkan sebuah project

1. Bagaimana membuat fungsi dan memanggilnya dalam VBNet
2. Bagaimana membuat dan menggunakan combobox
3. Bagaimana membuat konfirmasi / dialog box

langkah pertama yang perlu anda lakukan tentu saja adalah membuat project terlebih dahulu, saya asumsikan anda sudah paham pada tahap awal ini. beriktnya adalah membuat design seperti gambar berikut :

Membuat Fungsi Hitung

berikut nya kita akan membuat fungsi dengan nama hitung fungsi ini memiliki dua buah variable dengan tipe data integer, berikut adalah coding fungsi tersebut :

    Public Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer)
        Dim hasil As Integer
        If cmbOperator.Text = "+" Then
            hasil = bil1 + bil2
        ElseIf cmbOperator.Text = "-" Then
            hasil = bil1 - bil2
        ElseIf cmbOperator.Text = "*" Then
            hasil = bil1 * bil2
        ElseIf cmbOperator.Text = "/" Then
            hasil = bil1 / bil2
        End If
        Return hasil
    End Function

Penjelasan :

1. Nama fungsi diatas adalah hitung terdiri dari dua buah parameter dengan nama bil1 dan bil2 dengan tipe data integer
2. Terdapat sebuah variabel hasil dengan tipe data integer untuk menampung hasil kalkulasi.
3. Pengkondisian menggunakan if..elseif digunakan untuk memilih operasi yang akan dijalankan sesuai dengan pilihan pengguna, terdapat beberapa kondisi pada koding diatas yaitu ketika pilihan cmbOperator tambah,kurang,perkalian dan pembagian.
4. Return hasil adalah nilai yang akan dikembalikan atau ditampung ketika kondisi cmbOperator terpenuhi.

Memanggil Fungsi

Fungsi diatas akan dipanggil dalam sebuah even click pada tombol hitung, untuk memberikan event klik pada tombol hitung silahkan double klik sehingga kita akan memasuki kode program  pada event tersebut. masukan coding seperti berikut :

    Private Sub btnHitung_Click(sender As System.Object, e As System.EventArgs) Handles btnHitung.Click
        Dim hasilhitung As Integer
        hasilhitung = hitung(txtBil1.Text, txtBil2.Text)
        lbHasil.Text = hasilhitung
    End Sub

Penjelasan :

1. terdapat sebuag variabel dengan nama hasilhitung.
2. variabel hasilhitung digunakan untuk menampung hasil pemanggilan fungsi yang dijalankan.
3. coding lbhasil.Text digunakan untuk menampilkan hasil hitung pada label yang ada pada form.

Tombol Bersihkan

Tombol tersebut digunakan untuk untuk membersihkan textbox txtbil1, txtbil2 serta label lbhasil berikut adalah event yang diberikan pada event tersebut :

    Private Sub btnBersihkan_Click(sender As Object, e As EventArgs) Handles btnBersihkan.Click
        txtBil1.Text = "0"
        txtBil2.Text = "0"
        lbHasil.Text = "####"
        txtBil1.Focus()
    End Sub

Penjelasan:

1. ketika event tersebut dijalankan txtBil1 dan txtBil2 akan berubah menjadi "0" nol dan lbhasil menjadu tanda pagar "####"
2. txtBil1.Focus digunakan agar cursor berada di posisi txtBil1

Message Dialog Box 

Pada form tersebut tersedia sebuah tombol lagi yaitu tombol keluar, tombol tersebut digunakan untu keluar dari aplikasi namun ketika tombol tersebut ditekan akan muncul sebuah konfirmasi yes dan no, jika ditekan tombol yes maka program akan keluar jika ditekan tombol no maka akan batal keluar dan kursor akan kedip pada txtBil1, berikut coding pada event tersebut :

     Private Sub btnKeluar_Click(sender As Object, e As EventArgs) Handles btnKeluar.Click
        If MessageBox.Show("Apakah akan keluar ? ", "Pertanyaan", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Me.Close()
        Else
            txtBil1.Focus()
        End If
    End Sub

Sekian Tutorial Membuat Kalkulator Sederhana Menggunakan Fungsi dengan vbnet, Terimakasih.