أهلا بكم , يبدو أن الدرس من عنوانه غريب ,لكن يمكنك ذلك مع مدونة علوم الحاسوب , التطبيق عبارة عن ملف بإمتاد (.vbs) , التطبيق مسلي للغاية حيث يجعل حاسوبك يقرأ ماكتبته , لكن عيبه أنه يقرأ فقط ما يكتب بالإنجليزية
الاَن نبدأ خطوات صنع هذا التطبيق :
الخطوة الأولى : أنشأ مستند نصي جديد / document texte
الخطوة الثانية : ضع الكود التالي
-------------------------------
Dim message, sapi
message=InputBox("أكتب شيئا في المربع اسفلا باللغة الانجليزية","مدونة علوم الحاسوب |بدايتك نحو التميز")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
-------------------------------
ثم قم بالضغط على إحفظ بإسم / Enregitrer Sous ..
وقم يتسميته كما تريد وأضف له .vbs في الأخير
وفي (Encodage ) اختر Unicode
ومبروك عليك , بعدها قم بالدخول الى التطبيق وقم بكتابة أي شيء ليقرأه حاسوبك وأبهر به أصدقائك .
لمن لم يستطع صنع التطبيق فاليحمله : من هنا
الاَن نبدأ خطوات صنع هذا التطبيق :
الخطوة الأولى : أنشأ مستند نصي جديد / document texte
الخطوة الثانية : ضع الكود التالي
-------------------------------
Dim message, sapi
message=InputBox("أكتب شيئا في المربع اسفلا باللغة الانجليزية","مدونة علوم الحاسوب |بدايتك نحو التميز")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
-------------------------------
ثم قم بالضغط على إحفظ بإسم / Enregitrer Sous ..
وقم يتسميته كما تريد وأضف له .vbs في الأخير
وفي (Encodage ) اختر Unicode
ومبروك عليك , بعدها قم بالدخول الى التطبيق وقم بكتابة أي شيء ليقرأه حاسوبك وأبهر به أصدقائك .
لمن لم يستطع صنع التطبيق فاليحمله : من هنا
من فضلك شارك هذا الموضوع اذا اعجبك
درس رائع و مدون أروع إستمر أخي بارك الله فيك
ردحذف