Page 1 sur 2
[R] Gestion d'un message d'erreur
Posté : ven. 06 nov. 2009 18:10
par pierrotm777
Bonjour,
J'aurais besoin d'une petite aide pour gérer une erreur qui apparait dans mon programme lorsque je lance la commande suivante :
► Afficher le texte
Dim $AppliToLaunch = "C:\Program Files\Ride Runner\RideRunner.exe"
Func LaunchAppli()
If @error Then SplashTextOn("Warning !", "Please, verified the " & _
"Apllication Path in your splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
If $AppliToLaunch <> "" Then ShellExecute($AppliToLaunch)
If $AppliToLaunch = "" Then SplashTextOn("Warning !", "No Application To Launch " & _
"Defined in splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
Sleep(3000)
SplashOff()
EndFunc
Je voudrais voir apparaître ma splash box si $AppliToLaunch n'existe pas mais j'obtient l'image ci-jointe .
J'ai bien essayer de la gérer (ligne en rouge) mais cela ne marche pas !
Merci d'avance
Re: [..] Gestion d'un message d'erreur
Posté : ven. 06 nov. 2009 19:11
par orax
Le premier @error au début de la fonction sera égal à 0 s'il n'y a pas de code avant, donc le SplashTextOn ne sera pas exécuté, c'est pour ça que j'ai mis le code en commentaires.
Code : Tout sélectionner
Dim $AppliToLaunch = "C:\Program Files\Ride Runner\RideRunner.exe"
LaunchAppli()
Func LaunchAppli()
; @error sera à 0 s'il n'y a rien avant
;~ If @error Then SplashTextOn("Warning !", "Please, verified the " & _
;~ "Apllication Path in your splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
If FileExists($AppliToLaunch) Then
ShellExecute($AppliToLaunch)
Else
SplashTextOn("Warning !", "No Application To Launch " & _
"Defined in splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
Sleep(3000)
SplashOff()
EndIf
EndFunc ;==>LaunchAppli
Re: [..] Gestion d'un message d'erreur
Posté : lun. 09 nov. 2009 17:02
par pierrotm777
oops , bonjour,
déjà 3 jours sont passés et je n'ai pas vu votre réponse.
je vous remercie de votre aide et vais essayer cela.
Merci encore
Re: [..] Gestion d'un message d'erreur
Posté : lun. 09 nov. 2009 19:52
par pierrotm777
Aprés quelques essais je tombe sur le même problème.
J'ai peut être omis de préciser $AppliToLaunch est issu d'un fichier ini :
$AppliToLaunch = IniRead("splash.ini", "SPLASH", "AppliToLaunch", "") .
le fichier splash.ini est du genre :
► Afficher le texte
[WINDOWS]
WindowsName=Splash
Left=0
Top=0
Width (only SWF)=800
Height (only SWF)=600
[SPLASH]
SplashName(Only JPG,BMP,GIF,PGN,SWF)=splash.jpg
Duration (ms)=4000
Speed (ms)=1000
ModeIn=0x00040010
ModeOff=0x00050010
Sound(Play/Sound)=Play
AppliToLaunch=C:\Program Files\RideRunner\RideRunner.exe
[SOUND]
SoundToPlay(Wav, Mp3)=gmenstar.wav
[SPEAK]
SentenceToSpeak=Welcome in your Multi Media Car Center
Donc,
si $AppliToLaunch = "" ( variable non définie ) je voudrais obtenir la commande suivante:
Code : Tout sélectionner
If $AppliToLaunch = "" Then SplashTextOn("Warning !", "No Application To Launch " & _
"Defined in splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
si $AppliToLaunch <> "" ( variable définie par exemple 'C:\Program Files\
RideRunner\RideRunner.exe') mais que le programme
se situe en fait ailleur , par exemple : 'C:\Program Files\
Ride Runner\RideRunner.exe' , alors je voudrais
obtenir la commande :
Code : Tout sélectionner
SplashTextOn("Warning !", "Please, verified the " & _
"Apllication Path in your splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
Avec mon ancienne boucle de test, j'obtient une fenêtre comme quoi le fichier exe à lancer n'est pas au bon endroit.
Je souhaite le remplacer par mon splashtexton
Désolé , je suis un peu neuneu .
Re: [..] Gestion d'un message d'erreur
Posté : lun. 09 nov. 2009 20:28
par pierrotm777
Bon,
Je crois avoir trouvé une solution, enfin elle fonctionne :
► Afficher le texte
Code : Tout sélectionner
Func LaunchAppli()
Select
Case $AppliToLaunch = ""
SplashTextOn("Warning !", "No Application To Launch " & _
"Defined in splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
Sleep(3000)
SplashOff()
Case $AppliToLaunch <> "" And Not FileExists($AppliToLaunch)
SplashTextOn("Warning !", "Please, verified the " & _
"Apllication Path in your splash.ini !!!", 250, 100, -1, -1, 0, "", 12, 800)
Sleep(3000)
SplashOff()
Case Else
ShellExecute($AppliToLaunch)
EndSelect
EndFunc ;==>LaunchAppli
Votre avis m'intéresse sur cette solution . Y a t-il plus simple ?
Merci
Re: [..] Gestion d'un message d'erreur
Posté : lun. 09 nov. 2009 21:25
par Tlem
Les balises de code, bon sang.
Je vais pas les rajouter à chaque fois, donc merci de faire un effort ...
Re: [..] Gestion d'un message d'erreur
Posté : lun. 09 nov. 2009 22:45
par orax
Code : Tout sélectionner
LaunchAppli()
Func LaunchAppli()
$AppliToLaunch = IniRead("splash.ini", "SPLASH", "AppliToLaunch", "")
If $AppliToLaunch = "" Then
SplashTextOn("Warning !", "No Application To Launch " & _
"Defined in splash.ini !!!", 250, 60, -1, -1, 0, "", 12, 800)
Sleep(3000)
SplashOff()
Return SetError(1)
EndIf
If FileExists($AppliToLaunch) Then
ShellExecute($AppliToLaunch)
Else
SplashTextOn("Warning !", "Please, verified the " & _
"Apllication Path in your splash.ini !!!", 250, 80, -1, -1, 0, "", 12, 800)
Sleep(3000)
SplashOff()
Return SetError(2)
EndIf
EndFunc ;==>LaunchAppli
Re: [..] Gestion d'un message d'erreur
Posté : mer. 25 nov. 2009 09:42
par pierrotm777
Désolé pour les balises. Merci pour votre aide.
Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 02:46
par Tlem
Joyeux anniversaire à nos chers modérateurs GaRydelaMer et jbnh.
Que ce samedi vous soit agréable et cette nouvelle année douce et prospère.
Merci à vous pour votre aide.
Joyeux anniversaire aussi à leduq, qui ne lira probablement pas ce message, puisqu'il ne c'est pas reconnecté depuis le jour de son inscription (03 Fév 2009) ...
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 03:12
par bloodwolff
Il va peut-être revenir un jour en envoyant un mail à l'admin car il ne retrouve plus son mot de passe
Sinon bonne
FÊTE au 2 admin
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 09:15
par timmalos
Joyeux anniversaire les gars
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 09:25
par Jerome
Joyeux anniv les bonhommes
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 10:25
par ani
déjà ? mouarf, le temp passe si vite.
Bon bein, bon anniversaire les gars.
heu, j'ai mangé le gâteau
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 11:50
par moutelous
Hello,
Tous mes meilleurs vœux ....
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 13:01
par sylvanie
Joyeux anniversaire !!
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 13:20
par Tlem
bloodwolff a écrit :Sinon bonne
FÊTE au 2 admin
Pourquoi dit tu ça ?
Comme je n'ai pas le même prénom que Voodoo et que ma fête c'est le 1er Juillet, est-ce que c'est la saint Admin aujourd'hui ?
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 14:19
par Jerome
Sa doit être le décalage horaire (et pas qu'horaire ...
) avec le Quebec sa
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 14:51
par bloodwolff
Au québec on dit sa comme sa et je me ferai pas contaminer par vos expressions française
Ps: Je voulais dire bonne fête aux 2 modérateurs et non pas admin
(erreur de frappe)
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : sam. 06 nov. 2010 23:29
par jbnh
Merci à tous
Je ne fêterai malheureusement pas ça ce weekend, mais le 19 novembre (sacré soirée de prévu).
A+
Re: Joyeux anniversaire GaRydelaMer et jbnh
Posté : mar. 09 nov. 2010 10:47
par GaRydelaMer
Merci @ tous
bien fêter, le week-end a été dur
surtout que c'était la sacré bascule, les 40 ans cette année.
