ভয়েস ইন্টারফেসের ওপর অনেক প্রোগ্রাম লেখা হয়েছে কমপিউটার জগৎ-এ৷ এবার যে সফটওয়্যারটি নিয়ে লেখা হচ্ছে তা আপনার শিশুকে প্রাথমিক পড়াশোনায় সাহায্য করবে৷ এই সফটওয়্যারটি ডেভেলপ করার জন্য মাইক্রোসফটের ভয়েজ এজেন্টের সাহায্য নেয়া হয়েছে৷ A থেকে Z পর্যন্ত সব অক্ষরের উচ্চারণ এবং ছোট হাতের ও বড় হাতের অক্ষরের চেহারা দেখতে কেমন হয় তা শেখাবে৷ এই সফটওয়্যারটির কিছু অংশ চিত্র-১-এ দেখানো হয়েছে৷ এর প্রোগ্রামিং কোড সহজভাবে আপনাদের সামনে তুলে ধরা হয়েছে৷ যারা ভয়েজ এজেন্ট নিয়ে কাজ করতে চান, তাদের জন্য এই সফটওয়্যারটির কোডিং ভালো কাজ দেবে৷ তেমনি অপরদিকে বাচ্চাদের প্রাথমিক অক্ষর জ্ঞানদানে কাজেও লাগবে৷ এতে ইংরেজি অক্ষরগুলো বড় হাতের ও ছোট হাতের হলে কেমন দেখায় সেটাসহ প্রতিটি অক্ষর দিয়ে একটি শব্দ তৈরি করে সেই শব্দের উচ্চারণ ও ছবি দেখানো হয়েছে৷



এছাড়া Vowel ও Consonant কোনগুলো তাও বাচ্চাদের শেখাতে সাহায্য করবে৷ এটি কোনো পরিপূর্ণ মাল্টিমিডিয়া সফটওয়্যার নয়, তবে কিভাবে একটি পূর্ণ সফটওয়্যার ডেভেলপ করা যায় তার প্রাথমিক ধারণা তুলে ধরা হয়েছে৷ সফটওয়্যারের Read this Word বাটনটি প্রতিটি অক্ষর হতে যে শব্দ তৈরি করা হয়েছে তার উচ্চারণ করে শুনাবে, ফলে বাচ্চারা অক্ষরের উচ্চারণ ও সেই সঙ্গে সেই অক্ষর দিয়ে গঠিত শব্দের উচ্চারণও শিখতে পারবে৷

Dim voice_agent As IAgentCtlCharacter
Const PATH = “\windows\msagent\chars\Genie.acs”
Private Sub cmd1_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\apple.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\A.jpg”)
lab1.Caption = “Apple”
lab1.ForeColor = vbBlack
Text1.Text = “Apple”
voice_agent.Speak “A”
End Sub

Private Sub cmd10_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\Jet.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\J.jpg”)
lab1.Caption = “Jet”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Jet”
voice_agent.Speak “J”
End Sub

Private Sub cmd11_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\kite.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\K.jpg”)
lab1.Caption = “Kite”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Kite”
voice_agent.Speak “K”
End Sub

Private Sub cmd12_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\lamp.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\L.jpg”)
lab1.Caption = “Lamp”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Lamp”
voice_agent.Speak “L”
End Sub

Private Sub cmd13_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\money.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\M.jpg”)
lab1.Caption = “Money”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Money”
voice_agent.Speak “M”
End Sub

Private Sub cmd14_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\nose.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\N.jpg”)
lab1.Caption = “Nose”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Nose”
voice_agent.Speak “N”
End Sub

Private Sub cmd15_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\owl.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\O.jpg”)
lab1.Caption = “Owl”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Owl”
voice_agent.Speak “O”
End Sub

Private Sub cmd16_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\parrot.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\P.jpg”)
lab1.Caption = “Parrot”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Parrot”
voice_agent.Speak “P”
End Sub

Private Sub cmd17_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\quill.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\Q.jpg”)
lab1.Caption = “Quill”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Quill”
voice_agent.Speak “Q”
End Sub

Private Sub cmd18_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\rat.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\R.jpg”)
lab1.Caption = “Rat”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Rat”
voice_agent.Speak “R”
End Sub

Private Sub cmd19_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\shoe.jpg”)
Image2.Picture = LoadPicture(App.PATH & “\AtoZ\S.jpg”)
lab1.Caption = “Shoe”
lab1.ForeColor = vbBlack
Text1.Refresh
Text1.Text = “Shoe”
voice_agent.Speak “S”
End Sub

Private Sub cmd2_Click()
Image1.Picture = LoadPicture(App.PATH & “\Picture\bag.jpg”)
Image2.Picture = LoadPicture(App.PA