Aplikasi Konversi Panjang Sederhana dengan Visual Basic 2008

ROCKY CHRISTMAS TARIGAN

Setelah Kutahu Ternyata yang Kutahu Masih Sedikit…?

Aplikasi Konversi Panjang Sederhana dengan VB2008

Berawal dari ada salah satu temen kuliah  saya di Rafhael 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

konversipanjang

• 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.
Program diatas dapat didownload di link berikut ini
Oiza… temen2 jangan lupa ngasih Saran dan kritik yang habis view… oke.. Trims