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

أريد أن أتحكم بصوت الجهاز الداخلي

مغلق
بدأه غسان الجزار في 25 أغسطس 2005 · 4 رد · 505 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أريد منكم يا أخوان أن تطلعوني على طريقة التحكم ببفل(سبيكر) الموجود في الجهاز

الرجاء بسرعة

#2

هل تقصد التحكم فى صوت السماعة الداخلية للجهاز ؟؟؟؟

اذا كان هذا ماتريد , توجد دالة API تسمى Beep ولها معامل يحدد تردد الصوت المطلوب ومعامل اخر يحدد زمن استمرار الصوت وهذه هى الدالة

Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

تم تعديل هذه المشاركة بواسطة GHOST2010 في 25 أغسطس 2005 في 19:37

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

مشكور يا أخي المشرف أنت قربت من متغاي

أنا أريد أن أتحكم بالسماعة الداخلية أي

أريد أن أجعل الجهاز يصدر أصوات مثل لعبة ماريو mario مثلاً

#4

انا مالعبتش ماريو دى على الكمبيوتر قبل كده لكن اصدار الاصوات بالدالة سهل جداً

Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Dim C%
For C = 1 To 5000
Beep C, 1
Next
End Sub

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

أخي شكراً لألك أفدتني في هذا الموضوع كثير

أنا كنت بعرف هذه الدالة حق المعرفة لكني كنت ما أستخدمها إلا لصوت واحد شكراً للمساعدة

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

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