用VS2015，創(chuàng)建的VB.NET應(yīng)用程序，如何同時操作兩個EXCEL工作簿

首先定義

成都創(chuàng)新互聯(lián)公司是創(chuàng)新、創(chuàng)意、研發(fā)型一體的綜合型網(wǎng)站建設(shè)公司，自成立以來公司不斷探索創(chuàng)新，始終堅持為客戶提供滿意周到的服務(wù)，在本地打下了良好的口碑，在過去的10多年時間我們累計服務(wù)了上千家以及全國政企客戶，如成都不銹鋼雕塑等企業(yè)單位，完善的項目管理流程，嚴格把控項目進度與質(zhì)量監(jiān)控加上過硬的技術(shù)實力獲得客戶的一致稱贊。

Public xlApp As Excel.Application

Public xlBook As Excel.Workbook Public xlSheet As Excel.Worksheet然后創(chuàng)建對象

xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象

xlBook = xlApp.Workbooks.Open("文件路徑") '打開已經(jīng)存在的EXCEL工件簿文件

xlSheet = xlBook.Worksheets("sheet1")

五子棋游戲程序設(shè)計（VB）

五子棋的AI構(gòu)想 有句話叫“當局者迷，旁觀者清。”，但這句話在由AI所控制的計算機玩家上是不成立的，因為計算機必須知道有那些獲勝方式，并計算出每下一步棋到棋盤上任一格子的獲勝幾率，也就是說，一個完整的五子棋的AI構(gòu)想必須：

　

1、能夠知道所有的獲勝組合； 2、建立和使用獲勝表； 3、設(shè)定獲勝的分數(shù)； 4、使電腦具有攻擊和防守的能力； 一、求五子棋的獲勝組合 在一場五子棋的游戲中，計算機必須要知道有那些的獲勝組合，因此我們必須求得獲勝組合的總數(shù)。我們假定當前的棋盤為10*10。 （1）計算水平方向的獲勝組合數(shù)，每一列的獲勝組合是：6，共10列，所以水平方向的獲勝組合數(shù)為：6*10=60 （2）計算垂直方向的獲勝組合總數(shù)，每一行的獲勝組合是：6，共10行，則垂直方向的獲勝組合數(shù)為：6*10=60 （3）計算正對角線方向的獲勝組合總數(shù)，正對角線上的獲勝組合總數(shù)為6+（5+4+3+2+1）*2=36 （4）計算反對角線方向的獲勝組合總數(shù)，反對角線上的獲勝組合總數(shù)為6+（5+4+3+2+1）*2=36 ，這樣所有的獲勝組合數(shù)為：60+60+36+36=192 二、建立和使用獲勝表 我們已經(jīng)計算出了一個10*10的五子棋盤會有192種獲勝方式，這樣我們可以利用數(shù)組建立獲勝表，獲勝表的主要作用是：1，判斷當前的獲勝方式是否有效；2，判斷當前的獲勝方式中到底有多少子落入該獲勝組合中。詳細的使用您將在后面的程序中可以看出。 三，分數(shù)的設(shè)定 在游戲中為了讓計算機能夠決定下一步最佳的走法，必須先計算出計算機下到棋盤上任一空格的分數(shù)，而其中最高分數(shù)便是計算機下一步的最佳走法。 原理：我們判定當前討論的空格與當前討論的點有幾種獲勝的方式，有幾種該空格就加幾分。這種原理初聽起來似乎是無法入手，沒關(guān)系，當您了解我們后面的程序后您就會明白這種決策原理了。 這種決策有一些缺陷，因為如果只根據(jù)這個模型設(shè)計，就有可能出現(xiàn)電腦或玩家有三個子連成一線的時候，計算機卻判斷不出，它認為其他某些空格是當前的獲勝的最佳位置而不去攻擊或防守。沒關(guān)系我們完全可以通過一個加強算法來改變當前的分值情況，也就是說當電腦或玩家有三個子或四個子連成一線時，我們通過加強算法將當前與三個子或四個子有關(guān)的空格的分值提高，從而可以彌補這一缺憾。 四、攻擊與防守 以上的方式，事實上計算機只是計算出了最佳的攻擊位置，為了防守我們還應(yīng)計算當前玩家的最佳的攻擊位置。這樣有什么用呢？道理很簡單，如果玩家最佳攻擊位置的分數(shù)大于計算機最佳攻擊位置上的分數(shù)，那么計算機就將下一步的棋子擺在玩家的最佳攻擊位上以阻止玩家的進攻，否則計算機便將棋子下在自己的最佳攻擊位置上進行攻擊。 事實上，這個AI構(gòu)想是很強大的如果你不是很厲害的五子棋高手的話，可能很快會被計算機打敗。我在聯(lián)眾上可是中級棋手啊，跟這種構(gòu)想打的時候勝率也不是很高。 使用vb.net編寫五子棋 一、編寫前的準備： 1、用計算機的思想描述整個下棋的過程 考慮步驟： （1）為了簡便我們可以先讓電腦先走第一步棋，電腦每走一步就會封掉許多玩家的獲勝可能情況。 （2）當玩家走棋的時候我們首先應(yīng)該考慮玩家走棋的合法性。 （3）如果合法，那么玩家也會封掉許多電腦的獲勝的可能情況。 （4）電腦的思考路徑：首先判斷當前玩家和電腦的所有獲勝組合是否需要進行加強賦值，

是進行加強賦值，否則進行普通的賦值。 （5）比較當前玩家和電腦誰的分值最大。將分值最大的點作為電腦的下一步走法。 2、利用vb.net窗體和圖形工具建立五子棋的棋盤界面 （1）添加一個picturebox控件 作用：使用picturebox控件繪制棋子和棋盤 （2）添加一個label控件 作用：顯示當前的獲勝標志，也就是當某一方獲勝或和棋時顯示此標簽。 （3）添加一個mainmenu控件 作用：控制游戲的開始或結(jié)束 （4）添加一個mediaplay組件 作用：使程序可以播放音樂。 3、設(shè)置整體框價 我們采取10*10的棋盤，為主要的平臺。利用數(shù)組定義整個棋盤桌面，利用數(shù)組定義獲勝組合以及獲勝標志等。 二，聲明全局數(shù)組和變量 定義虛擬桌面： Dim table(9, 9) As Integer 定義當前玩家桌面空格的分數(shù)： Dim pscore(9, 9) As Integer 定義當前電腦桌面空格的分數(shù)： Dim cscore(9, 9) As Integer 定義玩家的獲勝組合： Dim pwin(9, 9, 191) As Boolean 定義電腦的獲勝組合： Dim cwin(9, 9, 191) As Boolean 定義玩家的獲勝組合標志： Dim pflag(191) As Boolean 定義電腦的獲勝組合標志：

Dim cflag(191) As Boolean 定義游戲有效標志： Dim theplayflag As Boolean 三、初始化游戲 '*****************************************************************************

'** 模塊名稱: initplayenvironment

'**

'** 描述: 此函數(shù)主要功能如下:

'** 1. 設(shè)置背景音樂。

'** 2. 設(shè)置游戲狀態(tài)有效。

'** 3. 初始化游戲狀態(tài)標簽。

'** 4. 直接指定電腦的第一步走法。

'** 5. 初始化基本得分桌面。

'** 6. 電腦和玩家獲勝標志初始化。

'** 7. 初始化所有獲勝組合。

'** 8. 重新設(shè)定玩家的獲勝標志。

'**

'*****************************************************************************

Sub initplayenvironment()

player.FileName = ".\music\zhyu01.mid"

player.Play()

theplayflag = True

'游戲有效

Label1.Visible = False

'游戲狀態(tài)標簽不顯示

PictureBox1.Refresh()

'清空picturebox1的內(nèi)容

yuandian(130, 130)

'調(diào)用繪圖函數(shù)繪制當前電腦先走的位置

Dim i, j, m, n As Integer

For i = 0 To 9

For j = 0 To 9

table(i, j) = 0

Next

Next

'桌面初始化

For i = 0 To 191

pflag(i) = True

cflag(i) = True

Next

'獲勝標志初始化

table(4, 4) = 1

'由于我們設(shè)定電腦先手，并下了4，4位所以將其值設(shè)為1

''' ******** 初始化獲勝組合 ********

n = 0

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i, n) = True

cwin(j + m, i, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 9

For j = 0 To 5

For m = 0 To 4

pwin(i, j + m, n) = True

cwin(i, j + m, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 5

For j = 0 To 5

For m = 0 To 4

pwin(j + m, i + m, n) = True

cwin(j + m, i + m, n) = True

Next

n = n + 1

Next

Next

For i = 0 To 5

For j = 9 To 4 Step -1

For m = 0 To 4

pwin(j - m, i + m, n) = True

cwin(j - m, i + m, n) = True

Next

n = n + 1

Next

Next

''' ******** 初始化獲勝組合結(jié)束 ********

For i = 0 To 191

