📄 计算机控制设计.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
BackColor = &H00FFFF80&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 8700
ClientLeft = 150
ClientTop = 840
ClientWidth = 11400
BeginProperty Font
Name = "宋体"
Size = 6.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
Picture = "计算机控制设计.frx":0000
ScaleHeight = 243.69
ScaleMode = 0 'User
ScaleWidth = 201.085
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "波形显示周期缩小"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4920
TabIndex = 10
Top = 120
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "波形显示周期扩大"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6480
TabIndex = 9
Top = 120
Width = 1335
End
Begin VB.CommandButton Command5
Appearance = 0 'Flat
BackColor = &H00FFFFC0&
Caption = "停止动态显示"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6360
MaskColor = &H00FFFFC0&
TabIndex = 8
Top = 4320
UseMaskColor = -1 'True
Width = 1455
End
Begin VB.CommandButton Command4
Caption = "动态采样显示"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4800
TabIndex = 7
Top = 4320
Width = 1455
End
Begin VB.Timer Timer1
Left = 9240
Top = 0
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 9600
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 10080
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
DefaultExt = "txt"
Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|位图(*.bmp)|*.bmp"
InitDir = "D:\"
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1695
Left = 8040
MultiLine = -1 'True
TabIndex = 6
Text = "计算机控制设计.frx":0C9A
Top = 840
Width = 3135
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5775
Left = 8040
MultiLine = -1 'True
TabIndex = 5
Text = "计算机控制设计.frx":0CA0
Top = 2760
Width = 3135
End
Begin MSComctlLib.ImageList ImageList1
Left = 10560
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "计算机控制设计.frx":0CA8
Key = "a"
Object.Tag = "a"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "计算机控制设计.frx":9686
Key = "b"
Object.Tag = "b"
EndProperty
EndProperty
End
Begin VB.PictureBox Picture2
BackColor = &H00C0FFC0&
Height = 3495
Left = 120
ScaleHeight = 3435
ScaleWidth = 7635
TabIndex = 4
Top = 5040
Width = 7695
End
Begin VB.PictureBox Picture1
BackColor = &H00C0FFC0&
Height = 3375
Left = 120
ScaleHeight = 3315
ScaleWidth = 7635
TabIndex = 3
Top = 840
Width = 7695
End
Begin VB.Frame Frame3
BackColor = &H00FFFFC0&
Caption = "数据输出显示"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 7935
Left = 8040
TabIndex = 2
Top = 600
Width = 3135
End
Begin VB.Frame Frame2
BackColor = &H00FFFFC0&
Caption = "频域波形显示"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3735
Left = 120
TabIndex = 1
Top = 4800
Width = 7695
End
Begin VB.Frame Frame1
BackColor = &H00FFFFC0&
Caption = "时域波形显示"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3615
Left = 120
TabIndex = 0
Top = 600
Width = 7695
End
Begin VB.Menu file
Caption = "文件"
WindowList = -1 'True
Begin VB.Menu save
Caption = "保存..."
End
Begin VB.Menu open
Caption = "打开"
End
Begin VB.Menu close
Caption = "关闭"
End
End
Begin VB.Menu setting
Caption = "参数设置"
End
Begin VB.Menu output
Caption = "输出"
End
Begin VB.Menu get_data
Caption = "采样"
End
Begin VB.Menu show_wave
Caption = "波形显示"
Begin VB.Menu show_VT
Caption = "V-T图"
End
Begin VB.Menu show_FFT
Caption = "FFT图"
End
Begin VB.Menu activate_showVT_FFT
Caption = "动态显示"
End
Begin VB.Menu stop
Caption = "停止"
End
End
Begin VB.Menu analyze
Caption = "分析显示"
End
Begin VB.Menu clear
Caption = "清屏"
End
Begin VB.Menu refursh
Caption = "刷新"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim f1t, f1l, f1w, f1h As Single
Dim f2t, f2l, f2w, f2h As Single
Dim f3t, f3l, f3w, f3h As Single
Dim p1t, p1l, p1w, p1h, pp1h, pp1w As Single
Dim p2t, p2l, p2w, p2h, pp2h, pp2w As Single
Dim t1t, t1l, t1w, t1h As Single
Dim t2t, t2l, t2w, t2h As Single
Dim c5t, c5l, c5w, c5h As Single
Dim c4t, c4l, c4w, c4h As Single
Dim start As Integer
Dim lab_VT, lab_FFT, lab_analyze, lab_output As Integer ' 刷新标志
Dim v2 As Double, s, t As Single
Dim cyc, s_n As Single '信号周期
'-------------------------------------AC1059E ------------------------------------------------------------------------------------------------------------------------------------------
Private Declare Function AC1059_ADSampleAverage_VB Lib "aciont.dll" (ByVal portio As Long, ByVal Base As Long, _
ByVal channel As Long, ByVal mode As Long, ByVal Times As Long) As Long
Private Declare Function AC1059_Set8253Mode_VB Lib "aciont.dll" (ByVal portio As Long, ByVal Base As Long, _
ByVal mode As Long) As Long
Private Declare Function AC1059_Set8253Timer_VB Lib "aciont.dll" (ByVal portio As Long, ByVal Base As Long, _
ByVal Port As Long, ByVal data As Long) As Long
Private Declare Function AC_OpenDriver_VB Lib "aciont.dll" () As Long
Private Declare Function AC_CloseDriver_VB Lib "aciont.dll" (ByVal portio As Long) As Long
'-------------------------------------AC1059E------------------------------------------------------------------------------------------------------------------------------------------
Private Sub activate_showVT_FFT_Click() 'VT_FFT动态显示
start = True
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -