[R] Gestion d'un message d'erreur

[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

[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

[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

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

[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

[Tlem]

Les balises de code, bon sang.
Je vais pas les rajouter à chaque fois, donc merci de faire un effort ...

[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

[pierrotm777]

Désolé pour les balises. Merci pour votre aide.

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

[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

[timmalos]

Joyeux anniversaire les gars

[Jerome]

Joyeux anniv les bonhommes

[ani]

déjà ? mouarf, le temp passe si vite.
Bon bein, bon anniversaire les gars.

heu, j'ai mangé le gâteau

[moutelous]

Hello,

Tous mes meilleurs vœux ....

[sylvanie]

Joyeux anniversaire !!

[Tlem]

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 ?

[Jerome]

Sa doit être le décalage horaire (et pas qu'horaire ... ) avec le Quebec sa

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

[jbnh]

Merci à tous Je ne fêterai malheureusement pas ça ce weekend, mais le 19 novembre (sacré soirée de prévu).

A+

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