Arka Planda Çalan Mp3 Adını Yazdırma Ve Kaydırma

[radyofon]

Merhaba!...

 

Hazırladığım bir projede Project-->Audio menüsünden rastgele modunda eklediğim 8-9 adet mp3 formatındaki şarkının sanatçı ve şarkı adını yazdırabiliyorum. Malum sanatçı adı ve şarkı zaten bir satırda (RIHANNA - Diamonds.mp3 gibi). Fakat bu dosya isminin kayarak yazmasını sağlamak amacıyla eklediğim kodlardaki bir hata nedeniyle mp3 dosyasının adı görünmez oluyor. İlgili apz dosyası ektedir. Yazıyı kaydırma kodları için yardımcı olursanız sevinirim.

 

https://hotfile.com/dl/190374792/f3db686/singer_song.apz.html

Edited January 23, 2013 by radyofon

[pairs]

http://www.tnctr.com/topic/213469-mzik-alar-rnei/

 

bu örnekte yazıyı kaydırma özelliği var.

[radyofon]

http://www.tnctr.com/topic/213469-mzik-alar-rnei/
 
bu örnekte yazıyı kaydırma özelliği var.

@pairs
 
O örnek, listesi olan bir müzik çalara göre olan bir örnek. Sağolasın DivaneTR yardımcı oldu  Fakat benim örneği incelerseniz ve bana bu konuda yardımcı olabilirseniz sevinirim. Edited January 24, 2013 by radyofon

[radyofon]

@pairs

 

Verdiğin örneği inceledim. Oradaki kodlar media playerda oluşturulan listeye göre hareket eden kodlardan oluşuyor. Benim hazırladığım projeye adaptasyonu söz konusu değil. Bende media player listesi yok, media player yok. Yazıları kaydırmayı başarıyorum. Fakat yazıların kayması şarkı bitmeden bittiği için yazıların tekrar geri dönüp kaymaya başlamasını yapamadım. Dediğim gibi arkaplandaki şarkı adı geliyor, yazı kayıyor ama tekrar kaymaya devam etmiyor. Verdiğim apz. deki On Show evresindeki son satır 9.satır fazladan olmuş, onu dikkate almamak silmek gerekiyor. İlgilenebilirseniz sevinirim. Az bir eksiği kaldı.

[pairs]

Dün işlerim biraz yogundu iş yerinde ilgilenmeye çalışacagım.

[pairs]

Projenin On Audio kısmına

 

if e_State == "Finish" then
audiofile = Audio.GetFilename (CHANNEL_BACKGROUND);
path_songs = String.SplitPath(audiofile);
title = (path_songs.Filename);
end

Projenin On Show kısmı bu şekilde olacak.

 

nKontrol = 0;---büyüyüp küçülen yazı
Page.StartTimer(500, 1)---büyüyüp küçülen yazı
audiofile = Audio.GetFilename (CHANNEL_BACKGROUND);
path_songs = String.SplitPath(audiofile);
title = (path_songs.Filename);
Page.StartTimer(1000,20);

Projenin On Timer Kısmıda bu şekilde olacak.

 

if e_ID == 20 then
myChar = String.Left(title, 1);
title = String.Right(title, (String.Length(title)-1));
title = title..myChar;
titleText = String.Left(title, 85);
--Paragraph.SetText("Paragraph1", titleText);
Label.SetText("Label4", titleText);
end

if e_ID == 1 then
if nKontrol == 0 then
Label.SetSize("Label2", Label.GetSize("Label2").Width+10, Label.GetSize("Label2").Height+10)
Label.SetSize("Label3", Label.GetSize("Label3").Width-10, Label.GetSize("Label3").Height-10)
nKontrol = 1;
else
Label.SetSize("Label2", Label.GetSize("Label2").Width-10, Label.GetSize("Label2").Height-10)
Label.SetSize("Label3", Label.GetSize("Label3").Width+10, Label.GetSize("Label3").Height+10)
nKontrol = 0;
end
end

 

[radyofon]

Üstadım büyüyüp küçülen yazıya takılmamak gerek. O ayrı bir şey. Bana lazım olan "Label4". Ve verdiğin bu kodlar çalışmıyor. Aşağıdaki apz dosyası üzerinden yardımcı olabilirsin belki. İçerisinde kesilmiş örnek müzik de var.

https://hotfile.com/dl/190580201/27283ec/singer_song_1.apz.html

Edited January 25, 2013 by radyofon

[radyofon]

