• Home
 · 
• Miscellaneous
 · 
• unit converter

unit converter

unit converter

Rate unit converter

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
If Option1.Value = True Then
    Call lenconv
End If
If Option2.Value = True Then
    Call massconv
End If
If Option3.Value = True Then
    Call tmpconv
End If
    
End Sub

Private Sub Option1_Click()
Combo1.Clear
Combo1.AddItem "milimeter"
Combo1.AddItem "centimeter"
Combo1.AddItem "decimeter"
Combo1.AddItem "meter"
Combo1.AddItem "decameter"
Combo1.AddItem "hectometer"
Combo1.AddItem "kilometer"
Combo2.Clear
Combo2.AddItem "milimeter"
Combo2.AddItem "centimeter"
Combo2.AddItem "decimeter"
Combo2.AddItem "meter"
Combo2.AddItem "decameter"
Combo2.AddItem "hectometer"
Combo2.AddItem "kilometer"
Combo1.ListIndex = 0
Combo2.ListIndex = 0
End Sub

Private Sub Option2_Click()
Combo1.Clear
Combo1.AddItem "miligram"
Combo1.AddItem "centigram"
Combo1.AddItem "decigram"
Combo1.AddItem "gram"
Combo1.AddItem "decagram"
Combo1.AddItem "hectogram"
Combo1.AddItem "kilogram"
Combo2.Clear
Combo2.AddItem "miligram"
Combo2.AddItem "centigram"
Combo2.AddItem "decigram"
Combo2.AddItem "gram"
Combo2.AddItem "decagram"
Combo2.AddItem "hectogram"
Combo2.AddItem "kilogram"
Combo1.ListIndex = 0
Combo2.ListIndex = 0

End Sub

Public Sub lenconv()
If Combo1.ListIndex = Combo2.ListIndex Then
MsgBox "No conversion required"
End If
Dim p As Double
Dim t1 As Integer
Dim t2 As Integer
p = 1
t1 = Combo1.ListIndex + 1
t2 = Combo2.ListIndex + 1
If t1 < t2 Then
    For i = 1 To t2 - t1
        p = p / 10
    Next
    MsgBox Text1.Text & " " & Combo1.Text & " =" & p * Val(Text1.Text) & "  " & Combo2.Text
End If
If t1 > t2 Then
    For i = 1 To t1 - t2
        p = p * 10
    Next
    MsgBox Text1.Text & " " & Combo1.Text & " =" & p * Val(Text1.Text) & "  " & Combo2.Text
End If


    
    
End Sub

Private Sub Option3_Click()
Combo1.Clear
Combo1.AddItem "centigrade"
Combo1.AddItem "fareinhite"
Combo1.AddItem "kelvin"
Combo2.Clear
Combo2.AddItem "centigrade"
Combo2.AddItem "fareinhite"
Combo2.AddItem "kelvin"
Combo1.ListIndex = 0
Combo2.ListIndex = 0
End Sub

Public Sub tmpconv()
Dim cconv As Double
    Select Case Combo1.ListIndex
        Case 0:
                
                If Combo2.ListIndex = 0 Then
                    cconv = Val(Text1.Text)
                ElseIf Combo2.ListIndex = 1 Then
                    cconv = ((Val(Text1.Text) * 9) / 5) + 32
                Else
                    cconv = Val(Text1.Text) + 273.15
                End If
                MsgBox Val(Text1.Text) & " " & Combo1.Text & "= " & cconv & Combo2.Text
        Case 1:
            
               If Combo2.ListIndex = 0 Then
               cconv = (5 * (Val(Text1.Text) - 32)) / 9
               ElseIf Combo2.ListIndex = 1 Then
               cconv = Val(Text1.Text)
               Else
               cconv = ((Val(Text1.Text) - 32) * (5 / 9)) + 273.15
               End If
                MsgBox Val(Text1.Text) & " " & Combo1.Text & "= " & cconv & Combo2.Text
                               
         Case 2:
               If Combo2.ListIndex = 0 Then
               cconv = Val(Text1.Text) - 273.15
               ElseIf Combo2.ListIndex = 1 Then
               cconv = ((Val(Text1.Text) - 273.15) * (9 / 5)) + 32
               Else
               cconv = Val(Text1.Text)
               End If
                MsgBox Val(Text1.Text) & " " & Combo1.Text & "= " & cconv & Combo2.Text
                         
    End Select
                
                
                    
                
End Sub


Public Sub massconv()

  Dim p As Double
Dim t1 As Integer
Dim t2 As Integer
p = 1
t1 = Combo1.ListIndex + 1
t2 = Combo2.ListIndex + 1
If t1 < t2 Then
    For i = 1 To t2 - t1
        p = p / 10
    Next
    MsgBox Text1.Text & " " & Combo1.Text & " =" & p * Val(Text1.Text) & "  " & Combo2.Text
End If
If t1 > t2 Then
    For i = 1 To t1 - t2
        p = p * 10
    Next
    MsgBox Text1.Text & " " & Combo1.Text & " =" & p * Val(Text1.Text) & "  " & Combo2.Text
End If
         
End Sub