Hallo Sokobana und Team,
frohe Ostern und vielen Dank für den Varioskin 4
-
-
-
HALLO sokobana!!
ich würde gerne spenden.
wieviel Geld möchtest Du? ;=-)
Bitte kurz auch Deine Daten, dann überweise ich das, was es mir wert ist.
LG
ThomBo -
Hallo Sokobana! ich habe gespendet, wie geht es weiter?
Gruß bersuco1
-
Willkommen im Forum, bersuco1!
Wenn Du per Paypal gespendet hast, brauchst Du nichts weiter tun.
Wenn Du auf anderem Weg gespendet hast, schickst Du uns am Besten eine PN oder Email mit den notwendigen Daten, damit wir Deine Spende identifizieren können.Wir senden Dir dann einen Download-Link.
Gruß sokobana
-
Hallo Team Varioskin 4,
hatte jetzt die Gelegenheit mehrere Fahrten mit dem neuen Skin im Stadtbereich Hamburg durchzuführen. Dabei ist mir aufgefallen, dass während der Fahrt die Route neu berechnet wurde wegen einer Verkehrsstörung. Das ist so auch richtig gewesen. Aber jetzt wird in Abständen die Durchsage "ihre Route wurde aktualisiert" wiedergegeben, obwohl keine Aktualisierung stattgefunden hat. Diese Ansage erfolgt immer kurz nach der Anzeige des Bildschirmes von Verkehrsstörungen. Ist das so gewollt? Es ist nur eine kleine Störung des Ablaufes, aber diese Meldung hatte ich nur dann erwartet, wenn tatsächlich etwas Neues an Routenberechnung stattgefunden hat.
Viele Grüße
h.jobst -
Hallo h.jobst,
das hört sich nach der "Route Back - Funktion" an.
Hier kannst Du mehr darüber lesen.Ich kann diese Ansage von Gopal nicht abschalten. Wenn es Dich stört schalte RouteBack auf der TMC-Senderseite einfach aus.
Du verzichtest dann aber bei manueller Stauumfahrung auf die regelmäßige Prüfung, ob eine Störung überhaupt noch vorhanden ist.Gruß sokobana
PS: Hier ist eigentlich geschlossen. Weiter geht es in diesem Thread .
-
Hallo Sokobana,
natürlich hast Du Recht. RouteBack ist eingeschaltet. Werde das sofort ändern und in diesem Thread nichts mehr unternehmen. Danke!
Gruß h.jobst -
Hallo Sokobana und alle
Ich bräuchte mal von euch Hilfe , im Sokobana Skin ist doch so was in der Art reichlich drin .
Wie bekomme ich die drei Farben ins MortFenster ?
Kann als Icon oder als Schrifthintergrund oder die Schifft selbst sein .
Wenn da nichts geht wovon ich fast ausgehe muss ich halt die Farbe in Buchstaben dahinter schreiben , schöner wäre mit Farbe .
Habe schon in anderen Forum gefragt aber die mir hätten helfen können sind im Urlaub oder waren mit einer anderen harten Nuss beschäftigt .
Und unser Koord-Stefan war schon lange lange nicht Online .
Edit:
Habe ich zu spät gesehen das hier geschlossen ist . Wieso kann ich trotzdem hier schreiben ?Gruß Manni
-
Hallo Manni,
ich glaube, wenn ich mich recht erinnere, dass man da nix einstellen kann mit den Farben.Du könntest das eher mit einem Koordmenü und einzelnen Button für die vier Funktionen lösen.
Aber das wolltest Du bestimmt nicht, oder?Gruß sokobana
-
Da komm ist wohl nicht dran vorbei wenn mir die geschriebenen Farben nicht reichen .
Panik hat das auch so gesagt .
Dann muss ich mal schauen.
Ich danke erst mal für deine schnelle Antwort .
Gruß Manni
-
Hi Sokobana
Habe es hin bekommen
Der Videoserver ging mal wieder .
ich weis hier ist geschlossen , wollte es nur verkünden .
und danke für den Tipp
Gruß Manni
-
Habe es hin bekommen
Das kannst du doch nicht einfach so schreiben, ohne zu sagen WIE es geht.
Ist es eine Lösung, die nur Mort-Skript braucht?
Wenn hier zu sein soll, dann bitte Link auf einen Thread, in dem erklärt wird, wie es geht.Gruß und Danke, Wisch07.
-
Hallo Wisch07
Habe geglaubt ihr kennt den MANNI-PULATOR noch .
Habe es nach Sokobana´s Empfehlung gemacht , so wie er es zu 100. in seinem Skin hat , OK 50 .
Das sieht nur aus wie das MortScript-Fenster ist es aber nicht , das ist ein MenüProgi es heißt SystemInfo-Menü , dieses ist kombiniert mit MortSript .
Das geht auch mit Koord , ist natürlich für Skindateien viel besser .
Ein Link habe ich dafür noch nicht , das ist für dem TeamSkin GoPal-6 der noch nicht veröffentlicht ist .
Aber das Script von Mort und die INI von SystemInfo-Menü kann ich die zeigen .
Die INI
Code
Alles anzeigen# Startmenue # GLOBALSETTINGS # allgemeine Einstellungen # X = 0 Y = 0 Width = 482 Height = 278 BackgroundBitmap = ..\bmp\TMC-MeldeFenster.bmp QuitOnDoubleClick = no Arrange = No StartUpAnimation = NoAnimation ShutDownAnimation = NoAnimation Accelerated = yes TopMost = no ############### oben ############### BITMAPBUTTON # 1 # x = 9 y = 41 Command = "/My Flash Disk/programme/MortScript/MortScript.exe", "/My Flash Disk/programme/MortScript/NR_TMC_Einstellung.mscr" "auswahl=1" BitmapNormal = ..\bmp\GP-Ori.bmp BitmapPushed = ..\bmp\GP-Ori.bmp BITMAPBUTTON # 2 # x = 9 y = 67 Command = "/My Flash Disk/programme/MortScript/MortScript.exe", "/My Flash Disk/programme/MortScript/NR_TMC_Einstellung.mscr" "auswahl=2" BitmapNormal = ..\bmp\Alle_Stoer.bmp BitmapPushed = ..\bmp\Alle_Stoer.bmp BITMAPBUTTON # 3 # x = 9 y = 92 Command = "/My Flash Disk/programme/MortScript/MortScript.exe", "/My Flash Disk/programme/MortScript/NR_TMC_Einstellung.mscr" "auswahl=3" BitmapNormal = ..\bmp\Alle_Stau.bmp BitmapPushed = ..\bmp\Alle_Stau.bmp BITMAPBUTTON # 4 # x = 9 y = 119 Command = "/My Flash Disk/programme/MortScript/MortScript.exe", "/My Flash Disk/programme/MortScript/NR_TMC_Einstellung.mscr" "auswahl=4" BitmapNormal = ..\bmp\Alle_Stoer-um.bmp BitmapPushed = ..\bmp\Alle_Stoer-um.bmp ############### unten ############### BITMAPBUTTON # Cancel # x = 117 y = 218 Command = "/My Flash Disk/programme/MortScript/MortScript.exe", "/My Flash Disk/programme/MortScript/M_Close.mscr" BitmapNormal = ..\bmp\Cancel.bmp BitmapPushed = ..\bmp\Cancel.bmp
Diese Art Command Aufruf setzt voraus das Mort Registriert ist , dafür fallen die nötigen EXE weg .
Das Script ist von Navirunner für TMC-MeldeArten nur eben fürs SystemInfo-Menü modifiziert .
Code
Alles anzeigen######################################### # TMC Einstellung by Navirunner # ######################################### Sound = "\Storage Card\Changer\sounds" If (auswahl=(1)) xcopy("\My Flash Disk\programme\TMC-Menue\icons\*.*","\My Flash Disk\programme\TMC-Menue\bmp\",1,1) Copy ("\My Flash Disk\programme\TMC-Menue\icons\GP-Ori2.bmp","\My Flash Disk\programme\TMC-Menue\bmp\GP-Ori.bmp",1) kill ("TMC-Menue.exe") run ( "\My Flash Disk\programme\TMC-Menue\TMC-Menue.exe" ) EndIf If (auswahl=(2)) xcopy("\My Flash Disk\programme\TMC-Menue\icons\*.*","\My Flash Disk\programme\TMC-Menue\bmp\",1,1) Copy ("\My Flash Disk\programme\TMC-Menue\icons\Alle_Stoer2.bmp","\My Flash Disk\programme\TMC-Menue\bmp\Alle_Stoer.bmp",1) kill ("TMC-Menue.exe") run ( "\My Flash Disk\programme\TMC-Menue\TMC-Menue.exe" ) EndIf If (auswahl=(3)) xcopy("\My Flash Disk\programme\TMC-Menue\icons\*.*","\My Flash Disk\programme\TMC-Menue\bmp\",1,1) Copy ("\My Flash Disk\programme\TMC-Menue\icons\Alle_Stau2.bmp","\My Flash Disk\programme\TMC-Menue\bmp\Alle_Stau.bmp",1) kill ("TMC-Menue.exe") run ( "\My Flash Disk\programme\TMC-Menue\TMC-Menue.exe" ) EndIf If (auswahl=(4)) xcopy("\My Flash Disk\programme\TMC-Menue\icons\*.*","\My Flash Disk\programme\TMC-Menue\bmp\",1,1) Copy ("\My Flash Disk\programme\TMC-Menue\icons\Alle_Stoer-um2.bmp","\My Flash Disk\programme\TMC-Menue\bmp\Alle_Stoer-um.bmp",1) kill ("TMC-Menue.exe") run ( "\My Flash Disk\programme\TMC-Menue\TMC-Menue.exe" ) EndIf Include( "IniReadWrite.mscr" ) # Pfad\Name der ini-Datei iniDatei = "NR-Skin.ini" # Vorbelegungen einlesen Call("iniFile", "Read","TMC Einstellung") ######################################### block = "TMC Setting" vorbelegung = section[block] liste[1]="GoPal Standard Parameter" liste[2]="Alle Störungen anzeigen" liste[3]="Alle Staus umfahren" liste[4]="Alle Störungen umfahren" SetChoiceEntryFormat ( 25 , 20 , Arial ) # auswahl=Choice ("TMC Einstellung","Wählen Sie aus:^NL^Achtung: Die Änderungen werden erst nach einem Neustart aktiv !",vorbelegung,0,liste) #if(auswahl > 0) ######################################### # Einstellung und Eintrag anlegen If (auswahl=(1)) #Call ("Warten") sleep (300) Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\tti_A.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1) section[block] = auswahl Call ("Wert1") Message("Sie haben die Gopal original TMC Einstellungen gewählt.^NL^^NL^Es werden alle TMC Meldungen wie im original Skin behandelt.^NL^^NL^Nutzbar mit automatischer oder manueller Stauumfahrung.") Playsound(%Sound%&"\INFBEG.WAV") EndIf If (auswahl=(2)) #Call ("Warten") sleep (300) Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\tti_B.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1) section[block] = auswahl Call ("Wert2") Message("Sie haben gewählt das alle Störungen angezeigt werden sollen.^NL^^NL^Es werden alle TMC Meldungen wie im original Skin behandelt und zusätzlich weitere TMC Meldungen angezeigt.^NL^^NL^Nutzbar mit automatischer oder manueller Stauumfahrung.") Playsound(%Sound%&"\INFBEG.WAV") EndIf If (auswahl=(3)) #Call ("Warten") sleep (300) Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\tti_C.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1) section[block] = auswahl Call ("Wert3") Message("Sie haben gewählt das alle Staus umfahren werden sollen.^NL^^NL^Es werden alle TMC Meldungen mit höheren Zeitverlusten berechnet.^NL^^NL^Nutzbar mit automatischer oder manueller Stauumfahrung (manuell empfohlen).") Playsound(%Sound%&"\INFBEG.WAV") EndIf If (auswahl=(4)) #Call ("Warten") sleep (300) Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\\tti_D.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1) section[block] = auswahl Call ("Wert4") Message("Sie haben gewählt das alle Störungen umfahren werden sollen.^NL^^NL^Es werden alle TMC Meldungen mit sehr hohen Zeitverlusten berechnet.^NL^^NL^Diese Einstellung bitte nur mit manueller Stauumfahrung nutzen, da man sonst auch für kleinste Störungen von der AB geholt wird.") Playsound(%Sound%&"\INFBEG.WAV") EndIf #Else # Exit # EndIf # Gewählte Optionen zurückschreiben Call("iniFile", "Write", "TMC Einstellung") ######################################### # Schließt GoPal Run ("\My Flash Disk\programme\koord465.exe" , "window=0 SendKey=\0x80\|") If WndExists ("GoPal Navigator") sleep (2000) Kill ("GoPal Navigator") While (WndExists ("GoPal Navigator")) EndWhile EndIf If not (ProcExists ("koord465.exe")) Run ("\My Flash Disk\programme\koord465.exe" , "window=0 KoordServ=0") EndIf ######################################### Sub Wert1 file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml" Wert1 = "<item id=""2139000029""" Wert2 = " value=" Wert3 = " type=""INT"" />" Text1 = """0""" String= ReadFile( file ) gefunden1=Find(String,Wert1) If(gefunden1) gefunden2=Find(String,Wert2,gefunden1) gefunden3=Find(String,Wert3,gefunden2) NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3) WriteFile(file,NeuString,FALSE,"standard") EndIf EndSub ######################################### Sub Wert2 file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml" Wert1 = "<item id=""2139000029""" Wert2 = " value=" Wert3 = " type=""INT"" />" Text1 = """1""" String= ReadFile( file ) gefunden1=Find(String,Wert1) If(gefunden1) gefunden2=Find(String,Wert2,gefunden1) gefunden3=Find(String,Wert3,gefunden2) NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3) WriteFile(file,NeuString,FALSE,"standard") EndIf EndSub ######################################### Sub Wert3 file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml" Wert1 = "<item id=""2139000029""" Wert2 = " value=" Wert3 = " type=""INT"" />" Text1 = """2""" String= ReadFile( file ) gefunden1=Find(String,Wert1) If(gefunden1) gefunden2=Find(String,Wert2,gefunden1) gefunden3=Find(String,Wert3,gefunden2) NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3) WriteFile(file,NeuString,FALSE,"standard") EndIf EndSub ######################################### Sub Wert4 file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml" Wert1 = "<item id=""2139000029""" Wert2 = " value=" Wert3 = " type=""INT"" />" Text1 = """3""" String= ReadFile( file ) gefunden1=Find(String,Wert1) If(gefunden1) gefunden2=Find(String,Wert2,gefunden1) gefunden3=Find(String,Wert3,gefunden2) NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3) WriteFile(file,NeuString,FALSE,"standard") EndIf EndSub ######################################### Sub Warten # Bildschirmanzeige während der Inst StatusListEntryFormat ( 50 , 26 , Arial ) StatusInfo( "Bitte warten. Nicht ausschalten!" ) StatusMessage( "Änderungen werden vorgenommen!", ST_LIST, false ) StatusShow() EndSub #########################################
ich muss da noch einigen rausmachen was ich jetzt nicht mehr brauche , z. B. die INI Sicherung .
um das habtwegs zu verstehen musst du dich mit MortScript und SystemInfo-Menü befassen , wenn dann doch was unklar ist helfe ich gern weiter.
Gruß Manni
-
Danke Manni,
die Liste mit den Farben sieht nur so gut nach "Mort" aus, dass ich gedacht hatte, es gibt eine reine Mort-Lösung mit ein paar bisher undokumentierten Sonderzeichen, die die Farbgebung einer Zeile steuern könnten. Das hätte ich auch gut für meine kleinen persönlichen Erweiterungen gebrauchen können.
Aber schon der grüne Haken kam mir reichlich verdächtig vor, d.h. da kamen mir schon Zweifel an einer reinen Mort-Lösung.
Nut gut, jetzt weiß ich wie du es gemacht hast (mit relativ viel Aufwand). Das Prinzip und das Zusammenspiel vom SystemInfo-Menü mit den Mortskripten habe ich verstanden. Sieht zwar schön aus, ist mir im Moment aber zuviel Aufwand. Trotzdem nochmal vielen Dank, ich werde es in meine Sammlung von Code-Snipplets aufnehmen.
Vielleicht hier jetzt endgültig zu?
Obwohl - der letzte Post sollte eigentlich Sokobana gehören, zu dessen Arbeit ich auch nur sagen kann .
Wisch07.
-
Hi Sokobana
Habe es hin bekommen
Der Videoserver ging mal wieder .
ich weis hier ist geschlossen , wollte es nur verkünden .
und danke für den Tipp
Gruß Manni
MegaCool gemacht, Manni!
Mensch, wie viele Stunden hast Du daran wohl gesessen? 10?
Gruß sokobana