1507 Views

Cara Membuat Program Konversi Satuan Panjang Di Visual Basic Dengan Mudah

logo-visual-basic

hai.. semua sobat belajarhebat bertemu lagi dengan saya, kali ini saya akan memberikan tutorial bagaimana cara membuat program konversi panjang. oke klo gitu yuk kita buat programnya!!.

langkah langkah:

  • masukkan 6 label, 2 textbox, 2 combobox , 2 groupbox, dan 1 button ke form
  • lalu susun seperti gambar dibawah ini

struktur konversi

  • ubah label1 menjadi input (properties-text, ubah label1 menjadi input)
  • ubah label2 menjadi output(properties-text, ubah label2 menjadi output)
  • ubah label3 menjadi masukkan nilai (properties-text, ubah label3 menjadi masukkan nilai)
  • ubah label4 menjadi panjang awal (properties-text, ubah label4 menjadi panjang awal)
  • ubah label5 menjadi panjang akhir(properties-text, ubah label5 menjadi panjang akhir)
  • ubah label6 menjadi hasil(properties-text, ubah label6 menjadi hasil)
  • ubah button1 menjadi konversi (properties-text, ubah button1 menjadi konversi)
  • jika sudah maka tampilannya menjadi berikut

struktur konversi akhir

  • jika sudah double klik pada button1 / konversi dan masukkan koding dibawah ini

If ComboBox1.Text = “km” And ComboBox2.Text = “km” Then
TextBox2.Text = TextBox1.Text
ElseIf ComboBox1.Text = “km” And ComboBox2.Text = “hm” Then
TextBox2.Text = TextBox1.Text * 10
ElseIf ComboBox1.Text = “km” And ComboBox2.Text = “dam” Then
TextBox2.Text = TextBox1.Text * 100
ElseIf ComboBox1.Text = “km” And ComboBox2.Text = “m” Then
TextBox2.Text = TextBox1.Text * 1000
ElseIf ComboBox1.Text = “km” And ComboBox2.Text = “dm” Then
TextBox2.Text = TextBox1.Text * 10000
ElseIf ComboBox1.Text = “km” And ComboBox2.Text = “cm” Then
TextBox2.Text = TextBox1.Text * 100000
ElseIf ComboBox1.Text = “km” And ComboBox2.Text = “mm” Then
TextBox2.Text = TextBox1.Text * 1000000
End If
‘———————————————————-‘
If ComboBox1.Text = “hm” And ComboBox2.Text = “km” Then
TextBox2.Text = TextBox1.Text / 10
ElseIf ComboBox1.Text = “hm” And ComboBox2.Text = “hm” Then
TextBox2.Text = TextBox1.Text
ElseIf ComboBox1.Text = “hm” And ComboBox2.Text = “dam” Then
TextBox2.Text = TextBox1.Text * 10
ElseIf ComboBox1.Text = “hm” And ComboBox2.Text = “m” Then
TextBox2.Text = TextBox1.Text * 100
ElseIf ComboBox1.Text = “hm” And ComboBox2.Text = “dm” Then
TextBox2.Text = TextBox1.Text * 1000
ElseIf ComboBox1.Text = “hm” And ComboBox2.Text = “cm” Then
TextBox2.Text = TextBox1.Text * 10000
ElseIf ComboBox1.Text = “hm” And ComboBox2.Text = “mm” Then
TextBox2.Text = TextBox1.Text * 100000
End If
‘———————————————————–‘
If ComboBox1.Text = “dam” And ComboBox2.Text = “km” Then
TextBox2.Text = TextBox1.Text / 100
ElseIf ComboBox1.Text = “dam” And ComboBox2.Text = “hm” Then
TextBox2.Text = TextBox1.Text / 10
ElseIf ComboBox1.Text = “dam” And ComboBox2.Text = “dam” Then
TextBox2.Text = TextBox1.Text
ElseIf ComboBox1.Text = “dam” And ComboBox2.Text = “m” Then
TextBox2.Text = TextBox1.Text * 10
ElseIf ComboBox1.Text = “dam” And ComboBox2.Text = “dm” Then
TextBox2.Text = TextBox1.Text * 100
ElseIf ComboBox1.Text = “dam” And ComboBox2.Text = “cm” Then
TextBox2.Text = TextBox1.Text * 1000
ElseIf ComboBox1.Text = “dam” And ComboBox2.Text = “mm” Then
TextBox2.Text = TextBox1.Text * 10000
End If
‘————————————————————‘
If ComboBox1.Text = “m” And ComboBox2.Text = “km” Then
TextBox2.Text = TextBox1.Text / 1000
ElseIf ComboBox1.Text = “m” And ComboBox2.Text = “hm” Then
TextBox2.Text = TextBox1.Text / 100
ElseIf ComboBox1.Text = “m” And ComboBox2.Text = “dam” Then
TextBox2.Text = TextBox1.Text / 10
ElseIf ComboBox1.Text = “m” And ComboBox2.Text = “m” Then
TextBox2.Text = TextBox1.Text
ElseIf ComboBox1.Text = “m” And ComboBox2.Text = “dm” Then
TextBox2.Text = TextBox1.Text * 10
ElseIf ComboBox1.Text = “m” And ComboBox2.Text = “cm” Then
TextBox2.Text = TextBox1.Text * 100
ElseIf ComboBox1.Text = “m” And ComboBox2.Text = “mm” Then
TextBox2.Text = TextBox1.Text * 1000
End If
‘————————————————————-‘
If ComboBox1.Text = “dm” And ComboBox2.Text = “km” Then
TextBox2.Text = TextBox1.Text / 10000
ElseIf ComboBox1.Text = “dm” And ComboBox2.Text = “hm” Then
TextBox2.Text = TextBox1.Text / 1000
ElseIf ComboBox1.Text = “dm” And ComboBox2.Text = “dam” Then
TextBox2.Text = TextBox1.Text / 100
End If
If ComboBox1.Text = “dm” And ComboBox2.Text = “m” Then
TextBox2.Text = TextBox1.Text / 10
ElseIf ComboBox1.Text = “dm” And ComboBox2.Text = “dm” Then
TextBox2.Text = TextBox1.Text
ElseIf ComboBox1.Text = “dm” And ComboBox2.Text = “cm” Then
TextBox2.Text = TextBox1.Text * 10
ElseIf ComboBox1.Text = “dm” And ComboBox2.Text = “mm” Then
TextBox2.Text = TextBox1.Text * 100
End If
‘—————————————————————‘
If ComboBox1.Text = “cm” And ComboBox2.Text = “km” Then
TextBox2.Text = TextBox1.Text / 1000
ElseIf ComboBox1.Text = “cm” And ComboBox2.Text = “hm” Then
TextBox2.Text = TextBox1.Text / 100
ElseIf ComboBox1.Text = “cm” And ComboBox2.Text = “dam” Then
TextBox2.Text = TextBox1.Text / 10
ElseIf ComboBox1.Text = “cm” And ComboBox2.Text = “m” Then
TextBox2.Text = TextBox1.Text
ElseIf ComboBox1.Text = “cm” And ComboBox2.Text = “dm” Then
TextBox2.Text = TextBox1.Text * 10
ElseIf ComboBox1.Text = “cm” And ComboBox2.Text = “cm” Then
TextBox2.Text = TextBox1.Text * 100
ElseIf ComboBox1.Text = “cm” And ComboBox2.Text = “mm” Then
TextBox2.Text = TextBox1.Text * 1000
End If
‘—————————————————————-‘
If ComboBox1.Text = “mm” And ComboBox2.Text = “km” Then
TextBox2.Text = TextBox1.Text / 1000000
ElseIf ComboBox1.Text = “mm” And ComboBox2.Text = “hm” Then
TextBox2.Text = TextBox1.Text / 100000
ElseIf ComboBox1.Text = “mm” And ComboBox2.Text = “dam” Then
TextBox2.Text = TextBox1.Text / 10000
End If

