سؤال؟؟.... تكرار صوت الموسيقى

x=x+1

if x>5 then

end

endif

علما بأن x = امتداد ملف التشغيل

السلام عليكم

هذا الكود كتبته وانا موجود علي النت .

يرجى تجريبه والرد

Dim swLoop as long

Private sub Form_Load()

MMControl1.FileName = "c:\mytone.mdi"
MMControl1.Command = "Open"
MMControl1.command = "Play"

End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)
swLoop = swLoop +1
	if swLoop = 5 then
  	MMControl1.command ="Close"
	else
MMControl1.Command = "prev"	
MMControl1.Command ="Play"
End if

End Sub

تحياتي لكم

اي مساعدة انا جاهز Prof_1982

السلام عليكم

استعمل الميديا بليير من components

و من الخاصية custom غير تكرار repeat الى ما لا نهاية

اضف timer للفورم و تكست بوكس و اجعل ال interval بتاعه 1000 , وفي كود التايمر اكتب التالي

text1.text=val(text1.text)+1
if val(text1.text)>( mediaplayer1.endposition)*5 then mediaplayer1.stop

اخي هشام سويت تريد ان تردد الملف الصوتي خمس مرات وليس لخمس ثواني... :) على كل حال كود الاخ prof ممكن يفي بالغرض

راجع الكود اخ راكان

مش حيشتغل لخمس ثواني انما لخمسة اضعاف زمن الاغنية

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

hishamnasr كتب:

السلام عليكم

استعمل الميديا بليير من components

و من الخاصية custom غير تكرار repeat الى ما لا نهاية

اضف timer للفورم و تكست بوكس و اجعل ال interval بتاعه 1000 , وفي كود التايمر اكتب التالي

text1.text=val(text1.text)+1
if val(text1.text)>( mediaplayer1.endposition)*5 then mediaplayer1.stop

اقتباس

val(text1.text)>( mediaplayer1.endposition)*5

تعيد 5 اضعاف زمن الاغنية و ليس 5 ثواني

والله يا جماعة لا تاخذوني لاني لا انتبه جيدا هذه الايام.. الكود بتاعك سيعمل اذن :)