Обработка ошибок в Visual Basic

@irineyxxx · Регистрация: 18.09.2011

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

Все программисты включая Visual Basic должны создавать программы и для "тупых дурачков". Подскажите пожалуйста как можно это сделать - к примеру в выше сказанном код работает, теперь я хочу сделать так, чтоб если в TextBox - ничего не будет , то программа не завершится и выдаст ошибку + если в TextBox - введут буквы - выдаст сообщение , задайте цифровые значения. Если в TextBox - ничего не будет введено , сообщение - ничего вычислять

@Ципихович Эндрю · 28.10.2011, 17:54

If Len(TextBox.Text) = 0 Then что душа пожелает и переход куда надо

@irineyxxx · 28.10.2011, 18:07 **[ТС]**

Ципихович Эндрю, Что то я не понял ))) If Len(TextBox.Text) = 0

@Ципихович Эндрю · 28.10.2011, 18:09

если длина текста в тексбоксе равна нулю

@irineyxxx · 28.10.2011, 18:25 **[ТС]**

Ципихович Эндрю, If Len(TextBox.Text) = 0 Then - перевод : Если переменная "Len" (Текстовая коробка. Текст ) равняется нулю, затем .... ??? Вот где Then что дальше ???

@Ципихович Эндрю · 28.10.2011, 18:29

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

Если переменная "Len"

чушь -
переменная = "ьвыаиовымпилоавымплавырлпкурлпкурпкурлп "
длина_переменной = Len(переменная)
Доходчиво??
Всё что подсвечивается синим, например Len - это ВБАшные штучки и делать переменные с таким именем не желательно

@Dzhej-Dzhej · 28.10.2011, 18:52

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

Ципихович Эндрю, If Len(TextBox.Text) = 0 Then - перевод : Если переменная "Len" (Текстовая коробка. Текст ) равняется нулю, затем .... ??? Вот где Then что дальше ???

Visual Basic
1
If Len(TextBox.Text) = 0 Then End

если серьезно

Visual Basic
1
If Len(TextBox.Text) = 0 Then MsgBox "Вы ничего не ввели"

если нужно то, чтобы по критической ошибке не произошел вылет из программы, а был пропуск ошибки

Visual Basic
1
On Error Resume Next

отмена контроля критических ошибок

Visual Basic
1
On Error Goto 0

irineyxxx, я понимаю, что вы хотите освоить сразу два языка VB и C#, но лучше последовательно.
книги по программированию тоже нужно читать, набирать примеры из них, тестировать...(в общем, не пренебрегайте учебниками и самоучителями)

Памирыч · 28.10.2011, 19:19

Не по теме:

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

Текстовая коробка. Текст

Зачет!! :bravo::good::rofl:

@irineyxxx · 28.10.2011, 19:24 **[ТС]**

Памирыч, ууууууууууу, зачет оО))))) Хотите я вам дюжену кодов переведу по своему языку ? )))0

Памирыч · 28.10.2011, 19:29

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

magirus · 28.10.2011, 19:34

Не по теме:

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

Текстовая коробка. Текст

рыдаль и плакаль, (мы едем на баш...)

@Dzhej-Dzhej · 28.10.2011, 19:40

насчет того, что я здесь сказал , имелось ввиду, что 80% времени нужно тратить на поиск информации, эксперементы и самообучение, а 20% на написание лаконичного и легкочитаемого кода.
а потом уже из восмидесяти процентов отрезАть себе время на развлечения

как бы, до этого нужно осмыслить самые основы, подготовить какую-то базу, а дальше как по конвееру.

Не по теме:

сказывается, что раньше учителем работал

Что с вопросами по теме, разобрались?

@irineyxxx · 28.10.2011, 19:46 **[ТС]**

Dzhej-Dzhej, что то не работает

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command2_Click()
Dim A, B, C As Double
A = CSng(Text1.Text)
If A(Text1.Text) = 0 Then MsgBox "Вы ничего не ввели" 
B = CSng(Text2.Text)
If B(Text2.Text) = 0 Then MsgBox "Вы ничего не ввели" 
C = (1 / 3) * B * A
Text3.Text = C
End Sub

Комментарий модератора

Выделяем код.
На панели инструментов находим "VB"
Нажимаем ее
Это уже предупреждение, сколько можно QBasic-ом выделять?

@Ципихович Эндрю · 28.10.2011, 19:48

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

DIM A, B, C AS DOUBLE

у Вас что места мало, Вам же уже сегодня поясняли, может в этом вопросе и не принципиально, но зачем на грабли ...

SoftIce · 28.10.2011, 19:48

Dzhej-Dzhej,

как бы, до этого нужно осмыслить самые основы, подготовить какую-то базу, а дальше как по конвееру.

Одобряю и поддерживаю.

