ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перезапуск
9 сообщений из 9, страница 1 из 1
перезапуск
    #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, 21:09
| Ответить | Цитировать | Написать  
перезапуск
    #37344225
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
BelowZero,
...начать его заново изнутри. или хз как сказать.. или хз как сказать.Рекурсия.
...походу функции незя останавливать саму себяТак Вам запустить функцию "изнутри функции", или завершить работу функции?
...
Рейтинг: 0 / 0
08.07.2011, 22:12
| Ответить | Цитировать | Написать  
перезапуск
    #37344239
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
скукотищаТак Вам запустить функцию "изнутри функции", или завершить работу функции?
чтобы А могло запустить себя, мона из А вызвать В, В должно завершить А и запустить А. но для этого я не знаю, как завершить это самое А. про рекурсии что-то слышал, но как юзать хз
...
Рейтинг: 0 / 0
08.07.2011, 22:21
| Ответить | Цитировать | Написать  
перезапуск
    #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:27
| Ответить | Цитировать | Написать  
перезапуск
    #37344254
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
По идее автор хочет сделать хак по типу, функция A вызывает функцию B - таким образом, чтобы при завершении функции B... в функцию A управление не перешло. Если это так, то есть примеры данного фокуса с подменой адреса возврата на стеке.
...
Рейтинг: 0 / 0
08.07.2011, 22:40
| Ответить | Цитировать | Написать  
перезапуск
    #37344281
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
VSVLADПо идее автор хочет сделать хак по типу, функция A вызывает функцию B - таким образом, чтобы при завершении функции B... в функцию A управление не перешло. Если это так, то есть примеры данного фокуса с подменой адреса возврата на стеке.
эммммм... нет, я тупо хочу запустить весь код заново. в середине кода у мя сидит обработчик, и, если что-то не так, он должен запустить всю прогу по новой с новыми значениями переменных. то есть из А по новой запустить А.
...
Рейтинг: 0 / 0
08.07.2011, 23:23
| Ответить | Цитировать | Написать  
перезапуск
    #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
08.07.2011, 23:45
| Ответить | Цитировать | Написать  
перезапуск
    #37344438
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Воспользуйся меткой и переходом Goto
Metka:
Goto Metka
...
Рейтинг: 0 / 0
09.07.2011, 02:43
| Ответить | Цитировать | Написать  
перезапуск
    #37346469
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Андрей159,

спс, и правда, оказывается, то что искал, это стандартная "метка".
...
Рейтинг: 0 / 0
11.07.2011, 16:34
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / перезапуск
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37344438&tid=2158566]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 14ms
total:  155ms
созд. / загр.: 155ms
x
x
Закрыть


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