?? frmpulsetester.frm
字號:
VERSION 5.00
Object = "{C8C7D975-EC00-11D2-AAFB-002018650913}#1.1#0"; "adpulse.ocx"
Begin VB.Form frmPulseTester
Caption = "Pulse Tester"
ClientHeight = 3750
ClientLeft = 45
ClientTop = 270
ClientWidth = 7155
LinkTopic = "Form1"
ScaleHeight = 3750
ScaleWidth = 7155
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdExit
Caption = "Close"
Height = 372
Left = 5640
TabIndex = 24
Top = 840
Width = 1335
End
Begin VB.Timer Timer1
Interval = 100
Left = 2880
Top = 1680
End
Begin VB.Frame Frame1
Caption = "Select Device :"
Height = 1212
Left = 120
TabIndex = 12
Top = 0
Width = 5415
Begin VB.CommandButton cmdSelectDevice
Caption = "&Select Device"
Default = -1 'True
Height = 375
Left = 3960
TabIndex = 15
ToolTipText = "Selecting device to operation"
Top = 240
Width = 1335
End
Begin VB.TextBox txtDeviceName
Height = 285
Left = 1320
TabIndex = 14
Text = "AdvanTech"
ToolTipText = "Device Name"
Top = 720
Width = 3975
End
Begin VB.TextBox txtDeviceNum
Height = 285
Left = 1320
TabIndex = 13
Text = "-100"
ToolTipText = "Device Number"
Top = 260
Width = 855
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Device Name :"
Height = 195
Left = 120
TabIndex = 17
Top = 765
Width = 1065
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Device No. :"
Height = 195
Left = 120
TabIndex = 16
Top = 325
Width = 900
End
End
Begin VB.Frame Frame3
Caption = "Operating:"
Height = 2292
Left = 4350
TabIndex = 9
Top = 1320
Width = 2640
Begin VB.TextBox Text2
Height = 285
Left = 140
TabIndex = 22
Top = 480
Width = 975
End
Begin VB.TextBox Text1
Height = 285
Left = 140
TabIndex = 21
Top = 840
Width = 2280
End
Begin VB.CommandButton cmdStop
Caption = "Stop"
Height = 372
Left = 600
TabIndex = 11
Top = 1760
Width = 1452
End
Begin VB.CommandButton cmdStart
Caption = "Start"
Height = 372
Left = 600
TabIndex = 10
Top = 1250
Width = 1452
End
Begin VB.Label Label10
Caption = "Error code"
Height = 255
Left = 140
TabIndex = 23
Top = 240
Width = 1095
End
End
Begin VB.Frame Frame2
Caption = "Property Settings:"
Height = 2292
Left = 120
TabIndex = 0
Top = 1320
Width = 4095
Begin VB.ComboBox cmbGateMode
Height = 315
ItemData = "FrmpulseTester.frx":0000
Left = 1320
List = "FrmpulseTester.frx":0013
TabIndex = 7
Top = 1800
Width = 1335
End
Begin VB.TextBox txtUpCycle
Height = 288
Left = 1320
TabIndex = 6
Text = "0.05"
Top = 1320
Width = 855
End
Begin VB.TextBox txtPeriod
Height = 288
Left = 1320
TabIndex = 5
Text = "0.1"
Top = 840
Width = 855
End
Begin VB.TextBox txtChannel
Height = 288
Left = 1320
TabIndex = 2
Text = "1"
Top = 360
Width = 855
End
Begin VB.Label Label9
Caption = "(only if PCL830)"
Height = 255
Left = 2760
TabIndex = 20
Top = 1845
Width = 1215
End
Begin VB.Label Label8
Caption = "s(only if PCL830, 836)"
Height = 255
Left = 2280
TabIndex = 19
Top = 1380
Width = 1575
End
Begin VB.Label Label7
Caption = "s"
Height = 255
Left = 2280
TabIndex = 18
Top = 930
Width = 135
End
Begin VB.Label Label6
Caption = "GateMode:"
Height = 255
Left = 240
TabIndex = 8
Top = 1880
Width = 975
End
Begin VB.Label Label5
Caption = "UpCycle:"
Height = 255
Left = 240
TabIndex = 4
Top = 1380
Width = 855
End
Begin VB.Label Label4
Caption = "Period:"
Height = 255
Left = 240
TabIndex = 3
Top = 890
Width = 855
End
Begin VB.Label Label3
Caption = "Channel:"
Height = 255
Left = 240
TabIndex = 1
Top = 440
Width = 855
End
End
Begin DAQPulseLib.DAQPulse DAQPulse1
Height = 495
Left = 6120
TabIndex = 25
Top = 240
Width = 495
_Version = 65537
_ExtentX = 864
_ExtentY = 864
_StockProps = 0
End
End
Attribute VB_Name = "frmPulseTester"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmbGateMode_Click()
DAQPulse1.GateMode = cmbGateMode.ListIndex
End Sub
Private Sub cmdExit_Click()
Unload Me
End
End Sub
Private Sub cmdSelectDevice_Click()
Dim Ret As Long
Ret = DAQPulse1.SelectDevice
txtDeviceNum.Text = DAQPulse1.DeviceNumber
txtDeviceName.Text = DAQPulse1.DeviceName
DAQPulse1.DeviceNumber = DAQPulse1.DeviceNumber
DAQPulse1.DeviceName = DAQPulse1.DeviceName
End Sub
Private Sub cmdStart_Click()
If DAQPulse1.OpenDevice Then
MsgBox DAQPulse1.ErrorMessage, vbOKOnly
Exit Sub
End If
DAQPulse1.Channel = Val(txtChannel.Text)
DAQPulse1.PulsePeriod = Val(txtPeriod.Text)
DAQPulse1.PulseUpCycle = Val(txtUpCycle.Text)
DAQPulse1.GateMode = cmbGateMode.ListIndex
DAQPulse1.EnablePulseOut (True)
cmdSelectDevice.Enabled = False
cmdExit.Enabled = False
cmdStart.Enabled = False
cmdStop.Enabled = True
Timer1.Enabled = True
End Sub
Private Sub cmdStop_Click()
Timer1.Enabled = False
DAQPulse1.EnablePulseOut False
cmdSelectDevice.Enabled = True
cmdStop.Enabled = False
cmdStart.Enabled = True
If DAQPulse1.CloseDevice Then
MsgBox DAQPulse1.ErrorMessage, vbOKOnly
Exit Sub
End If
cmdExit.Enabled = True
End Sub
Private Sub Form_Load()
Dim Ret As Long
txtDeviceNum.Text = DAQPulse1.DeviceNumber
cmdStop.Enabled = False
cmbGateMode.ListIndex = DAQPulse1.GateMode
txtPeriod.Text = DAQPulse1.PulsePeriod
Ret = DAQPulse1.SelectDevice
txtDeviceNum.Text = DAQPulse1.DeviceNumber
txtDeviceName.Text = DAQPulse1.DeviceName
Timer1.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
DAQPulse1.EnablePulseOut False
DAQPulse1.CloseDevice
End Sub
Private Sub Timer1_Timer()
Text2.Text = DAQPulse1.ErrorCode
Text1.Text = DAQPulse1.ErrorMessage
End Sub
Private Sub txtChannel_Click()
DAQPulse1.Channel = Val(txtChannel.Text)
End Sub
Private Sub txtDeviceNum_Change()
DAQPulse1.DeviceNumber = Val(txtDeviceNum.Text)
txtDeviceName.Text = DAQPulse1.DeviceName
End Sub
Private Sub txtPeriod_Click()
DAQPulse1.PulsePeriod = Val(txtPeriod.Text)
End Sub
Private Sub txtUpCycle_Click()
DAQPulse1.PulseUpCycle = Val(txtUpCycle.Text)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -