Sabtu, 15 September 2012

Cara mudah membuat kalkulator dari 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

0.0001pt;">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

Tidak ada komentar:

Posting Komentar