Rower1310 Opublikowano 1 Stycznia 2011 Udostępnij Opublikowano 1 Stycznia 2011 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 Więcej opcji udostępniania...
lokuxd Opublikowano 1 Stycznia 2011 Udostępnij Opublikowano 1 Stycznia 2011 pytales juz o to zrob sobie kolejnosc piosenki na zmienno 9i buton5 $x+=1 a buton 6 $x-=1 i masz jak klikniesz (gdy $x=7) butek5 to bedzie 8 piosenka itd a jak 6 to 6 piosenka Do $wiek+=1 Until ŻycieGetMsg() = -3 zbieram + Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
Rower1310 Opublikowano 1 Stycznia 2011 Autor Udostępnij Opublikowano 1 Stycznia 2011 a jak zrobić zmienną ???? Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
lokuxd Opublikowano 1 Stycznia 2011 Udostępnij Opublikowano 1 Stycznia 2011 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 Więcej opcji udostępniania...
Rower1310 Opublikowano 1 Stycznia 2011 Autor Udostępnij Opublikowano 1 Stycznia 2011 ok zaraz zobaczę czy mi się uda Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
Rekomendowane odpowiedzi