PureBoard

Verfasst: **18.01.2015 21:04**

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

Verfasst: **18.01.2015 21:07**

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

Verfasst: **18.01.2015 21:09**

@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.

Verfasst: **19.01.2015 10:46**

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).

Verfasst: **19.01.2015 11:21**

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

- Gosub Return macros von idle

idle hat geschrieben: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)

freak hat geschrieben: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.

Verfasst: **19.01.2015 14:27**

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

Verfasst: **19.01.2015 14:32**

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.

Verfasst: **19.01.2015 15:02**

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

Verfasst: **19.01.2015 15:13**

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

PureBoard

Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen

Re: Goto sinnvoll nutzen