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、全局命名空间语句中的关键字
分享文章:vb.net并行运算 net并行编程
本文URL:http://azwzsj.com/article/dooiojh.html