منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تسريع الصوت فى الفيديو - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تسريع الصوت فى الفيديو (/showthread.php?tid=29462)

الصفحات: 1 2

RE: تسريع الصوت فى الفيديو - ابو روضة - 24-04-19

(24-04-19, 06:09 AM)elgokr كتب :
الاخ ابراهيم ايبو
لم يقصر فى المطلوب تماماً
فكل التحية والتقدير له

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

تحياتى لك
وتمنياتى لك التوفيق

الله يسعدك أخى العزيز ويبارك بعمرك ووقتك...
انا الان حذفت الTrackBar لآنى لما بحاول ارجع الصوت كما كان يزيد أكثر ولا يتم التبطيئ
وجعلت الكود داخل زرين واحد للزيادة واخر للنقصان بال _ بدل ال +
وبيظهر هذا لما نفذت الطريقة أى لا يزيد الا 1 x فقط ومهما ازود لا يزيد
كود :
Dim NumRate As Integer = 1

كود :
AxWindowsMediaPlayer1.settings.rate += 0.1
       Label1.Text = "Playback Speed : " & NumRate & "x"

كود :
AxWindowsMediaPlayer1.settings.rate -= 0.1
       Label1.Text = "Playback Speed : " & NumRate & "x"




فمعذرة أخى ممكن الكود كامل لآن دماغى والله مشغولة بكذا حاجة ومش مركز أصلاً

RE: تسريع الصوت فى الفيديو - elgokr - 24-04-19

خارج نطاق اى حدث
كود :
    Private NumRate As Double = 1

الكود الخاص بـ +
كود :
      AxWindowsMediaPlayer1.settings.rate += 0.1
       NumRate += 0.1
      Label1.Text = "Playback Speed : " & NumRate & "x"

الكود الخاص بـ -
كود :
      AxWindowsMediaPlayer1.settings.rate -= 0.1
       NumRate -= 0.1
      Label1.Text = "Playback Speed : " & NumRate & "x"

تحياتى لك
وتمنياتى لك التوفيق


RE: تسريع الصوت فى الفيديو - ابو روضة - 24-04-19

(24-04-19, 09:07 AM)elgokr كتب : خارج نطاق اى حدث
كود :
    Private NumRate As Double = 1

الكود الخاص بـ +
كود :
      AxWindowsMediaPlayer1.settings.rate += 0.1
       NumRate += 0.1
      Label1.Text = "Playback Speed : " & NumRate & "x"

الكود الخاص بـ -
كود :
      AxWindowsMediaPlayer1.settings.rate -= 0.1
       NumRate -= 0.1
      Label1.Text = "Playback Speed : " & NumRate & "x"

تحياتى لك
وتمنياتى لك التوفيق
شكرا لك أخى وأعتذر على أنى تعبتك أو ضايقتك


RE: تسريع الصوت فى الفيديو - elgokr - 24-04-19

(24-04-19, 05:57 PM)ابو روضة كتب :
شكرا لك أخى وأعتذر على أنى تعبتك أو ضايقتك


الشكر لله والحمد لله

والحمد لله على كل حال

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

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

اليوم نحن هنا ولا نعلم بقدر الحياه غداً
فكله عند الله وحده بعلم الغيب

تحياتى لك
وتمنياتى لك التوفيق


RE: تسريع الصوت فى الفيديو - ابو روضة - 24-04-19

(24-04-19, 07:06 PM)elgokr كتب :
(24-04-19, 05:57 PM)ابو روضة كتب :
شكرا لك أخى وأعتذر على أنى تعبتك أو ضايقتك


الشكر لله والحمد لله

والحمد لله على كل حال

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

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

اليوم نحن هنا ولا نعلم بقدر الحياه غداً
فكله عند الله وحده بعلم الغيب

تحياتى لك
وتمنياتى لك التوفيق

أطال  الله عمرك أخى وحسّن من العمل فعلك وأثابك بتعاونك هنا وإفادة الجميع  أجراً...
هذا الكود كاملاً لمن أراده

كود :
Public Class Form1
   Private NumRate As Double = 1
   Private Sub OpenToolStripButton_Click(sender As Object, e As EventArgs) Handles OpenToolStripButton.Click
       OpenFileDialog1.Title = "elgokr "
       OpenFileDialog1.ShowDialog()
       AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
   End Sub
   Private Async Sub PasteToolStripButton_Click(sender As Object, e As EventArgs) Handles PasteToolStripButton.Click
       Label1.Visible = True
       AxWindowsMediaPlayer1.settings.rate += 0.1
       NumRate += 0.1
       Label1.Text = "Playback Speed : " & NumRate & "x"
       Await Task.Delay(2000)
       Label1.Visible = False
   End Sub
   Private Async Sub HelpToolStripButton_Click(sender As Object, e As EventArgs) Handles HelpToolStripButton.Click
       Label1.Visible = True
       AxWindowsMediaPlayer1.settings.rate -= 0.1
       NumRate -= 0.1
       Label1.Text = "Playback Speed : " & NumRate & "x"
       Await Task.Delay(2000)
       Label1.Visible = False

   End Sub
End Class


RE: تسريع الصوت فى الفيديو - elgokr - 24-04-19

اللهم امين لى ولك وللجميع بامر الله

تحياتى لك
وتمنياتى لك التوفيق