建站
咨詢
售后
建站咨詢
新聞中心
vb.net 編程 統(tǒng)計(jì)單詞出現(xiàn)的頻率
'把下面代碼復(fù)制到窗體，添加1個(gè)list?和一個(gè)command按鈕運(yùn)行就可以了，和一個(gè)文本框，數(shù)據(jù)輸入在文本框里
我們提供的服務(wù)有：網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、常熟ssl等。為上千余家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的常熟網(wǎng)站制作公司
Private?Type?English
word?As?String
count?As?Long
End?Type
'判斷是不是英文
Private?Function?En(ByVal?s?As?String)?As?Boolean
If?s?=?""?Then?En?=?False:?Exit?Function
s?=?LCase(s)
For?i?=?1?To?Len(s)
a?=?Asc(Mid(s,?i,?1))
If?a??97?Or?a??122?Then?En?=?False:?Exit?Function
Next
En?=?True
End?Function
'統(tǒng)計(jì)數(shù)組內(nèi)各個(gè)英文出現(xiàn)次數(shù)
Private?Function?TongJi(ByVal?T_txt?As?String)?As?English()
s?=?Split(T_txt,?"?")
n?=?0
Dim?English()?As?English
ReDim?English(0)
For?i?=?0?To?UBound(s)
If?s(i)??""?And?En(s(i))?=?True?Then
temp?=?False
For?j?=?0?To?UBound(English)
If?English(j).word?=?""?Then
English(j).word?=?s(i):?English(j).count?=?1:?Exit?For
ElseIf?English(j).word?=?s(i)?Then
temp?=?True:?English(j).count?=?English(j).count?+?1:?Exit?For
End?If
Next
If?temp?=?False?Then
ReDim?Preserve?English(n):?English(n).word?=?s(i):??English(n).count?=?1:?n?=?n?+?1
End?If
End?If
Next
TongJi?=?English
End?Function
Private?Sub?Command1_Click()
Dim?e()?As?English
e?=?TongJi(Text1)
Cls
For?i?=?0?To?UBound(e)
If?e(i).count??0?Then?List1.AddItem?e(i).word??"?出現(xiàn)過：?"??e(i).count??"?次"
Next
End?Sub
怎么在VB.NET中畫.wave文件的波形圖
代碼原理如下：
讀取.wave
播放.wave
在播放的同時(shí)根據(jù)波形數(shù)據(jù)生成圖形顯示出來。
vb.net怎么編程實(shí)現(xiàn)從音頻輸出口輸出指定頻率指定時(shí)長和占空比的單音信號。
1.用Win32 API PlaySound
PlaySound位于"winmm.dll"中，可以根據(jù)輸入?yún)?shù)的不同，播放WAV類型的音樂。在VB.NET中調(diào)用跟VB6中差不多：
先聲明：
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具體還有很多常量，不一一列舉，下面是播放一個(gè)wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的，就是說它并不會播放完畢才結(jié)束。如果把上面的代碼寫在一個(gè)Button.Click的事件處理程序中，第二次點(diǎn)擊的時(shí)候它會打斷第一次的播放，重新開始。
當(dāng)然我們也可以調(diào)用系統(tǒng)的聲音：
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式調(diào)用系統(tǒng)啟動時(shí)候的聲音。
2． 調(diào)用媒體播放器控件
VB.NET中并沒有提供媒體播放器的.NET組件，沒辦法我們還是調(diào)用以前Com組件Windows Media Player。當(dāng)然除了聲音外，還可以播放視頻文件。
首先把媒體播放器控件加到工具欄中，調(diào)用還是簡單的寫一下吧：）
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\愛不愛我.mp3"
.Play()
End With
End Sub
當(dāng)前名稱：包含vb.net頻率圖的詞條
分享URL：http://fisionsoft.com.cn/article/phssee.html
