包含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
分享名称：包含vb.net频率图的词条
标题路径：http://myzitong.com/article/phssee.html