- 最後登錄
- 2023-5-4
- 在線時間
- 775 小時
- 註冊時間
- 2011-9-27
- 閱讀權限
- 20
- 精華
- 0
- UID
- 10356713
- 帖子
- 1549
- 積分
- 367 點
- 潛水值
- 31991 米
| 如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。 最近在做讀取串列訊號與訊號分類的練習,隨然目的已可以達成但是還是有問題,例如資料量大時處理速度會變慢等
這是目前的結果,分享給大家看看,如果有問題的地方也請大家不吝指教
以下是VB2010的CODE- [/code]
- '**************************************************************
- '字串分離與奇偶數分離
- '**************************************************************
- Public Class Form1
-
- Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
- Dim instring As String
- instring = rxdmix.Text
- Dim splittxt() = instring.Split(",")
- Dim i0 = splittxt.GetLowerBound(0)
- Dim i1 = splittxt.GetUpperBound(0)
- Dim j = 0, k = 1
- mixnumber_i0.Text = i0
- mixnumber_i1.Text = i1
- Do
- j += 2
- rxdeven.Text &= j & vbCrLf
- rxdcounter.Text &= splittxt(j)
- Loop While j <= i1 - 2
- evennumber.Text = j
- rxdvolt.Text = splittxt(1)
- Do
- k += 2
- rxdodd.Text &= k & vbCrLf
- rxdvolt.Text &= splittxt(k)
- Loop While k <= i1 - 2
- oddnumber.Text = k
- End Sub
- End Class
複製代碼 ... |
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊 |