[ابو روضة]

(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"

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

[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"

تحياتى لك

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

[ابو روضة]

(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"

تحياتى لك

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

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

[elgokr]

(24-04-19, 05:57 PM)ابو روضة كتب :

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

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

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

بالعكس اخى ابو روضة

لا يوجد اى تعب او ما شبه لسمح الله

فيارب يبعد عنا هذا دائماً

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

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

ولكي يمكنه من افادة غيره

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

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

تحياتى لك

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

[ابو روضة]

(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

[elgokr]

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

تحياتى لك

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