تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة نغمات إفتتاحيّة أثناء تسطيب البرنامج
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل .. أساتذتي الأعزّاء
محبّو .. الستيب فاكتوري
كلّنا نحب أن يكونَ ملفّنا التّنفيذي على أحسن حال و بأفضل وجه .. كلّنا نرغب بـأن يكون مشروعنا التّنفيذي كاملاً و الكمال لله
من هذا باب .. إرتأيت تقديم هذه الإضافة أو اللّمسة الجماليّة أثناء تحزيمنا لمشروعنا
كلّنا نعرف برنامج الميلتيميديا الشّهير 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
أخيرًا .. إن أحسنت فمن الله و إن أسأت فمن نفسي و من الشّيطان
و السّلام عليكم و رحمة الله و بركاته
تحياتي و إحتراماتي


الملفات المرفقة
.rar   bass.rar (الحجم : 118.62 ك ب / التحميلات : 98)
قناتنا على اليوتوب
الرد }}}
#2
ماشاء الله عيك اخى الكريم فنان لا تأتى الا بكل ما هو جيد ومميز......
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#3
(16-11-18, 02:25 AM)ابو روضة كتب :
ماشاء الله عيك اخى الكريم فنان لا تأتى الا بكل ما هو جيد ومميز......

قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#4
بارك الله فيك اخي الكريم 
وللإمام دائما وانت الآن أصبحت من الرواد وكلمة مبدع في حقك قليل 

بإنتظار المزيد 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , elgokr , elgokr
#5
(23-11-18, 09:12 AM)الوايلي كتب : بارك الله فيك اخي الكريم 
وللإمام دائما وانت الآن أصبحت من الرواد وكلمة مبدع في حقك قليل 

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

السّلام عليكم و رحمة الله و بركاته
تسلم يا وايلي يا غالي يا طيّب على كلماتك الرّائعة و شعورك النّبيل
تحياتي واحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#6
ماشاء الله تبارك الله عليك

فعلا لأول مره اشاهد موضوع من هذا النوع
بارك الله فيك
الرد }}}
تم الشكر بواسطة: elgokr
#7
(25-11-18, 07:20 PM)enter3 كتب : ماشاء الله تبارك الله عليك

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

و فيك بارك الله أخي الكريم .. كل الشكر و المحبة و الشعور الأخوي النبيل لمرورك العطر و كلماتك الطيبة
تحياتي و احتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: elgokr
#8
اخي عبد العزيز اليك 07000 تحية احترام و تقدير على هذا الموضوع الاحترافي
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد }}}
تم الشكر بواسطة: elgokr , عبد العزيز البسكري
#9
السلام عليكم

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

الله يعطيك العافية اخي وحبيبي/ أ عبدالعزيز البسكري
الرد }}}
تم الشكر بواسطة: elgokr , عبد العزيز البسكري
#10
(22-01-19, 07:06 PM)alsouf كتب : اخي عبد العزيز اليك 07000 تحية احترام و تقدير على هذا الموضوع الاحترافي

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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة و نسخ الخطوط الخاصّة لمجلّد خطوط الوينداوز عبد العزيز البسكري 2 3,700 08-05-23, 12:03 AM
آخر رد: ابو محمد محمد محمد
Video [درس فيديو] تقارير الكريستال ريبورت وتغيير مسار الصور أثناء التشغيل رمضان272 0 1,607 28-03-22, 03:18 AM
آخر رد: رمضان272
  معالجة التنبيهات في البرامج (استقبال تنبيهات داخل البرنامج) Dev Express ابو ليلى 9 9,267 10-02-22, 09:55 PM
آخر رد: عبدالحميد حسني
  [مقال] إضافة تقارير Crystal report إلى فيجوال 2010 اسامه الهرماوي 3 5,304 05-10-21, 01:38 PM
آخر رد: mohameddahab867
  تنفيذ سكربت القاعدة مع انطلاق البرنامج + تحديث التعديلات على القاعدة ابو ليلى 2 5,063 02-07-21, 09:05 PM
آخر رد: naserflaha71
  [مقال] إضافة خاصية التحجيم التلقائي - AutoSize - إلى أداة مربع النص - TextBox sooriaty03 10 12,034 21-03-21, 09:53 PM
آخر رد: عبد الهادي بهاب
  طريقة إضافة اختصار للصنف في شاشة المبيعات ملهمـ 5 5,905 14-07-20, 12:24 PM
آخر رد: ابراهيم ايبو
  قاعدة بيانات مضمنة مع البرنامج viv 4 4,185 27-09-18, 08:01 PM
آخر رد: viv
  [درس فيديو] شرح ربط البرنامج بقاعدة بيانات, إدراج حذف تعديل جلب البيانات ( بدون أن تكتب سطر واحد) عبدالله الدوسري 4 6,449 08-02-18, 12:55 AM
آخر رد: Ameer Eagle
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 3,854 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم