Hi libero
Das was mikee sagt ist aber in der Test TeamSkin V1 GP55 drin.
Manni
...ich glaube ich bin Blind, kannst du dazu mal ein Bild einstellen 
( ich finde kein Button "Gopal Beenden " )
-
-
Wenn Du auf GoPal beenden gehst hast Du zwei Möglichkeiten dieses zu tun, einmal mit No beendet GoPal richtig so wie man es immer machen sollte und Yes dabei bleibt GoPal im Hintergrund aktiv , in diesem Betriebsmodus kannst Du die neuen MP3 PicureViewer und den neuen ContactManager von GP55 die nur unter GP55 laufen in StartMenu am laufen bringen , wenn Du den alten MP3 Picture Contact von GP4 auf dein Navi im richtigen Ordner hast ( My Flash Disk\navigation\multimedia\GP4) dann erkennt das Script das und starten das entsprechende Progi.
Manni
-
Hallo Manni,
ich bitte vielmals um Entschuldigung ich leihe mir mal deine
aus, bin vor lauter testen völlig aus dem Tritt geraten.
SORRY darauf ein
oder ach komm . -
Das No ! oben im blauen Feld muss ich noch raus löschen , das ist mir jetzt erst aufgefallen .
Manni
-
@manni,
Das Auswahlkonstrukt kannst du auch einfacher haben:
Code
Alles anzeigenbmps2 = "\My Flash Disk\Menuebuilder\Builder\bmp\" Bui_Ele = "\My Flash Disk\Menuebuilder\Builder\Elemente\" bmps = "\My Flash Disk\startmenue\bmp\" delete ("\My Flash Disk\Menuebuilder\Builder\bmp\*.*") delete ("\My Flash Disk\Menuebuilder\Builder\mortscript\*.*") If (DirExists("\My Flash Disk\Menuebuilder\Builder\bmp")) else mkdir ("\My Flash Disk\Menuebuilder\Builder\bmp") endif ;) If (DirExists("\My Flash Disk\Menuebuilder\Builder\auswahl")) else mkdir ("\My Flash Disk\Menuebuilder\Builder\auswahl") endif SetChoiceEntryFormat ( 25 , 16 , Tahoma ) wahl = Choice( "Menüseite","Welche Menüseite soll verändert werden?", 0, 0, "- 1/5 -", "- 2/5 -", "- 3/5 -", "- 4/5 -", "- 5/5 -" ) if (wahl > 0) XCopy (bmps & "\Button_" & wahl & "_*.bmp", bmps2 & "",1,1) XCopy (Bui_Ele & "\*.*", bmps2 & "",1,1) For i=1 To 8 rename(bmps2 & "\Button_" & wahl & "_" & i & ".bmp", bmps2 & "\Button_" & i & ".bmp",1) rename(bmps2 & "\Button_" & wahl & "_" & i & "_pushed.bmp", bmps2 & "\Button_" & i & "_pushed.bmp",1) Next XCopy (bmps & "\Button_" & wahl & "_*.bmp", bmps2 & "",1,1) Run ("\My Flash Disk\Menuebuilder\Builder\menuebuilder.exe") Sleep ( 500 ) Kill ("menue.exe") else message("Auswahl abgebrochen") exit endifBessere Lesbarkeit und Fehlersuche:
Generell würde ich auf die Prozentzeichen bei den Variablen verzichten.
Das musste früher in Mortscript sein - heute nicht mehr.
Dennoch funktioniert es wegen der Abwärtskompatibilität.
Gib auch ruhig ein paar Leerzeichen mehr in deinen Code ein
-
Generell würde ich auf die Prozentzeichen bei den Variablen verzichten.
Das musste früher in Mortscript sein - heute nicht mehr.
Dennoch funktioniert es wegen der Abwärtskompatibilität.
Danke für den Hinweis.
Da ich nur sporadisch nach Bedarf Scripte in 'MS' erstelle, war mir das nie aufgefallen. Aber gut zu wissen, dadurch wird das Ganze auch lesbarer. -
Danke danke Panik
Klappt prima.
Du bist nun mal der MortSkriper , hört sich ein bisschen versxxx an ist aber nur lieb gemeint .Auch dir Ralf ein danke , Du bist wie ein Magnet wo Du schreibst wird gelesen.
Hier ist es wahrscheinlich etwas schwieriger .Als Parameter=3 kann ist auch den Namen AutoMapa , Becker , Destinator , GoPal50 und so weiter von Menu als Parameterangabe geben lassen anstatt die Zahl , dann brauche ich auch nur den Parameter als Variable zu benutzen , bei GoPal50.png heißt das Script GoPal .mscr , das kann ich ändern das PNG´s und MSCR´s auf ein gleichen Nenner sind .
Dann wäre das hier auch nur noch das was einmal zwischen If (Parameter=x) und EndIf steht.Gruß Manni
Code
Alles anzeigenAusw = "\My Flash Disk\Menuebuilder\Builder\Auswahl\" Bui_Mort = "\My Flash Disk\Menuebuilder\Builder\mortscript\" Bui = "\My Flash Disk\Menuebuilder\Builder\" Bui2 = "\My Flash Disk\Menuebuilder\Builder\bmp\" Ele = "\My Flash Disk\Menuebuilder\Elemente\" If (Parameter=1) XCopy (%Ele%&"\Button_AutoMapa*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\AutoMapa.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_Automapa.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_AutoMapa_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\automapa.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=2) XCopy (%Ele%&"\Button_Becker*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\Becker.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_Becker.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_Becker_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\Becker.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=3) XCopy (%Ele%&"\Button_Destinator*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\Destinator.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_Destinator.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_Destinator_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\Destinator.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=4) XCopy (%Ele%&"\Button_GoPal50*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\GoPal.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_GoPal50.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_GoPal50_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\GoPal.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=5) XCopy (%Ele%&"\Button_iGO8*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\iGO8.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_iGO8.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_iGO8_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\iGO8.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=6) XCopy (%Ele%&"\Button_amigo*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\amigo.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_amigo.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_amigo_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\amigo.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=7) XCopy (%Ele%&"\Button_Primo*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\Primo.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_Primo.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_Primo_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\Primo.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=8) XCopy (%Ele%&"\Button_MioMap*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\MioMap.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_MioMap.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_MioMap_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\MioMap.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=9) XCopy (%Ele%&"\Button_Navigon*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\Navigon.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_Navigon.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_Navigon_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\Navigon.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=10) XCopy (%Ele%&"\Button_NDrive*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\NDrive.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_NDrive.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_NDrive_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\NDrive.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=11) XCopy (%Ele%&"\Button_PolNav*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\PolNav.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_PolNav.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_PolNav_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\PolNav.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif If (Parameter=12) XCopy (%Ele%&"\Button_TomTom*.bmp", %Ausw%&"",1,1) XCopy (%Ele%&"\TomTom.mscr", %Bui_Mort%&"",1,1) For ii=1 To 8 If (FileExists(%Ausw%&"\Button_1_"&ii&"_pushed.bmp")) rename(%Ausw%&"\button_TomTom.bmp", %Ausw%& "Button_"&ii&".bmp") rename(%Ausw%&"\button_TomTom_pushed.bmp", %Ausw%& "Button_"&ii&"_pushed.bmp") rename(%Bui_Mort%&"\TomTom.mscr", %Bui_Mort%& "1_"&ii&".mscr",1) XCopy (%Ausw%&"\Button_"&ii&"*.bmp", %Bui2%&"",1,1) delete (%Ausw%&"\*.*") endif Next run (%Bui%&"\menuebuilder.exe") Sleep ( 500 ) kill ("Iconchoice.exe") endif -
Hier ist es wahrscheinlich etwas schwieriger .
Als Parameter=3 kann ist auch den Namen AutoMapa , Becker , Destinator , GoPal50 und so weiter von Menu als Parameterangabe geben lassen anstatt die Zahl , dann brauche ich auch nur den Parameter als Variable zu benutzen , bei GoPal50.png heißt das Script GoPal .mscr , das kann ich ändern das PNG´s und MSCR´s auf ein gleichen Nenner sind .
Dann wäre das hier auch nur noch das was einmal zwischen If (Parameter=x) und EndIf steht.
Ich fühle mich mal wieder angesprochen, auch wenn ich Dir meinen Vorschlag oben nicht mundgerecht serviert habe!
Zur Erinnerung, was in den Variablen steht, ist egal, hier wird nicht so streng zwischen string und int unterschieden. Das erkennst Du doch schon oben an der Verwendung von bmps und wahl:
CodeXCopy (bmps & "\Button_" & wahl & "_*.bmp", bmps2 & "",1,1)
Vlt. probierst Du es mal selber, das Script entsprechend Deiner Anforderung generisch umzustellen. Da ich euren Skin nicht nutze, müsste ich zuviel Zeit für eine Testumgebung investieren. Bei Teilproblemen helfe ich natürllich gerne, wenn ich kann!Ansonsten, wenn die Scripte 'in allen Lebenslagen' funzen, dann belass sie lieber so, wie sie sind, aus Zeitgründen!
-
Hallo Ralf
Panik hast es mir so schön in den Schoss gelegt da konnte ich nicht wiederstehen .
Ich probiere dein Vorschlag morgen , heute kann ich kein Script mehr sehen , ich fummele den ganzen Tag an ein kleines Scriptchen .
Gruß Manni