Hello Peoples,
ich habe ein kleines Proggi geschrieben um in einem Edit ein Satz mit einem drehenden Balken dahinter anzuzeigen. Das würde ich als kleine Animation in einem anderen Proggi benutzen um dort eine
Wartezeit zu überbrücken, solange bestimmte Dinge im Hintergrund ausgeführt werden.
Es ist mir beinahe peinlich aber ich bekomme es nicht hin, statt dem normalen Bindestrich (sieht echt doof aus), den langen Bindestrich (ASCII-Code 151) in dem Edit anzeigen zu lassen. Geht der Code gar nicht
oder brauche ich eine andere Schrift? Achja, in einer MsgBox wird Chr(151) richtig angezeigt...
Anzeige langer Bindestrich in Edit
- hipfzwirgel
- Unerledigt
-
Du hast doch im Kommentar schon die richtigen Unicode-Nummern der Zeichen mit angegeben.
Nur im Code selbst verwendest du hingegen nur die Zeichen aus dem ANSI-Bereich.Ändere mal deinen Switch-Teil folgendermaßen und verwende unten ChrW() anstatt Chr():
AutoIt
Alles anzeigenSwitch $i Case $i = 1 $n = 0x2502 Case $i = 2 $n = 0x2571 Case $i = 3 $n = 0x2500 Case $i = 4 $n = 0x2572 Case $i > 4 $i = 1 ContinueLoop EndSwitch -
Hallo Aspirinjunkie,
vielen lieben Dank für den Tipp.
Ich hatte keine Ahnung, dass das nur mit den Hex-Zahlen geht. Ich probierte es mit den DEZ zahlen und da kam nur Murks.
So sieht das Super aus...
Vielleicht hast du mir noch einen Tipp:
In meiner Funktion Ftsstat(), würde ich gerne den Satz
"GUICtrlSetData($Edit1, "Please be patient until preparations are done...!" & @CRLF & @CRLF, 1)"
gegen Eintrag mit dem drehenden Balken austauschen.
Wie gehe ich da am besten vor? Die Funktion _Balken an der Stelle aufrufen wird wohl das Proramm so lange anhalten bis die wieder beendet ist oder ? -
Eine kleine Bitte hipfzwirgel:
Kannst du wenn du Code postest, den </> Code-Block dazu nutzen (mit Auswahl "AutoIt" als Syntax-Highlighting). Denn somit kann man besser erfassen was du meinst.
Außerdem geht so auch deine Formatierung/Einrückung nicht verloren. Ich habe das bei post #1 und #3 mal schnell nachgezogen, also nicht wundern 😇 .
Viele Grüße
Sven -
Ich hatte keine Ahnung, dass das nur mit den Hex-Zahlen geht. Ich probierte es mit den DEZ zahlen und da kam nur Murks.
Natürlich geht das auch mit Dezimalzahlen.
Die hast du aber nicht genommen. Ich habe die Unicode-Codes der Zeichen angegeben.
Du hingegen hast die ASCII-Codes 124, 47, 45 und 92 verwendet.
Die dezimalen Unicode-Codes für diese Zeichen, welche so nicht im ASCII-Bereich existieren lauten hingegen 9474 (0x2502), 9585 (0x2571), 9472 (0x2500), 9586 (0x2572) -
Hallo Solve-Smart,
Da hast du natürlich recht. bitte entschuldigt dass ich da im Hurra nicht dran dachte.
@ Aspirinjunkie:nur das kein Missverständnis im Raum steht: Ich hatte bevor ich den Code hier postete es auch mit z.B. Chrw(02502) probiert
aber wie gesagt kam nur Murks. Egal ist ja gelöst.
Habt ihr mir einen Tipp bzgl. der Implementation in die andere Func, wie in meinem letzten Eintrag skizziert? -
Ich hatte keine Ahnung, dass das nur mit den Hex-Zahlen geht. Ich probierte es mit den DEZ zahlen und da kam nur Murks.
Hexadezimal und Dezimal oder auch Binär sind nur unterschiedliche Darstellungsformen für ein- und dieselbe Zahl!
Ob du nun $n=0x2571 schreibst oder $n=9585 ist unerheblich! Leider unterstützt AutoIt nicht nativ das Binärformat, sonst könnte man diese Zahl auch als 0b10010101110001 schreiben.
In meiner Funktion Ftsstat(), würde ich gerne den Satz
"GUICtrlSetData($Edit1, "Please be patient until preparations are done...!" & @CRLF & @CRLF, 1)"
gegen Eintrag mit dem drehenden Balken austauschen.Wie gehe ich da am besten vor?
So?
AutoIt
Alles anzeigen#include <AutoItConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("Form1", 616, 144, 610, 151) $Edit1 = GUICtrlCreateEdit("", 40, 32, 553, 50, $ES_READONLY) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 12, 800, 0, "Arial") GUISetState() DllCall("user32.dll", "int", "HideCaret", "int", 0) $Label1 = GUICtrlCreateLabel("Im Eingabe Feld sollte ein Balken kreiseln...", 40, 8, 208, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $i = 0,$n Global $bExitLoop = False ; Abbruchbedingung damit die While Wend schleife in _Balken beendet werden kann _Balken() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch _blablub() ;programmablauf for $r=1 to 5 consolewrite("Programmablauf....Schritt: "&$r&@crlf) sleep(500) Next WEnd Func _Balken() ;~ ### Auflistung der Zeichencodes für $n ### ;~ "|" ;124 Unicode = 02502 ;~ "/" ;47 Unicode = 02571 ;~ "-" ;45, long 151 Unicode = 02500 ;~ "\" ;92 Unicode = 02572 ;~ ### END Liste ### $i = $i + 1 Switch $i Case $i = 1 $n = 0x2502 Case $i = 2 $n = 0x2571 Case $i = 3 $n = 0x2500 Case $i = 4 $n = 0x2572 Case $i > 4 $i = 1 EndSwitch GUICtrlSetData($Edit1, "please be patient until preparations are done... " & Chrw($n)) EndFunc ;==>_Balken func _blablub() consolewrite("innerhalb _blablub"&@crlf) ;bla=run(blub....) $i=0 ;globaler Zähler Adlibregister("_Balken",300) ;auswertung Sleep(3000) ;hier läuft dein Code, alle 300ms wird _Balken aufgerufen ; Adlibunregister("_Balken") GUICtrlSetData($Edit1, "DONE!") sleep(1000) consolewrite("Ende _blablub"&@crlf) endfunc -
Hallo Andy,
also vielen lieben Dank für den Tipp mit dem Adlibregister. Funktioniert super.
Aber dennoch habe ich noch eine Frage:AutoItFunc Ftsstat() FileWriteLine($sFilepath, $Date & ", " & $sTime & " 1353 Func Ftsstat started" & @CRLF & @CRLF) If $CmdLine[0] > "0" And $CmdLine[1] <> "" Then _WinAPI_WriteConsole($hConsole, " Please be patient until preparations are done...!" & @CRLF & @CRLF) Sleep(3000) Else ;GUICtrlSetData($Edit1, "Please be patient until preparations are done... " & @CRLF & @CRLF, 1) ; Das war der ursprüngliche Eintrag ohne Drehbalken. AdlibRegister("_Balken", 300) ; Die Zeile überschreibt das Edit aber komplett !!! EndIfich habe die Adlib-Anweisung wie oben dargestellt implementiert (die Funktion _Balken natürlich auch).
Jetzt kommt zwar die Zeile mit dem drehenden Balken, aber das überschreibt mir das Edit komplett. Das Edit sollte aber so aussehen wie im Anhang(das ist
noch die Darstellung mit dem Ursprungseintrag) d.h. die anderen Informationen (aus anderen Funktionen des Programms) müssen erhalten bleiben. Geht das irgendwie? -
Ja, pack die letzte Zeile und auch den restlichen Text der notifications einfach in Variablen:
$Notification_Text=$Fileversion & @crlf & $Vendor & @crlf & $Model & blablub
AutoIt
Alles anzeigen#include <AutoItConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #Region ### START Koda GUI section ### Form= $Form1_1 = GUICreate("Form1", 616, 300, 610, 151) $Edit1 = GUICtrlCreateEdit("", 40, 32, 553, 250, $ES_READONLY) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 12, 800, 0, "Arial") GUISetState() DllCall("user32.dll", "int", "HideCaret", "int", 0) $Label1 = GUICtrlCreateLabel("Im Eingabe Feld sollte ein Balken kreiseln...", 40, 8, 208, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $i = 0, $n Global $bExitLoop = False ; Abbruchbedingung damit die While Wend schleife in _Balken beendet werden kann Global $hint_text = "please be patient until preparations are done... " Global $Notifications = "Fileversion: bla" & @CRLF & "Vendor: blub" & @CRLF & "Model: tralala" & @CRLF & "Device: hoppsassa " & @CRLF & @CRLF ;_Balken() Opt("GUIOnEventMode", 1) ;für das Beispiel GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit", $Form1_1) While 1 ;~ $nMsg = GUIGetMsg() ;~ Switch $nMsg ;~ Case $GUI_EVENT_CLOSE ;~ Exit ;~ EndSwitch _blablub() ;programmablauf For $r = 1 To 5 ConsoleWrite("Programmablauf....Schritt: " & $r & @CRLF) Sleep(500) Next WEnd Func _Balken() ;~ ### Auflistung der Zeichencodes für $n ### ;~ "|" ;124 Unicode = 02502 ;~ "/" ;47 Unicode = 02571 ;~ "-" ;45, long 151 Unicode = 02500 ;~ "\" ;92 Unicode = 02572 ;~ ### END Liste ### $i = $i + 1 Switch $i Case $i = 1 $n = 0x2502 Case $i = 2 $n = 0x2571 Case $i = 3 $n = 0x2500 Case $i = 4 $n = 0x2572 Case $i > 4 $i = 1 EndSwitch GUICtrlSetData($Edit1, $Notifications & @CRLF & $hint_text & ChrW($n)) EndFunc ;==>_Balken Func _blablub() ConsoleWrite("innerhalb _blablub" & @CRLF) ;bla=run(blub....) $i = 0 ;globaler Zähler AdlibRegister("_Balken", 300) ;auswertung Sleep(3000) ;hier läuft dein Code, alle 300ms wird _Balken aufgerufen ; AdlibUnRegister("_Balken") GUICtrlSetData($Edit1, $Notifications & @CRLF & "Preparations DONE!") Sleep(1000) ConsoleWrite("Ende _blablub" & @CRLF) EndFunc ;==>_blablub Func _Exit() Exit EndFunc ;==>_ExitWenn du weitere Infos nacheinander anzeigen willst, dann musst du nur die Variable $Notifications entsprechend erweitern mit zusätzlichem Text