cara membuat kalkulator sederhana dalam VB.NET

cara membuat kalkulator sederhana dalam VB.NET

  09:55    Unknown

---

Selamat berkunjung di blog saya, dibawah ini adalah coding cara membuat kalkulator sederhana:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

    Private Sub Public Class Form1
btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click
    hasil.Text = Val(n1.Text) + Val(n2.Text)
    Me.BackColor = Color.Green
End Sub

Private Sub btnkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkurang.Click
    hasil.Text = Val(n1.Text) - Val(n2.Text)
    Me.BackColor = Color.DarkViolet
End Sub

Private Sub btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
    hasil.Text = Val(n1.Text) * Val(n2.Text)
    Me.BackColor = Color.Yellow
End Sub

Private Sub btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click
    hasil.Text = Val(n1.Text) / Val(n2.Text)
    Me.BackColor = Color.Purple
End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
    n1.Text = ""
    n2.Text = ""
    hasil.Text = ""
    Me.BackColor = Color.SpringGreen
End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
    Me.Close()
End Sub
End Class 

Terima kasih telah mengunjungi blog saya semoga artikel yang ada dalam blog saya dapat bermamfaat bagi saudara pembaca sekalian.......