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

@Denis896 · Регистрация: 13.12.2017

Здравствуйте. Дали задание создать форму в котором будет высчитываться уравнение. Есть алгоритм.

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

Не могли бы подсказать где и что не так? Проблемы в том, что форма не работает, потому что происходит деление на ноль и Pi присваивается ноль, хотя его значение задается в начале.

Visual Basic

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

@Burk · 16.04.2018, 18:16

Denis896, Pi = TextBoxPi.Value - что-то присваивается, надеюсь, что не ноль, которй вам не нравится. Но чуть ниже Pi=Pn, а Pn ничего не присвоено и значит всё-таки ноль.

@Denis896 · 16.04.2018, 18:17 **[ТС]**

Но исходя из алгоритма правильно все написано?

@Burk · 16.04.2018, 19:11

Denis896, думаю, что нет, т.к. в конце цикла стоит оператор Pi = P + delP, а, наверно, нужно Pi = Pi + delP. Может вы всё-таки повнимательнее отнесётесь к своему коду, проверяйте каждую букву в строках вашего кода. Поставьте в конце цикла вывод на экран Пи и вашей функции перед Loop

@Denis896 · 16.04.2018, 20:26 **[ТС]**

Burk, спасибо, помогло.

@Burk 1465 / 1011 / 321 Регистрация: 11.07.2014 Сообщений: 3,598
	16.04.2018, 18:16	2
	Denis896, Pi = TextBoxPi.Value - что-то присваивается, надеюсь, что не ноль, которй вам не нравится. Но чуть ниже Pi=Pn, а Pn ничего не присвоено и значит всё-таки ноль. 0

@Denis896 0 / 0 / 0 Регистрация: 13.12.2017 Сообщений: 34
	16.04.2018, 18:17 [ТС]	3
	Но исходя из алгоритма правильно все написано? 0

@Burk 1465 / 1011 / 321 Регистрация: 11.07.2014 Сообщений: 3,598
	16.04.2018, 19:11	4
	Denis896, думаю, что нет, т.к. в конце цикла стоит оператор Pi = P + delP, а, наверно, нужно Pi = Pi + delP. Может вы всё-таки повнимательнее отнесётесь к своему коду, проверяйте каждую букву в строках вашего кода. Поставьте в конце цикла вывод на экран Пи и вашей функции перед Loop 0

@Denis896 0 / 0 / 0 Регистрация: 13.12.2017 Сообщений: 34
	16.04.2018, 20:26 [ТС]	5
	Burk, спасибо, помогло. 0

Опции темы