Конвертирование единиц измерения (м, см) в другие

[Stalker1986]

Конвертирование единиц измерения (м, см) в другие. как можно это осуществить? пробовал использовать ComboBox'ы но не помогает. при выборе значения в боксе 1 и выборе значения в боксе 2 ошибка. например я хочу перевести метры в сантиметры. первый бокс равен=м второй=см НО, при выполнении этой функции наоборот (то есть см в м) значение такое же как и в первом случае. на форме кроме них только поле текста 1, и 2, и кнопка расчета. Как можно это оформить через ComboBox? и ещё- как переводить в иностранные меры длины- ярды, футы, дюймы? там значения с несколькими знаками после запятой.

[Viper]

Конвертирование единиц измерения (м, см) в другие. как можно это осуществить? пробовал использовать ComboBox'ы но не помогает. при выборе значения в боксе 1 и выборе значения в боксе 2 ошибка. например я хочу перевести метры в сантиметры. первый бокс равен=м второй=см НО, при выполнении этой функции наоборот (то есть см в м) значение такое же как и в первом случае. на форме кроме них только поле текста 1, и 2, и кнопка расчета. Как можно это оформить через ComboBox?

Показывай, что делал и как.

и ещё- как переводить в иностранные меры длины- ярды, футы, дюймы? там значения с несколькими знаками после запятой.

Ровно также как и метры в сантиметры и наоборот - путем деления и/или умножения.
То есть, например, 1 дюйм равен 2,54 саниметра. Следовательно, чтобы дюймы перевести в сантиметры, надо величину выраженную в дюймах умножить на 2,54. А чтобы сантиметры перевести в дюймы, надо величину выраженную в сантиметрах разделить на 2,54. Ровно также и для других единиц измерения. Ничего сложного.

[pronto]

Для примера можно сходить сюда
www.calc.ru

и сюда
www.decoder.ru

[Stalker1986]

я не знаю как добавлять скрины к постам..(((( А за пояснения насчет единиц измерения и ссылки спасибо. подскажите как вставить имагу в пост, покажу как я на форме это располагал. могу и схематически в принципе это написать.

[Viper]

Зачем тебе картинка? Код покажи.

[Nazarey]

Код: Выделить всё

Private Sub Command1_Click()
Dim ms As Integer
Dim kmh As Single

    If Len(Text1.Text) = 0 Then
        Label3.Caption = "Нет данных"
    Else
        ms = Val(Text1.Text)
        kmh = ms * 3.6
        Label3.Caption = Format$(ms) + " м\сек-это " + _
        Format$(kmh) + " км\ч"
    End If
End Sub

Private Sub Command2_Click()
    Unload Form1
End Sub

Private Sub Form_Load()
    AutoRedraw = True
    ScaleMode = 3
    Cls
    Line (0, 0)-Step(ScaleWidth, 0), QBColor(8)
    Line (0, 1)-Step(ScaleWidth, 0), QBColor(15)
    AutoRedraw = False
End Sub

Private Sub mnuExit_Click()
    Unload Form1
End Sub

Private Sub Text1_Click()
    Text1 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
End Sub

Это полный код работающей программы,переводит из м\сек в км\ч-в пояснениях я думаю не нуждается.

[Stalker1986]

Точно не помню (сделал пока по другому) но вроде того:
If comboBox1= "см" &ComboBox2= "мм" Then
Text2= Text1.Text *10
End If

P/s я с комбо боксами не разобрался, помогите пожалуйста чайнику.