Не работает калькулятор (программа внизу)

12.03.2010, 21:17. **Показов** 2349. **Ответов** 12

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
Dim a, b As Integer
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then
MsgBox "Неверные данные"
 
Exit Sub
End If
a = CDbl(TextBox1)
b = CDbl(TextBox2)
If chekbox1 = True Then TextBox3 = a + b Else TextBox3 = ""
If chekbox2 Then TextBox4 = a - b Else TextBox4 = ""
If chekbox4 Then TextBox6 = a * b Else TextBox6 = ""
If chekbox5 Then TextBox7 = a ^ b Else TextBox7 = ""
If chekbox3 Then
If b <> 0 Then TextBox5 = a / b Else TextBox5 = "Деление на 0"
Else
 
TextBox5 = ""
End If
End Sub

Делала калькуль через Username.Там соотвественно 2 Label, 5 Frame, в них Textbox и checkbox. Ну и комманд батон ВЫЧИСЛИТЬ.Она меня и подвела-не работает. после нажатия на вычислить выдает фразу НЕВЕРНЫЕ ДАННЫЕ. Т.е. моя програмка застопорилась в начале на фразах isnumeric
Что я там неверно ВВЕЛА?

@gaw · 12.03.2010, 21:48

Это VB 6.0 ?

@YuraAAA · 13.03.2010, 01:07

Я бы попробовал сделать не так
вместо

Visual Basic
1
2
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then
MsgBox "Неверные данные"

я бы написал

Visual Basic
1
2
3
4
If IsNumeric(textbox1)=false or IsNumeric(textbox2)=false then
MsgBox("Неверные данные!")
Exit Sub
End if

Это код для ВБ 6
Если я не ошибаюсь,то IsNumeric возвращает True либо False )

@Toxa33rus · 13.03.2010, 13:51

Сообщение от YuraAAA

Я бы попробовал сделать не так

Это одно и тоже, даже вариант НатальяCAT более правильный.
Код вроде правильный, надо смотреть на то что Вы вводите в поля. Я тут сейчас потестил функцию и был удивлен: оказывается "12.3" это НЕ число, а "12,3" число. Есть подозрение что функция учитывает региональные настройки.

@YuraAAA · 13.03.2010, 14:06

Сообщение от НатальяCAT

Visual Basic
1
2
3
If chekbox4 Then TextBox6 = a * b Else TextBox6 = "" 
If chekbox5 Then TextBox7 = a ^ b Else TextBox7 = ""
If chekbox3 Then

Кстати...а не Checkbox ? у вас буква пропущена ))

13.03.2010, 22:05

Да, чекбокс я неверно написала))))Но до него дело не дошло,программа стопорится на "Неверных данных"

Добавлено через 1 минуту
я бы написал

Visual Basic
1
2
3
4
If IsNumeric(textbox1)=false or IsNumeric(textbox2)=false then
MsgBox("Неверные данные!")
Exit Sub
End if

не не прокатило(((

@gaw · 13.03.2010, 22:06

если зто VB 6.0. то все работает, только
"chekbox1 = True" === либо chekbox1.Value = True либо просто chekbox1 ,
да и вот "TextBox1" , "chekbox2" как то странно смотрятся

а с "12.3" я "." меняю при вводе на ","

@YuraAAA · 14.03.2010, 00:59

Тоже сделал калькулятор по тому же принципу,всё ок) и действительно,в 6 VB используется text1 и Check1 ))

@(Lim) · 15.03.2010, 07:25

Visual Basic
1
2
3
Function Zapt(Stroka) As Variant
Zapt = Replace(Stroka, ",", ".")
End Function

вставьте себе такую функцию для автоматической замены запятой на точку. Функция не спасает, конечно, от двух запятых в введенной строке (а через textbpx вы получаете именно строку) и от прочих ошибок ввода пользователем.
или, еще проще:

Visual Basic
1
2
a = CDbl(Replace(TextBox1.text,",","."))
b = CDbl(Replace(TextBox2.text,",","."))

@gaw · 15.03.2010, 09:26

(Lim)
в таких случаях проще, наверное, запретить ввод некорректных символов
как думаеш

@(Lim) · 15.03.2010, 09:31

Пользователь может не понять, почему ему запрещают вводить запятую. А, если втихую менять запятые на точки, то тогда все равно, что вводят. С допклавиатуры, откуда обычно вводят по быстрому числовые значения, у меня, к примеру, вводится именно запятая и было бы неудобно вводить оттуда числа, а разделитель - с основной (в русской раскладке так происходит).

@gaw · 15.03.2010, 09:36

согласен, но я имел ввиду нечто иное
1 запрет ввода всех символов кроме цифр и, точки, минус и зпт.
2 после ввода одной зпт. запретить повторный ввод зпт.

@(Lim) · 15.03.2010, 09:45

ну да, конечно, можно добавить. Обработка строки в событии text_keypress или text_change. Все изыски - на усмотрение автора.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	12.03.2010, 21:48
	Это VB 6.0 ? 1

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	13.03.2010, 22:06
	если зто VB 6.0. то все работает, только "chekbox1 = True" === либо chekbox1.Value = True либо просто chekbox1 , да и вот "TextBox1" , "chekbox2" как то странно смотрятся а с "12.3" я "." меняю при вводе на "," 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	14.03.2010, 00:59
	Тоже сделал калькулятор по тому же принципу,всё ок) и действительно,в 6 VB используется text1 и Check1 )) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	15.03.2010, 09:26
	(Lim) в таких случаях проще, наверное, запретить ввод некорректных символов как думаеш 0

@(Lim) 6 / 6 / 0 Регистрация: 03.03.2010 Сообщений: 45
	15.03.2010, 09:31
	Пользователь может не понять, почему ему запрещают вводить запятую. А, если втихую менять запятые на точки, то тогда все равно, что вводят. С допклавиатуры, откуда обычно вводят по быстрому числовые значения, у меня, к примеру, вводится именно запятая и было бы неудобно вводить оттуда числа, а разделитель - с основной (в русской раскладке так происходит). 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	15.03.2010, 09:36
	согласен, но я имел ввиду нечто иное 1 запрет ввода всех символов кроме цифр и, точки, минус и зпт. 2 после ввода одной зпт. запретить повторный ввод зпт. 0

@(Lim) 6 / 6 / 0 Регистрация: 03.03.2010 Сообщений: 45
	15.03.2010, 09:45
	ну да, конечно, можно добавить. Обработка строки в событии text_keypress или text_change. Все изыски - на усмотрение автора. 0