包含vb.net频率图的词条

vb.net 编程 统计单词出现的频率

'把下面代码复制到窗体，添加1个list 和一个command按钮运行就可以了，和一个文本框，数据输入在文本框里

我们提供的服务有：网站设计制作、成都网站制作、微信公众号开发、网站优化、网站认证、常熟ssl等。为上千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的常熟网站制作公司

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

'统计数组内各个英文出现次数

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  " 出现过： "  e(i).count  " 次"

Next

End Sub

怎么在VB.NET中画.wave文件的波形图

代码原理如下：

读取.wave

播放.wave

在播放的同时根据波形数据生成图形显示出来。

vb.net怎么编程实现从音频输出口输出指定频率指定时长和占空比的单音信号。

1.用Win32 API PlaySound

PlaySound位于"winmm.dll"中，可以根据输入参数的不同，播放WAV类型的音乐。在VB.NET中调用跟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

具体还有很多常量，不一一列举，下面是播放一个wav文件的例子

Dim mstrfileName As String = "c:\eagle2.wav"

PlaySound(mstrfileName, 0, SND_FILENAME)

注意上面的播放是非同步的，就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中，第二次点击的时候它会打断第一次的播放，重新开始。

当然我们也可以调用系统的声音：

PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)

' 以同步的方式调用系统启动时候的声音。

2． 调用媒体播放器控件

VB.NET中并没有提供媒体播放器的.NET组件，没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外，还可以播放视频文件。

首先把媒体播放器控件加到工具栏中，调用还是简单的写一下吧：）

Private Sub playMediaFile(ByVal mediaFileName As String)

With MediaPlayer1

.Stop()

.FileName = "c:\mp3\爱不爱我.mp3"

.Play()

End With

End Sub