carnould

En m'inspirant de vos posts, j'ai refait mon autorunce.mscr. Il corrige les points suivants: -plus nécessaire de "reseter" en quittant un programme. -possibilité de gérer le volume sonore pour LK8000 (valable pour d'autres logiciels je suppose) -le lancement de ViaMichelin se fait avec les mêmes paramètres que ceux d'origine (mettez les vôtres si vous en avez des différents) Ce script a été fait pour mon PNA NAVIGON 70 plus europe. Je ne préjuge pas de sa compatibilité avec d'autres matériels. Bon vols à tous (quoique la saison ne soit plus la meilleure) ! Voici donc mon script (désolé, les indentation - retraits de lignes - ne sont pas visible sur ce blog la lecture du script en est moins simple : ______________________________________________________________________________________________________ #Pour tous les amis vélivoles ou parapentistes #Ce script a été fait par Christian ARNOULD et adapté au lancement de LK8000 sur le PNA Navigon 70 #Si une SD Card est présente avec le programme LK8000-PNA.exe #alors un menu permet de garder la possibilité de lancer ViaMichelin en plus des autres options. #Si la SD Card n'est pas présente (ou si le programme n'est pas sur la SD Card) #alors le lancement de ViaMichelin se fait avec le script d'origine de l'appareil (à conserver à l'identique) # #Pour résoudre le problème du volume sonore dans LK8000 qui n'est pas ajustable sur les PNA, #une option du menu permet de choisir un volume #le système du Navigon 70 permet d'ajuster de 0 (off) à 255 (max) #pour la simplification, j'ai choisi arbitrairement 6 niveaux différents. Simple à modifier si vous le souhaitez #Le niveau choisi est stocké dans un fichier et est rappelé par défaut au lancement de LK8000 #il n'y a donc pas lieu de fixer le niveau sonore à chaque fois. Le dernier niveau fixé reste présent. #Le niveau sonore géré pour LK8000 est complétement indépendant et n'impacte pas celui de ViaMichelin #La mémoire flash interne s'appelle : "\My Flash Disk\" #La SD Card s'appelle : "\Storage Card\" #Si le programme LK8000 existe sur la SD Card, lancer le menu. #Si non, lancer le script d'origine du Navigon (ViaMichelin seul) If (Not FileExists("\Storage Card\LK8000\LK8000-PNA.exe")) ErrorLevel ( "syntax" ) # create marker file If ( DirExists("\MN Settings") ) WriteFile( "\MN Settings\Format_Test.txt", "FORMAT TEST") EndIf RunWait("\My Flash Disk\PartitionChecker.exe") If ( FileExists("\MN Settings\Format_Test.txt") ) Delete("\MN Settings\Format_Test.txt") EndIf CallScript("\My Flash Disk\DisableUniscribe.mscr") If ( FileExists("\My Flash Disk\AutoHideTaskbar.exe") ) Run("\My Flash Disk\AutoHideTaskbar.exe") EndIf If ( FileExists("\My Flash Disk\BT\BTCore.exe") ) Run("\My Flash Disk\BT\BTCore.exe") EndIf Run("\My Flash Disk\NAVIGON\PM.exe") If ( FileExists("\My Flash Disk\updateme_bak.exe") ) Delete("\My Flash Disk\*.NB0") EndIf If ( FileExists("\My Flash Disk\DFUWizardCE_bak.exe") ) Delete("\My Flash Disk\*.xpv") Delete("\My Flash Disk\*.xdv") Delete("\My Flash Disk\*.dfu") EndIf Delete("\My Flash Disk\*_bak") Delete("\My Flash Disk\*_bak.exe") Else #Lancer le menu #Définir les polices du menu SetChoiceEntryFormat ( 22 , 18 , "Tahoma" ) #Définir le volume "par défaut" du programme LK8000 (stocké dans un fichier) #si le fichier n'existe pas encore, le créer avec un volume de 150 (moyen) #s'il existe, on garde donc le précédent volume utilisé If ( Not FileExists("\My Flash Disk\VolumeLK8000.txt") ) Writefile("\My Flash Disk\VolumeLK8000.txt", 150) EndIf #Affichage du menu ChoiceDefault( "Menu","Choisissez le programme",0,20,"1- ViaMichelin ","2- LK8000 ","3- Réglage volume sonore de LK8000","4- FileManCE","5- Mise en veille appareil") # ******************************************************************* # lancement de ViaMichelin Case( 1 ) # Remettre volume au max pour ne pas impacter ViaMichelin SetVolume ( 255 ) #appel de l'autorunce d'origine s'il existe #If (FileExists("\My Flash Disk\origine-autorunce.mscr")) ############################################## ici le contenu de autorunce.mscr d'origine ErrorLevel ( "syntax" ) # create marker file If ( DirExists("\MN Settings") ) WriteFile( "\MN Settings\Format_Test.txt", "FORMAT TEST") EndIf RunWait("\My Flash Disk\PartitionChecker.exe") If ( FileExists("\MN Settings\Format_Test.txt") ) Delete("\MN Settings\Format_Test.txt") EndIf CallScript("\My Flash Disk\DisableUniscribe.mscr") If ( FileExists("\My Flash Disk\AutoHideTaskbar.exe") ) Run("\My Flash Disk\AutoHideTaskbar.exe") EndIf If ( FileExists("\My Flash Disk\BT\BTCore.exe") ) Run("\My Flash Disk\BT\BTCore.exe") EndIf Run("\My Flash Disk\NAVIGON\PM.exe") If ( FileExists("\My Flash Disk\updateme_bak.exe") ) Delete("\My Flash Disk\*.NB0") EndIf If ( FileExists("\My Flash Disk\DFUWizardCE_bak.exe") ) Delete("\My Flash Disk\*.xpv") Delete("\My Flash Disk\*.xdv") Delete("\My Flash Disk\*.dfu") EndIf Delete("\My Flash Disk\*_bak") Delete("\My Flash Disk\*_bak.exe") ############################################# fin du autorunce.mscr d'origine ######### #Run( "\My Flash Disk\Autorunce.exe" ) #Else #Show a message and return to the menu #Message("Navigon non trouvé.") #Run( "\My Flash Disk\Autorunce.exe" ) #EndIf # ******************************************************************* # lancement de LK8000 Case( 2 ) volumelk8000 = ReadFile("\My Flash Disk\VolumeLK8000.txt") SetVolume ( volumelk8000 ) RunWait( "\Storage Card\LK8000\LK8000-PNA.exe" ) Run( "\My Flash Disk\Autorunce.exe" ) # ******************************************************************* # Choix du volume pour LK8000 Case( 3 ) #Réglage du volume sonore de LK8000 (0=Off 255=Volume Max par défaut:150 choix 4) ChoiceDefault ( "Volume", "Choisir le volume sonore de LK8000" , 4 , 10 , "Off" , "Très faible" , "Faible" , "Moyen" , "Fort" , "Max" ) Case ( 1 ) # Message ( "Volume Off (0)" ) SetVolume ( 0 ) Writefile("\My Flash Disk\VolumeLK8000.txt", 0) PlaySound ("\My Flash Disk\Navigon\Startup.wav") Run( "\My Flash Disk\Autorunce.exe" ) Case ( 2 ) # Message ( "Volume très faible (50)" ) SetVolume ( 50 ) Writefile("\My Flash Disk\VolumeLK8000.txt", 50) PlaySound ("\My Flash Disk\Navigon\Startup.wav") Run( "\My Flash Disk\Autorunce.exe" ) Case ( 3 ) # Message ( "Volume faible (100)" ) SetVolume ( 100 ) Writefile("\My Flash Disk\VolumeLK8000.txt", 100) PlaySound ("\My Flash Disk\Navigon\Startup.wav") Run( "\My Flash Disk\Autorunce.exe" ) Case ( 4 , 0 ) # Message ( "Volume moyen (150)" ) SetVolume ( 150 ) Writefile("\My Flash Disk\VolumeLK8000.txt", 150) PlaySound ("\My Flash Disk\Navigon\Startup.wav") Run( "\My Flash Disk\Autorunce.exe" ) Case ( 5 ) # Message ( "Volume fort (200)" ) SetVolume ( 200 ) Writefile("\My Flash Disk\VolumeLK8000.txt", 200) PlaySound ("\My Flash Disk\Navigon\Startup.wav") Run( "\My Flash Disk\Autorunce.exe" ) Case ( 6 ) # Message ( "Volume maximum (255)") SetVolume ( 255 ) Writefile("\My Flash Disk\VolumeLK8000.txt", 255) PlaySound ("\My Flash Disk\Navigon\Startup.wav") Run( "\My Flash Disk\Autorunce.exe" ) EndChoice Case( 4 ) #Check if the file exists, keeps the unit from stalling when it doesn't If (FileExists("\Storage Card\FileManCE\FileManCE.exe")) RunWait( "\Storage Card\FileManCE\FileManCE.exe" ) Run( "\My Flash Disk\Autorunce.exe" ) Else #Show a message and return to the menu Message("FileManCE non trouvé.") Run( "\My Flash Disk\Autorunce.exe" ) EndIf Case( 0 , 5 ) #Arrêt de l'appareil PowerOff Run( "\My Flash Disk\Autorunce.exe" ) Exit #Case ( 0 ) # #pas de choix ou Cancel # Message("Cancel") # Run( "\My Flash Disk\Autorunce.exe" ) EndChoice EndIf ________________________________________________________________________________________________

Dans les stats d'un vol, quelle est la différence entre "vitesse" du circuit et "vitesse de vol sur la campagne" ? Merci d'avance pour vos réponses.