📄 devsamp.frm
字号:
VERSION 4.00
Begin VB.Form Test
Appearance = 0 'Flat
BackColor = &H00808080&
BorderStyle = 3 'Fixed Dialog
Caption = "Fluke 45 Test Panel"
ClientHeight = 4365
ClientLeft = 1560
ClientTop = 1875
ClientWidth = 6660
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 5055
Left = 1500
LinkMode = 1 'Source
LinkTopic = "Form3"
ScaleHeight = 4365
ScaleWidth = 6660
Top = 1245
Width = 6780
Begin VB.ComboBox addr
Appearance = 0 'Flat
Height = 315
Left = 2040
TabIndex = 21
Text = "1"
Top = 3840
Width = 735
End
Begin VB.CommandButton QuitButton
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Quit"
Height = 495
Left = 5280
TabIndex = 18
Top = 3720
Width = 1005
End
Begin VB.CommandButton RunRepeat
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Run Test"
Height = 495
Left = 3600
TabIndex = 15
Top = 3720
Width = 1245
End
Begin VB.TextBox StdDevVal
Appearance = 0 'Flat
Height = 300
Left = 2040
TabIndex = 11
Top = 3000
Width = 1095
End
Begin VB.Frame Frame2
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Calculated Values"
Enabled = 0 'False
ForeColor = &H0000FFFF&
Height = 1455
Left = 120
TabIndex = 17
Top = 2160
Width = 3135
Begin VB.TextBox AvgVal
Appearance = 0 'Flat
Height = 300
Left = 1920
TabIndex = 9
Top = 360
Width = 1095
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Standard Deviation"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 10
Top = 840
Width = 1695
End
Begin VB.Label Label5
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Average"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 8
Top = 360
Width = 1575
End
Begin VB.Label Label8
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Calculated Values"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 12
Top = 0
Width = 1575
End
End
Begin VB.TextBox CurrentReading
Appearance = 0 'Flat
Height = 300
Left = 2040
TabIndex = 6
Text = "Current Reading"
Top = 1440
Width = 1095
End
Begin VB.TextBox CurrentSample
Appearance = 0 'Flat
Height = 300
Left = 2040
TabIndex = 4
Text = "Current Sample"
Top = 960
Width = 1095
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Current Status"
Enabled = 0 'False
ForeColor = &H0000FFFF&
Height = 1455
Left = 120
TabIndex = 16
Top = 600
Width = 3135
Begin VB.Label Label4
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Readings"
ForeColor = &H0000FFFF&
Height = 375
Left = 120
TabIndex = 5
Top = 960
Width = 1575
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Sample number"
ForeColor = &H0000FFFF&
Height = 375
Left = 120
TabIndex = 3
Top = 480
Width = 1575
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Current Status"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 7
Top = 0
Width = 1335
End
End
Begin VB.ListBox ReadingsList
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H0000FF00&
Height = 2955
Left = 3480
TabIndex = 14
Top = 480
Width = 2895
End
Begin VB.TextBox NumReadings
Appearance = 0 'Flat
Height = 300
Left = 2040
TabIndex = 1
Text = "50"
Top = 120
Width = 615
End
Begin VB.Label Label10
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Primary Address"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 20
Top = 3840
Width = 1455
End
Begin VB.Label status
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "STOPPED"
ForeColor = &H000000FF&
Height = 255
Left = 1560
TabIndex = 2
Top = 600
Width = 975
End
Begin VB.Label Label9
Appearance = 0 'Flat
BackColor = &H00000000&
Caption = " "
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = -1 'True
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 6000
TabIndex = 19
Top = 240
Width = 375
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00000000&
Caption = "Sample # Reading "
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = -1 'True
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 3480
TabIndex = 13
Top = 240
Width = 2895
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00808080&
Caption = "Number of Readings"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 1815
End
Begin VB.Menu Info
Caption = "Info"
End
End
Attribute VB_Name = "Test"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim Dev As Integer
Private Function AddIbcnt() As String
AddIbcnt = Chr$(13) + Chr$(10) + "ibcnt = 0x" + Hex$(ibcnt%)
End Function
Private Function AddIberr() As String
If (ibsta And EERR) Then
If (iberr% = EDVR) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = EDVR <DOS Error>"
If (iberr% = ECIC) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ECIC <Not CIC>"
If (iberr% = ENOL) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ENOL <No Listener>"
If (iberr% = EADR) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = EADR <Address Error>"
If (iberr% = EARG) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = EARG <Invalid argument>"
If (iberr% = ESAC) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ESAC <Not Sys Ctrlr>"
If (iberr% = EABO) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = EABO <Op. aborted>"
If (iberr% = ENEB) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ENEB <No GPIB board>"
If (iberr% = EOIP) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = EOIP <Async I/O in prg>"
If (iberr% = ECAP) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ECAP <No capability>"
If (iberr% = EFSO) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = EFSO <File sys. error>"
If (iberr% = EBUS) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = EBUS <Command error>"
If (iberr% = ESTB) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ESTB <Status byte lost>"
If (iberr% = ESRQ) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ESRQ <SRQ stuck high>"
If (iberr% = ETAB) Then AddIberr = Chr$(13) + Chr$(10) + "iberr = ETAB <Table overflow>"
Else
AddIberr = Chr$(13) + Chr$(10) + "iberr = " + Str$(iberr%)
End If
End Function
Private Function AddIbsta() As String
sta$ = Chr$(13) + Chr$(10) + "ibsta = &H" + Hex$(ibsta%) + " <"
If (ibsta% And EERR) Then sta$ = sta$ + " ERR"
If (ibsta% And TIMO) Then sta$ = sta$ + " TIMO"
If (ibsta% And EEND) Then sta$ = sta$ + " END"
If (ibsta% And SRQI) Then sta$ = sta$ + " SRQI"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -