[ D3M-TeaM ]

 


ملحوظة : التسجيل الآن فى المنتدى مجاني سارع الان بالتسجيل

العودة   [ D3M-TeaM ] > دعم تطوير المواقع > قسم لغات البرمجة
الدعم الفني ارشفة مواضيع منتداك دليل المواقع - Dir


الملاحظات

قسم لغات البرمجة كل ما يخص لغات البرمجة ومتطلباتها php و asp و Ajax و Java و Html وغيرها .


اعلانك هنا يحقق لك الشهرة والنجاح

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 2010-05-06, 09:49 PM
AHMeD ALAMRi AHMeD ALAMRi غير متواجد حالياً
HacKeD
 
تاريخ التسجيل: Jan 2009
الدولة: بــ المانيا ههههههه
المشاركات: 73
معدل تقييم المستوى: 8
AHMeD ALAMRi is on a distinguished road
افتراضي شرح عمل برنامج مشغل الملفات الصوتية خاص بك


شرح عمل برنامج مشغل الملفات الصوتية خاص بك

السلام عليكم ورحمة الله


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

اول شي نشوف البرنامج مع الشرح

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


شرايكم

للتحميل البرنامج

ضغط =-=->>>هنا

نبلش في شرح البرنامج

الاداوات المستخدمة برنامج الفيجوال بيسك6



وهذه الصوره اذا تبيها

من خلفية سطح المكتب اللي بجهازي


يصير شكل البرنامج جذي






واختار مثل بصوره اللي موضحهم لك


ونضيفها للمشروع

ونرجع نفس الخطوات ونختار


ونفس الشي نضيفها للمشروع

ثم نضيف الازرار بمشروعنا تابعو معي


ونغيرهم الى الاسماء اللي نبيها



ونجعل الاداة

windows media player = false

ونغير اسمها الى wmp

ونعدل على اداة

Common dialog

ونغير اسمها الى cd

وفي الاخير راح نحصل البرنامج جذي


والحين مع الاكواد

كود play

كود:
Private Sub Command1_Click()

كود:
 
If Command1.Caption = "Play" Then wmp.Controls.play
Command1.Caption = "Pause" ElseIf Command1.Caption = "Pause" Then wmp.Controls.pause Command1.Caption = "Play" End If Command2.Enabled = True End Sub

كود Stop


كود:
Private Sub Command2_Click()


كود:
 
wmp.Controls.stop Command2.Enabled = False
End Sub

كود open


كود:
Private Sub Command3_Click()


كود:
 
cmd.DialogTitle = "open Song" cmd.Filter = "Fichier mp3|*.mp3|Fichier wma|*.wma|all files|*.*"
cmd.ShowOpen If cmd.FileName = "" Then Exit Sub wmp.URL = cmd.FileName Command1.Caption = "Pause" Command2.Enabled = True End Sub

كود v+

كود:
Private Sub Command4_Click()


كود:
 
wmp.settings.volume = wmp.settings.volume + "50" End Sub

كود V-

كود:
 Private Sub Command5_Click()


كود:
 
wmp.settings.volume = wmp.settings.volume - "50" End Sub

كود المبرمج

كود:
Symbol = 0


كود:
 
MsgBox " AHMeD ALAMRi :: ySr@HoTMaiL.CoM ", Symbol, "المبرمج"

كود الخروج


نضيفة في الجينرال



كود:
Sub SlideWindow(frmSlide As Form, iSpeed As Integer)


كود:
 
While frmSlide.Left + frmSlide.Width < Screen.Width DoEvents
frmSlide.Left = frmSlide.Left + iSpeed Wend While frmSlide.Top - frmSlide.Height < Screen.Height DoEvents frmSlide.Top = frmSlide.Top + iSpeed Wend Unload frmSlide End Sub

كود الزر


كود:
Call SlideWindow(Form1, 250)



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



تم الشرح من قبل احمد العامري



HaCkEr AHMeD ALAMRi




__________________



للاشتراك بدورة الفوتوشوب

ضغط =-=-=-> هنا

للأشتراك بدورة حماية الاجهزه

ضغط =-=-=->>>هنا

لـــ طلب الاشراف بالمنتدى

ضغط =-=-=->هنا
للتواصل
[]

التعديل الأخير تم بواسطة KIGO-EGYPT ; 2010-05-07 الساعة 12:01 AM
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
مشغل, الملفات, الصوتية, برنامج, بك, خاص, شرح, علم


الذين يشاهدون محتوى الموضوع الآن : 1 ( المطورين 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
برنامج نقل الملفات ببروتوكول الاف تى بى ftp صدفه قسم تطوير المواقع 1 2010-02-08 02:25 PM
برنامج يخفي الملفات والمجلدات صدفه البرامج المشروحة المجانية 0 2010-01-23 01:59 PM
برنامج Securase 3.0 برنامج ازالة الملفات الضارة والاخطاء من الجهاز صدفه البرامج المشروحة المجانية 0 2010-01-23 01:51 PM
مشغل فلاش Flash Lite 2.1 Symbian Masry قـسـم الـجـوال 0 2009-08-12 11:53 PM
برنامج إستعادة الملفات فقط لـــ LinuX !!! MIDO-EGYPT نظام لينوكس - Linux 1 2008-12-30 02:05 AM


الساعة الآن 04:07 PM


RSS Feeds احدث مواضيع المنتدى

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2016, vBulletin Solutions, Inc.