Skocz do zawartości

[Pytanie] Uzupełnienie Buttonów


Rekomendowane odpowiedzi

Witam mógłby mi ktoś uzupełnić w programie który aktualnie piszę $button5 i $button6.

$Button5 odpowiada za włączenie następnej piosenki

$Button6 odpowiada za włączenie poprzedniej piosenki.

Męczę się z tym już chyba 3 dzień i nadal nie wiem jak to zrobić.

Oto kod programu :

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <ListViewConstants.au3>

#include <SliderConstants.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <GuiListView.au3>

#include <Sound.au3>

#NoTrayIcon

#Region ### START Koda GUI section ### Form=

Global $plik

$Form1 = GUICreate("Next Player", 398, 430, 332, 110)

$Group1 = GUICtrlCreateGroup("Opcje Odtwarzacza", 8, 8, 377, 145)

$Button1 = GUICtrlCreateButton("Odtwórz", 24, 48, 107, 25, $WS_GROUP)

$Button2 = GUICtrlCreateButton("Pauza", 144, 48, 107, 25, $WS_GROUP)

$Button3 = GUICtrlCreateButton("Wznów", 264, 48, 107, 25, $WS_GROUP)

$Button4 = GUICtrlCreateButton("Stop", 24, 80, 107, 25, $WS_GROUP)

$Button5 = GUICtrlCreateButton("Next", 144, 80, 107, 25, $WS_GROUP)

$Button6 = GUICtrlCreateButton("Back", 264, 80, 107, 25, $WS_GROUP)

$Input1 = GUICtrlCreateLabel("00:00:00", 52, 24, 57, 20)

GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Slider1 = GUICtrlCreateSlider(144, 24, 225, 17)

GUICtrlSetData($Slider1, IniRead("glosnosci.abc", "Glos", "Glos", ""))

$Button7 = GUICtrlCreateButton("Dodaj Muzykę", 24, 112, 107, 25, $WS_GROUP)

$Button8 = GUICtrlCreateButton("Info", 144, 112, 107, 25, $WS_GROUP)

$Button9 = GUICtrlCreateButton("Exit", 264, 112, 107, 25, $WS_GROUP)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("Lista Odtwarzania", 8, 160, 377, 257)

$List = GUICtrlCreateList("", 16, 176, 361, 233)

GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)

GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$jj = GUICtrlRead($Input1) ;licznik czasu

$czasomierz = _SoundPos($plik) ;licznik czasu

If $czasomierz = $jj Then ;licznik czasu

Else

GUICtrlSetData($Input1, $czasomierz) ;licznik czasu

EndIf

$glosnosc = GUICtrlRead($Slider1) ;glosnosc

SoundSetWaveVolume($glosnosc) ;glosnosc

IniWrite("glosnosci.abc", "Glos", "Glos", $glosnosc) ;zapisywanie glosnosci do pliku

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Button1

$plik = $folder & "\" & GuiCtrlRead($List)

_SoundPlay($plik)

Case $Button2

_SoundPause($plik)

Case $Button3

_SoundResume($plik)

Case $Button4

_SoundStop($plik)

Case $Button5

Case $Button6

Case $Button7

$folder = FileSelectFolder("Wybierz folder.", "", 2)

$search = FileFindFirstFile($folder & "\*.mp3")

While 1

$file = FileFindNextFile($search)

If @error Then ExitLoop

GUICtrlSetData($List, $file)

WEnd

FileClose($search)

Case $Button8

MsgBox(0,"Info","Info")

Case $Button9

Exit

EndSwitch

WEnd

Odnośnik do komentarza
Udostępnij na innych stronach

pod gui napisz $x=1 czyli pierwsza piosenka i zrob if $x=1 then zablokowanie butona cofania zeby nie mozna bylo miec 0 i -1

i piosenki(ich kolejnosc) to zmienna $x&"."&piosenka czyli np: 2.Qlimax 2011:D itd nie bede ci tego robil bo mi sie nie chce;/

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

Odnośnik do komentarza
Udostępnij na innych stronach

 Udostępnij

  • Ostatnio przeglądający forum [Pytanie] Uzupełnienie Buttonów   0 użytkowników
    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...