Произвести вычисление по формуле

@sidiol · Регистрация: 13.11.2009

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

Народ!!!!!!! Разомните мозги!!!!! Помогите пожалуста написать программку!!!!
Пишу диплом, в конце диплома нужна элементарная программка, учусь по специальности совершенно не компьютерной области, это все дипломный руководитель, гад, сказал сделать программу в VB!!!
Суть в следующем имеем пять полей ввода, в которые с клавиатуры вводим числовые значения, затем при нажатии кнопки программа считает формулу, состоящюю из значений, введенных в поля ввода и показывает ответ, усе!!!!
Заранее всем благодарен за ответы!!!!

@lanzelot · 13.09.2010, 22:30

Формулу в студию!

@Alex77755 · 14.09.2010, 08:24

Число из текстбокса можно взять так:
Число = Val(Text1.Text)
И делай с ним что хошь.
Но лучше сделать ещё проверку корректности при вводе.
Но это уже отдельная тема

@sidiol · 14.09.2010, 11:03 **[ТС]**

Спасибо!!!! Как раз это мне и нужно было, дальше попробую сам, не получится - ждите новых вопросов!!!

@sidiol · 15.09.2010, 14:32 **[ТС]**

Снова нужна помощь, ответы я вывел в текстовые окна, но не могу понять, как сделать так, чтобы ответ отображался до второго знака после запятой, т.е. например 0,22 а не 0,21985655256.....

Добавлено через 29 минут
На форуме нашел как округлить число, но как округлить переменную не нашел...

@Alex77755 · 15.09.2010, 14:38

как округлить число, но как округлить переменную не нашел.

??
Переменная не округляется, вроде.
Округляется её значение. Раз нашел округление числа - пользуйся

@sidiol · 23.09.2010, 14:24 **[ТС]**

Еще вопросик: Не могу понять, как сделать так, чтобы программа проверяла сразу три условия, т.е.:
если KK>180, то Q =.....
KK<-180, то Q= ....
иначе Q = ....
Если ставить в две строки, то программа получается по-любому будет пересчитывать по последней...

Visual Basic
1
2
If (Kvolny8 - KKsudna) >= 180 Then q8 = ((360 - (Kvolny8 - KKsudna)) * 3.14) / 180 
if (Kvolny8 - KKsudna) <= (-180) Then q8 = ((360 + Kvolny8 - KKsudna) * 3.14) / 180 Else q8 = ((Kvolny8 - KKsudna) * 3.14) / 180

Добавлено через 32 минуты
Нашел!!!! всего то надо было else перед вторым if добавить!!!

Visual Basic
1
If (Kvolny8 - KKsudna) >= 180 Then q8 = ((360 - (Kvolny8 - KKsudna)) * 3.14) / 180 else if (Kvolny8 - KKsudna) <= (-180) Then q8 = ((360 + Kvolny8 - KKsudna) * 3.14) / 180 Else q8 = ((Kvolny8 - KKsudna) * 3.14) / 180

@Vlanib · 23.09.2010, 14:45

>= 180 или <= 180, а какие варианты "иначе" позвольте спросить??

@sidiol · 23.09.2010, 15:29 **[ТС]**

Все, прогу доделал до конца, остался самый последний-препоследний момент!!!
Хочу сделать так, чтобы при нажатии на кнопку считать в том случае если не заполнены все поля с исходными данными прога выдавала сообщение и прекращала вычисление, чтобы не считать ересь
Сообщение я сделал, а как сделать так, чтобы прекратился расчет не знаю....

Visual Basic
1
If Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text19.Text = "" Or Text20.Text = "" Then MsgBox "СНАЧАЛА ВВЕДИТЕ ВСЕ ТЕХНИЧЕСКИЕ ХАРАКТЕРИСТИКИ СУДНА!!!!"

P.S.

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

>= 180 или <= 180, а какие варианты "иначе" позвольте спросить??

Будьте внимательней, во втором случае не 180, а -180

@Dzhej-Dzhej · 23.09.2010, 16:38

sidiol,

Visual Basic
1
2
3
4
If Text1.Text = "" Or Text2.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text19.Text = "" Or Text20.Text = "" Then 
   MsgBox "СНАЧАЛА ВВЕДИТЕ ВСЕ ТЕХНИЧЕСКИЕ ХАРАКТЕРИСТИКИ СУДНА!!!!"
   Exit Sub 
End If

@Alex77755 · 23.09.2010, 16:47

А не проще организовать массив текстбоксов и проверять в цикле?:

Visual Basic
1
2
3
4
For i = 1 To 20
If Text1(i).Text = "" Then MsgBox " ВВЕДИТЕ ВСЕ ТЕХНИЧЕСКИЕ ХАРАКТЕРИСТИКИ СУДНА!!!!": Exit For
Next i
End Sub

@Vlanib · 23.09.2010, 17:03

Совет по оптимизации вашего кода:
Лучше один раз посчитать выражение и работать уже с результатом

Visual Basic
1
2
3
4
5
6
7
Dim Result
Result = Kvolny8 - KKsudna
Select Case Result
    Case Is >= 180:  q8 = ((360 - Result) * 3.14) / 180
    Case Is <= -180: q8 = ((360 + Result) * 3.14) / 180
    Case Else:       q8 = (Result * 3.14) / 180
End Select

И по последнему вопросу:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Dim oCntrl As Control
For Each oCntrl In Me.Controls
    If TypeOf oCntrl Is TextBox Then
        If Len(oCntrl.Text) = 0 Then
            MsgBox "ÑÍÀ×ÀËÀ ÂÂÅÄÈÒÅ ÂÑÅ ÒÅÕÍÈ×ÅÑÊÈÅ ÕÀÐÀÊÒÅÐÈÑÒÈÊÈ ÑÓÄÍÀ!!!!"
            oCntrl.SetFocus
            Exit Sub
        End If
    End If
Next

@sidiol · 23.09.2010, 18:53 **[ТС]**

Массив организовать можно было, но уже поздно, текстбоксов налепил не попарядку, если начинать переименовывать, можно на каком нибудь участке в формулах ошибиться...
Оптимизацию тоже уже делать не буду, работает и ладно...
Все спасибо за советы!!!!
Усе, доделал

21.04.2011, 18:53

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

@Alex77755 · 21.04.2011, 19:33

Копай в сторону ScriptControl

Добавлено через 3 минуты
Примерно так:

Visual Basic
1
2
3
4
5
6
    For p = -Xk / 2 To Xk / 2 Step 0.01
          st = Replace(Text1.Text, "X", p)
          st = Replace(st, ",", ".")
          q = ScriptControl1.Eval(st)   
          Picture1.PSet (p + Xk / 2, Yk / 2 - q), vbGreen + 225 * (Index)
    Next p

23.04.2011, 21:05

Спасибо, про ScriptControl слышала, и даже поняла как работает!
а вот где скачать это можно?

@Alex77755 · 23.04.2011, 21:14

Да качать и не надо
В бейсике, вроде, имеется.
Ссылку поставить надо

@Alex77755 · 23.04.2011, 21:16

Десь туточки

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@sidiol 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 10

	Произвести вычисление по формуле 13.09.2010, 22:28. Показов 3305. Ответов 17 Метки нет (Все метки) Народ!!!!!!! Разомните мозги!!!!! Помогите пожалуста написать программку!!!! Пишу диплом, в конце диплома нужна элементарная программка, учусь по специальности совершенно не компьютерной области, это все дипломный руководитель, гад, сказал сделать программу в VB!!! Суть в следующем имеем пять полей ввода, в которые с клавиатуры вводим числовые значения, затем при нажатии кнопки программа считает формулу, состоящюю из значений, введенных в поля ввода и показывает ответ, усе!!!! Заранее всем благодарен за ответы!!!! 0

@lanzelot 4 / 4 / 0 Регистрация: 03.12.2009 Сообщений: 110
	13.09.2010, 22:30
	Формулу в студию! 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	14.09.2010, 08:24
	Число из текстбокса можно взять так: Число = Val(Text1.Text) И делай с ним что хошь. Но лучше сделать ещё проверку корректности при вводе. Но это уже отдельная тема 1

@sidiol 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 10
	14.09.2010, 11:03 [ТС]
	Спасибо!!!! Как раз это мне и нужно было, дальше попробую сам, не получится - ждите новых вопросов!!! 0

@sidiol 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 10
	15.09.2010, 14:32 [ТС]
	Снова нужна помощь, ответы я вывел в текстовые окна, но не могу понять, как сделать так, чтобы ответ отображался до второго знака после запятой, т.е. например 0,22 а не 0,21985655256..... Добавлено через 29 минут На форуме нашел как округлить число, но как округлить переменную не нашел... 0

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	23.09.2010, 14:45
	>= 180 или <= 180, а какие варианты "иначе" позвольте спросить?? 0

@sidiol 0 / 0 / 0 Регистрация: 13.11.2009 Сообщений: 10
	23.09.2010, 18:53 [ТС]
	Массив организовать можно было, но уже поздно, текстбоксов налепил не попарядку, если начинать переименовывать, можно на каком нибудь участке в формулах ошибиться... Оптимизацию тоже уже делать не буду, работает и ладно... Все спасибо за советы!!!! Усе, доделал 0

Анна07
	21.04.2011, 18:53
	Помогите пожалуйста! пушу курсовую, суть программы "построение графиков любой функии", т.е. вводим в текстовое поле функцию и программа рисует график. Проблема вот в чём, как вычислить значение выражения из строки?

Анна07
	23.04.2011, 21:05
	Спасибо, про ScriptControl слышала, и даже поняла как работает! а вот где скачать это можно?

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.04.2011, 21:14
	Да качать и не надо В бейсике, вроде, имеется. Ссылку поставить надо 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.04.2011, 21:16
	Десь туточки Миниатюры 0