تطبيق عملي لمشغل الصوتيات

[adel1952]

تعقيبا على موضوع تشغيل ملفات الصوت بواسطة برنامج فيجول بيسك المنشور على الرابط التالي

http://university.arabsbook.com/forum44/thread10246.html


هذه صورة البرنامج بعد التنفيذ حيث تمت اضافة صورة الموقع وتاريخ اليوم والوقت

بعد اضافة مكون مشغل الصوت

هذه هي الكود سورس للبرنامج

الشرح هذا الكود يخص مكون مشغل الصوت ويوضع بعد الغط مرتين على الامر play



Private Sub Command1_Click()
With MMControl1
.FileName = Label2
.Command = "prev"
.Command = "stop"
.Command = "open"
.Command = "play"
End With
End Sub

هذا الكود الخاص بالامر الخروج من البرنامج
Private Sub Command2_Click()
End
End Sub
Private Sub Dir1_Change()
File1 = Dir1
End Sub


هذا الكود الخاص بمسار المجلدات على الدرايفات

Private Sub Drive1_Change()
On Error Resume Next
Dir1 = Drive1
End Sub


هذا الكود الخاص بالوصول الو موقع الملف في المجلد
Private Sub File1_Click()
Label2.Caption = Dir1 & "\" & File1
End Sub

هذا الكود الخاص باظهار التاريخ والوقت ويكتب في الحقل المخصص للمؤقت بعد اضافته
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
Date_Lab.Caption = Format(Now, "Long Date")
Time_Lab.Caption = Format(Now, "Long Time")
End Sub

الملاحظات تحتاج الى اضافة تايمر وعدد 2 ليبل تعيد تسمية احدهما Date_Lab والاخر Time_Lab


لاظهار شكل ازار التشغيل والخروج من البرنامج كما في الصورة عليك بما يلي:
افتح نويتباد

وانسخ اليه الطور التالية :

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Editeur"
processorArchitecture="X86"
version="4.4.0.0"
/>
<description>Entrez la description du programme ici</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
language="*"
processorArchitecture="X86"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
/>
</dependentAssembly>
</dependency>
</assembly>

ثم قم بحفظه باسم المشروع كما يلي:

افترض ان اسم مشروعك هو project1

فسيكون حفظ الملف باسم وامتداد Project1.exe.manifest

اصف هذا الملف في مجلد المشروع

احفظ المشروع كملف اتفيذى exe ثم قم بتشغيله


تنزيل الملف من الرابط التالي

http://www.mediafire.com/?sharekey=6187096c67d6dc17ab1eab3e9fa335caf98cc6a8df2d8189

تحياتي