Jump to content

Reset without closing....?


Recommended Posts

How could I stop a running song, without closing the prgram as I do now...

;C:\Documents and Settings\Kyle\My Documents\AU3\Battle, V2\System Scripts\PDXNORMEDIT.wav
#include <GuiConstants.au3>

GuiCreate("The Paradox- Music Player by Kyle Moy", 550, 60,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Input_2 = GuiCtrlCreateInput("", 10, 10, 530, 20)
$Button_3 = GuiCtrlCreateButton("Play", 10, 30, 30, 20)
$Button_4 = GuiCtrlCreateButton("Stop", 40, 30, 30, 20)
$Button_5 = GuiCtrlCreateButton("Mute", 70, 30, 30, 20)
$Button_6 = GuiCtrlCreateButton("EXIT", 510, 30, 30, 20)
$Input_8 = GuiCtrlCreateInput("", 480, 30, 30, 20)
$Slider_7 = GuiCtrlCreateSlider(100, 30, 380, 20)
GUICtrlSetData($Slider_7,100)
GuiSetState(@SW_SHOW)
GuiSetState()
SplashImageOn ("","PARADOX.BMP", 550, 120, 0, 0, 116)
WinSetOnTop ( "The Paradox- Music Player by Kyle Moy", "", 1)
$trackmenu = GuiCtrlCreateContextMenu ()
$aboutitem = GuiCtrlCreateMenuitem ("About",$trackmenu)
$readme = GuiCtrlCreateMenuitem ("Read Me File",$trackmenu)
GuiCtrlCreateMenuitem ("",$trackmenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$trackmenu)

$Mute=0
While 1
    $sound=GUICtrlRead($Slider_7)
    GUICtrlSetData($Input_8,$sound)
    $soundfin=GUICtrlRead($Input_8)
    SoundSetWaveVolume($soundfin)
    $msg = GuiGetMsg()
        If $msg = $exititem Or $msg = -3 Or $msg = -1 Then ExitLoop
    If $msg = $aboutitem Then Msgbox(0,"About The Paradox","The Paradox- Music Player was made by Kyle Moy(Vindicator) In October,2006")
If $msg = $readme Then Run("notepad.exe Read Me.ini")
    Select
        Case $msg = $Button_4
        GUICtrlSetState ($Button_3, $GUI_ENABLE)
        GUICtrlSetState ($Button_4, $GUI_DISABLE)
        Run("The Paradox.exe")
        Exit
        Case $msg = $Button_3
        GUICtrlSetState ($Button_4, $GUI_ENABLE)
        GUICtrlSetState ($Button_3, $GUI_DISABLE)
        $Musicfromcomp=GUICtrlRead($Input_2)
        SoundPlay($Musicfromcomp)
        
    Case $msg = $Button_5
        If $Mute=1 Then
        GUICtrlSetData($Slider_7,100)
            $Mute=0
        Else
        GUICtrlSetData($Slider_7,0)
        $Mute=1
        EndIF
    Case $msg = $Button_6
    Exit
        Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        ;;;
    EndSelect
WEnd
Exit
;PROJECT CLOSED

(I know youve all seen this (or a version if this) like 50 times already, but I really need help...)

Edited by MethodZero

[center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center]

Link to comment
Share on other sites

ahhh... im stupid.. thanks

[center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...