vb.net输出怎么写 VBNET编程宝典

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

1.用Win32 API PlaySound

成都创新互联是一家专注于成都网站建设、网站设计与策划设计,达川网站建设哪家好?成都创新互联做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:达川等地区。达川做网站价格咨询:18980820575

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 怎样编写使用Do While 循环输出1-10的阶乘，我是新手请加上文字说明，呵呵，谢谢各位了！

首先在窗体上画两个控件：TextBox1和Button1

TextBox1用来输入需要计算那个数的阶乘

双击Button1进入输入代码，代码如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim Factorial As Integer = 1 '定义一个变量用来记录阶乘的结果

Dim count As Integer '定义一个变量用来记录需要计算那个数的阶乘

Dim i As Integer = 1 '定义一个数用来循环

count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值赋值给count

Do While i = count '下面开始计算阶乘

Factorial = Factorial * i '计算阶乘

i += 1 '自增1

Loop

MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的阶乘是：" Factorial, "完成", MessageBoxButtons.OK) '弹出计算结果

Catch ex As Exception '出错提示

MessageBox.Show(Err.Description, "出错了", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

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中怎么在图片上直接输出文字。向VB中有Print的方法

两种方法：

图片框上盖个Label 向其输入内容。

载入图片，通过内存直接 DrawImage绘制个新图，然后在图上盖文字。最后赋值给图片框。

VB6的print 实质是向图片框打印文字，不管有无图都能在上面Print. 考虑速度和实现难度问题，如果纯粹显示，最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下，不会自动换行，得自己切。

VB.net如何输出代数式,比如计算带参数的一元二次方程,请写清程序

额，我可以用vb6.0的语句回答您，给您参考，就是不知道您可以转化成.net语句与否。

'添加text1,text2,text3用于记录a,b,c的值

Private Sub Command1_Click()

On Error GoTo check

Dim a, b, c, result1, result2

a = Text1.Text

b = Text2.Text

c = Text3.Text

result1 = (((-1) * b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a

result2 = (((-1) * b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a

MsgBox "x1= "  result1  "  x2= "  result2

Exit Sub

check:

MsgBox "error!please check your number!"

End Sub