Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VB Копирование файла из одного места в другое Доброе время суток. Как сделать чтоб после нажатия на кнопку файл из одной папки копировался в другую? https://www.cyberforum.ru/ visual-basic/ thread450090.html Перемещение объекта в 3D пространстве VB
Как написать программу для перемещения объекта в 3D пространстве?)
VB Как запустить таймер Помогите с проблемой Private Sub Form_Load() Timer1Start End Sub Ругается на Private Sub Form_Load() https://www.cyberforum.ru/ visual-basic/ thread449800.html VB Арифметические операции дробных и обычных чисел Перевод, арифметические операции дробных и обычных чисел, очень нужно...помогите!!! Добавлено через 1 минуту нужна сама программа, если можно то на 10 версии если нет, то на 6.... https://www.cyberforum.ru/ visual-basic/ thread449744.html
VB Из шести имен вывести 2 в алфавитном порядке
Люди помогите. Мне нужно создать программу, которая просит пользователя ввести шесть имен, и после этого отображает только два имя в алфавитном порядке. первое имя hightName и второе имя lowName. вот мой код, но тут чего то нехватает Module Module1 Const MAX_Names = 6 Sub Main() Dim name As String Dim lowName As String Dim highName As String Dim...
VB Пока не выбрано значение в NumericUpDown1 нельзя нажать на кнопку надо что бы пока не выбрано какое то значение (от 1 до 9999999) не 0 и пустое поле в NumericUpDown1 нельзя было нажать на button1 короче если ноль или пустое поле нелзя было нажать на кнопку button1 https://www.cyberforum.ru/ visual-basic/ thread449664.html
VB Как сделать что бы нельзя было нажать button1 пока не заполнены 2 textbox https://www.cyberforum.ru/ visual-basic/ thread449631.html
Как сделать что бы нельзя было нажать button1 пока не заполнены 2 textbox Например: textbox1:тут например e-mail textbox2:тут например пароль и если пока не заполнено поле e-mail при нажатии на button1 выскакивала ошибка с надписью заполните пожалуста e-mail и с паролем тоже самое и еще если оба не заполнены выскакивала ошибка с надписью введите e-mail и пароль вот как то так помогите...
VB Составить блок-схему по приложенному коду
Помогите пожалуйста, составить блок схему по коду : Option Explicit On Imports System.Math Public Class Form1 'Процедура вывода результата в TextBox Sub vivod(ByVal Z As Double, ByVal T As TextBox) T.Text = CStr(Z) End Sub 'Формирование массива случайным образом Sub rndMatr(ByRef a(,) As Single)
VB Как программно запретить всем пользователям работу с базой https://www.cyberforum.ru/ visual-basic/ thread449357.html
у меня на сети лежит база...мне нужно кикнуть всех пользователей, то есть запретить работу с базой или разорвать соединение с ней. и при разрыве соединения к базе выдать сообщения пользователям, что база не доступна!(ну с этим я справлюсь!) как это сделать? помогите плиз!!)
VB Как избежать зависания программы при длительных операциях Что мне сделать что б окно во время выполнения не висло ( все buttons не активны, визуально висит, но сама программа выполняет все нужние действия). Дело в том что в программе присутствует огромный цикл по проверке For i = 0 To 70000000 ..... next i Что мне сделать что б она не глючила??? https://www.cyberforum.ru/ visual-basic/ thread449296.html
Определить количество элементов совпадающих с элементами побочной диагонали VB
Условие: Задана квадратная матрица MxN. Среди элементов, лежащих выше побочной диагонали определить количетво элементов совпадающих с элементами побочной диагонали. Пожалуйста если можно с блок схемой. Добавлено через 1 минуту Плиз помогите. А то мне завтра информатичка устроит веселую жизнь.
VB Все элементы с наибольшими значениями заменить нулями Помогите!!!!Пожалуйста :Все элементы с найбольшими значениями в данной целочисленной квадратной матрице порядка 10 заменить нулями. Если можно с блок схемой:) https://www.cyberforum.ru/ visual-basic/ thread448984.html
34 / 26 / 0
Регистрация: 24.12.2010
Сообщений: 165
22.02.2012, 17:27  [ТС] 0

Прекратить вычисления в программе при определенном значении переменной - VB - Ответ 2516509

22.02.2012, 17:27. Показов 789. Ответов 5
Метки (Все метки)

Ответ

Dimon_bogoduhov, спасибо, так тоже работает(на будущее учту) а пока что - так сам придумал:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim x1 As Single
Dim x2 As Single
Private Sub cmdResh_Click()
LabelX1.Caption = " "
LabelX2.Caption = " "
LabelKorn.Caption = " "
a = txtA.Text
b = txtB.Text
c = txtC.Text
d = b ^ 2 - 4 * a * c
If a = 0 Then LabelKorn.Caption = LabelKorn.Caption & "a=0!"
If (a <> 0) And (d > 0) Then x1 = (-b + Sqr(d)) / (2 * a): x2 = (-b - Sqr(d)) / (2 * a): _
LabelX2.Caption = LabelX2.Caption & x2: LabelX1.Caption = LabelX1.Caption & x1: _
LabelKorn.Caption = LabelKorn.Caption & "Корни уравнения:"
If (a <> 0) And (d = 0) Then x1 = (-b) / (2 * a): LabelX1.Caption = LabelX1.Caption & x1: _
LabelKorn.Caption = LabelKorn.Caption & "Корни уравнения:"
If (a <> 0) And d < 0 Then LabelKorn.Caption = LabelKorn.Caption & "d<0"
End Sub
Alex77755, имеет, просто в условии задачи было написано, что б проверил, а<>0!

Вернуться к обсуждению:
Прекратить вычисления в программе при определенном значении переменной VB
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2012, 17:27
Готовые ответы и решения:

Вычислить Y при определенном значении X
Помогите решить в имберкадеро С++ , Дано действительное число X вычислить Y если ...

Действие при определенном значении в инпуте
Как сделать так, если я введу в инпут слово &quot;мама&quot;, в определенном div выведется &quot;папа&quot;? Т.е. он...

Перемещение ячеек при определенном значении
Доброго времени суток! Как сделать так, чтобы автоматически при определенном значении ячейки в...

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

5
22.02.2012, 17:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.02.2012, 17:27
Помогаю со студенческими работами здесь

Блокировка select при определенном значении option
Ситуация такова. Есть таблица с select'ами (инструментами html) . Данные в селект загружаются из...

Переход во 2-ю форму при определенном введенном значении
Прошу помощи) Нужна программа, которая будет выглядеть следующим образом нужно что бы в поле...

При определенном значении чекбокса показывать соответствующую таблицу
Добрый вечер! Будьте добры, подскажите как сделать) Есть 4 чекбокса и при выборе должна появляться...

Нет верного решения при определенном значении параметра
Добрый день. Стоит задача получить значения переменной x или лямбда из уравнения и доп. условия...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru