📄 frmsetic.frm
字号:
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
MaxLength = 5
TabIndex = 6
Text = "00FFF"
Top = 2880
Width = 855
End
Begin VB.Frame FWMod
Caption = "选择页写模式："
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4095
Left = 1200
TabIndex = 0
Top = 0
Width = 1455
Begin VB.OptionButton Omod
Caption = "1个字节"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 120
TabIndex = 5
Top = 480
Width = 1095
End
Begin VB.OptionButton Omod
Caption = "8个字节"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 120
TabIndex = 4
Top = 1260
Width = 1095
End
Begin VB.OptionButton Omod
Caption = "16个字节"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 120
TabIndex = 3
Top = 2040
Width = 1095
End
Begin VB.OptionButton Omod
Caption = "32个字节"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 120
TabIndex = 2
Top = 2820
Width = 1095
End
Begin VB.OptionButton Omod
Caption = "64个字节"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 120
TabIndex = 1
Top = 3600
Width = 1095
End
End
Begin VB.Label Ltaddr
AutoSize = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "LF"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4560
TabIndex = 29
Top = 240
Width = 345
End
Begin VB.Label LAddr
Caption = "输入24系列IC地址："
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2760
TabIndex = 10
Top = 360
Width = 2175
End
Begin VB.Label LSubAddr
Caption = "起始地址Hex："
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 9
Top = 1800
Width = 2175
End
Begin VB.Label LLength
Caption = "写入长度Hex："
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 8
Top = 2520
Width = 2175
End
End
Attribute VB_Name = "FrmSetIC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public ICLong As Long
Public WMod As Byte
Private Sub BCancel_Click()
Unload Me
End Sub
Private Sub BOK_Click()
Dim L As Long
Select Case WMod
Case 0:
FrmWR24XX.WPage = 1
Case 1:
FrmWR24XX.WPage = 8
Case 2:
FrmWR24XX.WPage = 16
Case 3:
FrmWR24XX.WPage = 32
Case 4:
FrmWR24XX.WPage = 64
Case Else
FrmWR24XX.WPage = 1
End Select
FrmWR24XX.ICAddr = Int(Val("&h" & Ltaddr.Caption))
FrmWR24XX.SubAddr = Int(Val("&H" & TSubaddr.Text))
FrmWR24XX.DLength = Int(Val("&H" & TLength.Text))
FrmWR24XX.HexLong = ICLong
L = ICLong \ 16
FrmWR24XX.TL = L
If L > &H10 Then
FrmWR24XX.InitMSFGDisplay L
Else
FrmWR24XX.InitMSFGDisplay &H10
End If
Unload Me
End Sub
Private Sub CAddr_Click(Index As Integer)
Dim t As Byte
t = 0
If CAddr(0).Value = 1 Then t = t + 8
If CAddr(1).Value = 1 Then t = t + 4
If CAddr(2).Value = 1 Then t = t + 2
Ltaddr.Caption = "A" & Hex(t)
End Sub
Private Sub Form_Load()
xh(FrmWR24XX.ICType).Value = True
WMod = WMod Mod 6
Omod(WMod).Value = True
End Sub
Private Sub Omod_Click(Index As Integer)
WMod = Index
End Sub
Private Sub xh_Click(Index As Integer)
FrmWR24XX.ICType = Index
Select Case Index
Case 0
ICLong = &H10 '24c00
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
Case 1
ICLong = &H80 '24c01
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
Case 2
ICLong = &H100 '24c02
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
Case 3
ICLong = &H200 '24c04
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = False
Case 4
ICLong = &H400 '24c08
CAddr(0).Enabled = True
CAddr(1).Enabled = False
CAddr(2).Enabled = False
Case 5
ICLong = &H800 '24c16
CAddr(0).Enabled = False
CAddr(1).Enabled = False
CAddr(2).Enabled = False
Case 6
ICLong = &H1000 '24c32
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
Case 7
ICLong = &H2000 '24c64
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
Case 8
ICLong = &H4000 '24c128
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
Case 9
ICLong = 32768 '24c256
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
Case 10
ICLong = &H10000 '24512
CAddr(0).Enabled = True
CAddr(1).Enabled = True
CAddr(2).Enabled = True
End Select
TLength.Text = Hex(ICLong)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -