?? form1.frm
字號:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 7740
ClientLeft = 165
ClientTop = 450
ClientWidth = 8970
LinkTopic = "Form1"
ScaleHeight = 7740
ScaleWidth = 8970
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command3
Caption = "single send"
Height = 255
Left = 1680
TabIndex = 13
Top = 7080
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "receive"
Height = 255
Left = 4080
TabIndex = 12
Top = 6600
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "send"
Height = 255
Left = 1680
TabIndex = 11
Top = 6600
Width = 1215
End
Begin VB.Frame Frame2
Caption = "receive data"
Height = 1695
Left = 360
TabIndex = 8
Top = 4440
Width = 8295
Begin VB.TextBox Text2
Height = 1215
Left = 240
TabIndex = 10
Top = 360
Width = 7935
End
End
Begin VB.Frame Frame1
Caption = "send data"
Height = 1695
Left = 360
TabIndex = 7
Top = 1920
Width = 8175
Begin VB.TextBox Text1
Height = 1095
Left = 120
TabIndex = 9
Top = 360
Width = 7935
End
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 6
Top = 7365
Width = 8970
_ExtentX = 15822
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 2
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
TextSave = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Text = "ErrorCount=0"
TextSave = "ErrorCount=0"
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.TextBox TxtErr
Height = 375
Left = 7560
TabIndex = 4
Top = 6840
Width = 975
End
Begin VB.ListBox List1
Height = 780
Left = 240
TabIndex = 3
Top = 720
Width = 8295
End
Begin VB.CommandButton CmdClear
Caption = "Clear"
Height = 375
Left = 7200
TabIndex = 2
Top = 240
Width = 1095
End
Begin VB.CommandButton CmdClose
Caption = "Close"
Height = 375
Left = 6000
TabIndex = 1
Top = 240
Width = 1095
End
Begin VB.CheckBox ChkTest
Caption = "Test"
Height = 375
Left = 360
TabIndex = 0
Top = 240
Width = 735
End
Begin VB.Label Label3
Caption = "ErrorCount"
Height = 255
Left = 6240
TabIndex = 5
Top = 6960
Width = 1095
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i, mLength, mTestCount, mErrCnt, mStep, mTotal As Long
Dim speed As Double
Dim IsOpen As Byte
Dim sendlength, singlesendno As Long
'測試
Private Sub ChkTest_Click()
Dim mBuffer As mBuf
Dim mReadBuf As mBuf
If (ChkTest.Value = 1) Then
If (Not IsOpen) Then
IsOpen = mOpenDevice()
If (Not IsOpen) Then
Exit Sub
End If
End If
mErrCnt = 0
StatusBar1.Panels.Item(1).Text = "Testing..."
TxtErr.Text = mErrCnt
List1.AddItem ("*** Step-0: notice MCU start test ")
Call SetCurSel
mBuffer.mBuff(0) = TEST_START ' 我們在計算機和單片機的應用程序之間約定下傳數據的首字節是命令碼
mTotal = 1
On Error Resume Next
If (CH375WriteData(0, mBuffer, mTotal)) Then '發送成功
List1.AddItem ("start test now")
Call SetCurSel
Else ' 寫操作失敗
mErrCnt = mErrCnt + 1
List1.AddItem ("S0-T0 CH375WriteData return error, length=1")
Call SetCurSel
End If
Call Wait
mBuffer.mBuff(0) = TEST_START
mTotal = 1
On Error Resume Next
If (CH375WriteData(0, mBuffer, mTotal)) Then ' 發送成功
Else ' 寫操作失敗
mErrCnt = mErrCnt + 1
List1.AddItem ("S0-T1 CH375WriteData return error, length=1")
End If
Call Wait
'************************correctness test*********************************
List1.AddItem ("*** Step-1: test data correctness: 2000 times, random length and data")
Call SetCurSel
On Error Resume Next
For mTestCount = 0 To 30 ' 循環測試
mStep = mTestCount And &H3
Select Case mStep
Case 0
For i = 0 To 63 ' 發送全00H/返回全FFH
mBuffer.mBuff(i) = &H0
Next i
Case 1
For i = 0 To 63
mBuffer.mBuff(i) = &HFF ' 發送全FFH/返回全00H
Next i
Case Else
For i = 0 To 63
mBuffer.mBuff(i) = Int((255 * Rnd) + 1) ' 發送隨機數/返回位反碼
Next i
End Select
mBuffer.mBuff(0) = TEST_DATA
mTotal = Int((100 * Rnd) + 1) ' 隨機數長度
mTotal = mTotal Mod 100
If (mTotal = 0 Or mTotal > 64) Then
mTotal = (mTotal And &H1)
If (mTotal >= 1) Then
mTotal = 64
Else
mTotal = 63
End If
End If
Dim strtempcrr As String
strtempcrr = "Cnt=" & mTestCount & ",Len=" & mTotal & ",Data: " & Hex(mBuffer.mBuff(0)) & "," & Hex(mBuffer.mBuff(1)) & "," & Hex(mBuffer.mBuff(2)) & "," & Hex(mBuffer.mBuff(3))
List1.AddItem (strtempcrr)
On Error Resume Next
If (CH375WriteData(0, mBuffer, mTotal)) Then ' 發送成功
mLength = 64
If (CH375ReadData(0, mReadBuf, mLength)) Then ' 接收成功
If (mLength <> mTotal Or mLength = 0) Then
mErrCnt = mErrCnt + 1
TxtErr.Text = mErrCnt
Dim strtemplerr As String
strtemplerr = "S1-T" & mStep & "-C" & mTestCount & " return length error:" & mLength & " (" & mTotal & ")"
List1.AddItem (strtemplerr)
Else
For i = 0 To mLength - 1
If (&HFF - mReadBuf.mBuff(i)) <> mBuffer.mBuff(i) Then
mErrCnt = mErrCnt + 1
TxtErr.Text = mErrCnt
Dim strtempderr As String
strtempderr = "S1-T" & mStep & "-C" & mTestCount & " return data error at " & i & ":" & mReadBuf.mBuff(i) & " (" & mBuffer.mBuff(i) & ")"
List1.AddItem (strtempderr)
End If
Next i
End If
Else ' 讀操作失敗
mErrCnt = mErrCnt + 1
TxtErr.Text = mErrCnt
Dim strtemprerr As String
strtemprerr = "S1-T" & mStep & "-C" & mTestCount & " CH375ReadData return error, length=" & mTotal
List1.AddItem (strtemprerr)
End If
Else ' 寫操作失敗
mErrCnt = mErrCnt + 1
TxtErr.Text = mErrCnt
Dim strtempwerr As String
strtempwerr = "S1-T" & mStep & "-C" & mTestCount & " CH375WriteData return error, length=" & mTotal
List1.AddItem (strtempwerr)
End If
Next mTestCount
If (mErrCnt = 0) Then
List1.AddItem ("*** passed ")
End If
Call SetCurSel
Call Wait
'************************************下傳速度測試********************************
List1.AddItem ("*** Step-2: test speed of download data: 2048KB data ")
Call SetCurSel
On Error Resume Next
For i = 0 To 4095
mBuffer.mBuff(i) = Int((255 * Rnd) + 1) ' 產生隨機數以發送
Next i
For i = 0 To 4095 Step 64
mBuffer.mBuff(i) = TEST_DOWNLOAD ' 每64字節為一個數據包,首字節為命令碼
Next i
mTotal = 0
mStep = GetTickCount()
For mTestCount = 0 To 499 ' 循環測試
On Error Resume Next
mBuffer.mBuff(5) = (mTestCount And &HFF00) \ &H100
mBuffer.mBuff(4) = mTestCount And &HFF
mLength = 4096
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -