Pemograman kalkulator sederhana VB.2008

Design Fomr Pemograman kalkulator sederhana

listing program

Public Class Form1

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

        Dim inch As Double = input.Text

        output.Text = inch * 39.370079

        Label4.Text = "Inci"

    End Sub

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

        Dim kaki As Double = input.Text

        output.Text = kaki * 3.28084

        Label4.Text = "kaki"

    End Sub

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

        Dim yard As Double = input.Text

        output.Text = yard * 1.093613

        Label4.Text = "Yard"

    End Sub

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

        Dim mil As Double = input.Text

        output.Text = mil * 0.000621

        Label4.Text = "mil Intr"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim mil As Double = input.Text

        output.Text = mil * 0.00054

        Label4.Text = "Mil Laut"

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        input.Text = ""

        output.Text = ""

    End Sub

End Class

Hasil Pemograman Kalkulator Sederhana