字串分離與奇偶數分離程式

vx96825k

最近在做讀取串列訊號與訊號分類的練習,隨然目的已可以達成但是還是有問題,例如資料量大時處理速度會變慢等
這是目前的結果,分享給大家看看,如果有問題的地方也請大家不吝指教




以下是VB2010的CODE

1. [/code]
   
2. '**************************************************************
   
3. '字串分離與奇偶數分離
   
4. '**************************************************************
   
5. Public Class Form1
   
6. 
   
7.    
   
8.     Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
   
9.         Dim instring As String
   
10.         instring = rxdmix.Text
    
11. 
    
12.         Dim splittxt() = instring.Split(",")
    
13. 
    
14.         Dim i0 = splittxt.GetLowerBound(0)
    
15.         Dim i1 = splittxt.GetUpperBound(0)
    
16.         Dim j = 0, k = 1
    
17.         mixnumber_i0.Text = i0
    
18.         mixnumber_i1.Text = i1
    
19. 
    
20.         Do
    
21.             j += 2
    
22.             rxdeven.Text &= j & vbCrLf
    
23.             rxdcounter.Text &= splittxt(j)
    
24.         Loop While j <= i1 - 2
    
25.         evennumber.Text = j
    
26. 
    
27.         rxdvolt.Text = splittxt(1)
    
28.         Do
    
29.             k += 2
    
30.             rxdodd.Text &= k & vbCrLf
    
31.             rxdvolt.Text &= splittxt(k)
    
32.         Loop While k <= i1 - 2
    
33.         oddnumber.Text = k
    
34. 
    
35.     End Sub
    
36. End Class

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

當你用控件顯示，資料一大絕對會變慢
建議用 Thread 跟 stringbuilder 去做應用
如果再不行 直接用 Sendmessage 去丟資料
因為我看到你用 do loop 中間又沒有 doevent 會變慢是很正常