Gün içerisinde eklediğim mesajın eklenmediğini fark ettim. Arkaplanda Project--Audio-Add bölümünden random modda eklenen Mp3 müzik dosyasının adının yazdırılmasını ve dosya adını kaydırma işlemini yaptım. Fakat şarkı değişmesine rağmen dosya adı değişmiyor. Acaba bu konuda yardımcı olabilir misiniz? apz dosyası aşağıdadır. Yardımlarınızı bekliyorum.

 

https://hotfile.com/dl/191174088/09181b9/singer_song_2.apz.html

Edited January 29, 2013 by radyofon

[pairs]

on audio kısmındaki kodları doğru yazdıysanız önceki şarkının bitmesinde diğer şarkıya geçecektir.

[radyofon]

şarkılar mp3 olduğu için "On Audio" kısmını hiç kullanmadım. Kullanmam mı gerekiyordu? On Timer kısmına yazdıklarımı On Audio kısmına mı yazmalıyım? Ya da sadece belli kodlarını mı? apz dosyasını inceleyebilir misiniz?

Edited January 28, 2013 by radyofon

[milano88]

mp3 dosyasını audio load ile çaldığına göre tüm ses ile ilgili tüm kodları on audio kısmına yazacaksın örn: if e_State == "Finish" then denildiği zaman o an çalan müzik bittiyse ne yapim diyo mesela sonraki parçayı çaldırıp titleyi değiştirebilirsin bunun gibi oynak yazi içinde sana örnek verim on show kısmına

 

sarki_basligi = "çalan şarkının ismi";

Page.StartTimer(150);

 

on timer

yazim = String.Left(sarki_basligi, 1);

sarki_basligi = String.Right(sarki_basligi, (String.Length(sarki_basligi)-1));

sarki_basligi = sarki_basligi..yazim;

text = String.Left(sarki_basligi, 20);

Label.SetText("Label1", text);

[radyofon]

@milano88

 

Şarkıları audio.load ile çalmıyorum ki. Menüden ekliyorum. Project--Audio--Add menüsünü kullanıyorum.

[pairs]

Verdiğim kodlarda hangi kodları nereye yazmanız gerektiğini gösterdim oradaki kodları düzgün yerleştirmeniz durumunda sıkıntı olmayacaktır.

 

Projenin On Audio kısmına

 

if e_State == "Finish" then
audiofile = Audio.GetFilename (CHANNEL_BACKGROUND);
path_songs = String.SplitPath(audiofile);
title = (path_songs.Filename);
end

Projenin On Show kısmı bu şekilde olacak.

 

nKontrol = 0;---büyüyüp küçülen yazı
Page.StartTimer(500, 1)---büyüyüp küçülen yazı
audiofile = Audio.GetFilename (CHANNEL_BACKGROUND);
path_songs = String.SplitPath(audiofile);
title = (path_songs.Filename);
Page.StartTimer(1000,20);

Projenin On Timer Kısmıda bu şekilde olacak.

 

if e_ID == 20 then
myChar = String.Left(title, 1);
title = String.Right(title, (String.Length(title)-1));
title = title..myChar;
titleText = String.Left(title, 85);
--Paragraph.SetText("Paragraph1", titleText);
Label.SetText("Label4", titleText);
end

if e_ID == 1 then
if nKontrol == 0 then
Label.SetSize("Label2", Label.GetSize("Label2").Width+10, Label.GetSize("Label2").Height+10)
Label.SetSize("Label3", Label.GetSize("Label3").Width-10, Label.GetSize("Label3").Height-10)
nKontrol = 1;
else
Label.SetSize("Label2", Label.GetSize("Label2").Width-10, Label.GetSize("Label2").Height-10)
Label.SetSize("Label3", Label.GetSize("Label3").Width+10, Label.GetSize("Label3").Height+10)
nKontrol = 0;
end
end

[radyofon]

@pairs

 

Yukarıdaki kodlar benim isteğimi sağlamıyor üstadım. apz dosyası üzerinde çalışarak tekrar gözden geçirebilir misin Üstadım.

Edited January 29, 2013 by radyofon

[pairs]

Kodları yanlış eklediğini düşünüyorum.Çünkü bende çalışıyor.Örnek proje

 

http://rapidshare.com/files/1572215928/singer_song.apz

[radyofon]

@pairs

 

rapidshare' den silinmiş üstadım. Neyse artık!... Ben de bu arada yapmayı başarabildim.

[pairs]

http://rapidshare.com/files/1572215928/singer_song.apz izinlerden dolayı erişemiyordunuz şuanda ayarlama yaptım indirebilirsiniz.