If pwin(4, 4, i) = True Then

pflag(i) = False

End If

Next

'由于電腦已下了4，4位所以我們需要重新設(shè)定玩家的獲勝標志

End Sub

四，處理鼠標事件 '*****************************************************************************

'** 模塊名稱: themousedown

'**

'** 描述: 此函數(shù)主要實行以下功能：

'** 1. 判定當前游戲標志是否有效。

'** 2. 將實際坐標轉(zhuǎn)化成虛擬坐標。

'** 3. 繪制玩家的棋子。

'** 4. 執(zhí)行檢查獲勝函數(shù)。

'** 5. 執(zhí)行電腦算法函數(shù)。

'**

'*****************************************************************************

Sub themousedown(ByVal x As Integer, ByVal y As Integer)

If theplayflag = False Then

Exit Sub

End If

'檢查游戲狀態(tài)是否有效

Dim i, j As Integer

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

For i = 0 To 9

For j = 0 To 9

If table(zhx, zhy) 0 Then

Exit Sub

End If

Next

Next

'檢查當前鼠標點擊的格子是否有效

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

mycolor = Color.White

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

'繪制玩家的棋子

table(zhx, zhy) = 2

For i = 0 To 191

If cwin(zhx, zhy, i) = True Then

cflag(i) = False

End If

Next

'重設(shè)電腦的獲勝標志

checkwin()

'檢查當前玩家是否獲勝

diannao()

'調(diào)用電腦算法

End Sub 五、獲勝檢查算法。 '*****************************************************************************

'** 模塊名稱: checkwin

'**

'** 描述: 此模塊執(zhí)行以下功能:

'** 1. 檢查是否和棋。

'** 2. 檢查電腦是否獲勝。

'** 3. 檢查玩家是否獲勝。

'**

'*****************************************************************************

Sub checkwin()

Dim i, j, k, m, n As Integer

Dim ca As Integer

Dim pa As Integer

Dim cnormal As Integer = 0

For i = 0 To 191

If cflag(i) = False Then

cnormal = cnormal + 1

End If

Next

If cnormal = 190 Then

Label1.Visible = True

Label1.Text = "和棋，請重新開始！"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

'設(shè)定和棋規(guī)則

For i = 0 To 191

If cflag(i) = True Then

ca = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

ca = ca + 1

End If

End If

Next

Next

If ca = 5 Then

Label1.Visible = True

Label1.Text = "電腦獲勝,請重新開始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

End If

Next

'檢查電腦是否獲勝

For i = 0 To 191

If pflag(i) = True Then

pa = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pa = pa + 1

End If

End If

Next

Next

If pa = 5 Then

Label1.Visible = True

Label1.Text = "玩家獲勝,請重新開始"

PictureBox1.Refresh()

theplayflag = False

Exit Sub

End If

End If

Next

'檢查玩家是否獲勝

End Sub 　六、電腦算法 '*****************************************************************************

'** 模塊名稱: diannao

'**

'** 描述: 此程序主要執(zhí)行以下功能：

'** 1. 初始化賦值系統(tǒng)。

'** 2. 賦值加強算法。

'** 3. 計算電腦和玩家的最佳攻擊位。

'** 4. 比較電腦和玩家的最佳攻擊位并決定電腦的最佳策略。

'** 5. 執(zhí)行檢查獲勝函數(shù)。

'**

'***************************************************************************** Sub diannao()

Dim i, j, k, m, n As Integer

Dim dc As Integer

Dim cab As Integer

Dim pab As Integer

For i = 0 To 9

For j = 0 To 9

pscore(i, j) = 0

cscore(i, j) = 0

Next

Next

'初始化賦值數(shù)組

''' ******** 電腦加強算法 ********

For i = 0 To 191

If cflag(i) = True Then

cab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 1 Then

If cwin(j, k, i) = True Then

cab = cab + 1

End If

End If

Next

Next

Select Case cab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

cscore(m, n) = cscore(m, n) + 5

End If

End If

Next

Next

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If cwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

Next

End If

End If

Next

Next

End Select

End If

Next

For i = 0 To 191

If pflag(i) = True Then

pab = 0

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 2 Then

If pwin(j, k, i) = True Then

pab = pab + 1

End If

End If

Next

Next

Select Case pab

Case 3

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

pscore(m, n) = pscore(m, n) + 30

End If

End If

Next

Next

Case 4

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 0 Then

If pwin(m, n, i) = True Then

yuandian(m * 30 + 10, n * 30 + 10)

table(m, n) = 1

For dc = 0 To 191

If pwin(m, n, dc) = True Then

pflag(dc) = False

checkwin()

Exit Sub

End If

Next

End If

End If

Next

Next

End Select

End If

Next

''' ******** 電腦加強算法結(jié)束 ******** ' ******** 賦值系統(tǒng) ********

