Sieht cool aus. 
Vom Prinzip her ist das ähnlich wie Brainfuck aufgebaut. Das einzig negative was mir an deinem Scrpt auffällt ist dein Englisch... 
Beiträge von name22
-
-
Alles Gute nachträglich Shadow
!
Ich hoffe du hattest einen schönen Geburtstag ;). -
Wie wärs mit der Funktion
[autoit]_Singleton
[/autoit]?
-
Naja. So sieht das ganze mit einem normalen Label aus...
Spoiler anzeigen
[autoit]#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <WinAPI.au3>$hWnd_Main = GUICreate("Transparency Test", 200, 100, Default, Default, Default, $WS_EX_LAYERED)
[/autoit] [autoit][/autoit] [autoit]
$cLabel = GUICtrlCreateLabel("This is a test", 50, 50)
GUISetBkColor(0xFEDBCA, $hWnd_Main)
_WinAPI_SetLayeredWindowAttributes($hWnd_Main, 0xFEDBCA)
GUISetState()While True
[/autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Meinen Vorschlag umzusetzen sollte aber nicht allzu schwer sein. Außerdem gibt es ja noch dieses Forum falls du nicht weiterkommst ;). -
Mach es ohne Labels und verwende GDI+ mit einem mehrschitigem Fenster. Das sieht nachher wesentlich besser aus als ein Label.
Hier ist ein Beispiel des Prinzips: https://autoit.de/index.php?page=Thread&postID=211221. -
Wo liegt jetzt hier das Problem? Per _start() könntest du die Funktion aufrufen. Aber wozu brauchst du die Funktion wenn da sowieso nur eine Zeile Code drin ist?
-
Sieht auf den ersten Blick genial aus. Das kann ich sicher gebrauchen
. Jetzt erst mal ein wenig testen... -
Zitat
Dann springt er nämlich zum nächsten Case.
Du meinst, ohne die Bedingung der Case zu prüfen? -
Ich würde auch funkeys Lösung bevorzugen, aber nur um deine Frage zu beantworten:
[autoit]ContinueCase
[/autoit] -
Dafür gibt es den z.B. Autorun Ordner (in welchen man aber nur Verknüpfungen kopieren sollte).
-
Willkommen im Forum Protaris
. Und falls du fragen haben solltest gilt natürlich das selbe, "immer her damit" ;). -
Ich bin mir nicht ganz sicher wie WinHTTP damit umgeht, aber nach dem was ich gelesen habe sind mehrere Verbindungen gleichzeitig kein Problem.
Laut MSDN (wenn ich das richtig verstanden habe) kann es zu Problemen kommen wenn du ein Request sendest und dann noch eine weitere Aktion ausführst bevor du ReceiveResponse benutzt hast... In den meisten Fällen sollte dich das aber nicht einschränken. Ich würde es einfach der Reihe nach machen, und alle nötigen Verbindungen am Anfang öffnen und am Ende schließen (falls sie öfter genutzt werden). Wenn du es genau wissen willst, musst du leider noch auf jemanden warten der sich da besser auskennt.
Du könntest auch einfach mal testen wie WinHTTP mit solchen Fällen umgeht. -
Was soll denn Zeile 4? Fehlt da nicht was?
Abgesehen davon, sollte der Fehler nur auftauchen wenn FileListToArray keine Dateien oder Ordner im angegebenen Pfad findet. -
Naja... Es gibt keine Fuktion die den Sinus/Arcussinus jedes Werts exakt berechnet. Man kann den Wert aber mit Taylorreihen beliebig genau annähern, soweit ich weiß. Hab da mal ein paar Programme für meinen Taschenrechner geschrieben die genau das tun.
Allerdings ist das völlig unnötig, da die Sin/Cos/Tan etc. Funktionen in AutoIt wesentlich schneller und zuverlässiger sind. Abgesehen davon ist es nicht ganz einfach so eine Funktion selbst zu schreiben wenn man nicht so viel Ahnung davon hat.
Bleib einfach bei dem was du hast, wie AspirinJunkie schon gesagt hat ;). -
Alles Gute zum 44ten Schnuffel!
Schöne feier wünsch ich dir. Und lass dich mal wieder öfter blicken ;). -
Die eckige Klammer "]" in Zeile 13 macht auch keinen Sinn. Außerdem fehlt nach Zeile 13 ein EndFunc. Das sind die einzigen Syntax Fehler die ich finden kann, und das "unable to parse line" kommt vermutlich von der Klammer in Zeile 13.
-
Das Problem hatten wohl schon andere vor dir. Scheinbar lässt sich dieser Stil nicht zur Laufzeit ändern. Dafür gibt es dann die Funktion:
[autoit]WinSetOnTop
[/autoit]
Die macht genau das was du willst. Der Rest deines Vorhabens sollte dank der ausführlichen AutoIt Hilfe auch kein Problem sein.
-
Als erstes, bitte warte einfach bis dein Thema freigeschaltet wird, du brauchst das nicht mehrmals zu posten ;). Falls du aus versehen einen Beitrag erstellst (...), bzw. diesen Beitrag löschen willst, klick einfach auf bearbeiten und dann auf löschen. Das ist übersichtlicher und macht mehr Sinn als den ursprünglichen Inhalt durch etwas irrelevantes zu ersetzen...
Zu deinem aktuellen Problem:
Du brauchst keine extra Funktion dafür. Du hast bereits eine If-Abfrage deren Inhalt immer ausgeführt wird wenn der Timer den Wert 0 erreicht. Du willst, dass in diesem Moment der Timer (also die Variable $i) wieder auf den Wert 10 zurückgesetzt wird. Also weist du einfach der Variable $i, welche deinen Timer repräsentiert den ursprünglichen Wert 10 zu. $i = 10 ist doch nicht so schwer oder?Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Mathetrainer v1.2.5", 434, 585, 192, 121)
GUISetBkColor(0xFFFFFF)
$Label2 = GUICtrlCreateLabel("", 16, 40, 4, 4)
$Label3 = GUICtrlCreateLabel("zahl", 16, 48, 55, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("+", 72, 48, 10, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("zahl", 96, 48, 47, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("=", 160, 48, 26, 17)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Neue zahl generieren", 8, 80, 177, 25)
$Label1 = GUICtrlCreateLabel("Mathetrainer", 8, 8, 248, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 192, 48, 81, 21)
$Button2 = GUICtrlCreateButton("Lösung anzeigen", 192, 80, 177, 25)
$Label7 = GUICtrlCreateLabel("Lösung", 376, 88, 55, 17)
$Button3 = GUICtrlCreateButton("aufgabe checken", 280, 48, 89, 25)
$Label8 = GUICtrlCreateLabel("Mathetrainer", 8, 152, 274, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("_____________________________________________________________________", 0, 112, 418, 17)
$Label10 = GUICtrlCreateLabel("Zahl", 16, 192, 51, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("-", 72, 192, 9, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("Zahl", 88, 192, 51, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("=", 152, 192, 13, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 192, 192, 81, 21)
$Button4 = GUICtrlCreateButton("Aufgabe checken", 280, 192, 91, 25)
$Button5 = GUICtrlCreateButton("Neue Zahl generieren", 0, 224, 185, 25)
$Button6 = GUICtrlCreateButton("Lösung anzeigen", 200, 224, 169, 25)
$Label14 = GUICtrlCreateLabel("Lösung", 376, 224, 39, 17)
$Label15 = GUICtrlCreateLabel("_____________________________________________________________________", 0, 264, 418, 17)
$Label16 = GUICtrlCreateLabel("Mathetrainer", 0, 304, 354, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label17 = GUICtrlCreateLabel("Zahl", 8, 344, 35, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label18 = GUICtrlCreateLabel("*", 72, 344, 10, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label19 = GUICtrlCreateLabel("Zahl", 88, 344, 59, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label20 = GUICtrlCreateLabel("=", 152, 344, 13, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 192, 344, 81, 21)
$Button7 = GUICtrlCreateButton("Aufgabe Checken", 280, 344, 97, 25)
$Button8 = GUICtrlCreateButton("Neue Zahl generieren", 0, 376, 193, 25)
$Button9 = GUICtrlCreateButton("Lösung anzeigen", 208, 376, 169, 25)
$Label21 = GUICtrlCreateLabel("Lösung", 384, 376, 39, 17)
$Label22 = GUICtrlCreateLabel("____________________________________________________________________", 0, 416, 412, 17)
$Label23 = GUICtrlCreateLabel("Mathetrainer", 0, 456, 252, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label24 = GUICtrlCreateLabel("Zahl", 16, 496, 35, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label25 = GUICtrlCreateLabel("/", 80, 496, 8, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label26 = GUICtrlCreateLabel("Zahl", 96, 496, 35, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label27 = GUICtrlCreateLabel("=", 152, 496, 13, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 192, 496, 81, 21)
$Button10 = GUICtrlCreateButton("Aufgabe checken", 280, 496, 97, 25)
$Button11 = GUICtrlCreateButton("Lösung anzeigen", 208, 520, 169, 25)
$Button12 = GUICtrlCreateButton("Neue Zahl generieren", 0, 520, 193, 25)
$Label28 = GUICtrlCreateLabel("Lösung", 384, 528, 39, 17)
$Label29 = GUICtrlCreateLabel("© Copyright by TimmLanHD", 8, 552, 199, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label30 = GUICtrlCreateLabel("Zeit", 376, 48, 31, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label31 = GUICtrlCreateLabel("Zeit", 376, 192, 31, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label32 = GUICtrlCreateLabel("Zeit", 384, 344, 31, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label33 = GUICtrlCreateLabel("Zeit", 384, 496, 31, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###MsgBox(0, "Info", "Generieren sie zuerst eine Zahl und klicken, wenn es notwendig, ist auf Lösung anzeigen", 3)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button8;3 zahl generieren
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$randomzahl1 = randomzahl1() ;Zahl generieren
GUICtrlSetData($Label17, $randomzahl1)
$randomzahl1 = randomzahl1()
GUICtrlSetData($Label19, $randomzahl1)Case $Button1;1zahl generieren
[/autoit] [autoit][/autoit] [autoit]$randomzahl1 = randomzahl1() ;Zahl generieren
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label5, $randomzahl1)
$randomzahl1 = randomzahl1()
GUICtrlSetData($Label3, $randomzahl1)
AdlibRegister("timer", 1000)Case $Button2;1 zusammenrechnen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label7, GUICtrlRead($Label3) + GUICtrlRead($Label5)) ;zusammenrechnenCase $Button4;2 geschriebenes checken
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If Not GUICtrlRead($Input2, GUICtrlRead($Label10) - GUICtrlRead($Label12)) Then
MsgBox(0, "Fehler", "Streng dein kopf mehr an ;-)")
EndIfCase $Button5;2 zahl generieren
[/autoit] [autoit][/autoit] [autoit]
$randomzahl1 = randomzahl1() ;Zahl generieren
GUICtrlSetData($Label10, $randomzahl1)
$randomzahl1 = randomzahl1()
GUICtrlSetData($Label12, $randomzahl1)Case $Button6;2 zusammenrechnen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label14, GUICtrlRead($Label10) - GUICtrlRead($Label12)) ;zusammenrechnenCase $Button3;1 geschriebenes checken
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If Not GUICtrlRead($Input1, GUICtrlRead($Label3) + GUICtrlRead($Label5)) Then
MsgBox(0, "Fehler", "Streng dein kopf mehr an ;-)")
EndIfCase $Button7;3 geschriebenes checken
[/autoit] [autoit][/autoit] [autoit]
If Not GUICtrlRead($Input3, GUICtrlRead($Label17) - GUICtrlRead($Label19)) Then
MsgBox(0, "Fehler", "Streng dein kopf mehr an ;-)")
EndIfCase $Button9;3 zusammenrechnen
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label21, GUICtrlRead($Label17) * GUICtrlRead($Label19)) ;zusammenrechnen
Case $Button12;4 Zahl generieren$randomzahl1 = randomzahl1() ;Zahl generieren
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label24, $randomzahl1)
$randomzahl1 = randomzahl1()
GUICtrlSetData($Label26, $randomzahl1)Case $Button11;4 zusammenrechnen
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($Label28, GUICtrlRead($Label24) / GUICtrlRead($Label26)) ;zusammenrechnen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Case $Button10;3 geschriebenes checken
[/autoit] [autoit][/autoit] [autoit]
If Not GUICtrlRead($Input3, GUICtrlRead($Label24) - GUICtrlRead($Label26)) Then
MsgBox(0, "Fehler", "Streng dein kopf mehr an ;-)")EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
EndSwitch
WEndFunc randomzahl1()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Return Random(1, 100, 1)
EndFunc ;==>randomzahl1Func timer()
[/autoit]
Local Static $i = 10
$i -= 1
GUICtrlSetData($Label1, $i)
If $i = 0 Then
$i = 10
AdlibUnRegister("timer")
$randomzahl1 = randomzahl1() ;Zahl generieren
GUICtrlSetData($Label5, $randomzahl1)
$randomzahl1 = randomzahl1()
GUICtrlSetData($Label3, $randomzahl1)
EndIf
EndFunc ;==>timer -
Alles Gute zum Geburtstag Blume!
Coole Farbe übrigens :D.Edit: Ich wünsch natürlich auch allen anderen DFPWare, Stevenx und allen anderen die heute Geburtstag haben, alles Gute.
-
Wie dein falscher Wert zustande kommt kann niemand sagen, wenn wir so wenige Informationen zum Problem haben. Kannst du vielleicht das Script posten, oder den relevanten Ausschnitt?