@Ципихович Эндрю · 28.10.2011, 19:53

зачем так

Visual Basic
1
2
3
DIM A AS DOUBLE
A = CSNG(Text1.Text)
IF A(Text1.Text) = 0 THEN MsgBox "Вы ничего не ввели"

краткость сестра ..

Visual Basic
1
IF CSNG(Text1.Text) = 0 THEN MsgBox "Вы ничего не ввели"

@Dzhej-Dzhej · 28.10.2011, 20:11

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

Dim A, B, C As Double

Объявите

Visual Basic
1
Dim A As Double, B As Double, C As Double

это тонкости VB, если после переменной сразу не поставите тип данных, то он будет Variant.

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

If A(Text1.Text) = 0 Then MsgBox "Вы ничего не ввели"

Это что такое?

В смысле
A(Text1.Text) = 0

@irineyxxx · 28.10.2011, 20:16 **[ТС]**

Я скачал Visual Basic размером 700 мб - это нормально ? полная версия ???

@Ципихович Эндрю · 28.10.2011, 20:18

Видимо нужно

Visual Basic
1
If Len(Text1.Text) = 0 Then MsgBox "Вы ничего не ввели"

Добавлено через 50 секунд

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

скачал Visual Basic размером 700 мб - это нормально ? полная версия ???

более чем, обычно 120

@irineyxxx · 28.10.2011, 20:29 **[ТС]**

Ципихович Эндрю,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
Text1.Text = "0"
Text2.Text = "0"
Text3.Text = ""
End Sub
Private Sub Command2_Click()
Dim A As Double, B As Double, C As Double
A = CSng(Text1.Text)
If CSng(Text1.Text) = 0 Then MsgBox "Ïîæàëóéñòà, ââåäèòå öèôðîâûå çíà÷åíèÿ"
B = CSng(Text2.Text)
If CSng(Text2.Text) = 0 Then MsgBox "Ïîæàëóéñòà, ââåäèòå öèôðîâûå çíà÷åíèÿ"
C = (1 / 3) * B * A
Text3.Text = C
End Sub
Private Sub Form_Load()
Text1.Text = "0"
Text2.Text = "0"
End Sub

все работает ^_^ Спасибо. Теперь в задаче осталось последнее действие ((((((

Добавлено через 1 минуту
Я создам еще одну тему...ща

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730

	Обработка ошибок в Visual Basic 28.10.2011, 17:43. Показов 4190. Ответов 21 Метки нет (Все метки) Все программисты включая Visual Basic должны создавать программы и для "тупых дурачков". Подскажите пожалуйста как можно это сделать - к примеру в выше сказанном код работает, теперь я хочу сделать так, чтоб если в TextBox - ничего не будет , то программа не завершится и выдаст ошибку + если в TextBox - введут буквы - выдаст сообщение , задайте цифровые значения. Если в TextBox - ничего не будет введено , сообщение - ничего вычислять 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	28.10.2011, 17:54
	If Len(TextBox.Text) = 0 Then что душа пожелает и переход куда надо 0

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 18:07 [ТС]
	Ципихович Эндрю, Что то я не понял ))) If Len(TextBox.Text) = 0 0

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	28.10.2011, 18:09
	если длина текста в тексбоксе равна нулю 0

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 18:25 [ТС]
	Ципихович Эндрю, If Len(TextBox.Text) = 0 Then - перевод : Если переменная "Len" (Текстовая коробка. Текст ) равняется нулю, затем .... ??? Вот где Then что дальше ??? 0

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 19:24 [ТС]
	Памирыч, ууууууууууу, зачет оО))))) Хотите я вам дюжену кодов переведу по своему языку ? )))0 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	28.10.2011, 19:29
	irineyxxx, мне это без надобности, а вот тебе посоветовал бы понять, что есть свойства и методы объектов. А переводить программный код не нужно, здесь форум кодеров, а не баш-орг 0

@Dzhej-Dzhej Заблокирован
	28.10.2011, 19:40
	насчет того, что я здесь сказал , имелось ввиду, что 80% времени нужно тратить на поиск информации, эксперементы и самообучение, а 20% на написание лаконичного и легкочитаемого кода. а потом уже из восмидесяти процентов отрезАть себе время на развлечения как бы, до этого нужно осмыслить самые основы, подготовить какую-то базу, а дальше как по конвееру. Не по теме: сказывается, что раньше учителем работал Что с вопросами по теме, разобрались? 1

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	28.10.2011, 19:48
	Dzhej-Dzhej, как бы, до этого нужно осмыслить самые основы, подготовить какую-то базу, а дальше как по конвееру. Одобряю и поддерживаю. 0

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	28.10.2011, 20:16 [ТС]
	Я скачал Visual Basic размером 700 мб - это нормально ? полная версия ??? 0