軟件設(shè)計(jì)心得

ID:56662 · 發(fā)表于 2013-11-13 02:08

新的工裝已經(jīng)完成，利用新的工裝，重新修改了軟件，基本上完成了軟件的調(diào)試，現(xiàn)將之前一直無法完成的內(nèi)容總結(jié)下：
1.之前的實(shí)際數(shù)據(jù)量與圖形標(biāo)識(shí)的百分比對(duì)不上號(hào)，現(xiàn)將百分比按實(shí)際數(shù)據(jù)量進(jìn)行劃分，就可以一一一對(duì)應(yīng)；
2.增加了超過誤差要求的數(shù)據(jù)數(shù)量的統(tǒng)計(jì)，如果錯(cuò)誤數(shù)據(jù)超過設(shè)訂值，提示報(bào)警（聲音和文本雙重提示）；
3.增加了四條偏差范圍標(biāo)準(zhǔn)線，在必要的時(shí)候可以同時(shí)打印標(biāo)準(zhǔn)線；
4.打印功能可以實(shí)現(xiàn)打印及圖像保存
現(xiàn)將設(shè)計(jì)的效果圖及代碼保存如下，必要的時(shí)候可以調(diào)出來參考：

波形代碼：
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command4_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊.wav", &H0) '聲音
Command4.Visible = False
Me.PrintForm '實(shí)現(xiàn)打印功能
Exit Sub
End Sub
Private Sub Text12_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊.wav", &H0) '聲音
Dim myArray(6) As String '顯示數(shù)據(jù)數(shù)組
Dim MyColor(6) As Long    '顏色控制數(shù)組
Dim MyCaption(150) As String 'X軸顯示數(shù)組
Dim MyLegend(2) As String
Dim I As Integer
Dim K As Integer
K = Int(frmMain.Text11.Text)
For I = 0 To K 'K為實(shí)際數(shù)據(jù)量
If I = Int(K / 10) Then
MyCaption(I) = "10%"
ElseIf I = Int((K / 10) * 2) Then 'INT為取整，只有取整才可以顯示百分比
MyCaption(I) = "20%"
ElseIf I = Int((K / 10) * 3) Then
MyCaption(I) = "30%"
ElseIf I = Int((K / 10) * 4) Then
MyCaption(I) = "40%"
ElseIf I = Int((K / 10) * 5) Then
MyCaption(I) = "50%"
ElseIf I = Int((K / 10) * 6) Then
MyCaption(I) = "60%"
ElseIf I = Int((K / 10) * 7) Then
MyCaption(I) = "70%"
ElseIf I = Int((K / 10) * 8) Then
MyCaption(I) = "80%"
ElseIf I = Int((K / 10) * 9) Then
MyCaption(I) = "90%"
ElseIf I = K Then
MyCaption(I) = "100%"
End If
Next I
'Me.ForeColor = vbRed
'myArray(0) = Text1.Text
'MyColor(0) = vbRed
myArray(1) = Text2.Text
MyColor(1) = vbBlack 'vbBlue
myArray(2) = Text3.Text
MyColor(2) = vbBlack 'vbGreen
myArray(3) = Text15.Text
MyColor(3) = vbGreen 'vbBlack
myArray(4) = Text19.Text
MyColor(4) = vbRed
myArray(5) = Text20.Text
MyColor(5) = vbGreen 'vbBlack
myArray(6) = Text21.Text
MyColor(6) = vbRed
Chart1.MaxValue = 500 'Y軸最大值
Chart1.MinValue = 0    'Y軸最小值
Chart1.DrawGraph myArray, MyColor, MyCaption '顯示圖形
End Sub

控制面板代碼：
'Private Const SND_ASYNC = &H1 '播放音頻的同時(shí)將控制轉(zhuǎn)回應(yīng)用程序中
'Private Const SND_LOOP = &H8 '循環(huán)播放模式
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub cmdClear_Click() '按清除鍵
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
If Adodc4.Recordset.RecordCount <= 0 Then    '如果數(shù)據(jù)為空，直接退出
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\報(bào)警2.wav", &H0) '聲音警示
MsgBox "無數(shù)據(jù)，不必麻煩清除"
GoTo JP
End If
Text7.Text = Clear
Text9.Text = Clear
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
Text11.Text = Clear
Text10.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text1.Text = Clear
Dim bytTemp(0) As Byte
ReDim bytReceiveByte(0)
intReceiveLen = 0
Call InputManage(bytTemp, 0)
Call GetDisplayText
Call display
      Adodc4.Recordset.MoveFirst    '指針指向第一行
bijiao2: Adodc4.Recordset.Delete '刪除數(shù)據(jù)
      Adodc4.Recordset.MoveFirst  '指針再次指向第一行
If Adodc4.Recordset.EOF Then             '判斷是否是最后一個(gè)數(shù)據(jù)
Else:
GoTo bijiao2                      '如果不是，繼續(xù)刪除數(shù)據(jù)，如果是，退出刪除
End If
JP: End Sub
Private Sub cmdReceive_Click()    '按接收鍵
Dim I As Integer
Dim J As Integer
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
If blnReceiveFlag Then
      If Not blnAutoSendFlag And Not blnReceiveFlag Then
         frmMain.ctrMSComm.PortOpen = False
      End If
      frmMain.cmdReceive.Caption = "開始接收"
Else
      If Not frmMain.ctrMSComm.PortOpen Then
         frmMain.ctrMSComm.CommPort = intPort
         frmMain.ctrMSComm.Settings = strSet
         frmMain.ctrMSComm.PortOpen = True
      End If
      frmMain.ctrMSComm.InputLen = 0
      frmMain.ctrMSComm.InputMode = 0
      frmMain.ctrMSComm.InBufferCount = 0
      frmMain.ctrMSComm.RThreshold = 1
      frmMain.cmdReceive.Caption = "停止接收"
End If
blnReceiveFlag = Not blnReceiveFlag
End Sub
Private Sub cmdSetting_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
dlgSetting.Show
frmMain.Hide
End Sub
Private Sub Command1_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音警示
If Adodc4.Recordset.RecordCount <= 0 Then    '如果數(shù)據(jù)為空，直接退出
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音警示
MsgBox "無數(shù)據(jù)，請(qǐng)重新檢測"
GoTo jq
ElseIf Adodc4.Recordset.RecordCount < 50 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音警示
MsgBox "檢測速度太快，數(shù)據(jù)量不足，請(qǐng)清除數(shù)據(jù)并重新檢測！"
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
GoTo jq
End If
Dim I As Integer
Dim J As Integer
Dim M As Integer
Dim N As Integer
Dim L As Integer
Dim I1 As Integer
Dim J1 As Integer
Dim M1 As Integer
Dim N1 As Integer
Dim L1 As Integer
Dim yy1 As Integer
Dim yy2 As Integer
Dim B1 As Integer
Dim B2 As Integer
Dim B3 As Integer
Dim B4 As Integer
Dim OK As Integer
Dim OK2 As Integer
Dim OKA As Integer
Dim OKB As Integer
Dim OKC As Integer
Dim OKD As Integer
Dim OKE As Integer
'***************************************************************
'清除數(shù)據(jù)為空和重復(fù)的數(shù)據(jù)
Adodc4.Recordset.MoveFirst
B1 = 0
shangkong:
B2 = Val(Adodc4.Recordset.Fields("信號(hào)編號(hào)"))
If B2 = B1 Then
Adodc4.Recordset.Delete
Else: B1 = B2
End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo shangkong
End If
'**************************************************************
'清除不合理的數(shù)據(jù)
Adodc4.Recordset.MoveFirst
B3 = 0
gogo:
B4 = Val(Adodc4.Recordset.Fields("信號(hào)1"))
If B4 - B3 < 20 Then
Adodc4.Recordset.Delete
Else: B3 = B4
End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo gogo
End If
'*****************************************************************
'重新計(jì)算有效數(shù)據(jù)數(shù)量
Text11.Text = Adodc4.Recordset.RecordCount  '計(jì)算數(shù)據(jù)的數(shù)量
If Adodc4.Recordset.RecordCount < 50 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音警示
MsgBox "檢測速度太快，數(shù)據(jù)量不足，請(qǐng)清除數(shù)據(jù)并重新檢測！"
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
GoTo jq
End If
'*****************************************************************
Adodc4.Recordset.MoveFirst
M = 0
bijiao:
      I = Val(Adodc4.Recordset.Fields("信號(hào)3")) / 2 'Val將字符串?dāng)?shù)據(jù)轉(zhuǎn)換為數(shù)值數(shù)據(jù)
      J = Val(Adodc4.Recordset.Fields("信號(hào)2"))
      If J > I Then
      N = (J - I) / 50
      ElseIf J <= I Then
      N = (I - J) / 50
      End If
      Text7.Text = Int(N) 'Adodc4.Recordset.Fields("電壓2") = N
      If N > M Then
      M = N
      L = Adodc4.Recordset.Fields("信號(hào)編號(hào)")
      yy1 = Adodc4.Recordset.Fields("信號(hào)2")
      End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao    '指針循環(huán)
