إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج

إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج (/showthread.php?tid=27469)

الصفحات: 1 2

إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - عبد العزيز البسكري - 15-11-18

السّلام عليكم و رحمة الله و بركاته

إخواني الأفاضل .. أساتذتي الأعزّاء

محبّو .. الستيب فاكتوري

كلّنا نحب أن يكونَ ملفّنا التّنفيذي على أحسن حال و بأفضل وجه .. كلّنا نرغب بـأن يكون مشروعنا التّنفيذي كاملاً و الكمال لله

من هذا باب .. إرتأيت تقديم هذه الإضافة أو اللّمسة الجماليّة أثناء تحزيمنا لمشروعنا

كلّنا نعرف برنامج الميلتيميديا الشّهير WINAMP

و الذّي أنا شخصيًّا لم أصطّب بحياتي برنامجًا غيره منذ عرفت كلمة الكومبوتر

أثناء عمليّة تثبيتنا له .. سنستمع إلى نغمة كنائسيّة و العياذ بالله .. ترافق تصطيب البرنامج

لا يهمّنا النّغمة .. و إنّما ما وراء النّغمة

كيف يتم إدراج مثل ذلك بمشروعها .. كلُّ حسب هواه ؟؟

لأوّل مرّة على مستوى جميع المنتديات العربيّة و على مستوى جميع المدوّنات

و حصريًّا لمنتديات فيجوال بيسك لكل العرب و جميع منتسبيه

نجهّز النّغمة المراد إضافتها و التي ستكون بصيغة MP3

نفتح برنامج الستيب فاكتوري .. و نضيف هذا السكريبت بال

GLOBAL FUNCTION

نلاحظ داخل هذا السكريبت تسمية النّغمة المشار إليها باللّون الأصفر ..

سكريبت ال GLOBAL FUNCTIONS

كود :

----------------------------------------

-- Setup Factory Bass Player by Abdelaziz El Beskari --

----------------------------------------

cPathDLL = _TempLaunchFolder .."\\bass.dll";   -- required library (http://www.un4seen.com/)

cPathMuz = _TempLaunchFolder .."\\Modh 3arafto allah.mp3"; -- MP3/MP2/MP1/OGG/WAV/AIFF file

BASS_MUSIC_MONO = "2";

BASS_MUSIC_LOOP = "4";

function PlayBassMusic()

hDLL = DLL.CallFunction("kernel32.dll", "LoadLibraryA", "\""..cPathDLL.."\"", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); 

   if (hDLL ~= 0) then 

  fDll = DLL.CallFunction(cPathDLL, "BASS_Init", "-1,44100,0,0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); 

     if (fDLL ~= 0) then 

     sDLL = DLL.CallFunction(cPathDLL, "BASS_Start", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); 

       if (sDLL ~= 0) then 

   iDLL = DLL.CallFunction(cPathDLL, "BASS_StreamCreateFile", "0,\""..cPathMuz.."\", 0, 0, 0, 0,"..BASS_MUSIC_MONO+BASS_MUSIC_LOOP, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

         if (iDLL ~= 0) then

     DLL.CallFunction(cPathDLL, "BASS_ChannelPlay", iDLL..",1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); 

         end 

       end 

     end 

   end 

end 

function UnloadBassMusic()

DLL.CallFunction(cPathDLL, "BASS_Free", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); 

  DLL.CallFunction("kernel32.dll", "FreeLibrary", hDLL, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);

end

الأن نذهب إلى النّافذة ON STARTUP

و نزرع هذا السّطر مثلما تشير الصّورة أدناه ..

كود :

PlayBassMusic()

الأن سنضيف الملف ال Dll المسؤول عن تشغيل النّغمة

تجدونه بالمرفقات

من التّبويب Resources

ثمّ Primer Files

و نقوم بإدراجه مع ملفّات مشروعنا التّنفيذي

ملاحظة : النّغمة و الملف ال Dll مسارهما يكون بنفس الملفّات التّشغيليّة الأخرى لمشروعك أي داخل :

Debug

أخيرًا .. إن أحسنت فمن الله و إن أسأت فمن نفسي و من الشّيطان

و السّلام عليكم و رحمة الله و بركاته

تحياتي و إحتراماتي

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - ابو روضة - 16-11-18

ماشاء الله عيك اخى الكريم فنان لا تأتى الا بكل ما هو جيد ومميز......

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - عبد العزيز البسكري - 16-11-18

(16-11-18, 02:25 AM)ابو روضة كتب :
ماشاء الله عيك اخى الكريم فنان لا تأتى الا بكل ما هو جيد ومميز......

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - الوايلي - 23-11-18

بارك الله فيك اخي الكريم
وللإمام دائما وانت الآن أصبحت من الرواد وكلمة مبدع في حقك قليل

بإنتظار المزيد

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - عبد العزيز البسكري - 24-11-18

(23-11-18, 09:12 AM)الوايلي كتب : بارك الله فيك اخي الكريم
وللإمام دائما وانت الآن أصبحت من الرواد وكلمة مبدع في حقك قليل

بإنتظار المزيد

السّلام عليكم و رحمة الله و بركاته

تسلم يا وايلي يا غالي يا طيّب على كلماتك الرّائعة و شعورك النّبيل

تحياتي واحتراماتي

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - enter3 - 25-11-18

ماشاء الله تبارك الله عليك

فعلا لأول مره اشاهد موضوع من هذا النوع
بارك الله فيك

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - عبد العزيز البسكري - 25-11-18

(25-11-18, 07:20 PM)enter3 كتب : ماشاء الله تبارك الله عليك

فعلا لأول مره اشاهد موضوع من هذا النوع
بارك الله فيك

و فيك بارك الله أخي الكريم .. كل الشكر و المحبة و الشعور الأخوي النبيل لمرورك العطر و كلماتك الطيبة
تحياتي و احتراماتي

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - alsouf - 22-01-19

اخي عبد العزيز اليك 07000 تحية احترام و تقدير على هذا الموضوع الاحترافي

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - sendbad100 - 23-01-19

السلام عليكم

بسبب انقطاعي فترة عن المتابعة لم الحظ هذا الابداع

الله يعطيك العافية اخي وحبيبي/ أ عبدالعزيز البسكري

RE: إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج - عبد العزيز البسكري - 23-01-19

(22-01-19, 07:06 PM)alsouf كتب : اخي عبد العزيز اليك 07000 تحية احترام و تقدير على هذا الموضوع الاحترافي

السلام عليكم و رحمة الله و بركاته
اذا كان تخميني صحيح .. فلك مني كذلك 39000 تحية محبة و تقدير واحترام أخي الغالي
تحيتي و محبتي

(23-01-19, 02:29 PM)sendbad100 كتب :
السلام عليكم

بسبب انقطاعي فترة عن المتابعة لم الحظ هذا الابداع

الله يعطيك العافية اخي وحبيبي/ أ عبدالعزيز البسكري

السلام عليكم و رحمة الله و بركاته
أهلا بالأخ العزيز الغالي .. دائما بالقلب و بالبال .. يكفي أن أرى مرورك العطر أستاذي الكريم
كل الحب و التقدير و الاحترام
تحياتي