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 BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Label 1CaptionSCALE
(Skala)
Label 2Asked
(Di Tanyakan)
Label 3Actual Distance
(Jarak Sebenarnya)
Label 4Map Distance
(Jarak Peta)
Label 5(Kosong)
Combo 1Text(Kosong)
Text 1
Text 2
Command 1CaptionRESULT
(Hasil)
Frame 1(Kosong)
AllFont Size12

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


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Program Menghitung Perbandingan Skala VB"

Post a Comment