End If
Text7.Text = M
Text9.Text = L
xiaoboxing.Text13.Text = L
xiaoboxing.Text14.Text = yy1
'*******************************************************************************
Adodc4.Recordset.MoveFirst
OK = 0
bijiao1: I1 = Val(Adodc4.Recordset.Fields("偏差值"))
      If I1 >= 20 Then
      OK = OK + 1
      End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao1    '指針循環(huán)
End If
Text12.Text = OK
'*******************************************************************************
'Adodc4.Recordset.MoveFirst
'M1 = 0
'bijiao1: I1 = Val(Adodc4.Recordset.Fields("信號(hào)2")) / 2
'       J1 = Val(Adodc4.Recordset.Fields("信號(hào)3"))
'       If J1 > I1 Then
'       N1 = (J1 - I1) / 50
'       ElseIf J1 <= I1 Then
'       N1 = (I1 - J1) / 50
'       End If
'       If N1 > M1 Then
'       M1 = N1
'       L1 = Adodc4.Recordset.Fields("信號(hào)編號(hào)")
'       yy2 = Adodc4.Recordset.Fields("信號(hào)3")
'       End If
'Adodc4.Recordset.MoveNext    '判斷指針位置
'If Adodc4.Recordset.EOF Then
' Adodc4.Recordset.MoveLast
'       ElseIf Adodc4.Recordset.BOF Then
'          Adodc4.Recordset.MoveFirst
'Else: GoTo bijiao1    '指針循環(huán)
'End If
'Text8.Text = M1
'Text6.Text = L1
xiaoboxing.Text17.Text = L1
xiaoboxing.Text18.Text = yy2
'*********************************************************************************
If M > 20 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\GT.wav", &H0) '聲音警示
MsgBox "下行信號(hào)1誤差超出要求，請(qǐng)清除數(shù)據(jù)，更換產(chǎn)品，重新檢測！"
GoTo jq
ElseIf OK > 5 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\GT.wav", &H0) '聲音警示
MsgBox "下行信號(hào)誤差量超出要求，請(qǐng)清除數(shù)據(jù)，重新檢測！"
GoTo jq
End If
Adodc4.Recordset.MoveFirst
OK1 = Int(Text11.Text)
OKA = ((375 + 150) / 10) '參考線起點(diǎn)數(shù)據(jù),根據(jù)偏差標(biāo)準(zhǔn)的不同設(shè)置相應(yīng)的參數(shù)
OKB = ((375 - 150) / 10)
OKC = ((750 + 150) / 10)
OKD = ((750 - 150) / 10)
Text17.Text = OKA
Text23.Text = OKB
Text24.Text = OKC
Text25.Text = OKD
OKE = 0
Text13.Text = (Adodc4.Recordset.Fields("信號(hào)1")) / 10
Text14.Text = (Adodc4.Recordset.Fields("信號(hào)2")) / 10
Text15.Text = (Adodc4.Recordset.Fields("信號(hào)3")) / 10
bijiao2: OKE = OKE + 1
      OKA = ((375 + 150) + (1545 / OK1) * OKE) / 10 '參考線數(shù)據(jù)遞增量
      OKB = ((375 - 150) + (1545 / OK1) * OKE) / 10
      OKC = ((750 + 150) + (3090 / OK1) * OKE) / 10
      OKD = ((750 - 150) + (3090 / OK1) * OKE) / 10
      Text13.Text = Text13.Text + "," & (Adodc4.Recordset.Fields("信號(hào)1")) / 10 '數(shù)據(jù)線1數(shù)據(jù)
      Text14.Text = Text14.Text + "," & (Adodc4.Recordset.Fields("信號(hào)2")) / 10 '數(shù)據(jù)線2數(shù)據(jù)
      Text15.Text = Text15.Text + "," & (Adodc4.Recordset.Fields("信號(hào)3")) / 10 '數(shù)據(jù)線3數(shù)據(jù)
      Text17.Text = Text17.Text + "," & (OKA) '參考線1數(shù)據(jù)
      Text23.Text = Text23.Text + "," & (OKB) '參考線2數(shù)據(jù)
      Text24.Text = Text24.Text + "," & (OKC) '參考線3數(shù)據(jù)
      Text25.Text = Text25.Text + "," & (OKD) '參考線4數(shù)據(jù)
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao2    '指針循環(huán)
End If

For OKE = 0 To AK1
Next OKE
'frmMain.Hide
xiaoboxing.Show
xiaoboxing.Text8.Text = "產(chǎn)品名稱：" + Text16.Text
xiaoboxing.Text1.Text = Text13.Text
xiaoboxing.Text2.Text = Text14.Text
xiaoboxing.Text3.Text = Text15.Text
xiaoboxing.Text15.Text = Text17.Text
xiaoboxing.Text19.Text = Text23.Text
xiaoboxing.Text20.Text = Text24.Text
xiaoboxing.Text21.Text = Text25.Text
xiaoboxing.Text4.Text = "生產(chǎn)日期：" + Text18.Text
xiaoboxing.Text5.Text = "產(chǎn)品型號(hào)：" + Text19.Text
xiaoboxing.Text9.Text = "產(chǎn)品序列號(hào)：" + Text22.Text
xiaoboxing.Text10.Text = "檢驗(yàn)員號(hào)：" + Text21.Text
xiaoboxing.Text7.Text = "下行最大偏差：" + Text7.Text + "%"
jq: End Sub
Private Sub Command2_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
Dim I As Integer
Dim J As Integer
Dim M As Integer
Dim N As Integer
Dim L As Integer
Dim I1 As Integer
Dim J1 As Integer
Dim M1 As Integer
Dim N1 As Integer
Dim L1 As Integer
If Adodc4.Recordset.RecordCount <= 0 Then    '如果數(shù)據(jù)為空，直接退出
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\提示.wav", &H0) '聲音警示
MsgBox "無數(shù)據(jù)，請(qǐng)重新檢測"
GoTo jq
ElseIf Adodc4.Recordset.RecordCount < 45 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\報(bào)警.wav", &H0) '聲音警示
MsgBox "檢測速度太快，數(shù)據(jù)量不足，請(qǐng)清除數(shù)據(jù)并重新檢測！"
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
GoTo jq
End If
Adodc4.Recordset.MoveFirst
M = 0
bijiao: I = Val(Adodc4.Recordset.Fields("信號(hào)1")) / 2
      J = Val(Adodc4.Recordset.Fields("信號(hào)2"))
      If J > I Then
      N = (J - I)
      ElseIf J <= I Then
      N = (I - J)
      End If
      If N > M Then
      M = N
      L = Adodc4.Recordset.Fields("信號(hào)編號(hào)")
      End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao    '指針循環(huán)
End If
Text7.Text = M
Text9.Text = L
Adodc4.Recordset.MoveFirst
M1 = 0
bijiao1: I1 = Val(Adodc4.Recordset.Fields("信號(hào)1"))
      J1 = Val(Adodc4.Recordset.Fields("信號(hào)3"))
      If J1 > I1 Then
      N1 = (J1 - I1)
      ElseIf J1 <= I1 Then
      N1 = (I1 - J1)
      End If
      If N1 > M1 Then
      M1 = N1
      L1 = Adodc4.Recordset.Fields("信號(hào)編號(hào)")
      End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao1    '指針循環(huán)
End If
Text8.Text = M1
Text6.Text = L1
'Text12.Text = Adodc4.Recordset.RecordCount  '計(jì)算數(shù)據(jù)的數(shù)量
'Adodc4.Recordset.MoveFirst
'bijiao: If Adodc4.Recordset.Fields("信號(hào)編號(hào)") = 0 Then    '刪除編碼位0的數(shù)據(jù)
'Adodc4.Recordset.Delete
'ElseIf Adodc4.Recordset.Fields("信號(hào)1") = Adodc4.Recordset.Fields("信號(hào)2") Then    '刪除錯(cuò)誤數(shù)據(jù)
'Adodc4.Recordset.Delete
'End If
'Adodc4.Recordset.MoveNext    '判斷指針位置
'If Adodc4.Recordset.EOF Then
' Adodc4.Recordset.MoveLast
   ' ElseIf Adodc4.Recordset.BOF Then
         ' Adodc4.Recordset.MoveFirst
'Else: GoTo bijiao    '指針循環(huán)
'End If
jq: End Sub
Private Sub Command3_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
End
End Sub
Private Sub Command4_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
frmMain.Hide
shujuchaxun.Show
End Sub
Private Sub Command5_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
cpsz.Show
frmMain.Hide
'初始化combobox控件
End Sub
Private Sub Command6_Click() '***************************數(shù)據(jù)備份
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
If frmMain.Text22.Text = "" Then
MsgBox "序列號(hào)為空，請(qǐng)?zhí)顚懶蛄刑?hào)"
GoTo gogo
End If
If beifen.Adodc1.Recordset.Fields("信號(hào)1數(shù)據(jù)") <> "" Then
GoTo BJ1
End If
beifen.Adodc1.Recordset.MoveLast
bgbg: If beifen.Adodc1.Recordset.Fields("產(chǎn)品序列號(hào)") = frmMain.Text22.Text Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音
MsgBox "提示：序列號(hào)與最后一組數(shù)據(jù)相同，原數(shù)據(jù)將被替換！"
beifen.Adodc1.Recordset.Fields("檢測時(shí)間") = frmMain.Text18.Text
beifen.Adodc1.Recordset.Fields("產(chǎn)品型號(hào)") = frmMain.Text19.Text
beifen.Adodc1.Recordset.Fields("產(chǎn)品編號(hào)") = frmMain.Text20.Text
beifen.Adodc1.Recordset.Fields("檢驗(yàn)員") = frmMain.Text21.Text
beifen.Adodc1.Recordset.Fields("信號(hào)1數(shù)據(jù)") = frmMain.Text13.Text
beifen.Adodc1.Recordset.Fields("信號(hào)2數(shù)據(jù)") = frmMain.Text14.Text
beifen.Adodc1.Recordset.Fields("信號(hào)3數(shù)據(jù)") = frmMain.Text15.Text
beifen.Adodc1.Recordset.Fields("產(chǎn)品名稱") = frmMain.Text16.Text
beifen.Adodc1.Recordset.Update
'*************************************************增加下拉選項(xiàng)
shujuchaxun.Combo1.AddItem beifen.Adodc1.Recordset.Fields("檢測時(shí)間")
shujuchaxun.Combo2.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品型號(hào)")
shujuchaxun.Combo3.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品編號(hào)")
shujuchaxun.Combo4.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品序列號(hào)")
shujuchaxun.Combo5.AddItem beifen.Adodc1.Recordset.Fields("檢測時(shí)間")
shujuchaxun.Combo6.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品型號(hào)")
shujuchaxun.Combo7.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品編號(hào)")
shujuchaxun.Combo8.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品序列號(hào)")
MsgBox "數(shù)據(jù)備份完成！"
GoTo gogo
Else
'***********************************************************************
'如何判斷序列號(hào)數(shù)據(jù)重復(fù)
BJ1: beifen.Adodc1.Recordset.MoveFirst
bjbj1: If beifen.Adodc1.Recordset.Fields("產(chǎn)品序列號(hào)") = frmMain.Text22.Text Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音
MsgBox "序列號(hào)重復(fù)，請(qǐng)核實(shí)并確定序列號(hào)"
GoTo gogo
End If
beifen.Adodc1.Recordset.MoveNext    '判斷指針位置
If beifen.Adodc1.Recordset.EOF Then
beifen.Adodc1.Recordset.MoveLast
      ElseIf beifen.Adodc1.Recordset.BOF Then
         beifen.Adodc1.Recordset.MoveFirst
Else: GoTo bjbj1    '指針循環(huán)
End If
'***********************************************************************
beifen.Adodc1.Recordset.AddNew
beifen.Adodc1.Recordset.Fields("產(chǎn)品序列號(hào)") = frmMain.Text22.Text
beifen.Adodc1.Recordset.Fields("檢測時(shí)間") = frmMain.Text18.Text
beifen.Adodc1.Recordset.Fields("產(chǎn)品型號(hào)") = frmMain.Text19.Text
beifen.Adodc1.Recordset.Fields("產(chǎn)品編號(hào)") = frmMain.Text20.Text
beifen.Adodc1.Recordset.Fields("檢驗(yàn)員") = frmMain.Text21.Text
beifen.Adodc1.Recordset.Fields("信號(hào)1數(shù)據(jù)") = frmMain.Text13.Text
beifen.Adodc1.Recordset.Fields("信號(hào)2數(shù)據(jù)") = frmMain.Text14.Text
beifen.Adodc1.Recordset.Fields("信號(hào)3數(shù)據(jù)") = frmMain.Text15.Text
beifen.Adodc1.Recordset.Fields("產(chǎn)品名稱") = frmMain.Text16.Text
beifen.Adodc1.Recordset.Update
'*************************************************增加下拉選項(xiàng)
shujuchaxun.Combo1.AddItem beifen.Adodc1.Recordset.Fields("檢測時(shí)間")
shujuchaxun.Combo2.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品型號(hào)")
shujuchaxun.Combo3.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品編號(hào)")
shujuchaxun.Combo4.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品序列號(hào)")
shujuchaxun.Combo5.AddItem beifen.Adodc1.Recordset.Fields("檢測時(shí)間")
shujuchaxun.Combo6.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品型號(hào)")
shujuchaxun.Combo7.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品編號(hào)")
shujuchaxun.Combo8.AddItem beifen.Adodc1.Recordset.Fields("產(chǎn)品序列號(hào)")
MsgBox "新立——數(shù)據(jù)備份完成！"
GoTo gogo
End If
gogo: End Sub
Private Sub Command7_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音
beifen.Show
frmMain.Hide
End Sub
Private Sub Command8_Click()
Dim plays As Long
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\單擊2.wav", &H0) '聲音警示
If Adodc4.Recordset.RecordCount <= 0 Then    '如果數(shù)據(jù)為空，直接退出
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音警示
MsgBox "無數(shù)據(jù)，請(qǐng)重新檢測"
GoTo jq2
ElseIf Adodc4.Recordset.RecordCount < 50 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音警示
MsgBox "檢測速度太快，數(shù)據(jù)量不足，請(qǐng)清除數(shù)據(jù)并重新檢測！"
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
GoTo jq2
End If
Dim I As Integer
Dim J As Integer
Dim M As Integer
Dim N As Integer
Dim L As Integer
Dim I1 As Integer
Dim J1 As Integer
Dim M1 As Integer
Dim N1 As Integer
Dim L1 As Integer
Dim yy1 As Integer
Dim yy2 As Integer
Dim B1 As Integer
Dim B2 As Integer
Dim B3 As Integer
Dim B4 As Integer
'***************************************************************
'清除數(shù)據(jù)為空和重復(fù)的數(shù)據(jù)
Adodc4.Recordset.MoveFirst
B1 = 0
shangkong:
B2 = Val(Adodc4.Recordset.Fields("信號(hào)編號(hào)"))
If B2 = B1 Then
Adodc4.Recordset.Delete
Else: B1 = B2
End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo shangkong
End If
'**************************************************************
'清除不合理的數(shù)據(jù)
Adodc4.Recordset.MoveFirst
B3 = 3840
gogo:
B4 = Val(Adodc4.Recordset.Fields("信號(hào)2"))
If B4 >= B3 Then
Adodc4.Recordset.Delete
Else: B3 = B4
End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo gogo
End If
'*****************************************************************
'重新計(jì)算有效數(shù)據(jù)數(shù)量
Text11.Text = Adodc4.Recordset.RecordCount  '計(jì)算數(shù)據(jù)的數(shù)量
If Adodc4.Recordset.RecordCount < 40 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\警告.wav", &H0) '聲音警示
MsgBox "檢測速度太快，數(shù)據(jù)量不足，請(qǐng)清除數(shù)據(jù)并重新檢測！"
Text13.Text = Clear
Text14.Text = Clear
Text15.Text = Clear
GoTo jq2
End If
'*****************************************************************
Adodc4.Recordset.MoveFirst
M = 0
bijiao: I = Val(Adodc4.Recordset.Fields("信號(hào)2")) / 2 'Val將字符串?dāng)?shù)據(jù)轉(zhuǎn)換為數(shù)值數(shù)據(jù)
      J = Val(Adodc4.Recordset.Fields("信號(hào)3"))
      If J > I Then
      N = (J - I) / 4096 / 500
      ElseIf J <= I Then
      N = (I - J) / 4096 / 500
      End If
      If N > M Then
      M = N
      L = Adodc4.Recordset.Fields("信號(hào)編號(hào)")
      yy1 = Adodc4.Recordset.Fields("信號(hào)2")
      End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao    '指針循環(huán)
