15-11-18, 11:22 PM
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل .. أساتذتي الأعزّاء
محبّو .. الستيب فاكتوري
كلّنا نحب أن يكونَ ملفّنا التّنفيذي على أحسن حال و بأفضل وجه .. كلّنا نرغب بـأن يكون مشروعنا التّنفيذي كاملاً و الكمال لله
من هذا باب .. إرتأيت تقديم هذه الإضافة أو اللّمسة الجماليّة أثناء تحزيمنا لمشروعنا
كلّنا نعرف برنامج الميلتيميديا الشّهير 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
أخيرًا .. إن أحسنت فمن الله و إن أسأت فمن نفسي و من الشّيطان
و السّلام عليكم و رحمة الله و بركاته
تحياتي و إحتراماتي
