vb.net并行运算 net并行编程

vb.net如何让两个窗体并发运行

Imports System.Threading

创新互联公司长期为上千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为民乐企业提供专业的网站制作、网站设计，民乐网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。

Public Class Form1

Dim t1, t2 As Thread

Dim tt1

Private Delegate Sub voiddelegate(ByVal i As Integer)

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Form2.Show()

End Sub

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

t1 = New Thread(AddressOf test)

tt1 = 1

t1.Start()

tt1 = 2

t2 = New Thread(AddressOf test)

t2.Start()

' Timer1.Start()

End Sub

Private Sub updateui(ByVal i As Integer)

Form2.Label1.Text = i.ToString

Form2.Label2.Text = i.ToString

End Sub

'把循环放到线程中运行会好一些，其实主要事务是对窗体控件的操作时多线程意义不大，因为访问窗体的代码依然要在窗体线程中运行。

Private Sub test()

Dim d As voiddelegate = AddressOf updateui

For i = 0 To 9000

Me.Invoke(d, i)

Next

End Sub

'如果放在计时器中运行效果好的多

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Static i As Integer = 0

i += 1

If i 9000 Then Timer1.Stop() : i = 0

Form2.Label1.Text = i.ToString

Form2.Label2.Text = i.ToString

End Sub

End Class

'如果在另一线程中用Application.run 打开窗体确实能行，不过窗体间相互操作不起作用，这个尚待研究中。

vb怎么实现文本多行加减法运算

Dim BDS, JSS, I As Integer

Private Sub Command1_Click()

Dim kkl() As String   '取出各行表达式的运算符的数值

ReDim kkl(UBound(BDS))

For I = 0 To UBound(BDS)

kkl(I) = Right(Left(BDS(I), 3), 1)   '取出表达式的运算符

Select Case kkl(I)

Case "+"

JSS = Split(BDS(I), "+")   '取出运算符二边的数据，存储在 JSS 数组中，下同

Text2.Text = Text2.Text  Val(JSS(0)) + Val(JSS(1))  vbCrLf    '在文本框2中显示计算结果。数据必须转换为数字数据！，下同

Case "-"

JSS = Split(BDS(I), "-")

Text2.Text = Text2.Text  Val(JSS(0)) - Val(JSS(1))  vbCrLf

Case "*"

JSS = Split(BDS(I), "*")

Text2.Text = Text2.Text  Val(JSS(0)) * Val(JSS(1))  vbCrLf

Case "/"

JSS = Split(BDS(I), "/")

Text2.Text = Text2.Text  Val(JSS(0)) / Val(JSS(1))  vbCrLf

End Select

Next I

End Sub

Private Sub Form_Load()

Text1.Text = Text1.Text  "33*33"  vbCrLf

Text1.Text = Text1.Text  "33+33"  vbCrLf

Text1.Text = Text1.Text  "33*33"  vbCrLf

BDS = Split(Text1.Text, vbCrLf) '将数据存储到 BDS 数组中

End Sub

这个程序符合二位数与二位数的+、-、*、/ 的计算，比较简单。

vb.net 循环使用多线程

ListBox操作需要用Invoke。另外多线程方式并不是并行处理。

建议采用.net framework 4 带的并行处理循环操作，若不是4.0版本的framework，可以使用Aforge的并行库比较方便。

VB.net 运行多个循环

用 timer 控件，按钮被按下的时候把 timer 的 .enabled 改为 true

timer 控件会发生 tick 事件，你可以让第一次 tick 执行 A，第二次 tick 执行 B,等等...

vs2010与vs2012有什么区别？尤其是在使用vb.net上有什么不同？

百度百科那里来的 ，我主要说vb.net不说vs哈。vs你也可以去百科那里看

Visual Basic 2010

2010——下一代开发平台

Visual Basic 2010 具有下列新增和加强的功能：

1、数组初始值设定项。

2、集合初始值设定项。

3、内联 Lambda 表达式。

4、自动实现属性。

5、泛化。

6、No-PIA 部署。

7、与 Python 的集成。

8、并行计算扩展。

Visual Basic 2012（RC）

Visual Basic 2012 RC 具有下列新增和加强的功能 ：

1、异步功能

2、迭代器

3、调用层次结构

4、调用方信息

5、全局命名空间语句中的关键字