End If
Text7.Text = M
Text9.Text = L
xiaoboxing.Text13.Text = L
xiaoboxing.Text14.Text = yy1
'*******************************************************************************
Adodc4.Recordset.MoveFirst
M1 = 0
bijiao1: I1 = Val(Adodc4.Recordset.Fields("信號(hào)2")) / 2
      J1 = Val(Adodc4.Recordset.Fields("信號(hào)3"))
      If J1 > I1 Then
      N1 = (J1 - I1) / 4096 / 50
      ElseIf J1 <= I1 Then
      N1 = (I1 - J1) / 4096 / 50
      End If
      If N1 > M1 Then
      M1 = N1
      L1 = Adodc4.Recordset.Fields("信號(hào)編號(hào)")
      yy2 = Adodc4.Recordset.Fields("信號(hào)3")
      End If
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao1    '指針循環(huán)
End If
Text8.Text = M1
Text6.Text = L1
xiaoboxing.Text17.Text = L1
xiaoboxing.Text18.Text = yy2
'*********************************************************************************
If M > 20 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\GT.wav", &H0) '聲音警示
MsgBox "下行信號(hào)1誤差超出要求，請(qǐng)清除數(shù)據(jù)，更換產(chǎn)品，重新檢測！"
GoTo jq2
ElseIf M1 > 20 Then
plays = sndPlaySound("D:\汽車電子油門檢測軟件\sy\GT.wav", &H0) '聲音警示
MsgBox "上行信號(hào)2誤差超出要求，請(qǐng)清除數(shù)據(jù)，更換產(chǎn)品，重新檢測！"
GoTo jq2
End If
Adodc4.Recordset.MoveFirst
Text13.Text = (Adodc4.Recordset.Fields("信號(hào)1")) / 10
Text14.Text = (Adodc4.Recordset.Fields("信號(hào)2")) / 10
Text15.Text = (Adodc4.Recordset.Fields("信號(hào)3")) / 10
bijiao2: Text13.Text = Text13.Text + "," & (Adodc4.Recordset.Fields("信號(hào)1")) / 10
      Text14.Text = Text14.Text + "," & (Adodc4.Recordset.Fields("信號(hào)2")) / 10
      Text15.Text = Text15.Text + "," & (Adodc4.Recordset.Fields("信號(hào)3")) / 10
Adodc4.Recordset.MoveNext    '判斷指針位置
If Adodc4.Recordset.EOF Then
Adodc4.Recordset.MoveLast
      ElseIf Adodc4.Recordset.BOF Then
         Adodc4.Recordset.MoveFirst
Else: GoTo bijiao2    '指針循環(huán)
End If
'frmMain.Hide
xiaoboxing.Show
xiaoboxing.Text8.Text = "產(chǎn)品名稱：" + Text16.Text
xiaoboxing.Text1.Text = Text13.Text
xiaoboxing.Text2.Text = Text14.Text
xiaoboxing.Text3.Text = Text15.Text
xiaoboxing.Text4.Text = "生產(chǎn)日期：" + Text18.Text
xiaoboxing.Text5.Text = "產(chǎn)品型號(hào)：" + Text19.Text
xiaoboxing.Text9.Text = "產(chǎn)品序列號(hào)：" + Text22.Text
xiaoboxing.Text10.Text = "檢驗(yàn)員號(hào)：" + Text21.Text
xiaoboxing.Text6.Text = "信號(hào)2最大誤差：" + Text7.Text + "%"
xiaoboxing.Text7.Text = "信號(hào)1最大誤差：" + Text8.Text + "%"
jq2: End Sub
Private Sub ctrMSComm_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case frmMain.ctrMSComm.CommEvent
      Case comEvReceive
         If blnReceiveFlag Then
            If Not frmMain.ctrMSComm.PortOpen Then
                  frmMain.ctrMSComm.CommPort = intPort
                  frmMain.ctrMSComm.Settings = strSet
                  frmMain.ctrMSComm.PortOpen = True
            End If
            '此處添加處理接收的代碼
            frmMain.ctrMSComm.InputMode = comInputModeBinary
            intInputLen = frmMain.ctrMSComm.InBufferCount
            ReDim bytInput(intInputLen)
            bytInput = frmMain.ctrMSComm.Input
            Call InputManage(bytInput, intInputLen)
            Call GetDisplayText
            Call display
            If Not blnAutoSendFlag And Not blnReceiveFlag Then
                  frmMain.ctrMSComm.PortOpen = False
            End If
         End If
