Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 13.12.2017
Сообщений: 34
1

Не работает форма для уравнения N=Log(1-Pg)/Log(1-Pi)

16.04.2018, 18:02. Показов 757. Ответов 4
Метки нет (Все метки)

Здравствуйте. Дали задание создать форму в котором будет высчитываться уравнение. Есть алгоритм.
Не работает форма для уравнения N=Log(1-Pg)/Log(1-Pi)

Не могли бы подсказать где и что не так? Проблемы в том, что форма не работает, потому что происходит деление на ноль и Pi присваивается ноль, хотя его значение задается в начале.
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub ComboBox1_Change()
Debug.Print Pi
Debug.Print Ni
End Sub
 
Private Sub CommandButton1_Click()
Dim delP As Double
Dim Pi As Double
Dim Pk As Double
Dim Pg As Double
Dim Pn As Double
Dim a As Variant
Dim b As Variant
Dim Ni As Variant
Dim P As Double
Pi = TextBoxPi.Value
Pk = TextBoxPk.Value
Pg = TextBoxPg.Value
delP = TextBoxdelP.Value
Pi=Pn
a = WorksheetFunction.Log10(1 - Pg)
Do Until Pi > Pk
b = WorksheetFunction.Log10(1 - Pi)
Ni = a / b
Pi = P + delP
Loop
End Sub
 
Private Sub CommandButton2_Click()
End
End Sub
 
Private Sub ListBox1_Click()
Debug.Print Pi
Debug.Print Ni
End Sub
 
Private Sub OptionButton1_Click()
ListBox1.Visible = True
ComboBox1.Visible = False
End Sub
 
Private Sub OptionButton2_Click()
ComboBox1.Visible = True
ListBox1.Visible = False
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.04.2018, 18:02
Ответы с готовыми решениями:

По заданым значениям х и у найти значение величины log x y (log с основанием х)
Подскажите,где ошибка в if-else.Потому-что,когда вводить вместо х или у 0,почему-то еррор не...

по заданым значениям х и у найти значение величины log x y (log с основанием х )
я в принципе понимаю как написать эту программу,но,хоть убейте,в хелпе visual studio 2008 не могу...

Скрыть с главной странички Log In/Log Out
Добрый день,подскажите как убрать из меню вкладку Log Out/Log In

Уравнения sin(2x)-log(x)+0.1=0
Решить уравнения sin(2x)-log(x)+0.1=0 шаг h=0.1 В пределах 0.1=<х=<10 ошибка вычисления...

4
1465 / 1011 / 321
Регистрация: 11.07.2014
Сообщений: 3,598
16.04.2018, 18:16 2
Denis896, Pi = TextBoxPi.Value - что-то присваивается, надеюсь, что не ноль, которй вам не нравится. Но чуть ниже Pi=Pn, а Pn ничего не присвоено и значит всё-таки ноль.
0
0 / 0 / 0
Регистрация: 13.12.2017
Сообщений: 34
16.04.2018, 18:17  [ТС] 3
Но исходя из алгоритма правильно все написано?
0
1465 / 1011 / 321
Регистрация: 11.07.2014
Сообщений: 3,598
16.04.2018, 19:11 4
Denis896, думаю, что нет, т.к. в конце цикла стоит оператор Pi = P + delP, а, наверно, нужно Pi = Pi + delP. Может вы всё-таки повнимательнее отнесётесь к своему коду, проверяйте каждую букву в строках вашего кода. Поставьте в конце цикла вывод на экран Пи и вашей функции перед Loop
0
0 / 0 / 0
Регистрация: 13.12.2017
Сообщений: 34
16.04.2018, 20:26  [ТС] 5
Burk, спасибо, помогло.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2018, 20:26

Авторизация: Одна форма, 2 поля(log, pass), 1 кнопка вход
Доброе утро форуму! Не могу не создать тему с вопиюще популярным названием, однако не поверите...

back-log.log
Извините,что не по теме. Но может кто-нибудь в курсе где находиться back-log.log ? У меня не...

Не работает Debug.Log()
В скрипте присутствует включение библиотеки UnityEngine, класс скрипта унаследован от MonoBehavior,...

Не работает console log
Не работает console log никак не пойму в чем дело. алерт работает <a href="javascript:void(0);"...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.