كيف تصمم برنامج قارئ لغة انجليزية

ابدأ مشروع جديد به المكتبة التالية

Microsoft Agent Control2

فى التصريحات اضف

Dim Merlin As IAgentCtlCharacter

Const PATH = "\windows\msagent\chars\Merlin.acs"

فى حدث تحميل الفورم

Agent1.Characters.Load "Merlin", PATH

Set Merlin = Agent1.Characters("Merlin")

Merlin.Show

Agent1.Characters("Merlin").MoveTo 350, 30

Merlin.Speak "this program designed by mounier kondos"

Agent1.Characters("Merlin").Play "writecontinued"

انشء الكائنان text1 , command1

in the event click commmand1 write:

Text1.Refresh

Merlin.Speak Text1.Tex

رائع جدا جدا جدا جدا جدا

وجوزيت خيرا