📄 samp4882.frm
字号:
VERSION 5.00
Begin VB.Form Test
Appearance = 0 'Flat
BackColor = &H00808080&
BorderStyle = 3 'Fixed Dialog
Caption = "Fluke 45 Test Panel"
ClientHeight = 4365
ClientLeft = 1575
ClientTop = 1875
ClientWidth = 6645
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
LinkMode = 1 'Source
LinkTopic = "Form3"
PaletteMode = 1 'UseZOrder
ScaleHeight = 4365
ScaleWidth = 6645
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 = "Number of Readings"
Top = 120
Width = 1095
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"
Size = 8.25
Charset = 0
Weight = 700
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"
Size = 8.25
Charset = 0
Weight = 700
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_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Fluke 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) + "No error, 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"
If (ibsta% And RQS) Then sta$ = sta$ + " RQS"
If (ibsta% And CMPL) Then sta$ = sta$ + " CMPL"
If (ibsta% And LOK) Then sta$ = sta$ + " LOK"
If (ibsta% And RREM) Then sta$ = sta$ + " REM"
If (ibsta% And CIC) Then sta$ = sta$ + " CIC"
If (ibsta% And AATN) Then sta$ = sta$ + " ATN"
If (ibsta% And TACS) Then sta$ = sta$ + " TACS"
If (ibsta% And LACS) Then sta$ = sta$ + " LACS"
If (ibsta% And DTAS) Then sta$ = sta$ + " DTAS"
If (ibsta% And DCAS) Then sta$ = sta$ + " DCAS"
sta$ = sta$ + ">"
AddIbsta = sta$
End Function
Private Sub AvgVal_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
'
' Clear the list of readings in the test window
'
Private Sub ClearReadingsList()
If ReadingsList.ListCount > 0 Then
For i% = 0 To ReadingsList.ListCount - 1
ReadingsList.RemoveItem 0
Next i%
End If
ReadingsList.Refresh
End Sub
Private Sub CurrentReading_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub CurrentSample_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub ErrMsg(msg$)
msg$ = msg$ + AddIbsta() + AddIberr() + AddIbcnt()
If MsgBox(msg$, 5) = 2 Then
End
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -