kalkulator sederhana dengan VB.Net

assalamualaikum...

kali ini saya akan membagikan ilmu saya kepada temen-temen sekalian. kali ini saya memberi sintaks untuk membuat kalkulator sederhana di bahasa pemrograman VB.Net.. marii disimak :)

Attribute VB_Name = "Module1"
Public Class latihan1
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) / CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_angka1.TextChanged
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) + CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) - CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If IsNumeric(txt_angka1.Text) And IsNumeric(txt_angka2.Text) Then
            txt_hasil.Text = CDbl(txt_angka1.Text) * CDbl(txt_angka2.Text)
        Else
            MessageBox.Show ("Harus Angka !")
        End If
    End Sub
    Private Sub latihan1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
End Class

outputnya adalah sebagai berikut:

Ya Rasulallah




Alangkah indahnya hidup ini

Andai dapat kutatap wajahMu

Kan pasti mengalir air mataku

karena pancaran ketenanganMu


Alangkah indahnya hidup ini

Andai dapat kukecup tanganMu

Tiada kata yang dapat aku ucapkan

Hanya Allah saja yang tahu


Ya Rasulallah.. Ya Habiballah..

Tak pernah ku tatap wajahMu

Kami rindu padaMu


Allahumma Sholli 'ala Muhammad

Ya Rabbi Sholli Alaihi Wasallim