Goto sinnvoll nutzen

[walbus]

[NicTheQuick]

Könnt ihr bitte in dem anderen Thread weiter disuktieren und nicht in beiden parallel? Danke!

[ts-soft]

Wie wäre es, wenn wir mal langsam zum Thema zurückkehren?
Ansonsten sollte hier wohl geschlossen werden, oder ihr macht
hier weiter: http://www.purebasic.fr/german/viewtopi ... =2&t=28652

// edit: Nic war schneller

[Tommy]

@walbus: Musst mich nich gleich anschnauzen und Satzzeichen sind keine Rudeltiere.
Wer laut bellt hat nicht immer recht.
Außerdem muss man sich nicht rechtfertigen.
Ich würde auch nich preisgeben was ich privat und beruflich mache.
Schalte mal bitte wieder einen Gang runter! Danke!
Und wenn du noch was zum Thema sagen möchtest dann bitte im anderen Thread.

[Lord]

Programmieren lernen mit Microsoft
Spricht das nun für oder gegen GOTO?

Egal, ich finde GOTO gut und nutze es ab und zu.
Ich muß aber auch feststelle, daß ich es im Laufe der
Zeit immer seltener verwende.
Trotzdem hat es seine Berechtigung und sollte immer
Bestandteil eines BASIC sein (insbesondere PureBasic).

[Vera]

Hallo,
ich bin gestern im englischen Forum auf zwei interessante Threads gestoßen, die hier verlinkt gut reinpassen:

- Gosub Return macros von idle

Redefined Gosub, Return, Goto macros for those that want them
your labels need to be defined with inline asm directive "!"

- Goto and Select
Mit einem Beispiel von luis, wie und wie nicht Goto mit Select verwendet werden könnte. [wenn überhaupt]

Darunter schließt sich eine Bemerkung von freak an (14.09.13)

Actually since the use of Goto/Gosub is something we don't want to encourage anymore, its probably best to just document it as a deprecated feature and not mention any details at all.

[walbus]

Hallo Vera,
die Lösung ist hier sehr einfach.

Code: Alles auswählen

x=1

Select x 
  Case 1
    let_me_jump=1
EndSelect

If let_me_jump
  Goto here
EndIf
End

here:
Debug " i am now here"
End

[NicTheQuick]

In dem Fall macht es das aber nicht sonderlich übersichtlicher, finde ich. Andererseits, wenn das Select-Konstrukt nur groß genug ist, könnte es was helfen.

[Vera]

Ja walbus,
die Möglichkeit innerhalb von Select mal eben schnell in ein anderes Select zu wechseln, hat mich auch direkt erfreut angesprungen.
Das finde ich schon sehr verlockend es mal einzusetzen ... danke Dir

Code: Alles auswählen

 x=1
Select x
  Case 1
    let_me_jump=1
EndSelect

If let_me_jump
  Debug "hi ~ you couldn't catch me, 'cos..."
  Goto here
EndIf
End

here:
Debug " ... i am now here"
End

[Tommy]

Ich habe mal eine komplette Window Version geschrieben.
Gadget-Code, Event-Code sind separat in Goto und kann ausgelagert werden.
Das sollte für walbus einfach verständlich sein:

Code: Alles auswählen

#CONST_OW = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
OpenWindow(0, 0, 0, 250, 250, "Window", #CONST_OW)
Goto Gadgets
Loop: : Goto Event
;Kann in Datei ausgelagert werden
Event:
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case 0
Debug "Klick"
EndSelect
EndIf
If Event = #PB_Event_CloseWindow
End
EndIf
Goto Loop
Gadgets:
ButtonGadget(0, 5, 5, 75, 25, "Button", 0)
Goto Loop