Program dengan menggunakan Visual Basic 2008

PROGRAM KONVERSI PANJANG SATUAN METER
MENGGUNAKAN VISUAL BASIC .NET 2008

 Pada tugas ini kami membuat Project Program tentang Program Konversi Panjang dalam Satuan Meter dengan menggunakan Visual Basic 2008 yang digunakan untuk menghitung konversi panjang dalam satuan meter, yang terdiri atas 7 satuan yaitu Kilometer (Km), Hektometer (Hm), dekameter (dam), Meter (M), Desimeter (Dm), Centimeter (Cm), Milimeter (Mm). Dengan program konversi satuan panjang, kita dapat mengetahui dari jarak ke berapakah sampai ditempuhnya. Dalam program ini menggunakan Listbox yang fungsinya untuk menampilkan beberapa item/daftar pilihan. Jadi untuk menentukan satuan jarak, masukkan nomor dari jarak tersebut dalam textbox dari dan ke.

Disini adalah coding perintah pada Object Listbox :

(ListBox1.Items.Add(TextBox.Text + " " + TextBox……..)

Langkah-langkah pembuatan aplikasi konversi panjang dalam visual basic ini adalah :

     Buka Visual Studio 2008 – Lalu Menu File – pilih Visual Basic 2008, Buatlah sebuah project baru standard, klik File > New Project, hingga muncul Form1.

 Atur Property-property nya sebagai berikut :

No	Form / Object	Property	Setting
1	Form1	Name	Form1
		Text	Program Konversi Panjang
		ControlBox	False
		StartPosition	Centerscreen
2	Groupbox1	Text	Konversi
		Backcolor	128, 255, 255    lightblue
3	Label1	Text	Program Konversi Panjang
		Font Style	Bold
		Fore Color	MediumBlue
4	Label2	Text	Masukkan Bilangan
		Font Style	Bold
		Fore Color	MediumBlue
5	Label3	Text	Dari
		Font Style	Bold
		Fore Color	MediumBlue
6	Label4	Text	Ke
		Font Style	Bold
		Fore Color	Blue
7	Textbox1	Name	txtbilangan
8	Textbox2	Name	txtdari
9	Textbox3	Name	txtke
10	Listbox	Name	Listbox1
		Font Size	10
11	Groupbox2	Text	Hasil
		Backcolor	Deepskyblue
12	Label5	Text	Hasil
13	Textbox4	Name	txthasil
		Enabled	False
14	Button1	Name	btnok
		Text	&OK
		Font Style	Bold
		Fore color	Indigo
15	Button2	Name	btnclear
		Text	&Clear
		Font Style	Bold
		Fore color	Indigo
16	Button3	Name	Btnexit
		Text	&Exit
		Font Style	Bold
		Fore color	Indigo

Public Class Form1

    Dim satuan() As String = {"  Kilometer", "  Hektometer", "  Dekameter", "  Meter", "  Desimeter", "  Centimeter", "  Milimeter"}

    Dim feet() As Double = { 1000000 , 100000 , 10000 , 1000 , 100 , 10 , 1}

    Dim hasil As Double

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        hasil = Val(txtbilangan.Text * feet(txtdari.Text))

        hasil = Val(hasil / feet(txtke.Text))

        txthasil.Text = hasil

    End Sub

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

        For i As Integer = 1 To 7

            ListBox1.Items.Add(i & satuan(i) & ".   ")

        Next

    End Sub

End Class

Setelah itu, coba dijalankan (running) tekan F5 :

 

Dari sini adalah contoh tampilan pada saat program dijalankan, jika dimasukkan pada kotak Dari : 1 (Kilometer), lalu Ke: 4 (Meter). Maka hasilnya adalah angka tersebut yang dimasukkan di kali satuan kilometer - centimeter yaitu 1000.
          Contoh :
                        Input Angka : 456
                        Akan di ubah dari kilometer ke Meter.

                        456 km = .............................. m
                        456 km =  456 x 1000          m
                        456 km =  456000                m

Dari sini adalah contoh tampilan pada saat program dijalankan, jika dimasukkan pada kotak Dari : 6 (Centimeter), lalu Ke: 1 (Kilometer). Maka hasilnya adalah angka yang dimasukkan tersebut di bagi satuan centimeter - kilometer yaitu 100000.
         Contoh :
                        Input Angka : 456
                        Akan di ubah dari kilometer ke Centimeter.

                        456 cm = ......................... km
                        456 cm =  456 / 100000      km
                        456 cm =  0,004560            km