Операции вычисления.

[Saturn.65]

Столкнулся с проблемой при вычислении. Научите правильно работать. Например: Делим одно число на другое, получаем некоторое не целое число, например 4.367. Это число записывается в TextBox99.Text не через точку, а с запятой (4,367). Вот тут и начинаются проблемы с участием этого числа. Все математические операции с Val(TextBox99.Text) происходят не правильно. Всему виной запятая. С точкой проблем нет, но точка и не появляется. Что я не правильно делаю? И как делать правильно?

[iGrok]

http://vbstreets.ru/VB/Articles/66479.aspx

[Saturn.65]

...Кстати, простейший способ получить символ разделения целой и дробной частей – вызвать функцию Format следующим образом
Format$(0, ".")
Этот вызов вернет текущий разделитель целой и дробной частей числа.

И как ее пристроить к TextBox? Пристраивал -число удаляет, только запятая остается. Кто-нибудь ни сочтет за труд, чтоб показать простенький пример замены запятой в десятичных числах на точку? Ведь это вам раз плюнуть. Я понимаю, что google бесконечное и поиск рулит, но у меня нет времени. Все написано, но уперся в эту запятую...

[Viper]

Replace

[alibek]

Всему виной запятая.

Всему виной кривизна рук.
Оперировать числами, используя вместо числовых переменных текстбоксы, это очень самобытно и необычно, но неправильно.
Столь же самобытное решение — задай в настройках использование в качестве десятичного разделителя точки. Именно эта проблема будет решена.

[Saturn.65]

Всему виной запятая.

Оперировать числами, используя вместо числовых переменных текстбоксы, это очень самобытно и необычно, но неправильно.
Столь же самобытное решение — задай в настройках использование в качестве десятичного разделителя точки. Именно эта проблема будет решена.

Я понимаю, что где-то неправильно. Тогда бы пример привели и делов то. А где задать в настройках точку? А на другом компе как будет работать?

[iGrok]

Я понимаю, что где-то неправильно. Тогда бы пример привели и делов то. А где задать в настройках точку? А на другом компе как будет работать?

На другом компе будет работать, если там тоже будет точка. )
А если запятая - то не будет.

[Saturn.65]

Я понимаю, что где-то неправильно. Тогда бы пример привели и делов то. А где задать в настройках точку? А на другом компе как будет работать?

На другом компе будет работать, если там тоже будет точка. )
А если запятая - то не будет.

Вот и я про что. Не будете ли столь любезны привести мне пример с этой гнусной точкой. Как мне правильно разделить два числа, чтоб точка была вместо запятой.
Нашел вот такой пример, но под Change не правильно работает: курсор после точки влево уходит. Как его сделать в право?

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

Private Sub Text1_Change()
Pointindex# = InStr(Text1, ",")
  If Pointindex# = 0 Then 'есть ли в тексте запятая?
  ' нет
   If IsNumeric(Text1) Then   'можно ли текст преобразовать в число?
   
   Else
 
   End If
  Else 'в тексте есть хотя бы одна запятая
  'замена первой запятая на точку:
   Text1 = Left(Text1, Pointindex# - 1) & "." & Mid(Text1, Pointindex# + 2)

  End If
End Sub

[Viper]

Вот зачем тебе Change обрабатывать? У тебя математические операции производятся при вводе каждого символа? Наверняка ведь есть какая-то кнопка, которая запускает математическую операцию? Вот в ней то и заменяй запятую на разделитель целой и дробной части установленый в системе. Как его получить уже написано.
З.Ы. Читать мою статью до просветления!

[arthur2]

Ты проводишь вычисления не с числами, а со строками. А ты проводи с числами. А в тексбоксы выводи только результаты. И ВООБЩЕ не придётся разбираться с запятыми. Закрепи за каждым тексбоксом переменную, которая будет хранить его значение.

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

public valTxt99 as single 'вот в этой переменной храни результат

valTxt99 = что-то там поделить на чтототам
TextBox99.text=valtxt99


И затем "Все математические операции с Val(TextBox99.Text)", которые "происходят не правильно" производи с valTxt99. И тогда тебе будет поровну, запятая там разделителем, или точка.

А если надо прочитать число из текстбокса, то как-то так:

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

valTxt99 =val(replace(textbox99.text,",",".")))


А после всех вычислений каждому тексбокус присвоишь значение соответствующей ему числовой переменной, и запятые или точки сами поставятся как нужно в системе

[Dimen]

