Notiz an dich: Nicht vergessen die ins Forum zu stellen.
Beiträge von Fast2
-
-
Ich habe mit Batchdateien angefangen, aber die Möglichkeiten waren einfach nicht ausreichend(mann braucht ja selbst für ne "ja/nein" Abfrage ne extra Datei!) Also hab ich gegoogelt und wollte schon C++ lernen, das erschien mir allerdings zu schwer. Also hab ich "einfache Programmiersprache" eingegeben und AutoIt gesehen. Das mit dem Deutschen Forum war schon toll, aber als ich was von GUI erstellung gelesen hab, wars um mich geschehen.
-
Also des dauert noch a bissl bis des Fertig is(bin noch nicht so gut)
-
-
Mal ne Frage: Was sind Handles und Threads?
-
Danke jetzt gehts.
-
Der Code jetzt:
Spoiler anzeigen
[autoit]$P0 = MsgBox( 1, "Tontester(besserer Name nicht inbegriffen) ;)", "Dieses Test-Programm testet folgende Tonhöhen:" & @LF & "40Hz, 100Hz, 500Hz, 800Hz, 1kHz, 2kHz")
[/autoit]
If $P0 = 1 Then
Dim $P1 = MsgBox(1, "Test 40 Hz", "Bitte drücken")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P1 = 1 Then
Beep(40, 5000)
Dim $P2 = MsgBox(1, "Test 100 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P2 = 1 Then
Beep(100, 5000)
Dim $P3 = MsgBox(1, "Test 500 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P3 = 1 Then
Beep(500, 5000)
Dim $P4 = MsgBox(1, "Test 800 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P4 = 1 Then
Beep(800, 5000)
Dim $P5 = MsgBox(1, "Test 1000 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P5 = 1 Then
Beep(1000, 5000)
Dim $P6 = MsgBox(1, "Test 2000 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P6 = 1 Then
Beep(2000, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
MsgBox(0, "Fertig", "Das Programm wird nun Beendet")Einfach mal von SciTE aus ausführen
-
-
BugFix : Ich hab gedacht dass ihr es lieber habt den Code geippt zu haben. Naja jetzt steht er ja drin.
-
Führ das Programm mal aus und Klick beim 2. , 3., 4., Nachrichtenfenster auf Abbrechen... es geht nicht. Und wenn man durch zufall(glaub ich irgendwie) doch abgebrochen hat dann kommt
>"C:\Programme\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3"
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3 (33) : ==> Variable used without being declared.:
IF $P4 = 1 Then
IF ^ ERROR
>Exit code: 1 Time: 41.452Edit: Fehler wird nicht mehr angezeigt, aber Abbrechen geht immer noch nicht.
Edit Edit:Ich habs: Ich muss da was vertauschen
Edit Edit Edit: Jetzt ist der Code:
Spoiler anzeigen
[autoit]#cs ------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Von: Fast2
AutoIt Version:3.2.8.1Funktion:Tontester
[/autoit] [autoit][/autoit] [autoit]
#ce ------------------------------------------------------------$P0 = MsgBox( 1, "Tontester(besserer Name nicht inbegriffen) ;)", "Dieses Test-Programm testet folgende Tonhöhen:" & @LF & "40Hz, 100Hz, 500Hz, 800Hz, 1kHz, 2kHz")
[/autoit]
If $P0 = 1 Then
$P1 = MsgBox(1, "Test 40 Hz", "Bitte drücken")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P1 = 1 Then
Beep(40, 5000)
$P2 = MsgBox(1, "Test 100 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P2 = 1 Then
Beep(100, 5000)
$P3 = MsgBox(1, "Test 500 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P3 = 1 Then
Beep(500, 5000)
$P4 = MsgBox(1, "Test 800 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P4 = 1 Then
Beep(800, 5000)
$P5 = MsgBox(1, "Test 1000 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P5 = 1 Then
Beep(1000, 5000)
$P6 = MsgBox(0, "Test 2000 Hz", "Weiter?")
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P6 = 1 Then
Beep(2000, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
MsgBox(0, "Fertig", "Das Programm wird nun Beendet")Hat jemand ne Idee wieso
>"C:\Programme\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3"
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3 (32) : ==> Variable used without being declared.:
IF $P4 = 1 Then
IF ^ ERROR
>Exit code: 1 Time: 18.919erscheint?
-
Ich weiß immer noch nicht was ich mit Arrays soll(ich kapier die eh noch nicht)
Ich kann euch das Proggi leider nicht im Forum anbieten(jedesmal beim Dateianhang-machen stürtzt Firefox ab) aber der Code steht ein paar Post über diesem.Edit: Jetzt is es gleich zwei mal da?!
-
Ne das stimmt, "Rechtschreibfehler" sind nicht vorhanden.
-
Entschuldigung das Problem besteht nicht mehr. Richtig muss der Code lauten:
Spoiler anzeigen
[autoit]#cs ------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Von: Fast2
AutoIt Version:3.2.8.1Funktion:Tontester
[/autoit] [autoit][/autoit] [autoit]
#ce ------------------------------------------------------------$P0 = MsgBox( 1, "Tontester(besserer Name nicht inbegriffen) ;)", "Dieses Test-Programm testet folgende Tonhöhen:" & @LF & "40Hz, 100Hz, 500Hz, 800Hz, 1kHz, 2kHz")
[/autoit]
IF $P0 = 1 Then
$P1 = MsgBox(1, "Test 40 Hz", "Bitte drücken")
Beep(40, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIF
If $P1 = 1 Then
$P2 = MsgBox(1, "Test 100 Hz", "Weiter?")
Beep(100, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P2 = 1 Then
$P3 = MsgBox(1, "Test 500 Hz", "Weiter?")
Beep(500, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P3 = 1 Then
$P4 = MsgBox(1, "Test 800 Hz", "Weiter?")
Beep(800, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P4 = 1 Then
$P5 = MsgBox(1, "Test 1000 Hz", "Weiter?")
Beep(1000, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P5 = 1 Then
$P6 = MsgBox(0, "Test 2000 Hz", "Weiter?")
Beep(2000, 5000)
Else
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
MsgBox(0, "Fertig", "Das Programm wird nun Beendet")Dafür hab ich jetzt ein anderes Problem: Dass Programm lässt sich nur am Anfang abbrechen und SciTE sagt dass die Variable $P1 nicht deklariert ist.
@huggy wieso Arrays? naja mal nachschauen
-
Irgendetwas fehlt da anscheinend. Aber ich komm nicht drauf was.
Moment mal... ich hab vergessen in die Hilfe zu schauen. -
Entschuldigung, ih hab gedacht ihr seht das Problem gleich.
Also: Wenn ich dass Programm ausführen will zeigt SciTE folgendes an:
>C:\Programme\AutoIt3\SciTE\..\au3check.exe "C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3"
AutoIt3 Syntax Checker v1.54.8 Copyright (c) Tylo 2007C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3(12,7) : ERROR: syntax error
ElseIf
~~~~~~^
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3(18,7) : ERROR: syntax error
ElseIf
~~~~~~^
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3(24,7) : ERROR: syntax error
ElseIf
~~~~~~^
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3(30,7) : ERROR: syntax error
ElseIf
~~~~~~^
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3(36,7) : ERROR: syntax error
ElseIf
~~~~~~^
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3(42,7) : ERROR: syntax error
ElseIf
~~~~~~^
C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Piepeser Testfunktion.au3 - 6 error(s), 0 warning(s)
>Exit code: 2 Time: 0.269 -
Spoiler anzeigen
[autoit]#cs ------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
Von: Fast2
AutoIt Version:3.2.8.1Funktion:Tontester
[/autoit] [autoit][/autoit] [autoit]
#ce ------------------------------------------------------------$P0 = MsgBox( 1, "Tontester(besserer Name nicht inbegriffen) ;)", "Dieses Test-Programm testet folgende Tonhöhen:" & @LF & "40Hz, 100Hz, 500Hz, 800Hz, 1kHz, 2kHz")
[/autoit]
IF $P0 = 1 Then
$P1 = MsgBox(1, "Test 40 Hz", "Bitte drücken")
Beep(40, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P1 = 1 Then
$P2 = MsgBox(1, "Test 100 Hz", "Weiter?")
Beep(100, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
If $P2 = 1 Then
$P3 = MsgBox(1, "Test 500 Hz", "Weiter?")
Beep(500, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P3 = 1 Then
$P4 = MsgBox(1, "Test 800 Hz", "Weiter?")
Beep(800, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P4 = 1 Then
$P5 = MsgBox(1, "Test 1000 Hz", "Weiter?")
Beep(1000, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
IF $P5 = 1 Then
$P6 = MsgBox(0, "Test 2000 Hz", "Weiter?")
Beep(2000, 5000)
ElseIf
MsgBox(0, "Abbruch", "Das Programm wird nun Beendet")
EndIf
MsgBox(0, "Fertig", "Das Programm wird nun Beendet") -
Ach so, danke!!!
-
Xenobiologist :
Bei mir zeigt das Programm einen Prozess hh.exe an der aber eigentlich garnicht existieren sollte(kein hh.exe auf dem PC, Taskmanager zeigt das Programm nicht an)Edit:Der existiert doch(die Suche hat den gefunden) aber warum wird der aktive Prozess eigentlich nicht im taskmgr angezeigt?
-
Im ersten Fenster steht: "Ich errechnen ihren BMI"
-
Das Programm Automatisiert den Show-off Modus.
Drag Racer ist aber Java oder so und deswegen Braucht man feste Coordsdas muss man auch an die Bedürfnisse anpassen z.B.gehört nicht jedes Auto in die"Luxury Section".
Das Spiel kannst du unter http://www.jetztspielen.de/game48957.html
anschauen(wenns nicht lädt rechtsklick aufs weisse Fenster ->vorwärts und Abspielen so oft bis es geht)Ich pass des Script mal so an dass man weiss was wo reinkommt.