Kamis, 28 Februari 2013

Membuat Program Kalkulator Sederhana pada VB Net 2008

Pada postingan artikel kali ini, akan membahas tentang bagaimana membuat program kalkulator sederhana VB Net 2008 dan mungkin sangat sederhana menurut saya pribadi karena hanya ada 5 operator matematika yang digunakan yaitu tambah (+), kurang (-), kali (x), bagi (/), dan pangkat (^) .. :-)
Langsung aja kita bahas program VB Net 2008 berikut.

Desain Form :
















Buat nama sesuai dengan tulisan merah pada gambar. Kemudian kita masuk ke Coding Program..

Coding Program :


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        hasil.Enabled = False
    End Sub

    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
        If nilai1.Text = "" Or nilai2.Text = "" Then
            MsgBox("Maaf, nilai belum diinput")
        Else
            hasil.Text = Val(nilai1.Text) + Val(nilai2.Text)
        End If
    End Sub

    Private Sub kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kurang.Click
        If nilai1.Text = "" Or nilai2.Text = "" Then
            MsgBox("Maaf, nilai belum diinput")
        Else
            hasil.Text = Val(nilai1.Text) - Val(nilai2.Text)
        End If
    End Sub

    Private Sub bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bagi.Click
        If nilai1.Text = "" Or nilai2.Text = "" Then
            MsgBox("Maaf, nilai belum diinput")
        Else
            hasil.Text = Val(nilai1.Text) / Val(nilai2.Text)
        End If
    End Sub

    Private Sub kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kali.Click
        If nilai1.Text = "" Or nilai2.Text = "" Then
            MsgBox("Maaf, nilai belum diinput")
        Else
            hasil.Text = Val(nilai1.Text) * Val(nilai2.Text)
        End If
    End Sub

    Private Sub pangkat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pangkat.Click
        If nilai1.Text = "" Or nilai2.Text = "" Then
            MsgBox("Maaf, nilai belum diinput")
        Else
            hasil.Text = Val(nilai1.Text) ^ Val(nilai2.Text)
        End If
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nilai1.Text = ""
        nilai2.Text = ""
        hasil.Text = ""
    End Sub

End Class

Sekian untuk artikel kali ini tentang Visual Basic 2008 atau VB Net 2008 dengan Judul Membuat Program Kalkulator Sederhana pada VB Net 2008.
Baca juga artikel lain tentang Visual Basic Net 2008
Semoga bermanfaat..!! :-)
Salam Programmer..

Tidak ada komentar:
Write komentar