Кто-нибудь ни сочтет за труд, чтоб показать простенький пример замены запятой в десятичных числах на точку? Ведь это вам раз плюнуть. Я понимаю, что google бесконечное и поиск рулит, но у меня нет времени. Все написано, но уперся в эту запятую...

Пример замены запятой на точку:

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

Private Sub Command1_Click()
iInput = Text1.Text
Text2.Text = Replace(iInput, ",", ".")
End Sub


[arthur2]

Оперировать числами, используя вместо числовых переменных текстбоксы, это очень самобытно и необычно, но неправильно.
Столь же самобытное решение — задай в настройках использование в качестве десятичного разделителя точки. Именно эта проблема будет решена.

Человек пытается делать что-то через... излишнюю самобытность, а ему, вместо того, чтобы подсказать прямой путь без ям и ухабов, помогают "столь же самобытно" форсировать эти ямы.

Ещё раз по буквам: ОПЕРИРОВАТЬ НУЖНО ЧИСЛАМИ. А тексбоксы использовать только для вывода или ввода этих чисел. Но никак - не для хранения промежуточных значений. И НЕ БУДЕТ НИКАКИХ ПРОБЛЕМ С ЗАПЯТЫМИ.

[Saturn.65]

Dimen
arthur2
Огромное спасибо! Вот такой пример я и просил показать. Все свои проблемы решил.
С другой стороны я же Val ставлю перед текстбоксами. Это разве не тоже самое, что с числами работать? Хотя наверное нет, иначе бы проблем с запятой не было бы. Val видит число до запятой.

[Dimen]

Всегда рад помочь!

[arthur2]

С другой стороны я же Val ставлю перед текстбоксами. Это разве не тоже самое, что с числами работать?

Нет! Для работы с числами есть числовые переменные. Для работы со строками есть строковые переменные. А тексбоксы не нужно использовать ни для того, ни для другого.

[Saturn.65]

С другой стороны я же Val ставлю перед текстбоксами. Это разве не тоже самое, что с числами работать?

Нет! Для работы с числами есть числовые переменные. Для работы со строками есть строковые переменные. А тексбоксы не нужно использовать ни для того, ни для другого.

Прочитал две книги уважаемых авторов и ни один не предупредил и даже не намекнул об этом. Я имею ввиду про переменные, делитель запятую и т.д. Все пишут как умножить Text1.Text на другой. Ладно еще хоть про Val что-то сказали.

[Хакер]

Надо читать MSDN.

[Saturn.65]

Надо читать MSDN.

Все мечтал его скачать. Но все никак не попадалась ссылка "Download". Все вокруг да около.

[Saturn.65]

Еще не понимаю, что за штука такая? Сперва все работает и вдруг выдает ошибку 13 о несоответствии видов. Ставлю везде Val. Все начинает работать. Успокаиваюсь. Вроде программу дописал и вдруг перестает вычислять. Оказывается надо кое-где убрать Val, хотя я ничего не трогал и 5 минут назад все работало без проблем. Уже и боюсь. Вдруг опять проблемы с этой функцией. В чем может быть причина?

[Viper]

Еще не понимаю, что за штука такая? Сперва все работает и вдруг выдает ошибку 13 о несоответствии видов. Ставлю везде Val. Все начинает работать. Успокаиваюсь. Вроде программу дописал и вдруг перестает вычислять. Оказывается надо кое-где убрать Val, хотя я ничего не трогал и 5 минут назад все работало без проблем. Уже и боюсь. Вдруг опять проблемы с этой функцией. В чем может быть причина?

Причина в том, что Val всегда преобразовывает свой аргумент в число. Если аргумент не может быть преобразован в число, то возвращается 0. Если в аргументе (в строке) есть символ недопустимый для числа, то Val вернет в качестве результата часть аргумента до недопустимого символа. Если же вместо Val использовать, например, CVal, то в случае наличия недопустимых символов в аргументе, CVal вернет ошибку.

[HiddenMan]

я ничего не трогал и 5 минут назад все работало без проблем

ты хоть кусочек коду то покажи, интересно же

[Saturn.65]

Например вот такая формула и к ней такие переменные:
Label56.Caption = (Rast * Norma) + (((Rast * Tonn) / 100) * 1.3)

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

Dim Rast As Single
Dim Norma As Single
Dim NormaZ As Single
Dim Tonn As Single
Tonn = Combo2.Text
Norma = Text7.Text
Rast = Label78.Caption
TonnM = Combo1.Text