If ComboBox1.Text = “mm” And ComboBox2.Text = “m” Then
TextBox2.Text = TextBox1.Text / 1000
ElseIf ComboBox1.Text = “mm” And ComboBox2.Text = “dm” Then
TextBox2.Text = TextBox1.Text / 100
ElseIf ComboBox1.Text = “mm” And ComboBox2.Text = “cm” Then
TextBox2.Text = TextBox1.Text / 10
ElseIf ComboBox1.Text = “mm” And ComboBox2.Text = “mm” Then
TextBox2.Text = TextBox1.Text
End If

  • jika sudah masukkan koding dibawah ini tepat dibawah public class form1

Sub combo()
With ComboBox1
.Items.Add(“km”)
.Items.Add(“dam”)
.Items.Add(“hm”)
.Items.Add(“dam”)
.Items.Add(“m”)
.Items.Add(“dm”)
.Items.Add(“cm”)
.Items.Add(“mm”)
End With
With ComboBox2
.Items.Add(“km”)
.Items.Add(“dam”)
.Items.Add(“hm”)
.Items.Add(“dam”)
.Items.Add(“m”)
.Items.Add(“dm”)
.Items.Add(“cm”)
.Items.Add(“mm”)
End With
End Sub

  • jika sudah double klik pada form dan beri koding dibawah ini

call combo()

  • lalu run(f5)

Mudah sekali bukan!!, nah sekian dari saya semoga bermanfaat bagi anda semua. salam HEBAT!!.

video tutorial:

Share
You can leave a response, or trackback from your own site.

Leave a Reply