التعامل مع الصوتيات بالفيجوال دوت نت [الأرشيف]

مشاهدة النسخة كاملة : التعامل مع الصوتيات بالفيجوال دوت نت

MIX

12-23-2007, 11:26 PM

بسم الله الرحمن الرحيم
اليوم .. بنطبق تشغيل الملفات الصوتيه ببرنامج... الفيجوال بيسك دوت نت

الحين انا استخدم Microsoft Visual Basic 2005 Express Edition

لاني مثبت ..SQL Server Management Studio بسبب حجمه الكبير

ملاحظه اصل الشرح لخونا
supersmart2007 (http://www.vb4arab.com/vb/member.php?u=14572)

طبعا حفظن للحقوق مع تعديلات عليه مني.اناااا

المهم ندا الشرح الغرض.. التظوير والعلم ...

نبدا الشرح بسم الله

افتح مشروع جديد.. سمّه MP3_Playr

ونظيف عليه اداة الميديا بلير...

تابع الصوره

http://www.barqalshamal.com/upload/folder1/elite_qFm0Du4nlA.JPG

http://www.barqalshamal.com/upload/folder1/elite_wZ8x4rAsVk.JPG

http://www.barqalshamal.com/upload/folder1/elite_A0rtBfrLj.JPG

الشكل الهائي لبرنامج يكن كذا

الادوات الستخدمه

BUtton 4

Windows Media Playerنغير اسمها الى MIX

ونغير ايضا من خاايص المديا بلير الخاصه

في uiMode الى none
http://www.barqalshamal.com/upload/folder1/elite_mFQPftmlhz.JPG

,والغرض من هذي الخاصيه اخفاااء المديا بلير ليظهر كما في الشكل النهائي بس لو ما غيرتها بيصير الي قدامك ميديا بلير عادي ما سويت اي اختلاف فيه

عشان كذا نضع هالتغيير في

OpenFileDialog1نغير اسمها الى sul

طبعا يكون تغيررر الاسم في Name خاصية الاسم

نكتب في البوتن
Play خاص في تشغيل الاغنية او الفيديو
stop لتوقيف الاغنية او الفيديو
pause للتوقيف الموقت

كود زر التوقف نضغط دبل كلك على زر التوقيف وظهر لن شااشه محرر الكود نكتب لكود التالي

MIX.Ctlcontrols.stop()

وفي زر التشغيل مثل السابق نضع الكود التالي

MIX.Ctlcontrols.play()

وفي زر التوقيف الموقت نضع الكود التالي

MIX.Ctlcontrols.pause()

طيب لو ضغطت الزر الي يوقف الصوت بيوقفه؟؟؟ ولو ضغطته مره ثانيه بيوقف الصوت الي هو اصلا واقف؟؟ وش نسوي نجري التعديل التالي على الكود

If MIX.playState = WMPLib.WMPPlayState.wmppsPlaying Then

MIX.Ctlcontrols.pause()

Else

MIX.Ctlcontrols.play()

End If

يعني لو شغال وقفه ولو واقف شغله

كما قلنا فووووق عشان تضيف اغنية لازم يفتح لك مربع حوار؟؟؟ ماهي الاداة.. الاداه هي

OpenFileDialog1نغير اسمها الى sul

وتكتب في خاصيةfilter

التالي

all supported files|*.mp3;*.wav;*.avi;*.wmv|mp3 files|*.mp3|wave files|*.wav|avi files|*.avi|wmv files|*.wmv

طيب لو حنا نبي بس MP3

mp3 files|*.mp3

للحين ماشيين صح

نكتب الكود الخاص في جلب الاغنية او الفيديو

في زر جلب الاغنيه او الفيديو نكتب الكود التالي

If sul.ShowDialog = Windows.Forms.DialogResult.Cancel Then

ExitSub

EndIf
MIX.URL = sul.FileName

وبالنهايه اتمنى اني قد اوصلت المعلومه بالشكل لمطلوب...

تحياتي للجميع بدون استثناء واي سؤال انا حاضر واي اشكال انا حاضر

تحياتي للجميع

المستـشار

12-24-2007, 12:50 AM

http://www.swahl.com/up/m118/swahlcom_f31d.jpg (http://www.swahl.com/up)
حياك الله أخوي

موضوع قيم

جزاك الله خير

MIX

12-24-2007, 02:43 AM

http://www.swahl.com/up/m118/swahlcom_f31d.jpg (http://www.swahl.com/up)
حياك الله أخوي

موضوع قيم

جزاك الله خير

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

شاكر لك اخوي المستشار على عذب مرورك

كم اسعدني تواجدك يالغال

تحياتي لك

sweety

12-26-2007, 07:54 PM

الله يعطيك العافية MIX
كنت ابغى اطبق الدرس بس مالقيت اداة windows media player عندي
ما أدري ليش؟؟

الصقر الشمالي

12-26-2007, 07:58 PM

اممممم

هلا والله فيك مشرفناا

ماشاء الله عليك .. شررح كافي ووافي ..

بارك الله فيك وفي مجهوداتك

واصل يا بطل

الصقر

الاميرة الهادئة

12-26-2007, 08:26 PM

ماشاء الله موضوع رائع

جزاك الله خير الجزاء في الدنيا والاخره

MIX

12-27-2007, 04:06 AM

الله يعطيك العافية MIX

كنت ابغى اطبق الدرس بس مالقيت اداة windows media player عندي
ما أدري ليش؟؟

حيااك لله ياختي

اول شي اداة ويندوز ميديا بلير ما تكون موجوده بالادوات لازم تسوين لها جلب

http://www.barqalshamal.com/upload/folder1/elite_qFm0Du4nlA.JPG

تفتحين الفيجوال وتضغطي على ALL windows Forms

تنسدل لك قائمة نختار منهاChoose Items

تفتح لك القائمة التاليه
http://www.barqalshamal.com/upload/folder1/elite_wZ8x4rAsVk.JPG

تضغطين على com componets
اسحبي السهم الى تحت وبتحصلين .. الويندوز ميديا بلير
واذا اشكل عليك الامر .بشرحها لك فيديوا

تحياتي واي استفسار انا حاظر

MIX

12-27-2007, 04:13 AM

اممممم

هلا والله فيك مشرفناا

ماشاء الله عليك .. شررح كافي ووافي ..

بارك الله فيك وفي مجهوداتك

واصل يا بطل

الصقر

الله يحيك ويسعدني تواجدك ..

وكل عام وانت بخير يالصقر
تحياتي

MIX

12-27-2007, 04:39 AM

ماشاء الله موضوع رائع

جزاك الله خير الجزاء في الدنيا والاخره

اللهم امين

واشكرك على مرورك

تحياتي

sweety

12-29-2007, 12:24 PM

تضغطين على com componets

انا ما انتبهت لها الخطوة

بس الحمد لله الحين ضبط

http://up101.arabsh.com/my/eb58ced.jpg

الله يعطيك العافية

موفق ان شاء الله

MIX

12-29-2007, 12:30 PM

انا ما انتبهت لها الخطوة

بس الحمد لله الحين ضبط

http://up101.arabsh.com/my/eb58ced.jpg

الله يعطيك العافية

موفق ان شاء الله

مشاء الله اخت سويتي

واضح التطبيق

بس تقدرين تضيفين عليه بعد تصاميم

مثل التسريع والتقديم والتاخير

وجاري شرحها بالفيدو بذن الله

ورفع الصوت واخفاضه

بس نبي نجمع اكبر عدد من امتدادات الصوت عشان نكمله برنامج

يدعم جميع الصيغ بمافيها امتدادات الفيديوا

والله الله ساعدوني بالامتدادات بس

وبتشوفون الي يسركم بذن الله

موفقه يا بنت الحلال

تحياتي

sweety

12-29-2007, 07:53 PM

مشاء الله اخت سويتي

واضح التطبيق

تتكلم جد :1:

بس تقدرين تضيفين عليه بعد تصاميم

مثل التسريع والتقديم والتاخير

وجاري شرحها بالفيدو بذن الله

ورفع الصوت واخفاضه

جربتها هو اهم شيء الواحد يعرف الأساس بعدين كل شيء يمشي

بس نبي نجمع اكبر عدد من امتدادات الصوت عشان نكمله برنامج

يدعم جميع الصيغ بمافيها امتدادات الفيديوا

والله الله ساعدوني بالامتدادات بس

وبتشوفون الي يسركم بذن الله

الصراحة ما فهمت عليك

وضّح و ان شاء الله نساعد باللي نقدر عليه

MIX

12-30-2007, 11:24 AM

تتكلم جد :1:

جربتها هو اهم شيء الواحد يعرف الأساس بعدين كل شيء يمشي

الصراحة ما فهمت عليك

وضّح و ان شاء الله نساعد باللي نقدر عليه

حياك الله يا اختي

اول شي اي اتكلم جد

ثاني شي احمد ربي انك عرفتي الاسااس بالتطبيق

ثالث شي انا قصدي يعني الحين فيه اكثر من برنامج صوتي وكل برنامج له .امتداد. الحين الامتدادات هذي
mp3;*.wav;*.avi

بي ام ثري صوتي ووين فيديوا واي في اي فيديوا

ومن ظمن البرامج الكويك <شنو الامتداد الخاص فيه ؟؟ هل هو.avi??

والويندوز ميديا ماهي الصيغ. الي يقوم بتشغيلهاا؟؟

وبرنامج الكوداك تبع الاكواد ماهي الصيغ الي يعدمهاا؟؟

والريل بلير؟ ماهي الصيغ الي يدعمهاا؟؟

نبيه برنامج متكامل بذن الله بسماعدتكم طبعاا...

اتمنى اني وصلت الفكره كامله لك اختي ولجميع الاخوه

تحياتي

المهره الأصيله

12-31-2007, 08:25 PM

++c

12-31-2007, 08:52 PM

يعطيك العافية Mix على هذا الشرح ونتمنى منك المزيد من ابداعاتك البرمجيه

MIX

01-07-2008, 12:08 AM

بالاوله:هلابك والله يامشرفناا
والف مبرووووك على المنصب الجدييييييد
اسعدتنااا بإنظماااامك والله

وبالثانيه:
سلمت والله يااخوي
وسلمت يمناااك والله
درسك رااااااااااااااائع
ومجهوووووودك الاروع يامشرفناا

ومن جد حمستني كثيييير
ولا غرت من سويتي البطه بعد يوم طبقت :(
ههههههههههههههههههه

وبالثالثه:
في شئ انا وقفت ومااقدرت اطبق
الللي هو ان اصدارك
Microsoft Visual Basic 2005 Express Edition
وانا اللي عندي
Microsoft Visual Basic 6.0

قولي بالله عليك وش السوات..؟
المشكله الاصدار يختلف عن اصدارك ووقفت هنااا
وحاولت اني افتش فيه بس مختلف
طيب سؤالي...
لازم الحين يكون مثل إصدارك والا عادي ممكن اقدر اتبع معاك الخطوات
بنفس اللي عندي مع اختلاف شوي..؟

ومعليش يمكن نكون جهلنا في هالنقطه بس حلو إنا نكسب معلومه باللي احسن منا بهالشئ

وادري فيك اجودي وماراح تقصر معنااا

اول شي اسف على تاخري بالرد يا بنت الحلال

وثاني شي الله يبارك فيك ويطول عمرررك

وثالث شي يسعدني حمااسك والله

وبالنسبه كلكم فيكم الخير والبركه وكل اعضاء المنتدي ومشرفين

وبالنسبه للفيجوال بيسك اصدار سته6

انا ماستخدمته نهائيا ابداا

اول ماشتغلت على فيجوال بيسك اصدار 2003 بعد ذلك على 2005 دوت نت جميعها والحين 2008

وبالنسبه للفيجوال فيه الكاامل بصيغه ديفيدي ورابطه تحصلينه يابنت الحلال

في هذاالرابط هذا بروفيشنااااال

http://www.barqalshamal.com/vb/showthread.php?t=14651

وبالنسبه لاكسبرسس 2008 وتراني انصح فيه بقوه والله دخلت عليه مستجدات تساعدك بكل شي

خصوصا الدفيدي والي جهازه ما يساعده يحمل الرابط التالي

من ميكروسفت على طووول وحجمه 800 وعليها فرااطه وهو رائع يخدم بشكل كبير

http://download.microsoft.com/download/8/B/5/8B5804AD-4990-40D0-A6AA-CE894CBBB3DC/VS2008ExpressENUX1397868.iso

وهو فيه اختلاف كبير والافضل يا اختي تستخدمين الدوت نت لانه يشمل على التطورات الحديثه
ومعليش يمكن نكون جهلنا في هالنقطه بس حلو إنا نكسب معلومه باللي احسن منا بهالشئ

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

ومساله جهل ماهو بجهل انا تعلمت بدذاتي ولا درست ولا شي ولاحتى برمجه بديت من الصفر حبه حبه لين ربك مكنا بالي يفيدكم وانا واثق ياختي دام فيك روح الحماس والله ماعتقد فيه شي بيشكل عليك وان اشكل لاسمح الله تاكدي انك محل اهتمام الجميع

واسف على التاخير

تحياتي

MIX

01-07-2008, 12:16 AM

يعطيك العافية Mix على هذا الشرح ونتمنى منك المزيد من ابداعاتك البرمجيه

هلا والله منورررررررررررررررررررر

حياك ربي

دام شرواك موجود نبي نبدع

يا بعد قلبي والله

sweety

01-07-2008, 08:19 PM

ومن جد حمستني كثيييير
ولا غرت من سويتي البطه بعد يوم طبقت :(
ههههههههههههههههههه

الله يسامحك يا المهرة
:no::no::no:

sweety

01-07-2008, 08:27 PM

للمعلومه انا ما درست حاسب آلي ابدا

ومساله جهل ماهو بجهل انا تعلمت بدذاتي ولا درست ولا شي ولاحتى برمجه بديت من الصفر حبه حبه لين ربك مكنا بالي يفيدكم وانا واثق ياختي دام فيك روح الحماس والله ماعتقد فيه شي بيشكل عليك وان اشكل لاسمح الله تاكدي انك محل اهتمام الجميع

ما شاء الله عليك اخوي Mix

عندي سؤال اذا ممكن

ماهو السبب الذي دفعك الى تعلم البرمجة؟
في احد كان يشجعك؟؟؟؟ مين ؟

موفق ان شاء الله

MIX

01-07-2008, 11:01 PM

ما شاء الله عليك اخوي Mix

عندي سؤال اذا ممكن

ماهو السبب الذي دفعك الى تعلم البرمجة؟
في احد كان يشجعك؟؟؟؟ مين ؟

موفق ان شاء الله

اول حياك ربي

و اول شي الي دفعني لتعلم البرمجه رغبه مني حب التعلم رغم الصعوبات الي تواجهني في البرمجه

ولكن الحمد لله كل ما قابلت صعوبه ربك يحلها0000

نعم حصلت شخصين واحد من منطقه الرياض وهو دكتور في قسم الحاسب الالى يلقى محاضرات برمجيه ومولف كتاب عن الجافا اكثر من 900 صفحه000

ومدير قسم حاسب الى في اداره تربية للبنات في منطقه من مناطق المملكه يسعدني ان اشكرهم لكلامهم النبيل والتشجيع واسال الله العظيم ان يحفظهم من كل مكروه وايكم اجمعين0

كما اتمنى ان اتقن قواعد البيانات sql server 2005

لما لها دور كبير حاليا في كثير من المجالااات

وسوف يتم اكمال بقيه الدرس من حساااب مدة المقطع الصوتي او الفيديوا

وكذلك سوف يتم شرح تقديم وتاخير المقطع في شرح مفصل ليتكامل الموضوع

تحياتي

[/CENTER]

الاميرة الهادئة

02-01-2008, 08:27 PM

<<< جايه بدري
لو سمحت اخوي الله يعطيك العافيه انا يوم
طبقت الدرس طلع عندي غلط بهذا الكود الي في زر جلب الاغنيه ؟؟؟؟

وفي سوال ثاني في زر جلب الاغنيه ايش اكتب الاسم ؟؟؟؟؟ (( الغلط الي بالاحمر ))
If sul.ShowDialog = Windows.Forms.DialogResult.Cancel Then
ExitSub

EndIf
MIX.URL = sul.FileName

MIX

02-01-2008, 10:37 PM

مافيه اي مشكله بس لو سمحتي نزلي الكود كامل وبذن الله خير

لاني ابي اشوف الكود من اوله

ولدي سؤال: هل قمتي بتغيير اسماء الادوات في الخصائص..يعني بصندوق الخصائص او لا؟؟؟

يعني مثل غيرتي OpenFileDialog1 الى sul في خاصية الاسم او لا؟؟

تحياتي

الاميرة الهادئة

02-01-2008, 11:48 PM

ولدي سؤال: هل قمتي بتغيير اسماء الادوات في الخصائص..يعني بصندوق الخصائص او لا؟؟؟

يعني مثل غيرتي OpenFileDialog1 الى sul في خاصية الاسم او لا؟؟

ايووه غيرتها وطبقت نفس الكلام .... بس زر جلب الاغنيه انت ماكتبت اسمه
وبعد زرالتوقف كل ما جيت اكتب اسمه يطلع
Identifier 'stop' is not valid.

والمهم هذي صورة الخطا الي طلع بعد ما اخترت start.....

http://www.barqalshamal.com/upload/folder1/elite_aoUvXsOcC8.gif
http://www.barqalshamal.com/upload/folder1/elite_U14Ya4U53f.gif
http://www.barqalshamal.com/upload/folder1/elite_VOHRJR5sLP.gif

الله يعين عاد تحملنا اخووي

نمر الشراري

02-02-2008, 04:22 PM

الله يعطيك العافية يا مشرفنا ومبرمجنا هنا وبالادارة

وصراحه شرح واافي واسمح لي اجااوب عنك للاخت يا ابو سلطان

خذي الكود هذا جربيه

PublicClass Form1
PrivateSub OpenStateChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If sul.ShowDialog = Windows.Forms.DialogResult.Cancel Then
EndIf
MIX.URL = sul.FileName
EndSub

والمطلوب تغيير الحدث الى open state change

وحذف Exitsup

يعني انتي عندك بداية الكود من كلمة Private Sub حلو اجل بعدها في عندك بوتن 3

لاخليها
OpenStateChange
حلو احذفي exit sup
http://www.barqalshamal.com/upload/folder1/elite_flOXYJ8uh5.JPG

يجيك الكود بالنهاية كذا
طبعا الكود هذا لجلب الاغنية وتشغيل الفيدو

والله الحقيقه موضوع يا ابو سلطان قمة قه الله يعطيك العافية

تحياتي لك

الاميرة الهادئة

02-04-2008, 11:28 PM

تسلم والله اخوي نمر

جزاك الله خير وابشرك خلاص ضبطت

نمر الشراري

02-05-2008, 02:28 AM

الله يحيك يالاميرة بس بقول لك شي حاولي تركزين بالبرمجه لان التركيز اهم نقطه في البرمجه

تحياتي

الاميرة الهادئة

02-05-2008, 02:32 AM

مشكور اخوي بس انا مبتدئه ومن الصفر بعد وبالفعل تحتاج تركيز ودقه

نمر الشراري

02-05-2008, 02:34 AM

طيب لي سؤال قريتي المتغيرات بالفيجوال بيسك .. والشروط فيه

والا تبين اعطيك مختصر عنها ليكون عندك تصور للي تبين تشتغلين عليه؟؟؟

تحياتي

الاميرة الهادئة

02-05-2008, 02:42 AM

في موضوع لسويتي يتكلم عن المتغيرات وهذا الكلام بس بصراحه ما قراته كويس ؟؟؟

على هذا الرابط
http://www.barqalshamal.com/vb/showthread.php?t=13213
وراح ارجع اقراه اذا كان ضروري

نمر الشراري

02-05-2008, 02:48 AM

الله يعطيها الف عافيه وربي

وللمعلومه لازم تعرفين المتغيرات لانها تعتبر اساسيات الفيجوال بيسك ووالشروط لانها متاادخله مع بعضها البعض وسهله

وللمعلومه اغلب الي اعرف عنهم قوه البرمجه تعلموها رغبة منهم وقليل الي معاهم شهايد حاسب الى

تحياتي الله يوفقك والبرمجه هي الجيل القادم