For i = 0 To 191

If cflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If cwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 1 Then

If cwin(m, n, i) = True Then

cscore(j, k) = cscore(j, k) + 1

End If

End If

Next

Next

End If

End If

Next

Next

End If

Next

For i = 0 To 191

If pflag(i) = True Then

For j = 0 To 9

For k = 0 To 9

If table(j, k) = 0 Then

If pwin(j, k, i) = True Then

For m = 0 To 9

For n = 0 To 9

If table(m, n) = 2 Then

If pwin(m, n, i) = True Then

pscore(j, k) = pscore(j, k) + 1

End If

End If

Next

Next

End If

End If

Next

Next

End If

Next

''' ******** 賦值系統(tǒng)結(jié)束 ********

''' ******** 分值比較算法 ********

Dim a, b, c, d As Integer

Dim cs As Integer = 0

Dim ps As Integer = 0

For i = 0 To 9

For j = 0 To 9

If cscore(i, j) cs Then

cs = cscore(i, j)

a = i

b = j

End If

Next

Next

For i = 0 To 9

For j = 0 To 9

If pscore(i, j) ps Then

ps = pscore(i, j)

c = i

d = j

End If

Next

Next

If cs ps Then

yuandian(a * 30 + 10, b * 30 + 10)

table(a, b) = 1

For i = 0 To 191

If pwin(a, b, i) = True Then

pflag(i) = False

End If

Next

Else

yuandian(c * 30 + 10, d * 30 + 10)

table(c, d) = 1

For i = 0 To 191

If pwin(c, d, i) = True Then

pflag(i) = False

End If

Next

End If

''' ******** 分值比較算法結(jié)束 ********

checkwin()

End Sub 七、繪制棋子 '*****************************************************************************

'** 模塊名稱: yuandian

'**

'** 描述: 此函數(shù)主要進行電腦棋子的繪制。

'**

'***************************************************************************** Sub yuandian(ByVal x As Integer, ByVal y As Integer)

Dim mycolor As Color

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

mycolor = Color.Black

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

End Sub

VBAI 和 Vision Assistant的區(qū)別

DVBAI全稱叫Vision Builder for Automation Inspection，NI官方的中文名稱叫用于自動檢測的視覺生成器。其可以理解為NI的工程師使用NI Vision Developments Module（視覺開發(fā)包VDM）開發(fā)的一款功能比較強大的應(yīng)用程序。使用VBAI，可以直接用于項目檢測，而不需要工程師再花太多的心思用于搭建程序框架，實現(xiàn)邏輯功能等。因此很多時候，一些簡單的項目，使用VBAI，可能幾分鐘就可以完成了。VBAI的優(yōu)點是可以快速的檢測一些常規(guī)的視覺項目，而不需要花費太多的時間精力于編程上，入門相對簡單。但是其缺點也是明顯的，那就是其界面框架已經(jīng)是固定的，要想有太多的修改編輯，是不可能的；目前還只有英文版的，要想弄成中文版的，也不方便；其支持的硬件，一般只能是NI的硬件，或NI認證的，或者是一些標準通信協(xié)議的硬件，才能被支持，比較受限制，如許多國產(chǎn)相機、采集卡、IO卡，在VBAI中就無法使用；VBAI做的項目，一般不能集成運動控制，如果有運動控制，只能考慮使用PLC，然后利用通信的方式與PLC交換數(shù)據(jù)。其它的一些問題，如數(shù)據(jù)保存等也只能TXT、CSV等幾種格式。另外VBAI的腳本執(zhí)行是順序方式的，不能發(fā)揮LabVIEW的并行特性，因此其執(zhí)行效率相對來講，會慢一些。VBAI也可以生成開發(fā)程序的代碼，但是因為其本身的復(fù)雜性（變量系統(tǒng)、附加工具等），其生成的代碼相對比較復(fù)雜，難以看明白，調(diào)用起來不是很方便。VBAI的加密也很簡單，只能保護腳本。如果給客戶安裝了VBAI，那么想要他可以修改參數(shù)，就得告訴其密碼，這樣對于軟件產(chǎn)品的保護，是不利的。

# H8 { w c2 q, b7 K4 I

9 W9 c9 B. e5 p- a: ^/ I. |NI Vision Developments Module（視覺開發(fā)包VDM），則是NI的所有視覺函數(shù)的集成總合，所有NI視覺相關(guān)的程序、軟件都是調(diào)用VDM中的函數(shù)，VBAI也是調(diào)用VDM里的函數(shù)。在安裝完成VDM后，會附帶生成視覺助手Vision Assistant。當然視覺助手本身也是一個EXE應(yīng)用程序。其實現(xiàn)模式與VBAI非常類似，但是功能上沒有VBAI那么強大，他不能實時的進行采集、處理、判斷這樣的過程。因為其采集與分析是分開的，然后沒有變量系統(tǒng)，也就不能做規(guī)格判斷。只能驗證找沒找到特征，可以測量得到特征的數(shù)據(jù)。但是正因為其相對簡單，所以他生成的代碼相簡單明了許多。這也是NI出視覺助手的根本目的，就是為了讓用戶使用助手可以完成大部分的視覺功能，則不用去直接調(diào)用VDM中的函數(shù)，這樣可以更方便的使用VDM。) U, e3 I+ S2 h6 @! T9 y. Q8 `

; _* v) c7 E' xVBAI就像部門經(jīng)理，VDM像總經(jīng)理，部門經(jīng)理能干的事，總經(jīng)理基本都能干。視覺助手就是總經(jīng)理的秘書。秘書可以幫總經(jīng)理做一些事，但是不是所有事都可以做，要都做了，還要總經(jīng)理干嘛。) O; p) H S( U" m* ?

. v, j5 t4 B( c! N" V) e8 T- v ~5 UVBAI和視覺助手，都只能完成VDM中的大部分功能，有一些其它的特殊功能函數(shù)是無法完成的。因此如果想要有比較好、全面的開發(fā)，當然是使用LabVIEW這樣的開發(fā)平臺直接調(diào)用VDM中的函數(shù)。這時如果對VDM不是很熟悉，可以使用視覺助手來生成代碼（LabVIEW、C、.NET），以方便開發(fā)平臺的調(diào)用。而如果只是為了簡單的應(yīng)用、驗證，使用VBAI即可。如果是比較有量的商業(yè)項目，肯定還是考慮使用LabVIEW+VDM這樣的模式自己開發(fā)軟件，這樣可以有效的保護自己的軟件產(chǎn)品，而不會被客戶隨意復(fù)制。+ L" b @9 l2 m* Q u ], \

4 ~3 T6 V! Q6 Z9 {6 N0 V9 J# H

在VB.net中如何取變量、結(jié)構(gòu)、數(shù)組、函數(shù)的地址？

當然可以的，需要System.Runtime.InteropServices?命名空間中的?Marshal?類

Imports?System.Runtime.InteropServices?'這里一定要有?

Public?Class?Form1

Public?Structure?m_Point

Dim?x?As?Integer

Dim?y?As?Integer

End?Structure

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

Dim?i?As?Integer?=?50

Dim?ai()?As?Integer?=?{1,?2,?3,?4,?5}

Dim?pi?As?IntPtr?=?GCHandle.Alloc(i,?GCHandleType.Pinned).AddrOfPinnedObject()?'取得整形變量的指針?

Dim?pai?As?IntPtr?=?GCHandle.Alloc(ai,?GCHandleType.Pinned).AddrOfPinnedObject()?'取得整形數(shù)組首地址指針

MsgBox(Marshal.ReadInt32(pi,?0))?'讀回整形變量指針指向的值

MsgBox(Marshal.ReadInt32(pai,?0?*?4))?'讀回數(shù)組的第一個元素

MsgBox(Marshal.ReadInt32(pai,?1?*?4))?'讀回數(shù)組的第二個元素

MsgBox(Marshal.ReadInt32(pai,?2?*?4))?'讀回數(shù)組的第三個元素

'-----下面是結(jié)構(gòu)--------------------------

Dim?m_p?As?New?m_Point

m_p.x?=?100

m_p.y?=?50

Dim?pm_p?As?IntPtr?=?GCHandle.Alloc(m_p,?GCHandleType.Pinned).AddrOfPinnedObject()?'取得結(jié)構(gòu)首地址指針?

MsgBox(Marshal.ReadInt32(pm_p,?0?*?4))?'讀回結(jié)構(gòu)的第一個值

MsgBox(Marshal.ReadInt32(pm_p,?1?*?4))?'讀回結(jié)構(gòu)的第二個值

End?Sub

End?Class

vb.net python哪個好

要去專業(yè)學(xué)習(xí)，建議選Python

個人認為二者各有利弊。

vb.net是由vb化來的，Python被稱為“最貼近自然語言的編程語言”，都比較容易上手；

vb.net可以高效開發(fā)有圖形界面的應(yīng)用，Python需要Gui庫等，可能稍遜一籌；

但Python作為十分高級的腳本語言，十分適合AI開發(fā)，也因此具有潛力。

最后，祝你在編程的路上漸行漸遠，樂此不疲。驀然回首數(shù)載，盡享編程美好！

多媒體 音頻 聲音 音量 大小 如何得到系統(tǒng)實時音量大小，用VB.net易的win7聲音控制軟件，

驅(qū)動程序，設(shè)置，文件，注冊表四個方面，震動，如看它是否可以恢復(fù)全面檢查，案件的接口是壞的，這是為配件

首先，請檢查聲音卡驅(qū)動程序，右鍵單擊“我的電腦” - 屬性 - 硬件 - 設(shè)備管理器 - 聲音，視頻和游戲控制器 - 右擊 - ReaItek - 更新或掃描，卸載并重新安裝。 （如果你下載的驅(qū)動程序生命沒有驅(qū)動程序包 - 驅(qū)動更新 - 聲音，視頻 - 開始更新 - 自動找到的官方驅(qū)動程序 - 重新啟動計算機。）

調(diào)試麥克風(fēng)：控制面板 - 高清晰音頻配置 - 混頻器 - 重放 - 小扳手 - 選擇 - OK - - 后粉紅色 - X'靜音，推高了麥克風(fēng)插孔前面板 - 選擇 - OK，然后打X麥克風(fēng)靜音，然后在右邊拉點音頻I/O--小扳手 - 選擇“禁用前面板插孔檢測 - OK - 返回混頻器 - 錄制 - 小扳手 - 點擊麥克風(fēng)的音量（版本不一致需打X-靜音立體聲混音）

加強麥克風(fēng)：右鍵單擊右下角的小喇叭（小喇叭的音量上） - 調(diào)整音頻屬性 - 音量 - 設(shè)備音量 - 高級 - （主音??量全推到上） - 選項 - 屬性 - 麥克風(fēng)音量打勾 - 確定返回選項 - 高級控制 - 高級 - 麥克風(fēng)加強了鉤。

右下角的小喇叭顯示：開始---設(shè)置---控制面板 - 聲音和音頻設(shè)備 - 音量 - （勾選）將音量圖標放入任務(wù)欄上。

5。在網(wǎng)頁中，網(wǎng)頁聲音的操作方法：打開網(wǎng)頁 - 工具 - 選項 - 高級 - （勾選）播放的聲音。

6。游戲耳機出聲來：控制面板---高清晰音頻配置 - 音頻I/O--耳機 - 選舉8CH喇叭。

7。前部和后部面板插孔調(diào)試：控制面板 - 高清晰音頻配置 - 音頻I/O--模擬 - 后面板插孔圖標 - 單擊 - 你插入的設(shè)備嗎？ （需插入的設(shè)備，如插耳機） - 當選耳機 - OK，所以

8。使用QQ聊天的語言時，MIC音量無法調(diào)整，請下載補丁。

9，如聲卡驅(qū)動安裝不上的解決方法：控制面板 - 管理工具 - 服務(wù) - Windows音頻 - 啟動類型設(shè)置為“自動”重新啟動它。

10。注冊表的方法：

開始 - 運行 - 輸入regedit打開注冊表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\的Windows \ CurrentVersion \ Run在右側(cè)窗口中新建字符串”系統(tǒng)托盤“點右鍵（在運行于新的）鍵（在系統(tǒng)托盤中雙擊編輯）“C：\ WINDOWS \ SYSTEM32 \ Systray.exe”win2000系統(tǒng)，或“C：\ WINNT \ SYSTEM32 \ Systray.exe”

開始 - 運行 - 輸入regedit打開注冊表，然后單擊“打開HKEY_LOCAL_MACHINE \ SOFTWARE \微軟\ WINDOWSNT \ CURRENTVERSION \ Drivers32創(chuàng)建一個新的字符串值，命名為”wavemapper“值”msacm32。DRV“。重新啟動計算機。

分享文章：vb.netai的簡單介紹
鏈接URL：http://jinyejixie.com/article40/docheeo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供域名注冊、響應(yīng)式網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、App開發(fā)、靜態(tài)網(wǎng)站、ChatGPT

廣告

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