Program Visual Basic ( Konversi Jarak )

Private Sub cmdClear_Click()
Label1.Caption = ""
Text1.SetFocus
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdOK_Click()
If Option1.Value = True Then
    a = 1
    Dari = "Kilometer"
ElseIf Option2.Value = True Then
    a = 2
    Dari = "Hektometer"
ElseIf Option3.Value = True Then
    a = 3
    Dari = "Dekameter"
ElseIf Option4.Value = True Then
    a = 4
    Dari = "Meter"
ElseIf Option5.Value = True Then
    a = 5
    Dari = "Desimeter"
ElseIf Option6.Value = True Then
    a = 6
    Dari = "Centimeter"
ElseIf Option7.Value = True Then
    a = 7
    Dari = "Milimeter"
End If


If Option8.Value = True Then
    b = 1
    KE = "Kilometer"
ElseIf Option9.Value = True Then
    b = 2
    KE = "Hektometer"
ElseIf Option10.Value = True Then
    b = 3
    KE = "Dekameter"
ElseIf Option11.Value = True Then
    b = 4
    KE = "Meter"
ElseIf Option12.Value = True Then
    b = 5
    KE = "Desimeter"
ElseIf Option13.Value = True Then
    b = 6
    KE = "Centimeter"
ElseIf Option14.Value = True Then
    b = 7
    KE = "Milimeter"
End If
Bil = Val(Text1.Text)
c = b - a
hasil = Bil * (10 ^ c)
Label1.Caption = Bil & Dari & " Sama dengan " & hasil & KE
End Sub



Berikut ini Adalah Outputnya :