gorg313
جمعه 15 خرداد 1394, 15:51 عصر
عرض سلام و خسته نباشید خدمت دوستان
يه مشکل داشتم تو کد نویسی يه برنامه
من درون text1 يه متن ثابت دارم يه متن که کاربر درج میکنه
موقع سیو به مشکل خوردم
CreateObject("SAPI.SpVoice").Speak"I love Iran"
متن بالا درون فایل vbs ثابت هست
I love Iran را میخوام کاربر درون text1 درج کنه و فایل سیو شده را اجرا کنه
کد من
On Error Resume Next
Open App.Path & "\Pc Gener.vbs" For Output As #1
Print #1, "CreateObject("; SAPI.SpVoice; ").Speak" + Text1
Close #1
Shell App.Path & "\Pc Gener.vbs"
این کد تشخیص جنسیت کامپیوتره :لبخند:
يه مشکل داشتم تو کد نویسی يه برنامه
من درون text1 يه متن ثابت دارم يه متن که کاربر درج میکنه
موقع سیو به مشکل خوردم
CreateObject("SAPI.SpVoice").Speak"I love Iran"
متن بالا درون فایل vbs ثابت هست
I love Iran را میخوام کاربر درون text1 درج کنه و فایل سیو شده را اجرا کنه
کد من
On Error Resume Next
Open App.Path & "\Pc Gener.vbs" For Output As #1
Print #1, "CreateObject("; SAPI.SpVoice; ").Speak" + Text1
Close #1
Shell App.Path & "\Pc Gener.vbs"
این کد تشخیص جنسیت کامپیوتره :لبخند: