Glaube _IEFormGetCollection fehlt nach _IECreate!
Beiträge von blubbstar
-
-
Hilfe -> MsgBox
-
Naja, muss nicht an den Includes liegen. Warum startest du es nicht aus SciTE, dann siehste es ja?
-
-
In der Reg/ini vllt. das Datum des heutigen Tages hinterlegen nach der Aktion. Und vor der Aktion überprüfen ob in der Reg/ini schon das heutige Datum steht.
-
So vllt.:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
#region ### START Koda GUI section ### Form=C:\Users\Johannes Emich\Documents\AutoIt Projekte\LGG\Tag der Schule Rechenprogramm\Rechenprogramm.kxf
$Form1 = GUICreate("LGG Mathematik", 421, 359, 240, 166)
$Group1 = GUICtrlCreateGroup("1. Rechenarten", 16, 16, 145, 137)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Radio1 = GUICtrlCreateRadio("Addieren", 32, 48, 113, 17)
$Radio2 = GUICtrlCreateRadio("Subtrahieren", 32, 72, 113, 17)
$Radio3 = GUICtrlCreateRadio("Multiplizieren", 32, 96, 113, 17)
$Radio4 = GUICtrlCreateRadio("Dividieren", 32, 120, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("2. Zahlenbereich", 16, 168, 145, 129)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Input1 = GUICtrlCreateInput("", 24, 192, 105, 23, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$Label1 = GUICtrlCreateLabel("bis", 24, 224, 121, 19)
$Input2 = GUICtrlCreateInput("", 24, 256, 105, 23, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Übernehmen", 16, 312, 147, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Mathematikprogramm", 176, 24, 208, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Arial")
$Label3 = GUICtrlCreateLabel("Tag der Schule am LGG", 176, 56, 225, 26)
GUICtrlSetFont(-1, 14, 800, 0, "Arial")
$Label4 = GUICtrlCreateLabel("", 200, 128, 101, 42)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$Input3 = GUICtrlCreateInput("", 288, 128, 89, 26, $ES_AUTOHSCROLL)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("Links kannst du die Rechenart und den Bereich deiner Zahlen festlegen", 208, 192, 157, 69, $SS_CENTER)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Button3 = GUICtrlCreateButton("Prüfen", 240, 280, 99, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Überspringen", 256, 328, 67, 25, $WS_GROUP)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
#endregion ### END Koda GUI section ###GUICtrlSetLimit($Input1, 3)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetLimit($Input2, 4)
GUICtrlSetState($Button3, $GUI_DISABLE)
GUICtrlSetState($Input1, $GUI_DISABLE)
GUICtrlSetState($Input2, $GUI_DISABLE)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1, $Radio2, $Radio3, $Radio4
If GUICtrlRead($Radio1) = $GUI_CHECKED Then
GUICtrlSetState($Input1, $GUI_ENABLE)
GUICtrlSetState($Input2, $GUI_ENABLE)
EndIf
If GUICtrlRead($Radio2) = $GUI_CHECKED Then
GUICtrlSetState($Input1, $GUI_ENABLE)
GUICtrlSetState($Input2, $GUI_ENABLE)
EndIf
If GUICtrlRead($Radio3) = $GUI_CHECKED Then
GUICtrlSetState($Input1, $GUI_ENABLE)
GUICtrlSetState($Input2, $GUI_ENABLE)
EndIf
If GUICtrlRead($Radio4) = $GUI_CHECKED Then
GUICtrlSetState($Input1, $GUI_ENABLE)
GUICtrlSetState($Input2, $GUI_ENABLE)
EndIf
Case $Button1
$zahlbereich1 = GUICtrlRead($Input1)
$zahlbereich2 = GUICtrlRead($Input2)
$zahl1 = Random($zahlbereich1, $zahlbereich2, 1)
$zahl2 = Random($zahlbereich1, $zahlbereich2, 1)
;Addieren
If GUICtrlRead($Radio1) = $GUI_CHECKED Then
GUICtrlSetData($Label4, $zahl1 & " + " & $zahl2 & " =")
$rechenart = "plus"
EndIf
;Subtrahieren
If GUICtrlRead($Radio2) = $GUI_CHECKED Then
$zahl2 = Random($zahlbereich1, $zahl1, 1)
GUICtrlSetData($Label4, $zahl1 & " - " & $zahl2 & " =")
$rechenart = "minus"
EndIf
;Mal nehmen
If GUICtrlRead($Radio3) = $GUI_CHECKED Then
GUICtrlSetData($Label4, $zahl1 & " * " & $zahl2 & " =")
$rechenart = "mal"
EndIf
;Teilen
If GUICtrlRead($Radio4) = $GUI_CHECKED Then
Do
$zahl1 = Random($zahlbereich1, $zahlbereich2, 1)
$zahl2 = Random($zahlbereich1, $zahlbereich2, 1)
If $zahl2 > $zahl1 Then
$tmp = $zahl2
$zahl2 = $zahl1
$zahl1 = $tmp
EndIf
Until Not StringInStr($zahl1 / $zahl2, ".")
GUICtrlSetData($Label4, $zahl1 & " / " & $zahl2 & " =")
$rechenart = "division"
EndIf
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
GUICtrlSetFont($Label5, 18, 800, 0, "Arial Black")
GUICtrlSetState($Button3, $GUI_ENABLE)Case $Button3
[/autoit] [autoit][/autoit] [autoit]
$answer = GUICtrlRead($Input3)If $rechenart = "plus" Then
[/autoit] [autoit][/autoit] [autoit]
If $zahl1 + $zahl2 = $answer Then
GUICtrlSetColor($Label5, 0x00FF00)
GUICtrlSetData($Label5, "RICHTIG")
GUICtrlSetState($Input3, $GUI_DISABLE)
Sleep(1200)
GUICtrlSetState($Input3, $GUI_ENABLE)
$zahl1 = Random($zahlbereich1, $zahlbereich2, 1)
$zahl2 = Random($zahlbereich1, $zahlbereich2, 1)
GUICtrlSetData($Label4, $zahl1 & " + " & $zahl2 & " =")
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
Else
GUICtrlSetColor($Label5, 0xFF0000)
GUICtrlSetData($Label5, "FALSCH")
Sleep(1200)
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
EndIf
EndIfIf $rechenart = "minus" Then
[/autoit] [autoit][/autoit] [autoit]
If $zahl1 - $zahl2 = $answer Then
GUICtrlSetColor($Label5, 0x00FF00)
GUICtrlSetData($Label5, "RICHTIG")
GUICtrlSetState($Input3, $GUI_DISABLE)
Sleep(1200)
GUICtrlSetState($Input3, $GUI_ENABLE)
$zahl1 = Random($zahlbereich1, $zahlbereich2, 1)
$zahl2 = Random($zahlbereich1, $zahl1, 1)
GUICtrlSetData($Label4, $zahl1 & " - " & $zahl2 & " =")
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
Else
GUICtrlSetColor($Label5, 0xFF0000)
GUICtrlSetData($Label5, "FALSCH")
GUICtrlSetState($Input3, $GUI_DISABLE)
Sleep(1100)
GUICtrlSetState($Input3, $GUI_ENABLE)
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
EndIf
EndIfIf $rechenart = "mal" Then
[/autoit]
If $zahl1 * $zahl2 = $answer Then
GUICtrlSetColor($Label5, 0x00FF00)
GUICtrlSetData($Label5, "RICHTIG")
GUICtrlSetState($Input3, $GUI_DISABLE)
Sleep(1200)
GUICtrlSetState($Input3, $GUI_ENABLE)
$zahl1 = Random($zahlbereich1, $zahlbereich2, 1)
$zahl2 = Random($zahlbereich1, $zahlbereich2, 1)
GUICtrlSetData($Label4, $zahl1 & " * " & $zahl2 & " =")
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
Else
GUICtrlSetColor($Label5, 0xFF0000)
GUICtrlSetData($Label5, "FALSCH")
GUICtrlSetState($Input3, $GUI_DISABLE)
Sleep(1100)
GUICtrlSetState($Input3, $GUI_ENABLE)
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
EndIf
EndIf
If $rechenart = "division" Then
If $zahl1 / $zahl2 = $answer Then
GUICtrlSetColor($Label5, 0x00FF00)
GUICtrlSetData($Label5, "RICHTIG")
GUICtrlSetState($Input3, $GUI_DISABLE)
Sleep(1200)
GUICtrlSetState($Input3, $GUI_ENABLE)
Do
$zahl1 = Random($zahlbereich1, $zahlbereich2, 1)
$zahl2 = Random($zahlbereich1, $zahlbereich2, 1)
If $zahl2 > $zahl1 Then
$tmp = $zahl2
$zahl2 = $zahl1
$zahl1 = $tmp
EndIf
Until Not StringInStr($zahl1 / $zahl2, ".")
GUICtrlSetData($Label4, $zahl1 & " / " & $zahl2 & " =")
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
Else
GUICtrlSetColor($Label5, 0xFF0000)
GUICtrlSetData($Label5, "FALSCH")
GUICtrlSetState($Input3, $GUI_DISABLE)
Sleep(1100)
GUICtrlSetState($Input3, $GUI_ENABLE)
GUICtrlSetData($Label5, "")
GUICtrlSetData($Input3, "")
EndIf
EndIf
EndSwitch
WEnd -
Die läuft schon wieder seit zwei Tagen oder so. Forum zumindest, habe nur paar Themen ergoogelt.
-
Ohne Tidy würd ich sterben. Klar lohnt sichs
-
War gestern Abend schon weg.
-
Ahja, du hast Recht!
-
Ich vermute mal er hat XP und du 7. Da wird ja alles immer ein wenig größer dargestellt
-
Erste Sahne! Vielen Dank!
-
Nur wenn mans laufen lässt. Schließt man es mit X, gehts nicht.
-
Danke dir, damit habe ich fast gerechnet
Ich schau mich mal noch ein bisschen im Englischen rum, vllt find ich was! -
Bei ner CUI wird die Exit Funktion nicht aufgerufen. Gibts da evtl. nen Workaround? Kann nichts finden
Danke + Gute Nacht. -
[autoit]
Ubound
[/autoit]Damit halt ne ForSchleife, oder auch _ArrayToString und halt anschließend mit GuiCtrlSetData setzen.
-
_InetGetSource + StringRegExp
Wobei keine Ahnung, da Javascript. Vllt kannst du die Werte garnicht lesen.
-
Rein theoretisch reicht ja auch das:
[autoit]Opt("SendKeyDelay", 100)
[/autoit][autoit][/autoit][autoit]$str = "irgendein string"
[/autoit]
Send($str, 1) -
Ja.
Das wäre evtl. noch ne Option:
[autoit]
[/autoit][autoit][/autoit][autoit]
Opt("SendKeyDelay", 50)$str = "irgendein string"
[/autoit]
For $i = 1 To StringLen($str)
Send(StringMid($str, $i, 1), 1)
Next -
Benutz das, spart das Array:
[autoit]
[/autoit]
$str = "irgendein string"
For $i = 1 To StringLen($str)
Send(StringMid($str, $i, 1), 1)
Sleep(50)
Next