Membuat kalkulator Sderhana Versi ( M.R.P )

Assalamuaikum wr.wb Teman,,
 Ssaya Beberapa Hari ini disuruh Guru Saya muhammadyani.com Untuk Membuat Kalkulator Sederhana , Dan Tampilanya pun juga Disuruh Bebas,, Berikut kalkulator Sderhana Saya Yang Udah Saya Buat.
 1. Form 1

Berikut Ada Lah Code-code Nya : 

Public Class Tugas

    Private Property DataTableClearEventArgs As Boolean

    

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form2.Show()

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

        Process.Start("https://smkti.net")

    End Sub

    

    Private Sub rbtn1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn1.CheckedChanged

        Label7.Text = "+"

        txthasil.Text = Val(txt1.Text) + Val(txt2.Text)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

    End Sub

    

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn2.CheckedChanged

        Label7.Text = "-"

        txthasil.Text = Val(txt1.Text) - Val(txt2.Text)

    End Sub

    Private Sub rbtn3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn3.CheckedChanged

        Label7.Text = "x"

        txthasil.Text = Val(txt1.Text) * Val(txt2.Text)

    End Sub

    Private Sub rbtn4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtn4.CheckedChanged

        Label7.Text = "/"

        txthasil.Text = Val(txt1.Text) / Val(txt2.Text)

    End Sub

    

  

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Refreshing.Show()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        txt1.Clear()

        txt2.Clear()

        txthasil.Clear()

    End Sub

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

        MsgBox("WELCOME ( Tekan Ok Untuk Lanjut :v )")

    End Sub           

2. Form 3 ( About Me ) :

Berikut Code-Code Nya : 

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Close()

    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked

        Process.Start("https://facebook.com/Muhammad.reza.padillah")

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

        Process.Start("https://twitter.com/_pemula_")

    End Sub

End Class

3. Form Refreshing :

    Berikut Adalah Code-codenya :

Public Class Refreshing

    Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter

        If Button1.Top > 150 Then

            Button1.Top = 50

        ElseIf Button1.Top <= 150 Then

            Button1.Top = 300

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

End Class

Walaikumsallam Wr.Wb Semoga Postingan Saya kali Ini Bermanfaat Bagi Teman Semua yang Ingin Menyoba Vb.Net Dengan Membuat Aplikasi Sederhana ...

...\Sekian Dan terima Kasih/...