точка или запятая

[MVG]

Работа над калькулятором.

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


Dim z As Double
____________________________________
'нажимаем клавишу "+"

txtText1.Tag = txtText1.Text

____________________________________
'нажимаем клавишу "="

z = Val(txtText1.Tag) + Val(txtText1.Text)
txtText1.Text = z

[Konst_One]

То, что она выводит на экран зависит от региональных установок твоего компа.

[MVG]

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

[hCORe]

Все правильно, в MS VB вшита интерпретация обычного американского формата даты, времени и чисел:

Дата: ММ/ДД/ГГ
Время: ЧЧ:ММ:СС
Разделитель разрядов: точка

Думаю, здесь помогут функции CInt, CLng, CSng или CDbl (в зависимости от типа выражения - Integer, Long, Single или Double), вместо обычной Val. Они учитывают региональные настройки при конвертации. Подробнее см. справку VB.

Посмотри сюда:

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

'результат 155
MsgBox Val("155,9")
'результат 156
MsgBox CInt("155,9")

[Calvin]

hCORe на счет настроек ты прав, но мне кажется Val в твоем примере не подходит, т.к., если я правильно понимаю, то эта ф-я работает так:

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

f = "125,5"
For i = 1 To Len(f)
  Select Case Mid(f, i, 1)
    Case IsNumeric(True), ".", " "
    Valll = Valll & Mid(f, i, 1)
  Case Else
  Exit For
End Select
Next
Msgbox Valll   ' 125


[ASD]

hCORe на счет настроек ты прав, но мне кажется Val в твоем примере не подходит,

Думаю, здесь помогут функции CInt, CLng, CSng или CDbl (в зависимости от типа выражения - Integer, Long, Single или Double), вместо обычной Val.

[MVG]

З-А-Р-Р-Р-А-Б-О-Т-А-Л-О !!!

Проблема, хотя и связана с национальными настройками, но сидит немного глубже. Оказывается, ТО что VB выводит и ТО что он имеет ввиду не всегда одно и то же. VB при внутренних расчётах, таки да, использует десятичную точку ".", а нам с вами для нашего же удобства выводит десятичную запятую "," с которой дальнейшие действия невозможны. Проблема была в том, чтобы докопаться что VB говорит и думает поразному. Чтобы решить данную задачу надо все результаты расчётов скидывать в переменные параллельно с тем, что выводится в текстовое поле и в дальнейшем использовать данные из этих переменных, а не из txt полей.

------ЭЛЕМЕНТАРНО-------