Cara Membuat Form Kalkulator Sederhana Menggunakan VB.NET Microsoft Visual Studio 2012

Cara Membuat Form Kalkulator Sederhana (Tambah, Kurang, Bagi, Kali) Menggunakan VB.NET Microsoft Visual Studio 2012 - Dasar-dasar dalam perkalian, pembagian, penambahan dan pengurangan sangat dibutuhkan oleh seorang programer. Oleh karena itu kali ini saya akan memposting tentang Cara Membuat Form Kalkulator Sederhana Menggunakan VB.NET di Microsoft Visual Studio. Langsung saja saya jelaskan, caranya pertama yaitu membuat form terlebih dahulu saya contohkan tampilannya seperti gambar dibawah (walaupun tampilannya agak alay hehehe..)

Terdapat 3 textBox dan 4 button yaitu btnTambah, btnKurang, btnKali, dan btnBagi.

Scriptnya :

Public Class frmPerhitungan

    Private Sub cmdKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKali.Click

        If Me.txtPertama.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Pertama", "Peringatan",

MessageBoxButtons.OK)

            txtPertama.Focus()

            Exit Sub

        End If

        If Me.txtKedua.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Kedua", "Peringatan",

MessageBoxButtons.OK)

            txtKedua.Focus()

            Exit Sub

        End If

        txtHasil.Text = "" + CStr(CInt(txtPertama.Text) * CInt(txtKedua.Text))

    End Sub

   

    Private Sub cmdBagi_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdBagi.Click

        If Me.txtPertama.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Pertama", "Peringatan",

MessageBoxButtons.OK)

            txtPertama.Focus()

            Exit Sub

        End If

        If Me.txtKedua.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Kedua", "Peringatan",

MessageBoxButtons.OK)

            txtKedua.Focus()

            Exit Sub

        End If

        txtHasil.Text = "" + CStr(CInt(txtPertama.Text) / CInt(txtKedua.Text))

    End Sub

    Private Sub cmdTambah_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdTambah.Click

        If Me.txtPertama.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Pertama", "Peringatan",

MessageBoxButtons.OK)

            txtPertama.Focus()

            Exit Sub

        End If

        If Me.txtKedua.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Kedua", "Peringatan",

MessageBoxButtons.OK)

            txtKedua.Focus()

            Exit Sub

        End If

        txtHasil.Text = "" + CStr(CInt(txtPertama.Text) + CInt(txtKedua.Text))

    End Sub

    Private Sub cmdKurang_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles cmdKurang.Click

        If Me.txtPertama.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Pertama", "Peringatan",

MessageBoxButtons.OK)

            txtPertama.Focus()

            Exit Sub

        End If

        If Me.txtKedua.Text = "" Then

            MessageBox.Show("Masukkan Bilangan Kedua", "Peringatan",

MessageBoxButtons.OK)

            txtKedua.Focus()

            Exit Sub

        End If

        txtHasil.Text = "" + CStr(CInt(txtPertama.Text) - CInt(txtKedua.Text))

    End Sub

End Class

Sekian postingan saya tentang Cara Membuat Form Kalkulator Sederhana Menggunakan VB.NET dan semoga bermanfaat. pabila Anda mengalami kebingungan bisa bertanya dengan tinggalkan komentar pada kotak yang telah disediakan. Sampai ketemu lagi pada postingan saya lainnya...

• Tweet
• Share
• Share
• Share
• Share

About Admin

Saya senang berbagi ilmu agar semua orang tidak lagi asing terhadap ilmu-ilmu yang ada pada dunia komputer. Selain itu saya juga memberikan ilmu-ilmu tentang pemrograman ke blog ini khususnya untuk yang kuliah jurusan komputer ;) ;) ;)

Related Post