И вот сперва ставил в переменных Val(....), работало, но после ошибка 13 выскочила и пришлось Val убрать. Сейчас опять работает. Вот меня и берут сомнения по поводу надежности. А то на вычисляешь...

[pronto]

Вариант, конечно, кривой, так как здесь уже неоднократно намекали на использование числовых типов в математических действиях. Дело всё в том, что «присвоение» (Например, Norma = Text7.Text) тоже относится к мат. действию, так как Norma имеет тип Single. Если бы Norma имела тип String, то всё было бы корректно. Поэтому, чтобы «выправить» данное «присвоение», то необходимо корректно преобразовать Text7.Text к числу. И здесь мало одной функции Val(), так как числа могут быть дробными. Получается следующий алгоритм решения проблемы.

Получить и запомнить системный разделитель целой и дробной части.
В текстовой переменной, в которой хранится необходимое число (чувствуется несуразность?), заменить системный разделитель на «точку».
Преобразовать текст в число функцией Val().

Криво? Да...
Поэтому для работы и хранения чисел используй соответствующие типы переменных и/или массивов.

[Saturn.65]

Если бы Norma имела тип String, то всё было бы корректно. Поэтому, чтобы «выправить» данное «присвоение», то необходимо корректно преобразовать Text7.Text к числу. И здесь мало одной функции Val(), так как числа могут быть дробными. Получается следующий алгоритм решения проблемы.
Поэтому для работы и хранения чисел используй соответствующие типы переменных и/или массивов.

Раньше у меня вообще было только Dim без всяких String. Т.е. если я перепишу на String, то будет нормально работать? С дробными числами я поступил, как мне прислали пример. Т.е. запятая автоматически заменяется на точку. После этого ошибок в вычислении не было.

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

Private Sub Text1_Change()
iInput = Text1.Text
Text1.Text = Replace(iInput, ",", ".")
End Sub

[arthur2]

Твоя проблема в том, что ты хранишь промежуточные результаты в свойствах объектов. Заведи же наконец отдельную переменную для промежуточных результатов, а не преобразуй взад-вперед

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

'Вместо
'Label56.Caption = (Rast * Norma) + (((Rast * Tonn) / 100) * 1.3)

'вот так
val56= (Rast * Norma) + (((Rast * Tonn) / 100) * 1.3)
Label56.Caption = val56


И потом, когда тебе понадобится значение этого лейбла, просто возьмешь из val56

[Saturn.65]

arthur2
Спасибо! Коротко и ясно и с примером. Буду теперь знать.
Провел эксперимент:

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

Private Sub Command1_Click()
Dim Aaaa As Single
Dim Bbbb As Single
Aaaa = Val(Text1.Text)
Bbbb = Val(Text2.Text)

L1 = Aaaa - Bbbb
Label1.Caption = L1
End Sub

Private Sub Command2_Click()
Dim Aaaa As String
Dim Bbbb As String
Aaaa = Val(Text1.Text)
Bbbb = Val(Text2.Text)

L1 = Aaaa + Bbbb
Label1.Caption = L1
End Sub

Private Sub Command3_Click()
Dim Aaaa As Single
Dim Bbbb As Single
Aaaa = Text1.Text
Bbbb = Text2.Text

L1 = Aaaa - Bbbb
Label1.Caption = L1
End Sub


Все работают по разному. Command3 позволяет делать операции с разделителем десятичных -запятая, но выдает ошибку 13 при разделении десятичных точкой. Вывод такой, что если используется запятая, то Val ставить не надо. А если точка, то надо. И еще зависит от String или Single... Короче говоря каши в голове стало еще больше.
А есть универсальное средство, которое любые математические действия делает правильно, независимо от региональных настроек запятой или точки? Т.е. любые цифры вставляй, хоть дели, хоть складывай и умножай и будет правильно?

[arthur2]

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

Есть Используй не строки, а числа и дели-умножай сколько хочешь.

Command3 позволяет делать операции с разделителем десятичных -запятая, но выдает ошибку 13 при разделении десятичных точкой. Вывод такой, что если используется запятая, то Val ставить не надо. А если точка, то надо.

Перед использованием val просто заменяй все запятые на точки - и не придётся думать о региональных настройках. Я же писал:

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

valTxt99 =val(replace(textbox99.text,",",".")))

(обрати внимание - в самом текстбоксе от этого кода запятая никуда не денется, но val сработает правильно)