Si nous adoption nos propres stratégies de développer, en les intégrants dans la structure de nos codes, surtout lorsqu'on utilise le système d'alerte pour informer l'utilisateur des Messages, ce dans le but de cette astuce ou nous allons voir ensemble comment dynamiser nos alertes.

Code-Source, Procédure Globale

Procédure MessageInfo

PROCÉDURE MessageInfo(Messages, Ligne2 = "", LigneN ="")

SI Messages ALORS

	Info(Messages)

SINON

	SI Ligne2 ALORS

		Info(Ligne2)

	SINON

		SI LigneN ALORS

			Info(LigneN)

		SINON

			Info(Messages,Ligne2, LigneN)

		FIN

	FIN

FIN

Procédure MessageInfo

PROCÉDURE MessagesErreurs(Messages, Ligne2 = "", LigneN ="")

SI Messages ALORS

	Erreur(Messages)

SINON

	SI Ligne2 ALORS

		Erreur(Ligne2)

	SINON

		SI LigneN ALORS

			Erreur(LigneN)

		SINON

			Erreur(Messages,Ligne2, LigneN)

		FIN

	FIN

FIN

Procédure MessageAvertissement

PROCÉDURE MessagesAvertissement(Messages, Ligne2 = "", LigneN ="")

SI Messages ALORS

	Avertissement(Messages)

SINON

	SI Ligne2 ALORS

		Avertissement(Ligne2)

	SINON

		SI LigneN ALORS

			Avertissement(LigneN)

		SINON

			Avertissement(Messages,Ligne2, LigneN)

		FIN

	FIN

FIN

Code Boutton

//Boutton Info

MessageInfo("Bonjour","Bonsoir")



//Boutton Erreur

MessagesErreurs("Bonjour","Bonsoir","Salut")



//Boutton Avertissement

MessagesAvertissement("Bonjour","Bonsoir","Salut")