Aio İçin Arka Plan Müziği

[HalilYanar]

Konu başlığındanda anlaşılabilineceği gibi Aio yapanlar müzik eklesin diye örnek bir konu açtım. Bu konuda arkaplandaki müziğin örnekleri var.

[img]http://i.imgur.com/6oUZR.png[/img]

Arkaplan müziği eklemek veya çıkarmak için projenizin ayar kısmında ses bölümü vardır orada ayar yapabilirsiniz.

Kendi çapımda bildiğim kadar yardımcı olamaya çalıştım. Dosyanın boyutu 8 Mb çünkü örnek bir müzik olsun istedim.

Konunun tek amacı müzik değil resim ile progress bar yapılabilmeside mevcuttur.+ Menü bar örneğide vardır. + olarak Page.StartTimer' in yararınıda anlamak mümkün...

Arkadaşlar tabikide herkesin hatası olabilir. Ne eksik diyorsunuz o kadar uğraşmama rağmen butonla media playeri durduramadım. Eminim durumu çözmek isteyen olursa üstadlarımız yardımcı olacaktır.

[size="6"]İNDİR : [/size]

[quote]http://www.mediafire.com/?5bz4tmd3bhxrcmx[/quote]

İndirmek istemiyenler için kodlar ;

Page 1 On Show :

NOT = MyMediaDllİnfo Plugini seçilmiş olmalıdır.

[quote]Audio.Stop(CHANNEL_BACKGROUND);

nCurPos = Audio.GetCurrentPos(CHANNEL_BACKGROUND);
nGetLength = Audio.GetLength(CHANNEL_BACKGROUND);
Image.SetProperties("bar", {Width = ((nCurPos/nGetLength))*444})

Grid.SetCellText("Grid1", 0, 0, "Baslik", true);
Grid.SetCellText("Grid1", 1, 0, "Artist", true);
Grid.SetCellText("Grid1", 2, 0, "Album", true);
Grid.SetCellText("Grid1", 3, 0, "Tur", true);
Grid.SetCellText("Grid1", 4, 0, "Zaman", true);
Grid.SetCellText("Grid1", 5, 0, "Hiz", true);
Grid.AutoSizeColumn("Grid1", 0, GVS_BOTH, true, true);
Grid.ExpandLastColumn("Grid1", true);

local fileopen = Audio.GetFilename(CHANNEL_BACKGROUND);

if fileopen then
MediaInfo.Open(fileopen)

Grid.SetCellText("Grid1", 0, 1, MediaInfo.General("Title"), true);
Grid.SetCellText("Grid1", 1, 1, MediaInfo.General("Performer"), true);
Grid.SetCellText("Grid1", 2, 1, MediaInfo.General("Album"), true);
Grid.SetCellText("Grid1", 3, 1, MediaInfo.General("Genre"), true);
Grid.SetCellText("Grid1", 4, 1, MediaInfo.General("Duration/String1"), true);
Grid.SetCellText("Grid1", 5, 1, Math.Round(MediaInfo.Audio("BitRate")/1000, 0).."Kbits", true);

if MediaInfo.General("Cover") ~= "" then
Crypto.Base64DecodeFromString(MediaInfo.General("Cover_Data"), _SourceFolder.."\\image.jpg");
Image.Load("arkaplan", _SourceFolder.."\\image.jpg");
else
Image.Load("arkaplan", "AutoPlay\\Images\\no_disponible.jpg");
end
end
[/quote]

Page 1 On Timer ;

NOT = Burası istediğimiz şekilde progress bar yapabilmemiz için kodlar.

[quote]Page.StartTimer();
nCurPos = Audio.GetCurrentPos(CHANNEL_BACKGROUND);
nGetLength = Audio.GetLength(CHANNEL_BACKGROUND);
Image.SetProperties("bar", {Width = ((nCurPos/nGetLength))*444})[/quote]

Müziği başlat - Durdur butonu ;

[quote]Page.StartTimer(10, 1);
videoz = Audio.GetFilename(CHANNEL_BACKGROUND);
MediaPlayer.Load("Plugin1", videoz);
MediaPlayer.SetVolume("Plugin1", 0);

[/quote]

Kendi Müziğini Çal Kodları ;

[quote]local sec = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "Ses Dosyalari |*.mp3;*.mp4;*.mpeg;*.wma;*.m4a;*.aac;*.ogg;*.flac;*.ape;|", "", "", false, true);

if (sec[1] ~= "CANCEL") then
Audio.Load(CHANNEL_BACKGROUND, (sec[1]));
Audio.Play(CHANNEL_BACKGROUND);
Page.StartTimer(10, 1);
videoz = Audio.GetFilename(CHANNEL_BACKGROUND);
MediaPlayer.Load("Plugin1", videoz);
MediaPlayer.SetVolume("Plugin1", 0);
end
[/quote]

[size="4"]Teşekkürler : KintaRo , Kral__ , Pairs , Nightmare , Realyman ve daha aklıma gelmiyen diğer kardeşlerim.[/size]

Kodlarda emek vardır her yanlışımda tekrar tekrar denedim. Sonuçta pes etmeyerek başardım. Edited June 8, 2012 by HalilYanar