Program Menghitung Perbandingan Skala VB

Pada tutorial kali ini kita akan membuat sebuah program aritmatika perbandingan yaitu skala, tentunya anda pasti tahu apa itu skala, jadi saya tidak perlu menjelaskanya, untuk membuatnya sangat mudah sekali, tapi tidak semudah membalikan telapak tangan (:D), baiklah berikut tutorialnya :

1. Pertama jalankan VB dengan project standar EXE
2. Tambahkan 4 label, 2 text box, 1 combo box, 1 command button dan 1 frame, jika sudah tambahkan satu lagi label di atas frame, atur propertienya sehingga seperti ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Label 1	Caption	SCALE (Skala)
Label 2		Asked (Di Tanyakan)
Label 3		Actual Distance (Jarak Sebenarnya)
Label 4		Map Distance (Jarak Peta)
Label 5		(Kosong)
Combo 1	Text	(Kosong)
Text 1
Text 2
Command 1	Caption	RESULT (Hasil)
Frame 1		(Kosong)
All	Font Size	12

3. Tuliskan script berikut :

Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Label5.Caption = ""
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "SCALE" Then
Call Bersih
Label3 = "Actual Distance"
Label4 = "Map Distance"
Frame1.Caption = "Scale"

ElseIf Combo1.Text = "Map Distance" Then
Call Bersih
Label3 = "Actual Distance"
Label4 = "Scale"
Frame1.Caption = "Map Distance"

ElseIf Combo1.Text = "Actual Distance" Then
Call Bersih
Label3 = "Scale"
Label4 = "Map Distance"
Frame1.Caption = "Actual Distance"
End If
End Sub

Private Sub Command1_Click()
If Combo1.Text = "SCALE" Then
scale1 = Val(Text1) * 100000
scale2 = scale1 / Val(Text2)
Label5.Caption = "1:" & scale2

ElseIf Combo1.Text = "Map Distance" Then
Peta = Val(Text1) * 100000
Peta = Peta / Val(Text2)
Label5.Caption = Peta & " CM"

ElseIf Combo1.Text = "Actual Distance" Then
benar = Val(Text1) * Val(Text2)
Label5.Caption = benar / 100000 & " KM"

End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "SCALE"
Combo1.AddItem "Actual Distance"
Combo1.AddItem "Map Distance"
End Sub

Catatan :
Program yang saya buat menggunakan bahasa inggris, baik untuk caption toolbox maupun scriptnya :
silahkan ganti script "Scale" menjadi "Skala", "Actual Distance" menjadi "Jarak Sebenarnya", "Map Distance" menjadi "Jarak Pada Peta".

4. Jalankan Program
/tr>

Untuk Menguji kekakuratan perhitunganya, di sini saya mencoba mencari Jarak sebenarnya dengan jarak pada peta 5 CM dan skala 1 : 10.000, rumus untuk mencari
jarak sebenarnya = Skala x jarak Peta
Jp = 10.000 x 5
Jp = 50.000 CM, karena satuan jarak sebenarnya adalah KM, maka
Jp = 0,5 KM

Sekian tutorial kali ini semoga bermanfaat