ÔÚVBÖÐʹÓÃÎÄ×ÖÀʶÁÒýÇ棨TTS£©¼¼Êõ
¡¡ÏÖ½ñÊÐÃæÉÏÁ÷ÐеÄһЩӢÓïѧϰÈí¼þ£¬ÔÚ¹ã¸æ´ÊÉϾ³£Ëµ×Ô¼ºÊ¹ÓÃÁ˹ú¼Ê¶¥¼âµÄÈ«³ÌÓïÒôTTS¼¼Êõ£¬ÄܽøÐÐÕû¶ÎÓ¢ÎĵÄÁ÷ÀûÀÊ
¶Á£¬²¢ÄÜ×ÔÓɵ÷½ÚÀʶÁµÄËÙ¶ÈÓëƵÂʵȡ£ÄÇô£¬Õâ¸öÉñÆæµÄTTS¾¿¾¹ÊÇʲô¶«Î÷ÄØ£¿
¡¡¡¡Æäʵ£¬TTSÊÇ΢Èí³öÆ·µÄÒ»Ì×ÎÄ×ÖÀʶÁÒýÇ棨Text-To-Speech Engine)£¬ÕâЩӢÓïÈí¼þ¾ÍÊǵ÷ÓÃËüÀ´½øÐÐÓ¢ÎÄÀʶÁµÄ¡£ÎÒÃÇÔÚÓ¢Óï
ѧϰÈí¼þµÄ±à³Ì¿ª·¢ÖÐÒ²¿ÉʹÓÃTTS¼¼Êõ£¬ÏÂÃæ±ÊÕß½«ÀûÓÃVisual Basic 5.0À´½Ò¿ªTTSÉñÃصÄÃæÉ´¡£
¡¡¡¡Ò»¡¢°²×°TTSÒýÇæ
¡¡¡¡TTSÒýÇæËùÐèµÄMicrosoft Text-to-Speech EngineÓëMicrosoft Speech APIÈí¼þ¶¼¿Éµ½Î¢ÈíµÄÕ¾µãÈ¥ÏÂÔØ£¬Ò²¿ÉÒÔÔÚ“½ðɽ´Ê°Ô
2000”»ò“½ðɽ´Ê°Ô.net”µÄ°²×°¹âÅÌÉÏÕÒµ½£¨ÎļþÃûΪMSTTS.EXEÓëSPCHAPI.EXE)¡£°²×°ÁËTTSÒýÇæºó£¬ÔÚWindowsËùÔÚĿ¼Ï»áÉú
³ÉÒ»¸öSPEECHĿ¼£¬ÆäÖÐÓÐÒ»¸öVtxtauto.tlbÎļþ£¬ÔÚ±à³ÌʱÎÒÃÇÐèÒªµ÷ÓÃËü¡£
¡¡¡¡¶þ¡¢ÔÚVBÖÐÒýÈëVtxtauto.tlbÎļþ
¡¡¡¡½øÈëVB 5.0£¬Ö´ÐÐÑ¡µ¥ÃüÁî“Îļþ/н¨¹¤³Ì/±ê×¼EXE”²¢È·¶¨£¬È»ºóÖ´ÐÐÑ¡µ¥“¹¤³Ì”ÖеēÒýÓÔ£¬µ¥»÷“ä¯ÀÀ”°´Å¥µ½
WindowsĿ¼ÏµÄSPEECH×ÓĿ¼£¬´ò¿ªVtxtauto.tlbÎļþ£¬½«“VoiceText 1.0 Type Library”Ìí¼Óµ½ÒýÓÃÁбíÖУ¬Ñ¡ÖÐËü²¢µ¥»÷È·¶¨¡£½«
¿âVtxtautoÒýÈëVBºó£¬ÎÒÃÇ¿ÉÒÔͨ¹ýÑ¡µ¥“ÊÓͼ”Öеē¶ÔÏóä¯ÀÀÆ÷”À´Á˽âËüËù·â×°µÄÀ࣬ÒÔ¼°¸÷Àà³ÉÔ±º¯ÊýµÄÊôÐÔµÄÒâÒ塢ʹÓÃ
¸ñʽµÈÐÅÏ¢¡£Ò»Ð©Ö÷ÒªµÄ·½·¨ÓëÊôÐÔÒâÒå,±ÊÕßÔÚÏÂÃæµÄÔ´³ÌÐòÖн«¸ø³ö×¢ÊÍ£¬ÔÚÕâÀï¾Í²»ÏêϸÁгö£¬Çë²Î¼û¸½Í¼1¡£
Èý¡¢ÉèÖÿؼþ¼°ÊôÐÔ
¡¡¡¡ÔÚFORM1ÉÏÌí¼ÓÈý¸öLabel¿Ø¼þ¡¢Ò»¸öTextBox¿Ø¼þ¡¢Ò»¸öHScrollBar¿Ø¼þºÍÁù¸öCommandButton¿Ø¼þ¡£´°Ìå¼°¸÷¿Ø¼þµÄÖ÷ÒªÊôÐÔÉè
ÖÃÈçÏ£º
¡¡¡¡FORM1£ºCaption=“Ó¢ÎÄÀʶÁ”
¡¡¡¡LABEL1£ºCaption=“ÇëÊäÈëÓ¢ÎÄÎĵµ”
¡¡¡¡LABEL2£ºCaption=“ÀʶÁËٶȔ
¡¡¡¡LABEL3£ºCaption=“ ”
ÔÚVBÖÐʹÓÃÎÄ×ÖÀʶÁÒýÇ棨TTS£©¼¼Êõ£¨µÚ 1£¯4 Ò³£©2004-3-24 17:27:11
¡¡¡¡£¨LABEL3±êÇ©ÓÃÀ´ÏÔʾÀʶÁËÙ¶ÈÖµ£©
¡¡¡¡TEXT1£ºText=“Please input english text”£»ToolTiptext=“ÇëÊäÈë»òÕ³ÌùÓ¢ÎÄÎĵµ”£» MultiLine=True£»ScrollBars=3-Both
¡¡¡¡HSCROLL1:Ãû³Æ=SpeedChange£»Min=90£»Max=300£¨MinÓëMaxÊôÐÔÖµ·Ö±ðÓÃÀ´ÏÞ¶¨¿Éµ÷½ÚµÄÓïËÙµÄ×îСÓë×î´óÖµ£©
¡¡¡¡COMMAND1£ºÃû³
Ïà¹ØÎĵµ£º
±¾ÎÄÀ´×Ô´ËÌûµÄÈß³¤ÌÖÂÛ£¬¸ÐлTiger_ZhaoµÄÈ«³ÌÖ¸µãºÍ³Â»Ô¡¢°¢Ó¡¢ÂíÔƽ£µÈºÜ¶àÅóÓѵÄÈÈÐIJÎÓë¡£±¾ÎÄÆäËû²¿·ÖÔÚ£º£¨¶þ£©¡¢£¨Èý£©¡¢£¨ËÄ£©¡£
»°ËµVB6ÊǸöºÜÈÏÕæϸÖµÄÂèÂ裬Ëü»áÇÄûÉùµØ°ïÄã×öºÜ¶àÊ¡£½ñÌìÎÒÃÇÀ´ËµµÄÊÇVB6ÔÚAPIµ÷ÓÃʱ×Ô¶¯¶Ô×Ö·û´®²ÎÊý½øÐÐת»»µÄ“ºÃÈ˺ÃÊ”¡£
µÚÒ»½Ú ÌåÌùµÄVBÂè ......
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
VB
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = i1
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InBufferCount = 0
& ......
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......