الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في ملف صوتي

مغلق
بدأه zine pef في 6 سبتمبر 2007 · 7 رد · 708 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الأفاضل قمت بتصميم مشروع ملف صوتي و جربته وكان شغال 100% في جهازي و عندما نقلته الى جهاز اخر لصديق فالصوت اصبح لا يسمع .لا ادري اين الخلل هل في المشروع او في جهاز صديقي ..

سؤال ثاني .بسيط لكن وجد مشكلة وهو ::اداة tabstrip كيف استخدمها..و اداة list1 اين اجدها ضمن الأدوات و لكم مني الف شكر..المشروع غي الملف..زيارة موقعي

#2

- هل أرفقت ملف الصوت مع البرنامج و أستعملت فى الكود مسار نسبى ؟!

- أداة الـ Tabstrip بلاشها و خليك مع الـ SSTab لأن الأولى Container واحد و التانية Muli-Container و بالتالى للأولى فكل مجموعة أدوات على Tab ما لازم تتحط فى Container آخر و عند التقليب فى الـ Tabs نقعد نخفى و نظهر فى الـ Containers اللى عليها بالكود .

أما الـ SSTab فبنحط الأدوات عليها و خلاص , يعنى مش محتاجين كود كمان ليها ( ضع الأدوات برسمها و ليس بالنقر مرتين على أيقونتها بالـ ToolBox ).

- أداة List1 هى فى الغالب الـ ListBox العادية !

#3

شكرا اخي الملف الصوتي كامل و موجود كل ما قلت الم تجربه انه موجود في الرابط

و شكرا للأداتين بركة الله فيك...

#4

الرابط لا يعمل عندى , فمهما أنتظرت لا يحولنى الى رابط تحميل فعلى !

المنتدى هنا يسمح بالمرفقات تقدر تقسمه عدة أقسام و ترفعه هنا أو تريحنا و تحط لنا الكود على طول.

#5

ما هو الخطأ أو ماذا يحدث عندما تشغل هذا الملف عند زميلك أنا جربت الملف أول مرة (الملف Project1.exe ) و كانت هناك رسالة خطأ تخبرنى بعدم وجود مكتبه معينه

و لكن بعد إعادة بناء الملف التنفيذى عمل معى

و الكود سليم

لتحميل أيضاً يا أخى msayed2004 حتى ترى أيضاً

من هنــــــــــــــــا

#6

المشروع شغال عندى لكن لى ملاحظات.

- أستعمالك لـ sndPlaySound مش صح قوى , شوف المثال ده :

'Declarations
Private Const SND_ASYNC As Long = &H1
Private Const SND_NODEFAULT As Long = &H2
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Dim strAFP As String

strAFP = App.Path
If Right$(strAFP, 1) <> "\" Then strAFP = strAFP & "\"

sndPlaySound strAFP & "bes.wav", SND_ASYNC Or SND_NODEFAULT

طبعا زى ما أنت شايف لم أعتمد على App.Path مباشرة بل تأكدت من وجود الـ /

- أستعمل Option Explicit فى مشاريعك , لو مش عارف معناها دور فى الـ MSDN او Google أو هنا بالمنتدى علشان عدنا و زيدنا بالموضوع ده.

- أنت حاطط صورة واحد بالـ Resources حجمها أكتر من 1.5 ميجا , فى حين أن اى برنامج للصور يقدر يصغرلك حجمها كتير جدا لدرجة انها تبقى كام كيلو بدون فقد واضح بدقة الصورة.

- لا تقم بأستعمال أسم عربى فى اى شئ حتى أسماء المجلدات اللى فيها المشاريع , يمكن ناس كتير هتختلف معايا لكن فيه برضه ناس كتير معايا ;)

آسف على التأخير لأنى بخش الـ XP نادرا.

#7

السلام عليكم و شكرا جزيل لكم

الأخ shekoforever الخطأ هو الصوت لا يسمع و لا توجد رسالة خطأ..و الكود سليم كما قلت و اليوم

جربته في جهاز ثالث فكان يشتغل 100%

و الأخ msayed2004 ... المشروع شغال عندى لكن لى ملاحظات.

- أستعمالك لـ sndPlaySound مش صح قوى هنا يوجد تناقض مرة شغال و مرة مش صح

الكود المستعمل لحظت كثير من ناس مستعملونه ...و شكرا للكود الثاني

اما الصورة فــلك الف حق لم اعطيها اهمية و المهم هو تطبيق ressource

و اخيرا شكرا لكما و افيدونا بمعلوماتكم و جزاكم الله كل الخير

#8

هل أساسا فيه أى أصوات بتطلع من جهاز صديقك ده ؟!

ممكن تكون المشكلة من عنده.

هذا الموضوع مغلق.

مواضيع مشابهة