Foksh قام بنشر فبراير 6 مشاركة قام بنشر فبراير 6 السلام عليكم أخواني وأساتذتي الكرام .. لدي مشروع اقوم بتنفيذه ، وقد وقفت عند نقطة مهمة جداً لي وهي أنني اريد جلب مدة ملف صوتي بحيث تظهر في مربع نص بالثانية ( يعني لو المدة 1 دقيقة ونصف ) تكون النتيجة 90 ثانية . رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد احمد لطفى قام بنشر فبراير 6 أفضل إجابة مشاركة قام بنشر فبراير 6 تفضل وجدت هذا الامر بالتوفيق Second.accdb 2 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 6 الكاتب مشاركة قام بنشر فبراير 6 3 ساعات مضت, محمد احمد لطفى said: تفضل وجدت هذا الامر بالتوفيق جاري التجربة 🥰 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 6 الكاتب مشاركة قام بنشر فبراير 6 (معدل) الشكر موصول لك أستاذ 🤝 @محمد احمد لطفى مع إجراء بعض التعديلات على الدالة في المديول ، تم تنفيذ الفكرة لتعمل على نسخة 2010 ؛ مع العلم ان كود الاستاذ محمد يعمل على اصدار 2016 :) وهذا التعديل للفائدة العامة :- Function GetAudioFileDurationInSeconds(filePath As String) As Long Dim audioApp As Object Dim audioClip As Object On Error Resume Next Set audioApp = CreateObject("WMPlayer.OCX") Set audioClip = audioApp.newMedia(filePath) On Error GoTo 0 If audioClip Is Nothing Then GetAudioFileDurationInSeconds = -1 Else GetAudioFileDurationInSeconds = audioClip.duration End If Set audioClip = Nothing Set audioApp = Nothing End Function تم تعديل فبراير 7 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 7 الكاتب مشاركة قام بنشر فبراير 7 بعد تجربة الكودين ، لاحظت أنه يعمل أحياناً ولكن ليس على جميع الإصدارات في أوفيس ، فمثلاً قمت بتجربة كود الأستاذ محمد ولم يعمل على 2010 وعمل على اصدار 2016 . بينما بعد التعديل في مشاركتي تم العمل بنجاح على إصدار 2010 ... وبالعودة على اوفيس 2010 إصدار مختلف على نفس الويندوز وفي نفس ظروف ملفات الصوت لم يتم المطلوب دخت من كثرة التنقل بين إصدارات أوفيس والويندوز علنا نصل الى نتيجة تعمل بكفاءة دون مشاكل لإختلاف الإصدار مع الأساتذة ممن يملك معلومة او تجربة . رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 7 مشاركة قام بنشر فبراير 7 (معدل) أستاذ @Foksh 😁 أرى أن تحذف أفضل اجابة حتى تصل للمطلوب تفضل هذا الامر تم تجربته على أوفيس 2020 و للأسف ليس عندى اوفيس 2010 Second.accdb تم تعديل فبراير 7 بواسطه محمد احمد لطفى 2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 7 مشاركة قام بنشر فبراير 7 عندي 2010 عملت لايك على اجابة الاستاذ محمد .. لاني جربت المثال ويعمل 100% 2 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر فبراير 7 الكاتب مشاركة قام بنشر فبراير 7 7 دقائق مضت, ابوخليل said: عملت لايك على اجابة الاستاذ محمد .. لاني جربت المثال ويعمل 100% جزاك الله خير أستاذنا أبو خليل ، وجزا الله استاذنا محمد كل الخير ، ولكني ذكرت أنه يعمل وما شاء الله عندي على نسخة 2016 ، ولكن على نسختي الـ 2010 لم يعمل ، ما اضطرني الى متابعة النقاش والفرق بين الكودين أستاذ محمد هو في كيفية تعاملها مع النتائج بأجزاء من الثانية في المرفق الثاني ، وفي المرفق الأول التقريب لأقرب ثانية . 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر فبراير 8 مشاركة قام بنشر فبراير 8 في 7/2/2024 at 19:21, محمد احمد لطفى said: أستاذ @Foksh 😁 أرى أن تحذف أفضل اجابة حتى تصل للمطلوب تفضل هذا الامر تم تجربته على أوفيس 2020 و للأسف ليس عندى اوفيس 2010 Second.accdb 408 kB · 2 downloads هذا يعمل جيدا مع أوفيس 365 👍🏻😉 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان