📄 form1.frm

📁 在VB上采用改进的阈值法检测心电高频向量
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 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
💿 文件大小 1392 K
👤 上传用户 dongchenxi2
📂 所属分类医药行业
🏷️ 相关标签

#阈值法 #检测 #向量 #高频
⌨️ 快捷键说明

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