[ابو روضة]

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

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