Jump to content

Musicbox Equalizer


Ex_treme
 Share

Recommended Posts

MusicBox, Ekolayzırlı Müzik Player...

 

T CheckBox = Aynı Parçayı Sürekli Tekrarlar.

RT CheckBox = Rasgele Parçaları Sürekli Çalar.

Bu Çalışma,Link teki çalışmanın Hatalarının fixlenmesi sonucu oluşturulmuştur.

     k511j.pngk515l.png

 

                                          k512x.png

                                                          logo_v2.png

                                                         APZ File

                                                    APZ MediaFire

 

Link Yenilendi,

Edited by Ex_treme
Link to comment
Share on other sites

program kodlamda hata hatasını veriytor sonrada kapatıyor

Kendim sorunsuz Kullanıyorum,Ne bir Hata veriyor nede Başka bir şey Bilgisayarında eksik yazılım olabilir mi?

Örnegin Net FrameWork,Kullandıgın İşletim Sistemini Sorabilir miyim?

Bu Arada Apz yide Atıcam.

Edited by Ex_treme
Link to comment
Share on other sites

  • Editor

Projende hata var.exede sorun yok.Projedeki hatada export ederken dosyalar siliniyor sanırım.İmages klasörü boş ve button lar yok.Sende çalışmadı normal çünkü program dizinleri senin pc ye göre alıyor

Link to comment
Share on other sites

Projende hata var.exede sorun yok.Projedeki hatada export ederken dosyalar siliniyor sanırım.İmages klasörü boş ve button lar yok.Sende çalışmadı normal çünkü program dizinleri senin pc ye göre alıyor

Haklısın güzel Paylaşılamamış eksikler var 

Link to comment
Share on other sites

  • 2 hafta sonra ...
MusicBox, Ekolayzırlı Müzik Player...

 

T CheckBox = Aynı Parçayı Sürekli Tekrarlar.

RT CheckBox = Rasgele Parçaları Sürekli Çalar.

Bu Çalışma,Link teki çalışmanın Hatalarının fixlenmesi sonucu oluşturulmuştur.

     k511j.pngk515l.png

 

                                          k512x.png

                                                          logo_v2.png

                                                         APZ File

                                                    APZ MediaFire

 

Not:Apz de Butonlar Vs yoktur vede koyulmayacaktır.

Link Yenilendi,

yaw kardeşim madem butonları koymayacan o zaman bizim butonları bulmamız için ibr bağlantı ver napacaz şimdi biz bununla ya insan biraz düşünür! :F

Link to comment
Share on other sites

  • 4 hafta sonra ...
  • 3 hafta sonra ...
  • 2 hafta sonra ...
  • 1 ay sonra...
  • 5 ay sonra...
  • 1 ay sonra...

Arkadaşlar Ben Bu Hataları Alıyorum Yardımcı Olabilirmisiniz??????????

 

1.Hata

[spoiler]pre_1389555474__adsz1.png[/spoiler]

 

2.Hata

[spoiler]pre_1389555540__adsz2.png[/spoiler]

 

Global

nSayi=0;
F=0;

System.RegisterActiveX("AutoPlay\\Docs\\rspmp3ocx280pd.ocx");

MP3 = luacom.CreateObject("{3C88113F-8CEC-48DC-A0E5-983EF9458687}");

MP3_Events={}

local Connect = luacom.Connect(MP3, MP3_Events);
if Connect then
		
	function MP3_Events:SpectrumAnalyzer(f60,f170,f310,f600,f1000,f3000,f6000,f12000,f14000,f16000,nPeak)
	
		Progress.SetCurrentPos("Spectrum_F60", f60);
		Progress.SetCurrentPos("Spectrum_F170", f170);
		Progress.SetCurrentPos("Spectrum_F310", f310);
		Progress.SetCurrentPos("Spectrum_F600", f600);
		Progress.SetCurrentPos("Spectrum_F1000", f1000);
		Progress.SetCurrentPos("Spectrum_F3000", f3000);
		Progress.SetCurrentPos("Spectrum_F6000", f6000);
		Progress.SetCurrentPos("Spectrum_F12000", f12000);
		Progress.SetCurrentPos("Spectrum_F14000", f14000);
		Progress.SetCurrentPos("Spectrum_F16000", f16000);
		Progress.SetCurrentPos("Spectrum_FPeak", nPeak);
		
	end
	end
	
	function Trim(sText)
if String.Length(sText) > 16 then
Label.SetProperties("Label1", {TooltipText = sText});
sNew = String.Left(sText, 16).."..."
return sNew
else
Label.SetProperties("Label1", {TooltipText = sText});
return sText
end
end

On timer

Sta = MP3:GetStatus()
Label.SetText("Label2", Sta);
if Sta == "stop" then
if CheckBox.GetChecked("CheckBox1") then
nCount = ListBox.GetCount("ListBox1");
nRastgele = Math.Random(1, nCount);
xPath = ListBox.GetItemData("ListBox1", nRastgele);
ListBox.SelectItem("ListBox1", nRastgele);
MP3:PlayFile(xPath, false)
MP3:EnableSpectrumAnalyzer(true)
end
if CheckBox.GetChecked("CheckBox2") then
sSecilen = ListBox.GetSelected("ListBox1");
if sSecilen ~= nil then
sPath = ListBox.GetItemData("ListBox1", sSecilen[1]);
sFilename = ListBox.GetItemText("ListBox1", sSecilen[1]);
sFilename = Trim(sFilename);
Label.SetText("Label1", "Çalan Şarkı : "..sFilename);
MP3:PlayFile(sPath, false)
MP3:EnableSpectrumAnalyzer(true)
end
end
else
end
Edited by kaan_karabey
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...