LiburanLiburan & Berwisata Asyik !

Membuat konversi kalkulator sederhana dengan VB.NET


Membuat konversi kalkulator sederhana dengan VB.NET

Latihan 4

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

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.