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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 كتب :
السلام عليكم

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

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

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