المساعد الشخصي الرقمي

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


AHMeD ALAMRi
2010-05-06, 08:49 PM
شرح عمل برنامج مشغل الملفات الصوتية خاص بك

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


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

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

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

http://dc02.arabsh.com/i/01459/eca6cj5n03q8.gif

شرايكم http://www.xp10.me/xp10/r00t/smilies/biggrin.gif

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

ضغط =-=->>>هنا (http://arabsh.com/wamhx4ihdx7v.html)

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

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


http://center.jeddahbikers.com/download.php?img=574480

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

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

http://dc04.arabsh.com/i/01462/9v1rb0j97r5f.jpg

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

http://center.jeddahbikers.com/download.php?img=574481





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

http://dc08.arabsh.com/i/01462/ejmfd3h8tlg8.jpg

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

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

http://dc08.arabsh.com/i/01462/8pshld5gr93h.jpg

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

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

http://dc02.arabsh.com/i/01462/jgatpwm97syb.jpg

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

http://dc07.arabsh.com/i/01462/ch7z088v3d1z.jpg


ونجعل الاداة

windows media player = false

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

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

Common dialog

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

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

http://dc08.arabsh.com/i/01462/cgwh96y986i6.jpg

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

كود 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