vb.net中如何输出,vb输出到文件

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中怎么 调试输出 返回值啊？？

例如你用msgbox,你在输入这个函数的参数的时候会有个提示框弹出来,里面有每个参数的类型已经这个函数的返回值类型,

你可以记下来返回值的类型msgbox的是Microsoft.VisualBasic.MsgBoxResult

然后你按下F2

输入MsgBoxResult去搜索(不知道为什么搜索Microsoft.VisualBasic.MsgBoxResult没有结果)

可以看到MsgBoxResult的方法,函数和枚举项,枚举项就是你要的东西.自己看

其实你还可以直接就F2然后搜索MSGBOX,会得到这个函数的详细讯息,返回值有哪些结果也会得到.

多看看MSDN如果没装

按F2多看看对象浏览器

你可以得到很多答案

vb.net 如何实现输出一串字符串中的所有字符以及每个字符的出现次数？

使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。

Private Sub Command1_Click()

s = InputBox("请输入一个英文字符串：")

Dim a(128) As Integer

For i = 1 To Len(s)

t = Asc(Mid(s, i, 1))

a(t) = a(t) + 1

Next i

For i = 1 To 127

If a(i) 0 Then Print Chr(i); ":"; a(i)

Next i

End Sub

在vb.net中怎么把一个字符串怎么输出到当前计算机桌面上显示呢

在vb2008下，form具有TransparencyKey属性，将窗体的背景色和TransparencyKey颜色设置一致时，窗体会完全透明，显示文字时，给文字不同的颜色，文字会直接显示当前屏幕之上设置form1属性，TransparencyKey=黑色，BackColor=黑色 绘制窗体的代码，给文字以不同颜色 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

e.Graphics.DrawString("你好", New Font("黑体", 60, FontStyle.Bold), Brushes.Blue, 0, 0)

End Sub 可以设置窗体置顶属性，永远前端显示也可以显示在桌面，用setparent，父窗体为桌面