طريقة صنع برنامج ناطق بالفيجوال بيسك

1. عدد 1 textbox

2. عدد 2 butoon

بالترتيب كما في الصورة

و قم بتغير الأسماء كما في الصورة عن طريقة اخصية text

ثم قم بالنقر علي كلمة تكلم مرتين و قم بكتابة الكود

Dim sapi

sapi = CreateObject("sapi.spvoice")

sapi.speak(TextBox1.Text)

و قم بالنقر علي خروج مرتين و قم بكتابة الكود end

و ثم اضغط علي f5 من الكيبوورد و قم بكتابة شيء باللغة الأنجليزية

تحميل فيديو تعليمي للتحميل اضغط هنا