الفيجوال بيسك Visual basic يوصلك الى احتراف ال Visual basic

قديم 05-02-2009, 09:10 AM
  #1
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
Flash برمجة برنامج يشغل الصوت من دون أداة الصوت


موضوعنا اليوم برمجة برنامج تستطيع من خلاله برمجة برنامج يشغل الصوت من دون أداة الصوت
بلغة الفيجوال باسيك 6 أو 5

ونبدأ
نفتح الفيجوال بازيك 6أو 5
ثم نضغط على Project في الشريط العلوي ثم إختر Add Module وبعدها Open
ستفتح لك صفحة فارغة .أكت فيها مايلي بنفس عدد الأسطر و الكلمات لتفادي الأخطاء
كود:
Option Explicit
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Sub PlaySound(strSound As String)
Dim wFlags%
wFlags% = SND_ASYNC Or SND_NODEFAULT
sndPlaySound strSound, wFlags%
End Sub


هذا الكود مهم لتشغيل الصوت
إفتح الفورم وغير Caption إلى تشغيل الصوت
أنشئ Command على الفورم واكتب داخل الكود هذا
كود:
PlaySound "c:\windows\media\windows xp  startup.wav"
والان نضغط على F5 تجريبه


achraf.mouni غير متواجد حالياً  
قديم 05-02-2009, 09:34 AM
  #2
Ssoft
مشرف قسم
الشهادات العلمية
مشرف منتدى
الدورات التعليمية المتخصصة
 الصورة الرمزية Ssoft
 
La spécialité: Informatique
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 24-11-2008
الدولة: السوقر
المشاركات: 1,418
Ssoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداع
افتراضي

thank'ssssssssss
__________________


▌║││║█║▌│║│█║▌█│║▌▌║│││  
11 0011 10101 10101 1100 11

Ssoft غير متواجد حالياً  
قديم 05-02-2009, 09:36 AM
  #3
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

لا شكرا على واجب ............شكرا لمرورك
achraf.mouni غير متواجد حالياً  
قديم 05-02-2009, 06:59 PM
  #4
lucky girl
VIP_MEMBRE
 الصورة الرمزية lucky girl
 
La spécialité: Autres
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 01-01-2009
الدولة: الجزائر
المشاركات: 1,151
lucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداعlucky girl عضو محترف الابداع
افتراضي

thank's so much my brother achraf il's a goog work realy
__________________



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
قديم 05-02-2009, 08:40 PM
  #5
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

لا شكرا على واجب ............شكرا لمرورك
achraf.mouni غير متواجد حالياً  
قديم 25-08-2011, 12:43 AM
  #6
mounir23
 
La spécialité: Autres
مؤسسة تعليم ثانوي ( ثانوية)
تاريخ التسجيل: 16-05-2011
المشاركات: 161
mounir23 عضو يستحق التميزmounir23 عضو يستحق التميز
افتراضي رد: برمجة برنامج يشغل الصوت من دون أداة الصوت

thank you so much
mounir23 غير متواجد حالياً  

الكلمات الدلالية (Tags)
آداب, السنة, برمجة, برنامج, يشغل

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
{برنامج} برنامج تسجيل الصوت TTS Voice Recorder 1.1 chaayoucef منتدى البرامج العام 0 10-10-2011 08:08 PM
برنامج محلل الصوت لـ n-gage talha عـــــالم الاتصالات والجوالات 1 25-08-2011 12:46 AM
{برنامج} برنامج للتقطيع الصوت يوسف الضادي منتدى البرامج العام 3 01-09-2009 11:48 PM
برنامج فصل الصوت عن الصورة بن دراجي منتدى البرامج العام 4 10-07-2009 04:39 PM
آيفون: برنامج تسجيل الصوت SpeakEasy شنفرى منتدى البرامج العام 0 14-04-2009 03:38 PM


الساعة الآن 11:05 PM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir