Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перезапуск / 9 сообщений из 9, страница 1 из 1
08.07.2011, 21:09
    #37344180
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
как "перезапустить" private sub? т.е. начать его заново изнутри. или хз как сказать.
Код: plaintext
1.
2.
private sub blablabla()
blablalba
end sub
выдаёт ошибку. походу функции незя останавливать саму себя
Код: plaintext
1.
2.
3.
4.
5.
6.
private sub blablabla()
ooo
end sub
private sub ooo()
'в этом месте пробовал сначала кикать blablabla, но хз, как кикать соседнюю функцию.
blablabla
end sub
тоже выдаёт ошибку. получилось через таймер:
Код: plaintext
1.
private sub timer1_timer()
end sub
тогда наоборот функция бесконечно перезапускается, пока не остановишь. это устраивает, но когда много таймеров по-любэ что-нить запутается. наверняка есть более простой способ перезапуститься
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 22:12
    #37344225
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
BelowZero,
...начать его заново изнутри. или хз как сказать.. или хз как сказать.Рекурсия.
...походу функции незя останавливать саму себяТак Вам запустить функцию "изнутри функции", или завершить работу функции?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 22:21
    #37344239
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
скукотищаТак Вам запустить функцию "изнутри функции", или завершить работу функции?
чтобы А могло запустить себя, мона из А вызвать В, В должно завершить А и запустить А. но для этого я не знаю, как завершить это самое А. про рекурсии что-то слышал, но как юзать хз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 22:27
    #37344242
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
BelowZero,

Про рекрсию читай Википедию: http://en.wikipedia.org/wiki/Recursion
Про работу с Sub в VB читай букварь: http://msdn.microsoft.com/en-us/library/dz1z94ha.aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 22:40
    #37344254
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
По идее автор хочет сделать хак по типу, функция A вызывает функцию B - таким образом, чтобы при завершении функции B... в функцию A управление не перешло. Если это так, то есть примеры данного фокуса с подменой адреса возврата на стеке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 23:23
    #37344281
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
VSVLADПо идее автор хочет сделать хак по типу, функция A вызывает функцию B - таким образом, чтобы при завершении функции B... в функцию A управление не перешло. Если это так, то есть примеры данного фокуса с подменой адреса возврата на стеке.
эммммм... нет, я тупо хочу запустить весь код заново. в середине кода у мя сидит обработчик, и, если что-то не так, он должен запустить всю прогу по новой с новыми значениями переменных. то есть из А по новой запустить А.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.07.2011, 23:45
    #37344291
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
BelowZero,
 
Код: plaintext
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.
Const iContinueLooping% =  1 
Const iTimeToExitLoop% =  10200 

Dim iExitFlag%

' *****************************
Sub Dispatch()
'...
  ' first prepare realparam()
  iExitFlag = iContinueLooping
  Do
    Call subA(realparam())
    if iExitFlag = iTimeToExitLoop then Exit Do
    '...
    ' prepare realparam() to next loop
  Loop
' ...
End Sub

' *****************************
Sub subA(arg())
' ...
  If {Somecondition} Then 
    iExitFlag = iTimeToExit
    Exit Sub ' Optional
  End If
' ...
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2011, 02:43
    #37344438
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
Воспользуйся меткой и переходом Goto
Metka:
Goto Metka
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2011, 16:34
    #37346469
BelowZero
BelowZero
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перезапуск
Андрей159,

спс, и правда, оказывается, то что искал, это стандартная "метка".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перезапуск / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 546ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158566]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 101ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 364ms
total:  546ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]