vb.net文字播報(bào) vbs語音播報(bào)

想在vb.net的程序中有一個(gè)語音提示，該怎么寫

首先添加一個(gè)系統(tǒng)的語音COM組件的引用microsoft speech object library然后在程序中聲明一個(gè)語音類dim RC As SpeechLib.SpSharedRecoContext這個(gè)類有一些事件,如果你要處理它的一些事件,可以用withevent來聲明然后在窗體LOAD事件或你需要的地方先創(chuàng)建一個(gè)實(shí)例RC = New SpeechLib.SpSharedRecoContext當(dāng)一個(gè)RC被實(shí)例化后,系統(tǒng)就會(huì)運(yùn)行語音識(shí)別程序.前提是你的系統(tǒng)已經(jīng)正確安裝這個(gè)功能.一般默認(rèn)就已經(jīng)安裝好的.其次提醒一下,WIN7的語音識(shí)別比XP的好N倍.從閱讀到偵聽都好很多.然后就可以在你需要閱讀的地方使用RC.Voice.Speak("hello 我", 11)11那里是一些枚舉,用來標(biāo)識(shí)系統(tǒng)用前臺(tái)還是后臺(tái)或其他方式來閱讀文字,簡(jiǎn)單的來說就是閱讀的時(shí)候不會(huì)卡住你的程序.你可以選其他的枚舉來試試作用.以上為閱讀部分.如果需要程序聽你說話,則需要聲明一個(gè)偵聽類dim RG As SpeechLib.ISpeechRecoGrammar在初始化時(shí)將之與上面的RC建立關(guān)系,此時(shí)則必須要用withevent來聲明上面的RC,因?yàn)樯婕半娔X聽到你的語音后,會(huì)觸發(fā)一個(gè)事件,并將聽到的內(nèi)容傳遞到該事件.其次,要讓系統(tǒng)聽到的解析為命令,就必須準(zhǔn)備一個(gè)XML結(jié)構(gòu)的文件來保存那些固定的命令.如果電腦在XML文件中找不到那些固定命令或同時(shí)不屬于系統(tǒng)命令,電腦將會(huì)將其解釋為聽寫.RG = RC.CreateGrammar '(0)

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都做網(wǎng)站、網(wǎng)站制作、灌陽網(wǎng)絡(luò)推廣、微信小程序開發(fā)、灌陽網(wǎng)絡(luò)營銷、灌陽企業(yè)策劃、灌陽品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供灌陽建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.muchs.cn

RG.CmdLoadFromFile("聽到.xml", SpeechLib.SpeechLoadOption.SLODynamic)

RG.CmdSetRuleIdState(0, SpeechLib.SpeechRuleState.SGDSActive)然后寫一個(gè)過程來處理聽到的事件Private Sub 聽到命令(ByVal StreamNumber As Integer, ByVal StreamPosition As Object, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal 話語 As SpeechLib.ISpeechRecoResult) Handles RC.Recognition RC.Voice.Speak("我聽到了" 話語.PhraseInfo.GetText, 11)End Sub以上為偵聽部分.下面列一個(gè)XML的例文?xml version="1.0" encoding="gb2312"?

GRAMMAR LANGID="804"

RULE NAME="命令" TOPLEVEL="ACTIVE"

L

P打開播放器

P上我的QQ

P關(guān)閉你自己 /L

/RULE

/GRAMMAR要讓系統(tǒng)正確地偵聽到你說的話,前提你必須運(yùn)行語音識(shí)別程序并讓其激活到"正在聆聽"狀態(tài).并且你必須有一個(gè)能正常使用的話筒而且保證話筒已經(jīng)打開.(廢話-_-|||)以上就是用VB.NET語音識(shí)別的最基本的一些操作.希望對(duì)你有幫助.更深入的內(nèi)容有興趣的話可以和我一起研究.

請(qǐng)問如何用vb.net編寫程序控制led電子屏顯示文字？

主要是對(duì)SerialPort控件的編程和數(shù)據(jù)庫的讀取,

在數(shù)據(jù)庫讀取方面可以用 DataSet ,BindingSource , TableAdapter 等數(shù)據(jù)綁定控件,

SerialPort控件的具體讀寫方法建議你看MSDN,大概是:

Private Sub 關(guān)閉和啟動(dòng)串口()

Try

If 串口.IsOpen Then

串口.Close()

End If

串口.Open()

Catch ex As Exception

''''

End Try

End Sub

Private Sub 串口的讀與寫()

......

Dim 發(fā)送字節(jié)() As Byte, 返回字節(jié) As Byte

Try

'例如要發(fā)送字節(jié): 6D

發(fā)送字節(jié) = BitConverter.GetBytes(CByte("H6D"))

串口.Write(發(fā)送字節(jié), 0, 1)

......

'例如讀串口返回的字節(jié)

返回字節(jié) = 串口.ReadByte

Catch ex As Exception

''''

End Try

......

End Sub

'等等

vb.net 2005中如何在窗體上顯示字符或文字等

你可以在窗體上放一個(gè)Lable控件，取名叫Lable1， 那么實(shí)現(xiàn)方式就是： private sub form_load() Lable1.Text="今天天氣很好"; end sub 你可以試試

VB.NET中，如何編寫代碼使文字在窗口中上下循環(huán)滾動(dòng)？

文字寫在label的caption屬性中，調(diào)用timer()函數(shù)

附上我寫的左右往復(fù)運(yùn)動(dòng)代碼，實(shí)現(xiàn)image1在picture1中左右往復(fù)運(yùn)動(dòng)

Private

Sub

Timer1_Timer()

If

Image1.Left

=

Picture1.ScaleWidth

-

Image1.Width

Then

k

=

1

If

k

=

1

Then

Image1.Left

=

Image1.Left

-

50

Else

Image1.Left

=

Image1.Left

+

50

End

If

If

Image1.Left

=

Then

k

=

End

Sub

vb.net 如何讓自己寫的代碼也有代碼的提示

當(dāng)然可以

例如，你有一個(gè)方法，假如名叫Sort，沒有參數(shù)，這樣呢，就在

Sub Sort()的上面輸入三個(gè)單引號(hào)（就是注釋的那個(gè)），就會(huì)出現(xiàn)xml注釋：

''' summary

'''

''' /summary

Sub Sort()

End Sub

在summary下面一行寫“排序數(shù)組”（沒有引號(hào)），這時(shí)，調(diào)用方法的時(shí)候，就有像你圖上的那樣子的代碼提示

[VB.NET]如何用VB在窗體中實(shí)現(xiàn)閃爍文字

通過使用VB的Timer控件，程序員可以輕松的在窗體上實(shí)現(xiàn)閃爍文字的效果。本文將演示如何為L(zhǎng)abel控件加上閃爍效果，這種方法同樣適用于其它多種控件。以下代碼可以完成檢驗(yàn)ForeColor屬性的任務(wù)： Private Sub Timer1_Timer() If Label1.ForeColor = Label1.BackColor Then Label1.ForeColor = vbBlack Else Label1.ForeColor = Label1.BackColor End If End Sub 另外，你也可以讓文字采用不同的顏色，比如交替采用紅色和綠色： Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbGreen Else Label1.ForeColor = vbRed End If End Sub 當(dāng)你停止文字閃爍時(shí)，還要確定文字的狀態(tài)是可見的并且采用了合適的色彩。

標(biāo)題名稱：vb.net文字播報(bào) vbs語音播報(bào)
轉(zhuǎn)載來源：http://www.muchs.cn/article30/docsgpo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、用戶體驗(yàn)、小程序開發(fā)、外貿(mào)建站、網(wǎng)站制作、ChatGPT

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)