📄 form1.frm
字号:
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 480
Index = 2
Left = 3240
MaxLength = 8
TabIndex = 3
Text = "00000000"
Top = 600
Width = 1455
End
Begin VB.TextBox txtDataWord
BackColor = &H00008000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 480
Index = 3
Left = 1680
MaxLength = 8
TabIndex = 4
Text = "00000000"
Top = 600
Width = 1455
End
Begin VB.TextBox txtDataWord
BackColor = &H00008000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 480
Index = 4
Left = 120
MaxLength = 8
TabIndex = 5
Text = "00000000"
Top = 600
Width = 1455
End
Begin VB.CheckBox chkComModeVal
Alignment = 1 'Right Justify
Caption = "Parallel"
DisabledPicture = "Form1.frx":2656
DownPicture = "Form1.frx":2738
Height = 615
Left = 5280
MaskColor = &H00FF00FF&
Picture = "Form1.frx":281A
Style = 1 'Graphical
TabIndex = 34
Top = 1200
UseMaskColor = -1 'True
Width = 975
End
Begin VB.CommandButton cmdSendData
Caption = "Send Data"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6360
Style = 1 'Graphical
TabIndex = 29
Top = 1200
Width = 1455
End
Begin VB.Label lblComMode
Caption = "Comm Mode:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4440
TabIndex = 35
Top = 1200
Width = 855
End
Begin VB.Label lblReg
Alignment = 2 'Center
Caption = "W4"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 120
TabIndex = 10
Top = 360
Width = 1455
End
Begin VB.Label lblReg
Alignment = 2 'Center
Caption = "W3"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 1680
TabIndex = 9
Top = 360
Width = 1455
End
Begin VB.Label lblReg
Alignment = 2 'Center
Caption = "W2"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 3240
TabIndex = 8
Top = 360
Width = 1455
End
Begin VB.Label lblReg
Alignment = 2 'Center
Caption = "W1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 4800
TabIndex = 7
Top = 360
Width = 1455
End
Begin VB.Label lblReg
Alignment = 2 'Center
Caption = "W0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 6360
TabIndex = 6
Top = 360
Width = 1455
End
End
Begin VB.Label Label1
Caption = " Communication Mode"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 30
Top = 6720
Width = 1995
End
Begin VB.Shape Shape4
BorderColor = &H00C0C0C0&
FillColor = &H00C0C0C0&
FillStyle = 0 'Solid
Height = 795
Left = 195
Shape = 4 'Rounded Rectangle
Top = 6960
Width = 2280
End
Begin VB.Shape Shape3
BorderColor = &H80000018&
FillColor = &H80000018&
FillStyle = 0 'Solid
Height = 1095
Left = 120
Shape = 4 'Rounded Rectangle
Top = 6720
Width = 2415
End
Begin VB.Image Image1
Height = 1095
Left = 120
Picture = "Form1.frx":28FC
Stretch = -1 'True
Top = 5520
Width = 4965
End
End
Attribute VB_Name = "frmDebug"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check2_Click()
End Sub
Private Sub chkAutoFQUD_Click()
'Set the value
AD9850EvalBd.AutoFQUD = chkAutoFQUD.Value
End Sub
Private Sub chkComModeVal_Click()
If chkComModeVal.Value = 0 Then
chkComModeVal.Caption = "Parallel"
AD9850EvalBd.ComMode = Parallel
Else
chkComModeVal.Caption = "Serial"
AD9850EvalBd.ComMode = Serial
End If
End Sub
Private Sub chkDataLine_Click(Index As Integer)
Select Case Index
Case 0:
AD9850EvalBd.D0 = chkDataLine(Index).Value
Case 1:
AD9850EvalBd.D1 = chkDataLine(Index).Value
Case 2:
AD9850EvalBd.D2 = chkDataLine(Index).Value
Case 3:
AD9850EvalBd.D3 = chkDataLine(Index).Value
Case 4:
AD9850EvalBd.D4 = chkDataLine(Index).Value
Case 5:
AD9850EvalBd.D5 = chkDataLine(Index).Value
Case 6:
AD9850EvalBd.D6 = chkDataLine(Index).Value
Case 7:
AD9850EvalBd.D7_SDAT = chkDataLine(Index).Value
End Select
End Sub
Private Sub chkFQUD_Click()
'Set the value
AD9850EvalBd.FQUD = chkFQUD.Value
End Sub
Private Sub chkReset_Click()
'Set the value
AD9850EvalBd.Reset = chkReset.Value
End Sub
Private Sub chkStrobe_Click()
'Set the value of the bit
AD9850EvalBd.Strobe = chkStrobe.Value
End Sub
Private Sub chkWCLK_Click()
'Set the value
AD9850EvalBd.WCLK = chkWCLK.Value
End Sub
Private Sub cmdReadCheckLine_Click()
Dim HiLow As Long
HiLow = AD9850EvalBd.Check
imgCheckLineVal.Picture = imgGRLed(AD9850EvalBd.Check).Picture
If HiLow Then
lblCheckVal.Caption = "High"
Else
lblCheckVal.Caption = "Low"
End If
' If AD9850EvalBd.Check = abvHigh Then
' chkCheck.Picture = imgGRLed(1).Picture
' chkCheck.Caption = "HIGH"
' chkCheck.Refresh
' Else
' chkCheck.Picture = imgGRLed(0).Picture
' chkCheck.Caption = "LOW"
' chkCheck.Refresh
' End If
End Sub
Public Sub ResetForm()
'Disable the driver
AD9850EvalBd.Enabled = False
chkAutoFQUD.Value = Abs(CInt(AD9850EvalBd.AutoFQUD))
chkComModeVal.Value = AD9850EvalBd.ComMode
chkFQUD.Value = AD9850EvalBd.FQUD
chkStrobe.Value = AD9850EvalBd.Strobe
chkWCLK.Value = AD9850EvalBd.WCLK
chkDataLine(0) = AD9850EvalBd.D0
chkDataLine(1) = AD9850EvalBd.D1
chkDataLine(2) = AD9850EvalBd.D2
chkDataLine(3) = AD9850EvalBd.D3
chkDataLine(4) = AD9850EvalBd.D4
chkDataLine(5) = AD9850EvalBd.D5
chkDataLine(6) = AD9850EvalBd.D6
chkDataLine(7) = AD9850EvalBd.D7_SDAT
txtDataWord(0).Text = "00000000"
txtDataWord(1).Text = "00000000"
txtDataWord(2).Text = "00000000"
txtDataWord(3).Text = "00000000"
txtDataWord(4).Text = "00000000"
AD9850EvalBd.Enabled = True
End Sub
Private Sub cmdSendData_Click()
Dim Data2Send As String
'Build the data word to send
Data2Send = txtDataWord(4) & txtDataWord(3) & txtDataWord(2) & txtDataWord(1) & txtDataWord(0)
'Send the data to the AD9850
AD9850EvalBd.WriteData2Dut Data2Send
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Do not allow the user to close the window by clicking on the
'close button
If UnloadMode = vbFormControlMenu Then
'Hide the form
Me.Hide
Cancel = 1
End If
End Sub
Private Sub txtDataWord_KeyPress(Index As Integer, KeyAscii As Integer)
Dim cncl As Boolean
KeyAscii = BinKeysFilter(KeyAscii)
If KeyAscii = 13 Then
KeyAscii = 0
txtDataWord_Validate Index, cncl
End If
End Sub
Private Sub txtDataWord_Validate(Index As Integer, Cancel As Boolean)
If txtDataWord(Index).Text = "" Then
txtDataWord(Index).Text = "0"
End If
txtDataWord(Index).Text = Format(txtDataWord(Index).Text, "00000000")
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -