Phần Mềm Phát âm tiếng anh ( Nhập chữ tự nó đọc tiếng anh )

Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập


Welcome to Forums Haku
Chào mừng các bạn đến với diễn đàn
Chúc các bạn có những giờ phút thư giãn thoải mái tại diễn đàn
Chúc các bạn luôn thành công trong cuộc sống

<--Code by Admin Haku -->

Share|
Tiêu đề

Phần Mềm Phát âm tiếng anh ( Nhập chữ tự nó đọc tiếng anh )

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down
Tác giảThông điệp

Admin
Member
avatar

Tổng bài gửi : 1074
Được Cảm Ơn : 538
Đến từ : Hà Ná»™i
Tài năng của Admin
Hạng: Member
Level:1074
Tài năng:/300


Tài Sản
Huân Chương: PhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucketPhotobucket

Bài gửiTiêu đề: Phần Mềm Phát âm tiếng anh ( Nhập chữ tự nó đọc tiếng anh ) Tue Jul 09, 2013 1:13 pm

Phần Mềm Phát âm tiếng anh
Nhập chữ tự nó đọc tiếng anh


Phần mềm này có thể giúp được các bạn hoc Tiếng Anh rất Pro

Dowload: Click here!


Demo:




Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=123.ico
#AutoIt3Wrapper_Outfile=PhatAmTiengAnh.exe
#AutoIt3Wrapper_Outfile_x64=PhatAmTiengAnh.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Haku.4rumer.Com", 299, 190, 290, 180)
$Edit1 = GUICtrlCreateEdit("", 16, 32, 217, 105)
GUICtrlSetData(-1, "I'm Admin Haku  -  Web: Haku.4rumer.Com  -  Yh: mactoingaodu2001")
$Label1 = GUICtrlCreateLabel("Nhập từ muốn phát âm:", 16, 8, 115, 17)
$Button1 = GUICtrlCreateButton("Đọc", 40, 152, 75, 25)
$Button2 = GUICtrlCreateButton("Thoát", 144, 152, 75, 25)
$Button3 = GUICtrlCreateButton("Mở", 248, 32, 35, 105)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         _doc(GUICtrlRead($Edit1))
      Case $Button2
         Exit
      Case $Button3
         _Open()
   EndSwitch
WEnd

Func _Doc($text)
   $text = StringReplace($text,@CRLF," ")
   $text = StringReplace($text,@CR," ")
   $text = StringReplace($text,@LF," ")
   $open = FileOpen(@TempDir&"\phatam.vbs",10)
   FileWrite($open,'CreateObject("SAPI.SpVoice").Speak"'&$text&'"')
   FileClose($open)
   ShellExecute(@TempDir&"\phatam.vbs")
   ;- clear varied
   $open = ''
   $text = ''
   $chr13 = ''
   ;----------------
EndFunc

Func _Open()
   $fileopen = FileOpenDialog("Chọn file muốn mở","","Text File (*.txt)")
   If Not @error Then
      $text = FileRead($fileopen)
      _doc($text)
   Else
      MsgBox(16,"Error!","Exit Code: "&@error)
   EndIf
   ;- clear varied
   $fileopen = ''
EndFunc

Hãy cám ơn bài viết của Admin bằng cáh bấm vào "" nhe!!!

Về Đầu Trang Go down

Xem lý lịch thành viên http://haku.4rumer.com

Tiêu đề

Phần Mềm Phát âm tiếng anh ( Nhập chữ tự nó đọc tiếng anh )

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang
Trang 1 trong tổng số 1 trang
::.
Permissions in this forum:Bạn không có quyền trả lời bài viết
Forum Häkü Cộng Đồng Chém Gió :: CONG NGHE THONG TIN :: Thủ thuật-