VPF::перевод типов данных - Форум программистов

naumax

Дата 16.12.2009, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.12.2009

Репутация: нет
Всего: нет

Добрый день!
Нужна ваша помощь.
Мне нужно перевести строковую переменную, в переменную с плавающей запятой. Из String в Single
В String вводиться значение с точкой (например 1.2)
Как это сделать?
Все до чего я додумался это вот: только это неработает.

Код


'в форме создаем три текстовых поля и кнопку 
Public a, b, c As Single 
Public t1, t2 As String 

Private Sub Command1_Click() 'кнопка 
t1 = Text1.Text 'в поле Text1 вводим дробное число 
t2 = Text2.Text 'в поле Text2 вводим дробное число 
a = t1 
b = t2 
c = a * b '!!!возникает ошибка несовпадение типов 
Text3.Text = c 
End Sub

Это сообщение отредактировал(а) Akina - 16.12.2009, 11:03

Akina

Дата 16.12.2009, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(naumax @ 16.12.2009, 11:53

)

нужно перевести строковую переменную, в переменную с плавающей запятой. Из String в Single

CSng()
И не забыть решить проблему с десятичным разделителем (в зависимости от локали может быть или точка, или запятая) - соответственно предварительно при необходимости выполнить Replace. А по-хорошему - ещё проверить, что юзер ввёл число, а не текстовую хрень. И учесть, что как введённые числа, так и произведение могут не поместиться в Single.

M
Akina

Не забывайте использовать тег "Код".

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »