نعم إنها حقيقة
ما رأيك ان نجعل حاسوبك يتحدث ؟
نعم , في خدعتنا التالية , سنريك اخي الكريم , كيف تجعل حاسوبك يتحدث انطلاقا مما تكتبه له , نعم بدون برامج , فقط من الNotepad ... لنكتشف معا :
اولا و كما هو الحال دائما , نفتح الNotepad بصفحة جديدة , و نقوم بنسخ الاكواد التالية :
الان نقوم بحفظه بامتداد vbs مثلا , يمكننا تسميته ب SpeakComputer.vbs , و بعد ان نحفظه , ستظهر لنا نافذة بسيطة شبيهة بهذه :
يمكنك الان كتابة ما تريد , انا مثلا كتبت : Hello , يمكنك ان تكتب ما تريد , و بعدها تضغط OK , و استمع الى حاسوبك :D .
في الحقيقة , كان بودي ان اقدم المزيد و المزيد , لكني ملتزم بعدد اسطر محدد في كل موضوع , لذلك , لا زال بإذن الله الجزء الثالث من الخدع .
اذا اعجبتك هذه الخدع , لا تنسى ان تنشرها مع اصدقاءك :D
ما رأيك ان نجعل حاسوبك يتحدث ؟
نعم , في خدعتنا التالية , سنريك اخي الكريم , كيف تجعل حاسوبك يتحدث انطلاقا مما تكتبه له , نعم بدون برامج , فقط من الNotepad ... لنكتشف معا :
اولا و كما هو الحال دائما , نفتح الNotepad بصفحة جديدة , و نقوم بنسخ الاكواد التالية :
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
الان نقوم بحفظه بامتداد vbs مثلا , يمكننا تسميته ب SpeakComputer.vbs , و بعد ان نحفظه , ستظهر لنا نافذة بسيطة شبيهة بهذه :
يمكنك الان كتابة ما تريد , انا مثلا كتبت : Hello , يمكنك ان تكتب ما تريد , و بعدها تضغط OK , و استمع الى حاسوبك :D .
في الحقيقة , كان بودي ان اقدم المزيد و المزيد , لكني ملتزم بعدد اسطر محدد في كل موضوع , لذلك , لا زال بإذن الله الجزء الثالث من الخدع .
اذا اعجبتك هذه الخدع , لا تنسى ان تنشرها مع اصدقاءك :D
هل اعجبك الموضوع ؟
الموضوع من طرف:
18 سنة، مدون مغربي مهووس بجديد تكنلوجيا المعلوميات، وخبير في مجال البرمجة وإنشاء المواقع والمدونات الإلكترونية، ومهتم بإثراء وتطوير المحتوى العربي المعلومياتي.
.png)
ليست هناك تعليقات :
إرسال تعليق