منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تسريع الصوت فى الفيديو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
 السلام عليكم ورحمة اللة وبركاتة
كيف اقوم بتسريع الصوت فى الفيديو  فى اداة ميديا بلاير عن طريق الاداه TrackBar
بحيث يتم تسريع الصوت فى الفيديو  كلما حركت المؤشر..
وجزاكم الله خيرا

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

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

تحميل ايه أخى ؟ انا بقول عاوز طريقة لتسريع الصوت فى الفيديو
السلام عليكم اخي ابو روضة
نفس الكود الذي تعمل عليه فقط تعديل صغير على النحو التالي قم بتجربته عسى يكون المطلوب
كود :
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
       AxWindowsMediaPlayer1.settings.rate += 0.5
   End Sub
(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

بالفعل أخى هذا ما أريده بالضبط الله يكرمك ويجزيك كل خير
الحمد لله والشكر لله
ولك ايضا اخي ابو روضة
(24-04-19, 03:34 AM)ابراهيم ايبو كتب : [ -> ]
الحمد لله والشكر لله
ولك ايضا اخي ابو روضة

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

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

الاخ ابراهيم ايبو
لم يقصر فى المطلوب تماماً
فكل التحية والتقدير له

للافادة اكثر عملية التزايد تتم كالتالى
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 على شاشة الفيديو
وبتكون قمت بعمل المطلوب خاص الرد الاخير

تحياتى لك
وتمنياتى لك التوفيق
الصفحات : 1 2