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

لما بجرب بهذا الكود يتم تسريع الصوت لكن بكون سريع جدا وانا اريده يتم تسريعه نعم  لكن يكون الكلام مفهوم وكل ما اذوده يتم التسريع خطوة اخرى وهكذا
PHP كود :
 Private Sub TrackBar1_Scroll(sender As ObjectAs EventArgsHandles TrackBar1.Scroll
        AxWindowsMediaPlayer1
.settings.rate 2
    End Sub 
الرد }}}
تم الشكر بواسطة:
#2
(23-04-19, 07:31 PM)ابو روضة كتب :
 السلام عليكم ورحمة اللة وبركاتة
كيف اقوم بتسريع الصوت فى الفيديو  فى اداة ميديا بلاير عن طريق الاداه TrackBar
بحيث يتم تسريع الصوت فى الفيديو  كلما حركت المؤشر..
وجزاكم الله خيرا

لما بجرب بهذا الكود يتم تسريع الصوت لكن بكون سريع جدا وانا اريده يتم تسريعه نعم  لكن يكون الكلام مفهوم وكل ما اذوده يتم التسريع خطوة اخرى وهكذا
PHP كود :
 Private Sub TrackBar1_Scroll(sender As ObjectAs EventArgsHandles TrackBar1.Scroll
        AxWindowsMediaPlayer1
.settings.rate 2
    End Sub 

و عليكم السلام اخي ابو روضة
تفضل هذا ما تحتاجه
كل ما عليك هو تعديل على اداة trackbar
Maximum = 100
Minimum = 0

كود :
   Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
       AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
   End Sub
 
بالتوفيق ان شاء الله  Heart
الرد }}}
#3
(24-04-19, 12:34 AM)trakktour كتب : و عليكم السلام اخي ابو روضة
تفضل هذا ما تحتاجه
كل ما عليك هو تعديل على اداة trackbar
Maximum = 100
Minimum = 0

كود :
   Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
       AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
   End Sub
 
بالتوفيق ان شاء الله  Heart

جزاك الله كل خير أخى الكريم...
هذا الكود لا يقوم بتسريع الصوت بل يقوم بزيادة مؤشر الصوت يجعله بصوت عالى حين الزيادة وصوت منخفض حين الانقاص وانا اريده يقوم بتسريع صوت الفيديو
الرد }}}
تم الشكر بواسطة:
#4
لا انصحك باستخدام البرامج جرب استخدام مواقع الاون لاين المتوفرة فهي مختصرة بدلا من التحميل
الرد }}}
تم الشكر بواسطة:
#5
(24-04-19, 02:09 AM)نادر منتصر كتب : لا انصحك باستخدام البرامج جرب استخدام مواقع الاون لاين المتوفرة فهي مختصرة بدلا من التحميل

تحميل ايه أخى ؟ انا بقول عاوز طريقة لتسريع الصوت فى الفيديو
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#6
السلام عليكم اخي ابو روضة
نفس الكود الذي تعمل عليه فقط تعديل صغير على النحو التالي قم بتجربته عسى يكون المطلوب
كود :
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
       AxWindowsMediaPlayer1.settings.rate += 0.5
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو روضة , elgokr
#7
(24-04-19, 03:10 AM)ابراهيم ايبو كتب : السلام عليكم اخي ابو روضة
نفس الكود الذي تعمل عليه فقط تعديل صغير على النحو التالي قم بتجربته عسى يكون المطلوب
كود :
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
       AxWindowsMediaPlayer1.settings.rate += 0.5
   End Sub

بالفعل أخى هذا ما أريده بالضبط الله يكرمك ويجزيك كل خير
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , elgokr
#8
الحمد لله والشكر لله
ولك ايضا اخي ابو روضة
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: ابو روضة , elgokr
#9
(24-04-19, 03:34 AM)ابراهيم ايبو كتب :
الحمد لله والشكر لله
ولك ايضا اخي ابو روضة

الله يكرمك أخى..

سؤال لو سمحت لو عندك خلفية به.:_
ازاى اجعل رسالة تظهر مع التسريع والتبطيئ هكذا

الرد }}}
تم الشكر بواسطة: elgokr
#10
الاخ ابراهيم ايبو
لم يقصر فى المطلوب تماماً
فكل التحية والتقدير له

للافادة اكثر عملية التزايد تتم كالتالى
PHP كود :
يبداء العد من 
1.0
ويزيد نبياً 
+0.1
ليصبح
1.1
الى ان يصل 
1.9
وينتهى عند
2.0 

فمثلاً انت عامل TrackBar
الحد الادنى 0 والاقصى 10
فهنى اجعل عند اختيار القيمة 0 تعنى القيمة 1.0
واذا تم اختيار القيمة 1 تعنى 1.1
واذا تم اختيار القيمة 9 تعنى 1.9
وبالنهاية عند الاختيارا القيمة 10 تعنى 2.0

اصبح عندك القيمة مثلاً فى معرف وليكن تحت اسم NumRate
فهنا ياتى دور الرد على ردك الاخير
كل ما عليك عمل Label واجعل الخلفية شفافة

ثم قم بكتابة مثل التالى
كود :
Label1.Text = "Playback Speed : " & NumRate & "x"

ويكون هذا السطر اسفل كود قيمة الـ rate
وطبعاً يمكنك عمل هذا السطر فى شرط تحقق اذا كان NumRate = 1.0
فقوم باخفاء Label واذا لم يتحقق فقط بظهور الـ Label

الان كل ما عليك وضع الـ Label على شاشة الفيديو
وبتكون قمت بعمل المطلوب خاص الرد الاخير

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو



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


يقوم بقرائة الموضوع: