تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشغيل وايقاف الصوت
#1
السلام عليكم
اقوم بعمل برنامج يحتوي على الصوت والفيديو
كيف يمكن عمل اضافة كود لزر ايقاف الصوت نهائيا
كيف يمكن عمل اضافة كود لزر تشغيل الصوت الى النقطة التي توقف بها الصوت
اي عند الضغط عليه يؤدي الى استمرار الصوت

هذا كوت تشغيل الصوت

" WindowsMediaPlayer1.URL = App.Path & "\Eqlas.mp3"
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

تفضل

PHP كود :
Private Sub Command1_Click()
WindowsMediaPlayer1.URL App.Path "\Eqlas.mp3"
End Sub

Private Sub Command2_Click()
If 
Command2.Caption "ايقاف الصوت" Then
WindowsMediaPlayer1
.settings.mute True
Command2
.Caption "تشغيل الصوت"
Else
WindowsMediaPlayer1.settings.mute False
Command2
.Caption "ايقاف الصوت"
End If
End Sub

Private Sub Command3_Click()
If 
Command3.Caption "ايقاف مؤقت" Then
WindowsMediaPlayer1
.Controls.pause
Command3
.Caption "استمرار"
Else
WindowsMediaPlayer1.Controls.play
Command3
.Caption "ايقاف مؤقت"
End If
End Sub

Private Sub Form_Load()
Command1.Caption "تشغيل"
Command2.Caption "ايقاف الصوت"
Command3.Caption "ايقاف مؤقت"
End Sub 

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم
الجواب قمة الروعة والفائدة
قمت باضافة الاتي:
زر التشغيل الكود

WindowsMediaPlayer1.URL = App.Path & "\2.mp3

زر الايقاف

WindowsMediaPlayer1.Controls.pause

زر الاستمرار

WindowsMediaPlayer1.Controls.play


بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
الجواب قمة الروعة والفائدة
قمت باضافة الاتي:
زر التشغيل الكود

WindowsMediaPlayer1.URL = App.Path & "\2.mp3

زر الايقاف

WindowsMediaPlayer1.Controls.pause

زر الاستمرار

WindowsMediaPlayer1.Controls.play


بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#5
اخي البرنس ياليت تشوف لي هالموضوع
هنا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تشغيل البرنامج دون تسطيب الفيجوال mmali127 2 669 27-12-15, 03:50 AM
آخر رد: awidan76
  [سؤال] برنامج يتعرف على الصوت و ينفذ الأمر تيسير كروما 0 338 02-10-15, 05:35 AM
آخر رد: تيسير كروما
  تشغيل ملف صوتي من نوع WAV في وقت محدد layan2000 20 1,427 07-03-15, 04:59 PM
آخر رد: layan2000
  [سؤال] تحويل الصوت الى نص داخل textbox maro 1 1,068 07-01-15, 11:30 AM
آخر رد: برير مسبل
  كيف يمكن تثبيت vb6 في نظام تشغيل win 8 ahat 1 755 26-08-13, 02:55 PM
آخر رد: ahmed3d
  برجاء معرفة تشغيل الاداة FPSPR70.ocx WAEL ABED 0 400 26-08-13, 04:23 AM
آخر رد: WAEL ABED
  مساعده تشغيل مقطع فيديو 3ssam 0 327 03-07-13, 12:47 PM
آخر رد: 3ssam
  تشغيل برنامج على windows 7 aboezzat84 3 603 15-06-13, 10:00 AM
آخر رد: mmali127
  تشغيل برنامج على windows 7 aboezzat84 0 412 03-06-13, 11:59 AM
آخر رد: aboezzat84
  تشغيل البرنامج كمسؤول 3amo 3 677 05-05-13, 08:39 PM
آخر رد: algroob

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم