مطلوب تسجيل مقطع صوتي وحفظ الملف الصوتي باسم المعرف

[ابوخليل]

السلام عليكم

احبتي

بضغطة زر :

اريد تسجيل صوت مثلا ( الله أكبر .. الله أكبر )  فقط

 يعني يجب ان يتم تحديد الزمن حسب الرغبة ، مثلا  10 ثواني

ثم بعد انتهاء الوقت المحدد يتم غلق الملف الصوتي آليا مع الحفظ  بمجلد خاص برقم المعرف ( id )

مرفق مثال  للعمل عليه

 

DBs.rar

[ابوخليل]

هذا يفتح مسجل الصوت

x = Shell("c:\windows\system32\soundrecorder.exe ", 4)

 

[رمهان]

جرب استخدام الباراميترز للامر file و duration

x = Shell("SoundRecorder.exe /file C:\1.wav /Duration 00:00:10 ", 4)

المدة عشر ثواني والمكان c واسم الملف 1

بالتوفيق

تم تعديل ديسمبر 4, 2016 بواسطه رمهان

[ابوخليل]

جميل .. جميل  استاذ رمهان

باقي حاجة بسيطة ، ياليت  تحاول معي  وتجعل السطر  يقبل القيمة  كمتغير

الآن لا يعمل الا اذا كان مسار الملف صريح والوقت ايضا صريح

اريد ان ادرج في السطر متغيرين واحد لمكان الحفظ والآخر للزمن

جزاك الله خيرا استاذنا الكريم 

[رمهان]

جرب هذا استاذ ابا خليل

xf = "C:\abcd\"
xid = 2
xt = 10
x = Shell("SoundRecorder.exe /file " & xf & xid & ".wav /Duration 00:00:" & xt, 4)

طبعا لابد من وجود المسار ويسمح بالكتابة عليه

تحياتي

[ابوخليل]

شكرا جزيلا استاذنا .. حل ولا اروع

زادك الله علما ونفع بك .. وجعله في موازين أعمالك

[محمد سلامة]

7 ساعات مضت, رمهان said:

جرب هذا استاذ ابا خليل

xf = "C:\abcd\"
xid = 2
xt = 10
x = Shell("SoundRecorder.exe /file " & xf & xid & ".wav /Duration 00:00:" & xt, 4)

طبعا لابد من وجود المسار ويسمح بالكتابة عليه

تحياتي

 

52 دقائق مضت, ابوخليل said:

شكرا جزيلا استاذنا .. حل ولا اروع

زادك الله علما ونفع بك .. وجعله في موازين أعمالك

السلام عليكم

ممكن المرفق بعد التطبيق 

وشكرا لاستاذنا رمهان وابوخليل

[رمهان]

اخ محمد سلامة وبعد اطيب تحية

الكود لايحتاج مرفق

شغله في اي مكان ومثلا تحت زر امر . فقط غير مكان الحفظ باول سطر xf  لمسار موجود لديك . وكذلك

xid   اسم الملف

xt الوقت بالثواني

 

بالتوفيق