[RESOLU] Mais Heuuuu ou sont passés mes break ? :p

[falsam]

Bonjour, j'ai le message d'erreur suivant

Le nombre de break est trop important (Superieur au nombre de boucles)

avec le code ci-dessous

Code : Tout sélectionner

Enumeration
  ;handle Fenetre principale de l'application
  #mainform
  
  ;handle du menu et de ses differents items
  #mainmenu : #open : #close
EndEnumeration

Procedure Application_Start()
  OpenWindow(#mainform,0,0,500,300,"Mon application",#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget)

  CreateMenu(#mainmenu,WindowID(#mainform))
  MenuTitle("Fichier") 
  MenuItem(#open,"Ouvrir")
  MenuItem(#close,"Quitter")  
EndProcedure
  
Procedure Application_Stop()
  MessageRequester("Information","L'application va se fermer. A bientot.")
  CloseWindow(#mainform)
  Break
EndProcedure

Application_Start()

Repeat
  event=WaitWindowEvent()
  Select event
      
    ;Fermeture de l'application depuis le menu
   Case #PB_Event_Menu
     If EventMenu() = #close 
       Application_Stop()
     EndIf
     
     ;Fermeture de l'applciation depuis l'icone system (Croix rouge)
    Case #PB_Event_CloseWindow
      If EventWindow() = #mainform
        Application_Stop()
     EndIf
          
  EndSelect
ForEver

Il n'est pas possible d'utiliser break dans une procédure ?

[flaith]

Mieux comme ca :

Code : Tout sélectionner

Enumeration
	;handle Fenetre principale de l'application
	#mainform
	
	;handle du menu et de ses differents items
	#mainmenu : #open : #close
EndEnumeration

Procedure Application_Start()
	OpenWindow(#mainform,0,0,500,300,"Mon application",#PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_SizeGadget)

	CreateMenu(#mainmenu,WindowID(#mainform))
	MenuTitle("Fichier") 
	MenuItem(#open,"Ouvrir")
	MenuItem(#close,"Quitter")  
EndProcedure
	
Procedure Application_Stop()
	MessageRequester("Information","L'application va se fermer. A bientot.")
	CloseWindow(#mainform)
EndProcedure

Application_Start()

Repeat
	event=WaitWindowEvent()
	Select event
			
		;Fermeture de l'application depuis le menu
		Case #PB_Event_Menu
			If EventMenu() = #close 
			  Application_Stop()
			  End
			EndIf
			
			;Fermeture de l'applciation depuis l'icone system (Croix rouge)
		Case #PB_Event_CloseWindow
			If EventWindow() = #mainform
				Application_Stop()
			EndIf
					
	EndSelect
ForEver

ou remplace ton break par un end

[falsam]

Effectivement End dans ma procédure de fin de programme est plus simple Merci

[Ar-S]

J'ai été grillé

Pour info dans la doc :
Break permet de quitter à n'importe quel moment une ou plusieurs des boucles suivantes: Repeat, For, ForEach et While.

On regarde un petit la doc ça sert toujours

[Backup]

Effectivement End dans ma procédure de fin de programme est plus simple Merci

non ! pas de end dans une procedure... a mon avis !


d'ailleurs je vais ouvrir un topic a ce sujet !

[Fred]

Si si, on peut !

[TO7]

Si si, on peut !

Puisque nous y sommes, dans le domaine des sorties a sec....
En est il de meme pour un procedurereturn au milieu d'une boucle For/Next ???
Ou bien meme d'un End dans une boucle, enfin tous ces genre de sorties, allons nous dire interdites dans certains langages !!!!