vb.net怎么編程實(shí)現(xiàn)從音頻輸出口輸出指定頻率指定時(shí)長和占空比的單音信號(hào)。

1.用Win32 API PlaySound

成都創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)與策劃設(shè)計(jì),達(dá)川網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:達(dá)川等地區(qū)。達(dá)川做網(wǎng)站價(jià)格咨詢:18980820575

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)

注意上面的播放是非同步的，就是說它并不會(huì)播放完畢才結(jié)束。如果把上面的代碼寫在一個(gè)Button.Click的事件處理程序中，第二次點(diǎn)擊的時(shí)候它會(huì)打斷第一次的播放，重新開始。

當(dāng)然我們也可以調(diào)用系統(tǒng)的聲音：

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

' 以同步的方式調(diào)用系統(tǒng)啟動(dò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

VB.NET 怎樣編寫使用Do While 循環(huán)輸出1-10的階乘，我是新手請(qǐng)加上文字說明，呵呵，謝謝各位了！

首先在窗體上畫兩個(gè)控件：TextBox1和Button1

TextBox1用來輸入需要計(jì)算那個(gè)數(shù)的階乘

雙擊Button1進(jìn)入輸入代碼，代碼如下

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

Try

Dim Factorial As Integer = 1 '定義一個(gè)變量用來記錄階乘的結(jié)果

Dim count As Integer '定義一個(gè)變量用來記錄需要計(jì)算那個(gè)數(shù)的階乘

Dim i As Integer = 1 '定義一個(gè)數(shù)用來循環(huán)

count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值賦值給count

Do While i = count '下面開始計(jì)算階乘

Factorial = Factorial * i '計(jì)算階乘

i += 1 '自增1

Loop

MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的階乘是：" Factorial, "完成", MessageBoxButtons.OK) '彈出計(jì)算結(jié)果

Catch ex As Exception '出錯(cuò)提示

MessageBox.Show(Err.Description, "出錯(cuò)了", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

vb.net 如何實(shí)現(xiàn)輸出一串字符串中的所有字符以及每個(gè)字符的出現(xiàn)次數(shù)？

使用一個(gè)單重的循環(huán)掃描這個(gè)字符串中的所有字符，對(duì)每一個(gè)字符的出現(xiàn)次數(shù)進(jìn)行統(tǒng)計(jì)，最后輸出每個(gè)字符的出現(xiàn)次數(shù)。

Private Sub Command1_Click()

s = InputBox("請(qǐng)輸入一個(gè)英文字符串：")

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的方法

兩種方法：

圖片框上蓋個(gè)Label 向其輸入內(nèi)容。

載入圖片，通過內(nèi)存直接?DrawImage繪制個(gè)新圖，然后在圖上蓋文字。最后賦值給圖片框。

VB6的print 實(shí)質(zhì)是向圖片框打印文字，不管有無圖都能在上面Print. 考慮速度和實(shí)現(xiàn)難度問題，如果純粹顯示，最好直接蓋個(gè)Label最簡單。第二種方法 需要考慮文字大小、顏色、坐標(biāo)定位等等。如果一行文字顯示不下，不會(huì)自動(dòng)換行，得自己切。

VB.net如何輸出代數(shù)式,比如計(jì)算帶參數(shù)的一元二次方程,請(qǐng)寫清程序

額，我可以用vb6.0的語句回答您，給您參考，就是不知道您可以轉(zhuǎn)化成.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

文章題目：vb.net輸出怎么寫 VBNET編程寶典
當(dāng)前URL：http://www.chinadenli.net/article8/hpijop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供建站公司、網(wǎng)站收錄、移動(dòng)網(wǎng)站建設(shè)、定制開發(fā)、小程序開發(fā)、

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)