Beiträge von Lenny

Lenny

Hallo
etwa so ?

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.4.9
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here
#NoTrayIcon
#include <GUIConstants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Player", 633, 226, 193, 115, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("RePlay", 368, 152, 65, 33, 0)
$Pausebutton = GUICtrlCreateButton("&Pause", 432, 152, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 152, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Open", 560, 152, 65, 33, 0)
$Button5 = GUICtrlCreateButton("EXIT", 24, 160, 41, 25, 0)
$Volume = GUICtrlCreateSlider(0, 192, 625, 25)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor($Volume, 5)
$List1 = GUICtrlCreateList("Halllo Du Da !", 0, 0, 625, 149)
$Checkbox2 = GUICtrlCreateCheckbox("Repeat All!", 104, 160, 73, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Repeat ", 200, 160, 57, 17)
$Input1 = GUICtrlCreateInput("0", 280, 160, 17, 21)
$Label1 = GUICtrlCreateLabel("ALabel1", 376, 152, 43, 17)
$Label2 = GUICtrlCreateLabel("Times", 304, 160, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If $pause = 1 Then
SoundPlay($re) and $pause = 0

EndIf
Case $Pausebutton
_SoundPause($re)
Dim $Pause = 0
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')
SoundPlay($re);Funzt doch alles ?!
Case $Button3
;kann man das irgentwie machen das er das nächste Lied im Ordner spielt ?

SoundPlay($re)
Case $Volume
SoundSetWaveVolume(1)
Case $Button5
WinClose("Player")

EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd

[/autoit]

òder so ?

Spoiler anzeigen

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
SoundPlay($re)
Case $Pausebutton
If _soundpause ($pause = 1) Then
SoundPlay($re) and $pause = 0
if not _SoundPause then $pause = 1
Dim $Pause = 0
EndIf
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')
SoundPlay($re)
Case $Button3
;kann man das irgentwie machen das er das nächste Lied im Ordner spielt ?

SoundPlay($re)
Case $Volume
SoundSetWaveVolume(1)
Case $Button5
WinClose("Player")

EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd

[/autoit]

---------lenny--------

Lenny

:(Hallo
Danke
alles schön und gut !

Aber wie baue ich die Pause ein ... oO?

Danke im Vorraus !!

Lenny

Halllllo!
Kann man als "PauseButton" irgend einen von der jetzigen nehmen ?

sowie hier ?

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstants.au3>
#include <Sound.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Player", 633, 226, 193, 115, BitOR($WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Replay", 368, 152, 65, 33, 0)
$Pausebutton = GUICtrlCreateButton("&Pause", 432, 152, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 152, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Open", 560, 152, 65, 33, 0)
$Button5 = GUICtrlCreateButton("EXIT", 24, 160, 41, 25, 0)
$Volume = GUICtrlCreateSlider(0, 192, 625, 25)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor($Volume, 5)
$List1 = GUICtrlCreateList("Halllo Du Da !", 0, 0, 625, 149)
$Checkbox2 = GUICtrlCreateCheckbox("Repeat All!", 104, 160, 73, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Repeat ", 200, 160, 57, 17)
$Input1 = GUICtrlCreateInput("0", 280, 160, 17, 21)
$Label1 = GUICtrlCreateLabel("ALabel1", 376, 152, 43, 17)
$Label2 = GUICtrlCreateLabel("Times", 304, 160, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
SoundPlay($re)
case $Pausebutton
_SoundPause($re)
Dim $Pause = 0
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')
SoundPlay($re)
Case $Button3
$re = FileFindNextFile("start.wav")

[/autoit] [autoit][/autoit] [autoit]

SoundPlay($re)
Case $Volume
SoundSetWaveVolume(1)
Case $Button5
WinClose("Player")

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd

[/autoit]

DankE

Edit1: kleine änderung im script!

Lenny

Hallo!
Danke für deine ständige Hilfe!

Also ich habe mir ein Blatt Papier genommen und aufgeschrieben was ich im grundsetzlichen machen möchte und was ich dafür machen muss!

Und was soll ich jetzt machen ?

Also ich habe ja schon angefangen ... aber komm halt bei dem Pause Button nicht weiter !!

Dankö

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Sound.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Player", 633, 226, 193, 115)
$Button1 = GUICtrlCreateButton("Pla&y", 368, 152, 65, 33, 0)
$Button2 = GUICtrlCreateButton("&Pause", 432, 152, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 152, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Open", 560, 152, 65, 33, 0)
$Volume = GUICtrlCreateSlider(0, 192, 625, 25)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor($Volume, 3)
$List1 = GUICtrlCreateList("", 0, 0, 625, 149)
$Checkbox1 = GUICtrlCreateCheckbox("Repeat!", 16, 160, 65, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Repeat All!", 104, 160, 73, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Repeat ", 200, 160, 57, 17)
$Input1 = GUICtrlCreateInput("0", 280, 160, 17, 21)
$Label1 = GUICtrlCreateLabel("ALabel1", 376, 152, 43, 17)
$Label2 = GUICtrlCreateLabel("Times", 304, 160, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$re =

case $button2
Dim $Pause = 0
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')
SoundPlay($re)
Case $Button3
$re = FileFindNextFile("start.wav")

SoundPlay($re)
Case $Volume
SoundSetWaveVolume(100)
EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd

[/autoit]

naya

Lenny

Halllo!
Ja also ich habe mir die Anleitung geladen und großtenteils auch durchgelesen!

Und den 'Hallo Welt' script habe ich auch gemacht!

Und ich habe

[autoit]

dim $Pause = 0

[/autoit]

genommen und irgentwo im script hinkopiert!
Aber wo kommt jetzt das _soundpause hin ?

Oo

Mal ganz davon abgesehen hab ich von den beispielen in der Hilfe auch nicht so viel verstanden ... !

Lenny

Hallo!
Ich habe jetzt ca. eine stunde gegooglet aber nix gefunden zum them "variablen aktiviren !"

kA wie das geht

dankö

Lenny

Hallo!

Ach ja genau ... diese "_..."dinger ... !

Ich habe nur immer noch das selbe problem wie im anderen thread:

Ich weiß nicht wie man das einbaut... OO

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Sound.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Player", 633, 226, 193, 115)
$Button1 = GUICtrlCreateButton("Pla&y", 368, 152, 65, 33, 0)
$Button2 = GUICtrlCreateButton("&Pause", 432, 152, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 152, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Open", 560, 152, 65, 33, 0)
$Volume = GUICtrlCreateSlider(0, 192, 625, 25)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor($Volume, 3)
$List1 = GUICtrlCreateList("", 0, 0, 625, 149)
$Checkbox1 = GUICtrlCreateCheckbox("Repeat!", 16, 160, 65, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Repeat All!", 104, 160, 73, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Repeat ", 200, 160, 57, 17)
$Input1 = GUICtrlCreateInput("0", 280, 160, 17, 21)
;$Label1 = GUICtrlCreateLabel("ALabel1", 376, 152, 43, 17)
$Label2 = GUICtrlCreateLabel("Times", 304, 160, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')
case $button2
_SoundPause($sound)
Case $Button4
$re = FileOpenDialog('','','Mp3-Files (*.mp3;*.wav)')
SoundPlay($re)
Case $Button3
$re = FileFindNextFile("start.wav")

SoundPlay($re)
Case $Volume
SoundSetWaveVolume(100)
EndSwitch
SoundSetWaveVolume(GUICtrlRead($Volume))
WEnd

[/autoit]

Danke im Vorraus ...

ps: Das Bild unten funktioniert jetzt! XD

Lenny

Hallo
! Ich habe noch mal eine Frage :
wi3 lautet der Befehl "Halte die musik an und beginne sie an der selbel stelle wieder wenn ich play drücke " in der autoIT sprache ?

Dankkee

Lenny

Lenny

Naya GUT!

Ich habe Angefangen und bin bis jetzt bis zum lautsärke regler gekommen! Ich habe einfach mal Versucht und jetzt is das heraus gekommen!:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 226, 193, 115)
$Button1 = GUICtrlCreateButton("Pla&y", 368, 152, 65, 33, 0)
$Button2 = GUICtrlCreateButton("&Break", 432, 152, 65, 33, 0)
$Button3 = GUICtrlCreateButton("&Next", 496, 152, 65, 33, 0)
$Button4 = GUICtrlCreateButton("&Stop", 560, 152, 65, 33, 0)
$Volume = GUICtrlCreateSlider(0, 192, 625, 25)
GUICtrlSetData(-1, 50)
GUICtrlSetCursor ($Volume, 3)
$List1 = GUICtrlCreateList("", 0, 0, 625, 149)
$Checkbox1 = GUICtrlCreateCheckbox("Repeat!", 16, 160, 65, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Repeat All!", 104, 160, 73, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Repeat ", 200, 160, 57, 17)
$Input1 = GUICtrlCreateInput("0", 280, 160, 17, 21)
$Label1 = GUICtrlCreateLabel("ALabel1", 376, 152, 43, 17)
$Label2 = GUICtrlCreateLabel("Times", 304, 160, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif"
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
SoundPlay("Startsound.wav"
SoundSetWaveVolume ($Button1)
Case $Volume
SoundSetWaveVolume(50)
EndSwitch
WEnd

[/autoit]

Das gibt es nur ein problem!
Es wird in beide richtungen lauter aber in keine leiser! ...

Danke im Vorraus ... Oo (Ich habe wirklich schon viel probiert!)

Lenny

Okay mach ich !
Aber ich mach das erst seit 3 TAGEN und habe nicht mal eine deutsche hilfedatei!
UnD mein 3Jähriges englisch (bis jetzt^^) reicht nur schwer aus um die engliche zu lesen!
Ich habe mich vorher noch nie mit sowas befasst also ...

......
Egal

Lenny

Bei Soundplay kann man glaube ich nur wave dateien reinmachen ...
und das mit dem Fortschrittsbalken ... wie geht das ?
Und den befehl "Soundsetvolume" gibts bei mir nicht !
Nur "soundsetwavevolume"!

Danke

Lennyy

Lenny

Hallo ihr !

Ich wollte mal fragen ob man irgentwie ein GUI machen kann, das im hintergrund ein lied im mp3 format spielt und wo man mit einem regler (Bildunten!)die Lautstärke regeln kann ?

Vielen Dank im Vorraus!

Spoiler anzeigen

[Blockierte Grafik: http://warlenny.funsurf.org/BliblaBlubb.PNG]

Geht das ?

Lenny

Haiii!
geanial! vielen dank an alle!
Auf meiner seite sind alle fragen beantwortet!

Vielen vielne vielen vielen DANK

Ps: kann man mein signatur bild sehen ? XD

DANKE

Lenny

Hallo .. !
Sorry für die Blöde erklärung !

Also ich habe mir über Koda ein GUI gemacht
und jetzt möchte ich das, wenn ich "cancel" klicke dieser gui zum einsatz kommt! Und wenn ich da auf OK geklickt habe möchte ich wieder zu der Frage am anfang!

GUI:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Windows", 582, 93, 193, 115)
$Icon1 = GUICtrlCreateIcon("http://www.mkportal-support.de/mkportal/templates/MKPBlue/images/error.gif", 0, 16, 16, 49, 49, BitOR($SS_NOTIFY,$WS_GROUP))
$Label1 = GUICtrlCreateLabel("Müll müll Ka Quatsch!", 80, 32, 485, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

also :

Spoiler anzeigen

[Blockierte Grafik: http://warlenny.funsurf.org/klick.PNG]
Und dann:
[Blockierte Grafik: http://warlenny.funsurf.org/button.PNG]

DANKE schön ...

Lenny

Hiho !
Vielen Dank!
Genau sowas meinte ich !
Funktioniert super !

DANKE DANKE DANKE

LEnny

Nur eines noch :
Könnte man das hier

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Misc.au3>

Global $pos_A

#Region ### START Koda GUI section ### Form=
$gui = GUICreate("Dialog", 316, 231, 347, 263, BitOR($WS_MINIMIZEBOX,$WS_CAPTION,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetIcon("D:\003.ico")
$GroupBox1 = GUICtrlCreateGroup("Festplatte Formatieren?", 8, 1, 297, 193)
GUICtrlSetFont(-1, 20, 400, 0, "comic")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&OK", 65, 203, 75, 25, 0)
GUICtrlSetTip(-1, "Danke!")
GUICtrlSetCursor ($Button1, 3)
$Button2 = GUICtrlCreateButton("&Cancel", 162, 203, 75, 25, 0)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$begin = TimerInit()
While WinExists($gui)
If TimerDiff($begin) > 500 Then
$pos_A = WinGetPos($gui)
_MouseTrap($pos_A[0], $pos_A[1], $pos_A[0] + $pos_A[2], $pos_A[1] + $pos_A[3])
$begin = TimerInit()
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button2
MsgBox(0, '', "Button2 gedrückt")
Exit
Case $Button1
MsgBox(0, '', "Button1 gedrückt")
EndSwitch
WEnd

[/autoit]

[autoit][/autoit]

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Windows", 582, 93, 193, 115)
$Icon1 = GUICtrlCreateIcon("D:\Dokumente und Einstellungen\Lenny\Eigene Dateien\Azureus Downloads\Photoshop CS2\AutoPlay\RESDATA\CS2_AutoplayQuit_Md_N.ico", 0, 16, 16, 49, 49, BitOR($SS_NOTIFY,$WS_GROUP))
$Label1 = GUICtrlCreateLabel("Grober Fehler des pfades rundll32.exe eine neuinstallation ihres Systems könnte das problem beheben!", 80, 32, 485, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

Irgentwie kombinieren sodaß wenn man den Button 2 (cancel)
klickt so eine meldung kommt und dann wieder zurück zur Box kommt ?

Lenny

Lenny

Hallllo
Ja supi! Vielen dank!

Aber kann man es irgentwie hinbekommen das der mauszeiger von anfang an nicht heruas kann ?

Lenny

Vielen Danke aber irgentwie Funktioniert das mit der Mousetrap funk. nicht mehr ... ?
Und wenn ich auf dem Button klicke sag er/sie/es
$status = Not $status
Error: Variable used without being declared! ... ???
( Entschuldigt meine ganzen fragen, mache das ganze erst seit vorgestern Oo)

Vielen vielen vielen [SIZE=7]vielen[/SIZE] DANK!
Naja ....

Lenny

Nadann ...
Danke ,,,
aber könnte mir vllt jemand sagen was falsch ist ?

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Dialog", 316, 231, 347, 263, BitOR($WS_MINIMIZEBOX,$WS_CAPTION,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetIcon("D:\003.ico")
$GroupBox1 = GUICtrlCreateGroup("Festplatte Formatieren?", 8, 1, 297, 193)
GUICtrlSetFont(-1, 20, 400, 0, "comic")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&OK", 65, 203, 75, 25, 0)
GUICtrlSetTip(-1, "Danke!")
GUICtrlSetCursor ($Button1, 3)
$Button2 = GUICtrlCreateButton("&Cancel", 162, 203, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
$status = Not $status
If $status Then
$pos_Button1 = WinGetPos($gui)
_MouseTrap($pos_A[0], $pos_A[1], $pos_A[0] + $pos_A[2], $pos_A[1] + $pos_A[3])
EndSwitch
WEnd

[/autoit]

Er sagt immer:
Endswitch Statement has no matching Switch statement

Danke im Voraus

Lenny

Hallo
...hmm. em
also ich habe einfach auf "tools", "KODA"geklickt
alles so hingemacht wie es aussehen sollte und dann gespeichert und dann auf exit geklickt! jetzt habe eine datei namens: AForm1.kxf
Aber hier is nirgendswo ein Code!

Oo oder wann sollte ich KODA öffnen bei dem Script den ich schon hatte?

Ich habe jetzt einen neuen genommen ! ... ?

Dankee

Edit1: Aso hab ihn schon gefunden !!!

Lenny

HaiiHo!
Welchen denn ?

Beiträge von Lenny

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

GUI - Musik - Lautstärke!

MsgBox - Maus

MsgBox - Maus

MsgBox - Maus

MsgBox - Maus

MsgBox - Maus

MsgBox - Maus

MsgBox - Maus

MsgBox - Maus