End Select
End Sub
'初始化
'*****************************************
Private Sub Form_Load()
'Command8.vbBlue
intReceiveLen = 0 '接收字符個(gè)數(shù)
intHexWidth = 9    '顯示字符寬度
intHexChk = 1    '開顯示
'初始化顯示視窗
frmMain.fraHexEditBackground.Left = frmMain.txtReceive.Left + 30
frmMain.fraHexEditBackground.Top = frmMain.txtReceive.Top + 30
frmMain.fraHexEditBackground.Width = frmMain.txtReceive.Width - 60
frmMain.fraHexEditBackground.Height = frmMain.txtReceive.Height - 60
frmMain.txtHexEditAddress.Top = 0
frmMain.txtHexEditHex.Top = 0
frmMain.txtHexEditText.Top = 0
frmMain.txtBlank.Top = 0
frmMain.txtHexEditAddress.Height = frmMain.fraHexEditBackground.Height
frmMain.txtHexEditHex.Height = frmMain.fraHexEditBackground.Height
frmMain.txtHexEditText.Height = frmMain.fraHexEditBackground.Height
frmMain.txtBlank.Height = frmMain.fraHexEditBackground.Height
'初始化滾動(dòng)條
frmMain.vsclHexEdit.Width = 2 * ChrWidth
frmMain.vsclHexEdit.Top = frmMain.fraHexEditBackground.Top
frmMain.vsclHexEdit.Left = frmMain.fraHexEditBackground.Left + frmMain.fraHexEditBackground.Width - frmMain.vsclHexEdit.Width
frmMain.vsclHexEdit.Height = frmMain.fraHexEditBackground.Height
frmMain.hsclHexEdit.Height = ChrHeight
frmMain.hsclHexEdit.Left = frmMain.fraHexEditBackground.Left
frmMain.hsclHexEdit.Top = frmMain.fraHexEditBackground.Top + frmMain.fraHexEditBackground.Height - frmMain.hsclHexEdit.Height
frmMain.hsclHexEdit.Width = frmMain.fraHexEditBackground.Width
'設(shè)置滾動(dòng)條最小和最大滾動(dòng)
frmMain.vsclHexEdit.Min = 0
frmMain.vsclHexEdit.SmallChange = 1
frmMain.vsclHexEdit.LargeChange = 3
frmMain.vsclHexEdit.Value = 0
frmMain.hsclHexEdit.Min = 0
frmMain.hsclHexEdit.SmallChange = 1
frmMain.hsclHexEdit.LargeChange = 3
frmMain.hsclHexEdit.Value = 0
'顯示初始化
Call cmdClear_Click
   '初始化串行口
intPort = 1
intTime = 1000
strSet = "2400,n,8,1"
frmMain.ctrMSComm.InBufferSize = 1024
frmMain.ctrMSComm.OutBufferSize = 512
If Not frmMain.ctrMSComm.PortOpen Then
frmMain.ctrMSComm.CommPort = intPort
frmMain.ctrMSComm.Settings = strSet
frmMain.ctrMSComm.PortOpen = True
End If
frmMain.ctrMSComm.PortOpen = False
End Sub
Private Sub hsclHexEdit_Change()
intOriginX = -frmMain.hsclHexEdit.Value * ChrWidth
Call ScrollRedisplay
End Sub
Private Sub sldLenth_Change(Index As Integer)
'intHexWidth = frmMain.sldLenth(0).Value
Call SlideRedisplay
End Sub
Private Sub vsclHexEdit_Change()
intOriginY = frmMain.vsclHexEdit.Value
Call ScrollRedisplay
End Sub

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊(cè)

軟件設(shè)計(jì)心得

瀏覽過的版塊