by priyanka srivastava (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 27th January 2006
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
unit converter
VBcoders
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
