Что за Out of Stack?

[Nikolka]

(ошибка 28) Out of Stack. Общими усмлиями перевёл что-то из Helpa, что типа слишком много вызовов-подвызовов и т.д. Возникает и в правду в месте вызова одной (но совсем мелкой процедуры преобразования строки в число). Но заменив вызов функции на код самой функции здесь ошибка исчезает, а начинает появлятся всюду .

Как тут быть, неужели у Бэйсика ограничение стоит на количество функций. Или просто увеличить размер стёка как-нить. Или может Option Exiplicit мешает...

[Naked]

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

[GSerg]

Процедуру-то покажи совсем мелкую преобразования строки в число...

[Twister]

У тебя там что, рекурсия?

[Nikolka]

Да вот - пожалуйста:

Код: Выделить всё

Public Function wn(num As Integer) As Integer

'Быстрая функция для получения номера абсолютного значения
'по номеру относительного.

wn = CInt(TS.Tabs(num).Tag)

End Function

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

А в другом довольно большом проекте в одном модуле располагалась вааще вся функциональная часть. Может в этом и причина - их так много?... Хотя...

[Nikolka]

Ещё пришла идея. Там везде используются ByRef. Может слишком большое количество ссылок Попробую ByVal сделать. Но предложения пока принимаются...

[Nikolka]

ByVal не помогает. Если сделать вместо функции - Sub, который возвращает результат в переменную, а после она считывается прогой. Но это будет большая лажа, т.к. эту мелкую функцию я вызываю ОЧЕНЬ часто. Даже если её заранее посчитать, перед каждым sub`ом... , то блин - тоже лажа, хотя идея...

Нет не идея, т.к. слишком много функций её вызывающих.

(Простите за оффтопик, но: где вы ещё видели сумашедшего, который разговаривает сам с собой )))))

[Viper]

Сия ошибка Out Of Stack происходит например при большом количестве рекурсивных вызовов. При этом происходит переполнение стека вызовов и генериркется ошибка. В примере твоем примере никакой рекурсии нет, так что ищи в другом месте

[Nikolka]

А что такое "рекурсивные вызовы"? Если (из моих малых познаний) рекурсия - это возврат, то рекурсивный вызов - это что-та типа:

Dim xyz as integer

xyz=wn(5)

?

Если вы имеете это ввиду то - вроде не более 4-5 уровней вызовов-подвызовов. Обычно - 2-3 уровня.

[Twister]

Ну вот я и вернулся...

А что такое "рекурсивные вызовы"?

Рекурсия - вызов процедурой/функцией самой себя.

[Vi]

Чтобы была понятна рекурсия без указания функций (пример дубовый, только для демонстрации):

Код: Выделить всё

Private Sub Form_Load()
    Text1.Text = "1"
End Sub

Private Sub Text1_Change()
  If Right(Text1.Text, 1) = "1" Then
    Text1.Text = Text1.Text & "1"
  End If
End Sub


Т.е. иногда изменение параметров контрола(ов) приводит к появлению события, в котором этот параметр снова изменяется прямо (в моем примере Text1.Text и событие Text1_Change на изменение Text1.Text) или косвенно.

[Twister]

Да, это и есть рекурсия, только вданном примере не виден вызов функции функцией - просто при смене значения свойства Text вызывается событие Change, а по Change ты меняешь Text: эта функция должна зациклить прогу, так как нет выхода из рекурсивной функции...

[A.A.Z.]

Classic =)

Код: Выделить всё

Function Factorial(ByVal Num As Long) As Double
If Num = 1 Then Factorial = 1 Else Factorial = Factorial(Num - 1) * Num
End Function

[Viper]

Классический пример рекурсии - вычисление факториала (VB.NET):

Код: Выделить всё

Function Factorial(n As Integer) As Double
If n = 0 Then
Return 1
Else
Return n*Factorial(n -1)
End If
End Function

[Twister]

Мож мне тоже вычисление факториала сюда добавить, только в синтаксисе SQL?

[Viper]

и на SQL вариант можно посмотреть

[ism]

При ошибке такого типа лутше отлаживать пошагово примерные места возникновения. Тогда стопудово заметишь место зацикливания.

В функции факториала, в условии, лутше ставить IF n<2 Then, т.к. 1!=1

[Alex Mals]

Нажми в окне ошибки Debug, затем Ctrl+L, увидишь список функций и процедур, последовательно вызывающих одна другую в данный момент - может помочь.

[uhm]

ism, все бы хорошо, но так у тебя (-1)! вычислится
Самый правильный (хотя, видимо, не самый быстрый) с точки зрения математики вариант - у !Viper!.

[Twister]

Давайте вынесем отдельную тему: "Обсуждение быстроты вычисления факториала на VB" и создадим конкурс на самый быстрый алгоритм...

[uhm]

Зря смеешься!

http://algolist.manual.ru/maths/count_f ... torial.php

[Twister]

За ссылочку спасибо, очень интересный портал...

[Nikolka]

Челы, пасиба, разобрался. Тут дело не в рекурсии (как я понял это похоже на циклическую ссылку), а в том, что элемент TabStrip пятой версии: при малейшем его задевании (изменение свойства или просто чтение оного) возвращает событие Click (что за лажа - всё начинаю искать alt или писать свой контрол). Да не просто возвращает, а возвращает его сотни раз (я конечно не считал - задолбало - нажал Stop:). Отсюда от большого количества одновременных вызовов и происходило переполнение стёка. Когда ставил что-то вроде:

Код: Выделить всё

Dim fakStart as boolean

Private Sub TabStrip_Click()

If fakStart=False then
fakStrart=True
... Моя программа ...
fakStart=False
end if

end sub

Всё работало как надо. Скорее всего это и было. Так что пасиба всем!