Замена символа десятичного разделителя в TextBox - VB - Ответ 2636718

@hyperreal · Регистрация: 22.05.2009

Студворк — интернет-сервис помощи студентам

Помогите решить проблемку с преобразованием значений в тип который воспринимает запятую. Есть 9 - textBox(ов) в которые вводятся числовые значения и после их ввода происходит вычисление. Все сделано через функцию Val которая в качестве десятичного разделителя воспринимает только точку и числа после запятой не воспринимаются и если значение меньше 1 к примеру 0,2 то воспринимает как =0

Как можно сделать, что бы textBox воспринимал корректно значения с запятой и отдавал фокус другому textBox.
Установлена локализованная русская Win2000 у которой в настройках языков и стандартов в качестве разделителя установлен (,). В свой ствах textBox в данном случае txtPow0 до txtPow9 >> DataFomat установил Custom >>##,###
А вот и кусок исходника.

Visual Basic

If Val(txtPow0) <= 0 Then
   frmVvod.txtPow0.SetFocus
    Else
If Val(txtPow1) <= 0 Then
       frmVvod.txtPow1.SetFocus
    Else
If Val(CSng(txtPow2) <= 0 Then
       frmVvod.txtPow2.SetFocus
    Else
If Val(txtPow3) <= 0 Then
       frmVvod.txtPow3.SetFocus
    Else
If Val(txtPow4) <= 0 Then
       frmVvod.txtPow4.SetFocus
    Else
If Val(txtPow5) <= 0 Then
      frmVvod.txtPow5.SetFocus
    Else
If Val(txtPow6) <= 0 Then
      frmVvod.txtPow6.SetFocus
    Else
If Val(txtPow7) <= 0 Then
      frmVvod.txtPow7.SetFocus
    Else
If Val(txtPow8) <= 0 Then
       frmVvod.txtPow8.SetFocus
End If
       End If
             End If
                    End If
                End If
            End If
    End If
End If
End If
 
If txtPower.Text = '' Then
MsgBox 'sjkdklajdklsajdkl      & 'dfsfsdfsdfdsfsd' _
      , vbExclamation, 'Pizdec'
    Exit Sub
End If
RaiseEvent OkQuery
If Not blCancelClear Then Call ClearVvod Else blCancelClear = False
 
End Sub 
'---------------------------------------------  
Public Sub Calculate()
Dim DotPower0 As Single
Dim DotPower1 As Single
Dim DotPower2 As Single
Dim DotPower3 As Single
Dim DotPower4 As Single
Dim DotPower5 As Single
Dim DotPower6 As Single
Dim DotPower7 As Single
Dim DotPower8 As Single
If Val(txtPow0.Text) > 0 Then
    If Val(txtPow1.Text) > 0 Then
        If Val(txtPow2.Text) > 0 Then
            If Val(txtPow3.Text) > 0 Then
                If Val(txtPow4.Text) > 0 Then
            If Val(txtPow5.Text) > 0 Then
        If Val(txtPow6.Text) > 0 Then
    If Val(txtPow7.Text) > 0 Then
If Val(txtPow8.Text) > 0 Then
DotPower0 = Val(txtPow0.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 16)
DotPower1 = Val(txtPow1.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 8)
DotPower2 = Val(txtPow2.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 16)
DotPower3 = Val(txtPow3.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 8)
DotPower4 = Val(txtPow4.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 4)
DotPower5 = Val(txtPow5.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 8)
DotPower6 = Val(txtPow6.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 16)
DotPower7 = Val(txtPow7.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 8)
DotPower8 = Val(txtPow8.Text) * 1.1 / (2 * 3.24 * 3.141592) * (1 / 16)
txtPower.Text = Round(DotPower0 + DotPower1 + DotPower2 + DotPower3 + DotPower4 + DotPower5 + DotPower6 + DotPower7 + DotPower8, 2)
''''txtUdAkt.Text = Round(2.146 * 1.1 * (txtPower.Text / 1000) * 0.0287 / (2 * 3.24 * 3.141592), 7)
 
End If
      End If
               End If
                    End If
            End If
        End If
    End If
End If
End If
 
End Sub
Private Sub txtPow0_Change()
Call Calculate
End Sub

Вернуться к обсуждению:
Замена символа десятичного разделителя в TextBox VB

Следующий ответ

Другие темы раздела
VB Глобальная ошибка Basica При вводе данных в textbox-ы из словаря (listview или datagrid) и в др. случаях иногда не с того не с сего выдается ошибка - 'Программа выполнила недопустимую операцию, будет закрыта. Обратитесь к разработчику', и закрывается весь VB. Что бы это значило и как с этим бороться? https://www.cyberforum.ru/ visual-basic/ thread480392.html	Вложенный запрос в DBF VB Есть две папки с dbf файлами. В одной лежат коды, в другой расшифровка. Например: DirFirmLISTTTN2 содержит записи 1 РУЧКШАРКГЕЛЬКРАСН 2 РУЧКШАРКГЕЛЬСИН_ 3 ЛИНЕДЕРЕ25СМОФИСН PubCodeCODE содержит записи РУЧК Ручка ШАРК Шариковая ГЕЛЬ Гелевая
VB Как лучше организовать ввод дат в textboxe? Как лучше организовать ввод дат в textboxe? https://www.cyberforum.ru/ visual-basic/ thread480386.html	VB Не могу удалить запись из базы данных (Error 3617) https://www.cyberforum.ru/ visual-basic/ thread480377.html Проблема вот такого характера: Сама база содержиться в файле Excel, при попытке удалить запись выдает вот такую месагу 'Deleting data in a linked table is not supported by this ISAM. (Error 3617)'. Код удаления использовал следующий: Data1.Refresh Do While Data1.Recordset.EOF = False Data1.Recordset.Delete Data1.Recordset.MoveNext Loop
VB Ошибка записи чисел в Access2000 Работаю VB6, ADO, Access2000 Идет непонятная ошибка записи в базу при смене разделителя целой и дробной части числа Помогите пожалуйста, кто знает !!! региональные настройки числа: запятая Textbox(1).text='1,23' parRecordset.Fields(1).Value = parTextBox(1).Text В базу ложиться 123	VB Как узнать содержимое папки? Если кто вдруг знает, как программным образом(без использования всяких инструментов) на VB получить список файлов данной папки? https://www.cyberforum.ru/ visual-basic/ thread480370.html
VB Как можно изменить в fields properties ISAUTOINCREMENT на false? Как можно изменить в fields(в отключёном recodset) properties ISAUTOINCREMENT на false или вообще убрать его? https://www.cyberforum.ru/ visual-basic/ thread480366.html	VB Как передавать параметры в иерархические рекордсеты? Есть SHAPE {SELECT '0' AS ID} APPEND ' & _ '({SELECT '0' AS ID, Name ' & _ 'FROM tbl1 ' & _ 'WHERE datediff('d',?, ) >=0 AND datediff('d',,?) >=0 ' & _ 'GROUP BY Name' & _ '} AS Report ' & _ 'RELATE id TO id)'
VB Можно ли сортировать строки в DBGrid по любому слову в строке? https://www.cyberforum.ru/ visual-basic/ thread480333.html Напимер, нужно выбрать в базе все записи относящиеся только к 'MSFlexgrid' Слово сортировки (выборки) может находиться в любом месте строки !!!!!! Например, строки в базе: '----------------- Поле 1 ------------------ Запись в 'MSFlexgrid' данных 'MSFlexgrid' - отчет Собака зарыта там-то Коды vb и т.д	VB Как кликать два раза по форме без последствий? https://www.cyberforum.ru/ visual-basic/ thread480331.html Возможно ли отключение опции перехода в редактор кода и автоматического создания там заголовка процедуры при двойном клике на форме (в процессе разработки)? Можно ли сделать так чтоб можно было кликать два раза по форме без последствий? Какие будут идеи?
VB Кто-нибудь работал с автозаполнением? Нужно чтобы при наборе первых букв слова оно появлялось целиком	VB Где можно найти описание API-х контстант? https://www.cyberforum.ru/ visual-basic/ thread480315.html Функция GetLocaleInfo использует в качестве парметра одну из двух констант: -LOCALE_SYSTEM_DEFAULT -LOCALE_USER_DEFAULT Опеределение значения этих констант не нашел ни API-Viewer, ни в файле winuser.h (в нем всегда находил определения тех констант, которых не хватало в API-Viewer). Что делать? Самое интересное, что в примере с API-guide (http://www.allapi.net/) по функции GetLocaleInfo есть...