Sunday, March 11, 2012

აალაპარაკეთ კომპიუტერი

ეს უბრალოდ გასართობად გამოგადგებთ, რასაც ჩაწერთ იმას გაიმეორებს, ინგლისურად ან იმ ენაზე რა ენაზეც გაქვთ ვინდოუსი დაყენებული

ეს არის ჯავასკრიპტიი პატარა კოდი.
ვისაც არ ეზარება შეუძლია თვითონვე გააკეთოს: გახსენით notepad-ი და ჩაწერეთ შემდეგი კოდი:
Dim message, sapi
message=InputBox("I can talk, test me","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
შემდეგ შეინახეთ .vbs გაფართოვებით და ორჯერ დაჭერისას გამოჩნდება ფანჯარა სადაც ჩაწერთ რაც გინდათ და ok.

ვისაც ამის გაკეტება გეზარებათ აი გადმოწერეთ ჩემი გაკეთებული:
http://www.box.com/s/kvptfbfekt73nijsisqp 

No comments:

Post a Comment