Latihan VB konversi panjang

Visual basic

Berawal dari ada salah satu temen kuliah  saya di STMIK Insan Pembangunan yang bertanya gimana sih cara membuat Aplikasi Konversi Panjang dengan menggunakan Array di VB 2008 yang sekaligus mau dipakai demo pas UAS nanti, oleh karena itu saya ingin sedikit berbagi kepada teman-teman di seluruh Indonesia.

Berikut langkah-langkah membuat aplikasi konversi panjang sederhana :

• Buatlah form seperti gambar di bawah ini

Latihan VB

• Ketikkan Kode berikut ini

01	Public Class Form1
02	Dim satuan() As String = {"", "Inchi", "Fathom", "Foot", "Furlong", "Kilometer", "Meter", "Mile", "Rod", "Yard"}

03	Dim feet() As Double = {0, 0.0833, 6, 1, 660, 3281.5, 3.28155, 5280, 16.5, 3}
04	Dim hasil As Double

05
06	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

07	For i As Integer = 1 To 9
08	ListBox1.Items.Add(i & ".   " & satuan(i))

09	Next
10	End Sub

11
12	Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click

13	hasil = Val(nilai.Text * feet(txtfrom.Text))
14	hasil = Val(hasil / feet(txtto.Text))

15	txthasil.Text = FormatNumber(hasil, 2, TriState.True, TriState.False)
16	End Sub

17

End Class

Berikut Penjelasan dari kode tersebut

1	Dim satuan() As String = {"", "Inchi", "Fathom", "Foot", "Furlong", "Kilometer", "Meter", "Mile", "Rod", "Yard"}
2	Dim feet() As Double = {0, 0.0833, 6, 1, 660, 3281.5, 3.28155, 5280, 16.5, 3}

3	Dim hasil As Double

Kode diatas adalah pendeklarasian Array satuan dan Feet serta variable hasil

1	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2	For i As Integer = 1 To 9

3	ListBox1.Items.Add(i & ".   " & satuan(i))
4	Next

5

End Sub

Kode diatas di gunakan untuk menampilkan data pada Array Satuan pada Listbox1

1	Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
2	hasil = Val(nilai.Text * feet(txtfrom.Text))

3	hasil = Val(hasil / feet(txtto.Text))
4	txthasil.Text = FormatNumber(hasil, 2, TriState.True, TriState.False)

5

End Sub

Kode Diatas adalah Code untuk Konversi dari ke-9 satuan tersebut.