program sederhana kalkulator

Ricky Andes | selamat siang agan - agan sekalian. kali ini kita akan membahas bagaimana membuat program kalkulator sederhana beserta format coding yang di butuhkan. dengan tanpa berbasa - basi yukk langsung saja ok :)
Langkah pertama
silahkan agan siapkan Desain form seperti di bawah :

Klik gambar untuk Memperbesar

Tahap selanjutnya setelah agan selesai mendesain form nya , silahkan masukan coding di bawah ini sesuai Botton yang telah agan tentukan.

Imports System.Data.Odbc
Imports System.Data
Public Class Form1

    Sub bersih()
        txtpertama.Text = ""
        txtkedua.Text = ""
        txthasil.Text = ""
        txtpertama.Enabled = True


    End Sub


    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        End
    End Sub


    Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        txthasil.Text = Val(txtpertama.Text) + (txtkedua.Text)
    End Sub
    Private Sub BtnKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        txthasil.Text = Val(txtpertama.Text) - (txtkedua.Text)
    End Sub

    Private Sub BtnBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        txthasil.Text = Val(txtpertama.Text) / (txtkedua.Text)
    End Sub

    Private Sub BtnKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        txthasil.Text = Val(txtpertama.Text) * (txtkedua.Text)
    End Sub

    Private Sub Btnreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        bersih()
    End Sub

End Class
setelah itu jalankan Compailer agan untuk melihat hasil nya.
sekian dulu bahasan kita kali ini , Terima kasih dan Semoga membantu  :)