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

إضافة رد
قديم 09-01-2009, 09:40 PM
  #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 عضو محترف الابداع
12 كيف تتحكم بجهازك uن طريق الكلام !!! بالفايجوال بيزك


بسم الله الرحمن الرحيم

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

أثناء تجوالي في مواقع البرمجة وجدت هذا الدرس في أحد المنتديات فقمت بنسخ الدرس ولصقه هنا .

فالموضوع

منقول

وها هو الدرس :

اولا: يجب ان تثبت في كمبيوترك برنامج Speech Recognition وهو موجود في موقع مايكروسوفت

ثانيا: يجب ان تثبت في كمبيوترك برنامج Microsoft Agent Server

ثالثا: تتبع الخطوات الموجودة في الصورة التالية:-

هذه الصورة تم اعادة تحجيمها . الحجم الافتراضي لها هو 653x589.

رابعأ: إضغط على الفورم مرتين وضع هذا الكود

كود:

Private Sub Form_Load()
reco.GrammarFromFile App.Path & "\Words.txt"
reco.Activate

Agent.Characters.Load "Genie", "Genie.acs"
Set Bot = Agent.Characters("Genie")
Bot.Show

Bot.MoveTo 345, 210

Bot.Speak "Hi"
Bot.Speak "How are you?"

End Sub

Private Sub reco_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)

Select Case Phrase


Case "Notepad"
Shell "C:\Windows\NOTEPAD.exe", vbNormalFocus

Case "Microsoft Paint"
Shell "C:\Program Files\Accessories\MSPAINT.EXE" , vbNormalFocus

Case "Close"
End

End Select
End Sub




End Select
End Sub


خامسا: إنشئ ملف text وسمي هذا الملف باسم Words وضع فيه هذه البيانات


CODE

[Grammer]
type=cfg
[<start>]
<start>=Notepad
<start>=Microsoft Paint
<start>=Close




سادسا: ضع ملف Words في نفس المشروع

وهذه ملحوظة مهمة :
شغل البرنامج وتتكلم

في المثال انا وضعت ثلاث كلمات

1- كلمةNotepad لفتح برنامج Notepad
2-كلمة Microsoft Paint لفتح برنامج Microsoft Paint
3- كلمة Close لإغلاق البرنامج

هذه الصورة توضح ذلك







وهذه هي البرامج المطلوبة :
Speech Recognition :

------------------------------------

SAPI SDK 4.exe
من هنا

------------------------------------

SAPI SDK 4 Suite.exe
من هنا

------------------------------------

spchapi.EXE
من هنا

************

Microsoft Agent Server :
Download the Microsoft Agent SDK ********ation in compiled help (.chm) format (708 kB .zip archive)
من هنا

------------------------------------

Download the Microsoft Agent Character Editor (1 MB exe)
من هنا

------------------------------------

Download the Microsoft Agent Linguistic Information Sound Editing Tool (6.2 MB exe)
من هنا



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

thank'sssssssssss
__________________


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

Ssoft غير متواجد حالياً  
رد مع اقتباس
قديم 12-01-2009, 07:06 PM
  #3
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 عضو محترف الابداع
افتراضي

merci
__________________



WhAt DoEs NoT KiLL mE mAkE Me StRoNgEr





lucky girl غير متواجد حالياً  
رد مع اقتباس
قديم 14-01-2009, 04:15 PM
  #4
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 غير متواجد حالياً  
رد مع اقتباس
قديم 17-09-2009, 11:10 PM
  #5
oussama.hdi
 
La spécialité: Hydraulique
المدرسة الوطنية العليا للري
تاريخ التسجيل: 17-09-2009
المشاركات: 145
oussama.hdi
افتراضي رد: كيف تتحكم بجهازك ن طريق الكلام !!! بالفايجوال بيزك

بارك الله فيك
oussama.hdi غير متواجد حالياً  
رد مع اقتباس
قديم 14-10-2009, 12:36 PM
  #6
آلاء
 الصورة الرمزية آلاء
 
La spécialité: sciences d'information & communication
جامعة العلوم و التكنولوجيا هواري بومدين
تاريخ التسجيل: 06-02-2008
الدولة: bejaia algerie
المشاركات: 145
آلاء عضو يستحق التميزآلاء عضو يستحق التميز
افتراضي رد: كيف تتحكم بجهازك ن طريق الكلام !!! بالفايجوال بيزك

Trop fort
الله يرظى عليك
merci
__________________
قل معي : اللهم صلي على محمد وعلى ال محمد كما صليت عل ابراهيم وعلى ال ابراهيم للهم بارك على محمد وعلى ال محمد كما
باركت على ابراهيم وعلى ال ابراهيم في العالمين انك حميد مجيد
آلاء غير متواجد حالياً  
رد مع اقتباس
قديم 14-10-2009, 12:38 PM
  #7
آلاء
 الصورة الرمزية آلاء
 
La spécialité: sciences d'information & communication
جامعة العلوم و التكنولوجيا هواري بومدين
تاريخ التسجيل: 06-02-2008
الدولة: bejaia algerie
المشاركات: 145
آلاء عضو يستحق التميزآلاء عضو يستحق التميز
افتراضي رد: كيف تتحكم بجهازك ن طريق الكلام !!! بالفايجوال بيزك

UN PROBLEME ICI
Microsoft Agent Server :
Download the Microsoft Agent SDK ********ation in compiled help (.chm) format (708 kB .zip archive)
JE N'ARRIVE PAS A LE TELECHARGER
__________________
قل معي : اللهم صلي على محمد وعلى ال محمد كما صليت عل ابراهيم وعلى ال ابراهيم للهم بارك على محمد وعلى ال محمد كما
باركت على ابراهيم وعلى ال ابراهيم في العالمين انك حميد مجيد
آلاء غير متواجد حالياً  
رد مع اقتباس
قديم 14-10-2009, 01:09 PM
  #8
آلاء
 الصورة الرمزية آلاء
 
La spécialité: sciences d'information & communication
جامعة العلوم و التكنولوجيا هواري بومدين
تاريخ التسجيل: 06-02-2008
الدولة: bejaia algerie
المشاركات: 145
آلاء عضو يستحق التميزآلاء عضو يستحق التميز
افتراضي رد: كيف تتحكم بجهازك uن طريق الكلام !!! بالفايجوال بيزك

salam
avant tout mon frere il faut definir les objets suivants
reco.GrammarFromFile App.Path & "\Words.txt"



reco.Activate---------------------------->c'est l'objet DirectSR1
Agent.Characters.Load "Genie", "Genie.acs----------------------> c'est l'objet "
Agent1

Bot.Show
bot normalement c'est un forme sisnon c'est quoi alors
un message d'erreur s'affiche ici
Agent1.Characters.Load "Genie", "Genie.acs"
pour signaler fichier introuvable

j'aimerai bien avoir le code complet et correcte svp
__________________
قل معي : اللهم صلي على محمد وعلى ال محمد كما صليت عل ابراهيم وعلى ال ابراهيم للهم بارك على محمد وعلى ال محمد كما
باركت على ابراهيم وعلى ال ابراهيم في العالمين انك حميد مجيد
آلاء غير متواجد حالياً  
رد مع اقتباس
قديم 15-10-2009, 11:19 AM
  #9
آلاء
 الصورة الرمزية آلاء
 
La spécialité: sciences d'information & communication
جامعة العلوم و التكنولوجيا هواري بومدين
تاريخ التسجيل: 06-02-2008
الدولة: bejaia algerie
المشاركات: 145
آلاء عضو يستحق التميزآلاء عضو يستحق التميز
Impp رد: كيف تتحكم بجهازك uن طريق الكلام !!! بالفايجوال بيزك

trés bien

j'ai pu resoudre le probleme
avant tout il faut telecharger ce fichier .exe et l'installer sur votre Pc pour reconnaitre le fichier genie.acs

*

http://www.msagentring.org/chars.aspx?page=2
il faut choisir Character: Download Genie

maintenat sur votre code source

2-renommer 'objet DirectSR1 par reco
3-renommer l'objer Agent par Agent1

et normalement sa marchera trés bien

bon courage
__________________
قل معي : اللهم صلي على محمد وعلى ال محمد كما صليت عل ابراهيم وعلى ال ابراهيم للهم بارك على محمد وعلى ال محمد كما
باركت على ابراهيم وعلى ال ابراهيم في العالمين انك حميد مجيد
آلاء غير متواجد حالياً  
رد مع اقتباس
قديم 19-10-2009, 02:25 PM
  #10
toyoki
 
تاريخ التسجيل: 11-05-2008
المشاركات: 4
toyoki عضو يستحق التميز
افتراضي رد: كيف تتحكم بجهازك uن طريق الكلام !!! بالفايجوال بيزك

على ما أضن يفهم الانجليزية فقط ام أنا مخطئ
شكرا لك أخي
toyoki غير متواجد حالياً  
رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
الكلام, بالفايجوال, تتحكم, بيسك, بجهازك, طريق

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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
ساق روبوتية تتحكم بها الافكار dua'a أخبار العلوم و التكنولوجيا 1 03-01-2014 11:56 AM
{موقع} موقع مخصص للفيزيال بيزك rac200 دليل المواقع و الانترنت 2 17-01-2010 08:04 PM
كيف تتحكم باعصابك؟ dua'a التنمية البشريه 5 16-07-2009 09:06 AM
كيف تتحكم في غضبك non1 التنمية البشريه 5 25-03-2009 06:09 PM
كيف تتحكم في غضبك houda boukeroui المنتدى الاسلامي العام 1 16-09-2008 09:16 PM


الساعة الآن 04:52 PM.