誰能分享一下vb.net多線程的簡單例子，證明線程之間互不干擾，加上注釋最好。

Imports?System

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、微信平臺(tái)小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了衛(wèi)東免費(fèi)建站歡迎大家使用！

Imports?System.Threading

Public?Class?Form1

Dim?TestThread1,?TestThread2?As?Thread

Public?Sub?TestMethod1()

Dim?i?As?Integer

i?=?0

While?(i??1000)

Label1.Text?=?i

i?+=?1

End?While

End?Sub

Public?Sub?TestMethod2()

Dim?i?As?Integer

i?=?0

While?(i??1000)

Label2.Text?=?i

i?+=?1

End?While

End?Sub

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

Control.CheckForIllegalCrossThreadCalls?=?False

TestThread1?=?New?Thread(New?ThreadStart(AddressOf?TestMethod1))

TestThread1.Start()

End?Sub

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

Control.CheckForIllegalCrossThreadCalls?=?False

TestThread2?=?New?Thread(New?ThreadStart(AddressOf?TestMethod2))

TestThread2.Start()

End?Sub

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

Control.CheckForIllegalCrossThreadCalls?=?False

TestThread1?=?New?Thread(New?ThreadStart(AddressOf?TestMethod1))

TestThread2?=?New?Thread(New?ThreadStart(AddressOf?TestMethod2))

TestThread1.Start()

TestThread2.Start()

End?Sub

End?Class

VB.net實(shí)例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog()?'創(chuàng)建一個(gè)保存對(duì)話框

SaveFileDialog1.Filter?="txt?files?(*.txt)|*.txt"?'設(shè)置擴(kuò)展名

IfSaveFileDialog1.ShowDialog()?=?System.Windows.Forms.DialogResult.OKThen?'如果確定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename,?Textbox1.Text,False)?'保存文本,False表示不追加文本，直接覆蓋其內(nèi)容

EndIf

原文鏈接：

幾種經(jīng)典的二值化方法及其vb.net實(shí)現(xiàn)

圖像二值化的目的是最大限度的將圖象中感興趣的部分保留下來，在很多情況下，也是進(jìn)行圖像分析、特征提取與模式識(shí)別之前的必要的圖像預(yù)處理過程。這個(gè)看似簡單的問題，在過去的四十年里受到國內(nèi)外學(xué)者的廣泛關(guān)注，產(chǎn)生了數(shù)以百計(jì)的閾值選取方法，但如同其他圖像分割算法一樣，沒有一個(gè)現(xiàn)有方法對(duì)各種各樣的圖像都能得到令人滿意的結(jié)果。

本文針對(duì)幾種經(jīng)典而常用的二值發(fā)放進(jìn)行了簡單的討論并給出了其vb.net 實(shí)現(xiàn)。

1、P-Tile法

Doyle于1962年提出的P-Tile (即P分位數(shù)法)可以說是最古老的一種閾值選取方法。該方法根據(jù)先驗(yàn)概率來設(shè)定閾值，使得二值化后的目標(biāo)或背景像素比例等于先驗(yàn)概率，該方法簡單高效，但是對(duì)于先驗(yàn)概率難于估計(jì)的圖像卻無能為力。

2、OTSU 算法（大津法）

OSTU算法可以說是自適應(yīng)計(jì)算單閾值（用來轉(zhuǎn)換灰度圖像為二值圖像）的簡單高效方法。1978 OTSU年提出的最大類間方差法以其計(jì)算簡單、穩(wěn)定有效，一直廣為使用。

3、迭代法（最佳閥值法）

(1)． 求出圖象的最大灰度值和最小灰度值，分別記為Zl和Zk，令初始閾值為：

(2)． 根據(jù)閾值TK將圖象分割為前景和背景，分別求出兩者的平均灰度值Z0和ZB:

式中，Z(i,j）是圖像上(i,j)點(diǎn)的象素值，N(i,j)是(i,j)點(diǎn)的權(quán)值，一般取1。

(3)． 若TK=TK+1，則所得即為閾值，否則轉(zhuǎn)2，迭代計(jì)算。

4、一維最大熵閾值法

它的思想是統(tǒng)計(jì)圖像中每一個(gè)灰度級(jí)出現(xiàn)的概率 ，計(jì)算該灰度級(jí)的熵 ,假設(shè)以灰度級(jí)T分割圖像，圖像中低于T灰度級(jí)的像素點(diǎn)構(gòu)成目標(biāo)物體（O），高于灰度級(jí)T的像素點(diǎn)構(gòu)成背景（B），那么各個(gè)灰度級(jí)在本區(qū)的分布概率為：

O區(qū)： i=1,2……,t

B區(qū)： i=t+1,t+2……L-1

上式中的 ,這樣對(duì)于數(shù)字圖像中的目標(biāo)和背景區(qū)域的熵分別為：

對(duì)圖像中的每一個(gè)灰度級(jí)分別求取W=H0 +HB，選取使W最大的灰度級(jí)作為分割圖像的閾值，這就是一維最大熵閾值圖像分割法。

網(wǎng)站題目：vb.net經(jīng)典小例子 vb net
本文來源：http://chinadenli.net/article18/dogchgp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營銷型網(wǎng)站建設(shè)、網(wǎng)站改版、網(wǎng)站排名、網(wǎng)站收錄、外貿(mào)網(wǎng)站建設(shè)、建站公司

廣告

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