هنا

[spyman]

مرحبا:

مثال للبرنامج الي رح نسويه :

شلونك شباب وبنات ,, اول شيء العمل رح يكون بلغة فيجول بيسك

نعمل اليوم برنامج مشغل صوتيات باقل من خمس دقائق , يشغل ملفات الميديا بلير مثل mp3 , wav , wma ,mp4 ,acc الى اخره ,,

خلي نبدي على بركة الله :

افتح اللغة , و اتبع الصور :

1- ادخل للفورم ( المشروع ) التطبيق الخاص بالويندوز ميديا بلير كالتالي : ( غير اسم اداة الويندوز ميديا الى WMP (

2- مثل طريقة اضافة الويندوز ميديا بلير , ضيف النا CommonDialog

3- الان اضف 7 كوماندات واعطي لكل واحد اسم كالتالي

الاول : فتح , الثاني :: اضافة , الثالث :: تشغيل , الرابع :: شاشة كاملة , الخامس ::مسح ملف , السادس :: مسح القائمة , السابع :: خروج ,, وتستطيع ان تزيد او تقلل على راحتك

4- اضف قائمة LIST

5- ادخل الاكواد :

كود الفتح ضع الكود التالي :

CommonDialog1.Filter = "All Files(*.*)|*.*|Windows Meadia Vedio(*.wmv;*.avi)|*.wmv;*.avi|mpeg movie(*.mpeg;*.mpg;*.m1v)|*.mpeg;*.mpg;*.m1v|Auio File(*.mp3;*.mp2;*.mp1;*.wav)|*.mp3;*.mp2;*.mp1;*.wav|Windows Meadia Audio File (*.wma)|.wma"

CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = ""
CommonDialog1.ShowOpen
wmp.URL = CommonDialog1.FileName
List1.Clear
List1.AddItem CommonDialog1.FileName 

كود الاضافة :

CommonDialog1.Filter = "All Files(*.*)|*.*|Windows Meadia Vedio(*.wmv;*.avi)|*.wmv;*.avi|mpeg movie(*.mpeg;*.mpg;*.m1v)|*.mpeg;*.mpg;*.m1v|Auio File(*.mp3;*.mp2;*.mp1;*.wav)|*.mp3;*.mp2;*.mp1;*.wav|Windows Meadia Audio File (*.wma)|.wma"

CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
Exit Sub
List1.Clear
Else
List1.AddItem CommonDialog1.FileName
End If

كود التشغيل :

wmp.URL = CommonDialog1.FileName

كود الشاشة الكاملة :

If wmp.URL = "" Then

MsgBox "", vbExclamation + vbMsgBoxRight, ""
Else
wmp.fullScreen = True
End If

كود مسح الملف :

If List1 = "" Then

MsgBox ""
Else
List1.RemoveItem (List1.ListIndex)
End If 

كود مسح القائمة :

If List1 = "" Then

MsgBox ""
Else
List1.Clear
End If

كود الخروج

END

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

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

اذا اكو مشكلة انا موجود

وسلامتكم

[Daleen]

عاااااااااااااااااااااااا اااشت ايدك اريد اجرب فد يوم اطبق هذه الشغلة
ما مجازفة بيها اني ... ان شاء الله ابلغك بالنتائج ... تقيمي

[Samer]

عاشت الايادي سباي مان .. عمل جدا جدا ممتاز

انته دا تعشق الـ Activex مال الميديا بلير بالبرنامج مالتك .. .. و هذه طريقة ممتاز لإضافة functionality للمشروع بالفيجوال بيسك .. بدون تعب .. لان تستخدم الـ object بكامله بدون عناء برمجته ..مجرد تحدد خواصه و تخلليه يشتغل

بس .. للملاحظة ... عادة البرنامج الـ EXE الناتج من تصدير المشروع .. ما يشتغل على حاسبة ما منصب بيها فيجوال بيسك ما دام تستخدم activex بمشروعك .. الحل هنا هو انه تسويه ملف تنصيبي installation file و تنطيه لشخص ينصبه على حاسبته


لازم اخللي خشمي بالقضية هع

تقييمي

[spyman]

عاااااااااااااااااااااااا اااشت ايدك اريد اجرب فد يوم اطبق هذه الشغلة
ما مجازفة بيها اني ... ان شاء الله ابلغك بالنتائج ... تقيمي

جربي واذا توكفين بشيء انا موجود

والله اذا اتعرفين البرمجة ما تعوفينها لان فعلا حلوة

منورة دالين وشكرا على المرور والتقيم

[spyman]

عاشت الايادي سباي مان .. عمل جدا جدا ممتاز

انته دا تعشق الـ Activex مال الميديا بلير بالبرنامج مالتك .. .. و هذه طريقة ممتاز لإضافة functionality للمشروع بالفيجوال بيسك .. بدون تعب .. لان تستخدم الـ object بكامله بدون عناء برمجته ..مجرد تحدد خواصه و تخلليه يشتغل

بس .. للملاحظة ... عادة البرنامج الـ EXE الناتج من تصدير المشروع .. ما يشتغل على حاسبة ما منصب بيها فيجوال بيسك ما دام تستخدم activex بمشروعك .. الحل هنا هو انه تسويه ملف تنصيبي installation file و تنطيه لشخص ينصبه على حاسبته


لازم اخللي خشمي بالقضية هع

تقييمي

شنو الفلم ؟؟ الاسم اسم اوراكل والصورة الرمزية مالت زهرة مصر . شصاير

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

لكن مو شرط وجود لغة فيجول بيسك بالحاسبة الي رح يشتغل بيها البرنامج ,,, لان البرنامج رح يكون مستقل بحد ذاته , ويكون ملف exe

وعنده برنامج خاص من نوع dll او ocx بالـ system 32 وهذا الاهم وبالتالي ما رح تكون اي مشكلة بالتشغيل


منورنا اخوي الغالي وشكرا على المرور والمداخلة والتقييم

[اوبرا]

اني بالحاسبة ... ما اعرف اشياء كثيرة لكن احب اتعلم
شكرا على الشرح المميز

[spyman]

اني بالحاسبة ... ما اعرف اشياء كثيرة لكن احب اتعلم
شكرا على الشرح المميز

واي شيء تحتاجين احنة موجودين

شكرا جزيلا على المرور الكريم

[Muntader]

حرامات اغلب الصور ماكو منتهي صلاحياتهم

شكرا على الشرح

[spyman]

حرامات اغلب الصور ماكو منتهي صلاحياتهم

شكرا على الشرح

ما اكون سباي اذا ينتهن صلاحيتهن

موجودات كلهن راجع الموضوع

[Suzana]

عزااا بعيني هاي انت شنو