Jump to content

HELP ASAP


keen
 Share

Recommended Posts

Guys i need to know how to get a spash image to close after the sleep time is over. Any help:

#include <GUIConstants.au3>
#include <Xskin.au3>
#Include <File.au3>


$splash = SplashImageOn("","S:\My Documents\JORDANS STUFF\Amp Music\images\Loading.gif","700","500","-1","-1",5)
sleep (1000)

$skin_folder = @ScriptDir & "\images\skin"
XskinGUICreate("Amp Music", 1085,850, $skin_folder)

GUISetBkColor (0xffffff)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\images\BG.gif", 73, 80, 937, 697 )

$butto = GUICtrlCreateButton ( "<", 255, 60,20,20)

$butto2 = GUICtrlCreateButton ( ">", 280, 60,20,20)

$Pic2 = GUICtrlCreatePic(@ScriptDir & "\images\Knobs.gif", 249, 110, 81, 81 )
$Pic3 = GUICtrlCreatePic(@ScriptDir & "\images\Volume.gif", 249, 197, 81, 25 )
$lab = GUICtrlCreateLabel ("50", 277,130,20,20)
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\images\input.gif", 91, 122, 59, 59 )
$Pic4 = GUICtrlCreatePic(@ScriptDir & "\images\songs.gif", 450, 320, 70, 38 )
$fileread = FileRead ("E:\ ")

$list = GUICtrlCreateList( $fileread , 550, 250,300,500)

$FileList =_FileListToArray("E:")

for $x = 1 to UBound($FileList) - 1
    GUICtrlSetData( $list, $FileList[$x], 1)
Next


if $list <> "" Then
$Pic5 = GUICtrlCreatePic(@ScriptDir & "\images\No-CD.gif", 81, 184, 80, 68)
Else
$Pic6 = GUICtrlCreatePic(@ScriptDir & "\images\CD.gif", 81, 184, 80, 68)
EndIf


$sound = SoundSetWaveVolume ( "50" ) 


$Pic6 = GUICtrlCreatePic(@ScriptDir & "\images\non-play.gif", 825, 105, 102, 102)

$button = GUICtrlCreateButton ( "Play", 820, 65,60,20)

$button2 = GUICtrlCreateButton ( "Pause", 880, 65,60,20)

$read = GUICtrlRead ($button)


GUISetState(@SW_SHOW)



While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        
    Case $button
            GUICtrlSetImage($Pic6, @ScriptDir & "\images\play.gif")
        
    Case $button2
            GUICtrlSetImage($Pic6, @ScriptDir & "\images\non-play.gif")
            
    Case $butto
        GUICtrlSetData ($lab,GUICtrlRead($lab)-1)
        GUICtrlSetData ($sound,GUICtrlRead($sound)-1)
        
    Case $butto2
        GUICtrlSetData ($lab,GUICtrlRead($lab)+1)
        GUICtrlSetData ($sound,GUICtrlRead($sound)+1)

    
    EndSwitch
WEnd

[center]Kesne's Bar & Grill[/center]

Link to comment
Share on other sites

1

I tend to use the splash until i am ready to show my GUI...

SplashOff()

GUISetState(@SW_SHOW)

2

You have

if $list <> "" Then

$Pic5 = GUICtrlCreatePic(@ScriptDir & "\images\No-CD.gif", 81, 184, 80, 68)

Else

$Pic6 = GUICtrlCreatePic(@ScriptDir & "\images\CD.gif", 81, 184, 80, 68)

EndIf

maybe.... you want

if $list <> "" Then

$Pic5 = GUICtrlCreatePic(@ScriptDir & "\images\No-CD.gif", 81, 184, 80, 68)

Else

$Pic5 = GUICtrlCreatePic(@ScriptDir & "\images\CD.gif", 81, 184, 80, 68)

EndIf

8)

NEWHeader1.png

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...