Membuat konversi kalkulator sederhana dengan VB.NET

Pada kali ini dibahas membuat konversi kalkulator sederhana, untuk menkonversi satuan panjang meter (m) kesatuan yang lain seperti inci, kaki dst.

1.      Buatlah sebuah form seperti gambar dibawah ini

Tambahkan

Label 4 buah

LABEL	PROPERTIES TEXT	KET
label1	Input	Masukan nilai
label2	Output	Hasil konversi
label3	m	Satuan input (m)
label4	m	Satuan output

Textbox 2 buah

Textbox	PROPERTIES	Ket
	TEXT
Textbox 1	0	input
Textbox 2	0	Menampilkan Output

BUtton1 buah

BUtton1	PROPERTIES TEXT	Ket
Button1	inci
Button2	kaki
Button3	yard
Button4	mil intr
Button5	mil laut
Button6	C	clear

2.      Selanjutnya adalah memasukan kode pemprogramannya

Doubel klik pada setiap button harga kemudian ketik code dibawah ini

·         Doubel klik Button1 ketik code dibawah ini

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

        Dim inch As Double = TextBox1.Text

        TextBox2.Text = inch * 39.370079

        Label4.Text = "in"

    End Sub

·         Doubel klik Button2 ketik code dibawah ini

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

        Dim kaki As Double = TextBox1.Text

        TextBox2.Text = kaki * 3.28084

        Label4.Text = "ft"

    End Sub

·         Doubel klik Button3 ketik code dibawah ini

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

        Dim yard As Double = TextBox1.Text

        TextBox2.Text = yard * 1.093613

        Label4.Text = "yd"

    End Sub

·         Doubel klik Button4 ketik code dibawah ini

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

        Dim mil As Double = TextBox1.Text

        TextBox2.Text = mil * 0.000621

        Label4.Text = "mi"

    End Sub

·         Doubel klik Button5 ketik code dibawah ini

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

        Dim mil As Double = TextBox1.Text

        TextBox2.Text = mil * 0.00054

        Label4.Text = "mil"

    End Sub

·         Doubel klik Button6 ketik code dibawah ini

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

        TextBox1.Text = 0

        TextBox2.Text = 0

    End Sub

Ket koding :

        Dim inch As Double = TextBox1.Text

        TextBox2.Text = inch * 39.370079

        Label4.Text = "in"

• untuk mendapatkan hasil konversi adalah dengan dikalikan nilai konversinya misalnya 1 m ke inci =  39.370079 maka  TextBox2.Text = inch * 39.370079 
• Label4.Text = "in"  untuk menampikan satuan konversi outputnya

• Untuk button6 untuk clear, maka logikanya adalah supaya input dan output = 0 maka 

        TextBox1.Text = 0

        TextBox2.Text = 0

Selanjutnya tinggal ditambahkan atau dikembangkan sesuai keiginan masing-masing. 


Contoh download aplikasi yang sudah jadi disini konversi kalkulator

Terimakasih semoga bermanfaat
http://tipsh4re.blogspot.com