form1.frm

来自「在VB上采用改进的阈值法检测心电高频向量」· FRM 代码 · 共 864 行 · 第 1/2 页

FRM
864 行
字号
12
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option13_Click(Index As Integer)
For i = 0 To 8400
t(i) = df1(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option14_Click()
For i = 0 To 8400
t(i) = df2(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option15_Click()
For i = 0 To 8400
t(i) = df3(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option16_Click()
For i = 0 To 8400
t(i) = df4(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option17_Click()
For i = 0 To 8400
t(i) = df5(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option18_Click()
For i = 0 To 8400
t(i) = df6(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option19_Click()
For i = 0 To 8400
t(i) = df7(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option2_Click()
For i = 0 To 8400
t(i) = rb2(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n

End Sub

Private Sub Option20_Click()
For i = 0 To 8400
t(i) = df8(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option21_Click()
For i = 0 To 8400
t(i) = df9(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option22_Click()
For i = 0 To 8400
t(i) = df10(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option23_Click()
For i = 0 To 8400
t(i) = df11(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option24_Click()
For i = 0 To 8400
t(i) = df12(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option3_Click()
For i = 0 To 8400
t(i) = rb3(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option4_Click()
For i = 0 To 8400
t(i) = rb4(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option5_Click()
For i = 0 To 8400
t(i) = rb5(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option6_Click()
For i = 0 To 8400
t(i) = rb6(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option7_Click()
For i = 0 To 8400
t(i) = rb7(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option8_Click()
For i = 0 To 8400
t(i) = rb8(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub

Private Sub Option9_Click()
For i = 0 To 8400
t(i) = rb9(i)
Next i
Picture1.Cls
Amin = t(0): Amax = t(0):
For i = 1 To 8400
    If t(i) < Amin Then
       Amin = t(i)
    End If
    If t(i) > Amax Then
       Amax = t(i)
    End If
Next i

Picture1.Scale (0, Amax + Amax * 0.25)-(2000, Amin + Amin * 0.25)
For n = 1 To 1999 Step 1
Picture1.Line (n, t(n))-(n + 1, t(n + 1))
Next n
End Sub
12

form1.frm - 源码说明

本页面展示了「在VB上采用改进的阈值法检测心电高频向量」中的 form1.frm 源码文件，采用 FRM 编程语言编写，共 864 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与心电图相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?