Можноли выполнить GOTO на метку в другой процедуре ?

[ALX_2002]

Челы... столкнулся вот с какой траблой...

Можно ли сделать каким нибудь GOTO на метку в другой процедуре ?

Т.е

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

Sub Sub1()
Goto METKA
End Sub

Sub Sub2()
METKA:
End Sub

В MSDN написано, что можно переходить только на метку в своей сабе

[ANDLL]

Нет.

[Konst_One]

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

Sub Sub1()
GotoMETKA
End Sub

Sub GotoMETKA()

End Sub

[vvs_adm]

Konst_One Что-то мне подсказывает, что это не совсем то, что нужно. Нужно, что бы программа возвращалась после GOTO уже не в процедуру1, а при скачке в процедуру2 начиналась не сначала Можно через Ж, заведя флаги, где в самом начале процедуры2 будет проверяться, как мы сюда попали и либо просто продолжать, либо скакать GOTO куда надо, а в процедуре1 проверять после Call Sub2 тоже, но я думаю, что узнав, что просто напрямую прыгнуть нельзя, сразу найдется "нормальное" решение

[Konst_One]

это шутка же

[vvs_adm]

это шутка же

Блин, смайлик тебе надо было внутри кода написать, а то незаметно нифига Зато может человеку ну позарез надо переход на другую метку сделать и теперь он через несколько Ж..П и с кучей багов но таки кА-Ак прыганет в другую процедуру... Никаким дебагером потом не поймаешь

[Konst_One]

да, прыгать из одной процедуры на метку в другую - это сильно.

видно , для начала этому программеру стоит нарисовать для наглядности алгоритм работы программы, а уже потом строчить процедуры

[ANDLL]

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

[xolod]

Оффтоп
Все-таки программирование на VB морально развращает человка
Goto, Gosub, блин. Си в углу стоит и хихикает.

[ANDLL]

А что, в C нет goto

[hCORe]

Выходите те, кто использует GoSub. У меня как раз завалялась крупная партия минометов, опробуем

[KDima]

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

Sub Sub1()
Sub2
End Sub

Sub Sub2(Optional CallМетка As Boolean = False)
If CallМетка Then GoTo МЕТКА
METKA:
End Sub

[xolod]

2 ANDLL

It is good programming style to use the break, continue, and return statement in preference to goto whenever possible.

...
If who or in mine the command of developers will start to use the operator goto, it will be immediately dismissed. To all partners I recommend to deal with it never.
...

Думаю, комментарии излишни

[GM]

И все же в некоторых случаях без них не обойтись:
on error goto home
home:
или в таком случае, вместо continue, ну тут в принципе можна но все равно:
for i = 1 to 1000
for j = 1 to 1000
...
...
if <условие> then goto continuej
...
...
continuej:
next
next

[alibek]

И все же в некоторых случаях без них не обойтись:
on error goto home
home:
или в таком случае, вместо continue, ну тут в принципе можна но все равно:
for i = 1 to 1000
for j = 1 to 1000
...
...
if <условие> then goto continuej
...
...
continuej:
next
next

Обойтись можно почти всегда.

On Error Resume Next

If Not <условие> Then
...
End If

Exit For

[uhm]

xolod, а почему John Carmack на таком странном языке разговаривает?

[xolod]

2 uhm
А ты на сайт к нему зайди и спроси, может ответит. А от туда из статьи вырезал это давненько.

[vvs_adm]

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

Sub Sub1()
Sub2
End Sub

Sub Sub2(Optional CallМетка As Boolean = False)
If CallМетка Then GoTo МЕТКА
METKA:
End Sub

Не совсем так. Когда ты скачешь по GOTO метка, предполагается, что ты там и останешься (хотя куда программе тогда вообще из второй процедуры возвращаться), а у тебя после прыжка на метку, программа снова потом вернется на следующую строку опосля окончания процедуры2. Поэтому одной попой тут не обойдешьси Еще проверки надо добавлять

[alibek]

Sub2 : Exit Sub

Но это бред.

[marvan]

согласен с ANDLL на тему проетирования
если один кусок кода нужен в нескольких местах - ему прямая дорога в отдельную процедуру.

[uhm]

[off]
xolod, а что за сайт?

[codemaster]

Обойтись можно почти всегда.

On Error Resume Next

If Not <условие> Then
...
End If

Exit For

Готов поспорить!
Для VB6 GoTo вполне естественный оператор.
Не говоря о правилах принятых в команде разработчиков:

Одна точка выхода из проц. функции
Глобальный Err Log и пр.

John Carmack (who create ID Software) писал(а):

...
If who or in mine the command of developers will start to use the operator goto, it will be immediately dismissed. To all partners I recommend to deal with it never.

Вообще неуместная цитата в контексте VB6.


P.S. Глупо с приемами игры на скрипке подходть к пианино


[/code]

[alibek]

codemaster, он был естественнен на GW-BASIC. Уже в QBasic без него можно было почти всегда обойтись, а в VB его имеет смысл применять разве что для обработчиков ошибок.

[codemaster]

codemaster, он был естественнен на GW-BASIC. Уже в QBasic без него можно было почти всегда обойтись, а в VB его имеет смысл применять разве что для обработчиков ошибок.

Итак немного кода:

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

  With adoRs
  If Not .EOF Then
    If m_IsDeleted Then
      .Delete
    Else
SaveRecord:
      adoRs("...") =
      .....
      .....
      adoRs("...") =
      .Update
      m_ID = adoRs("...")
    End If
  Else
    If Not m_IsDeleted Then
      .AddNew
      GoTo SaveRecord
    End If
  End If
  .Close
  End With



а теперь попробуем его записать "читаемо и коротко" без GOTO.

[marvan]

"читаемо и коротко" без GOTO

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

  With adoRs
  If m_IsDeleted Then
    If .EOF Then
      .Delete
    End If
  Else
    If .EOF Then
      .AddNew
    End If
    adoRs("...") =
    .....
    .....
    adoRs("...") =
    .Update
    m_ID = adoRs("...")
  End If
  .Close
  End With

[tyomitch]

2xolod:

Не найдено ни одного документа, соответствующего запросу "If who or in mine".

Прошу воспроизвести цитату точно, либо отказаться от обвинений Кармака в кривом языке.

[GSerg]

Гы гы гы
По запросу в Яндексе "(Кармак|Carmack) +goto" нашёл (после нескольких дополнительных кликов) вот это вот: http://parser2.parser.ru/forum/message_1445.html

[xolod]

2 tyomitch
Повторяю, вырезал давно из статьи для статьи своей. Либо сам что поправил тогда (и уже не помню), либо он так и изрекался.
Не хочу я никого обвинять. В конце концов, если быть честным, Кармак не коренной Американец. Так что "правильность его языка" - это все от лукавого

2 GSerg
Yandex - проект Лебедева, не удивительно что он тебя на Parser вывел.

[ALX_2002]

Во челы вы разгнались....... Я уже давно траблу решил другим методом .

Но всё равно всем спасибо. И респект вам общий.