📄 formula.frm
字号:
TabIndex = 40
Top = 720
Width = 1095
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
Caption = "主频 Fx（MHz）"
Height = 255
Left = 1440
TabIndex = 39
Top = 720
Width = 1335
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
Caption = "波特率（Bord）"
Height = 255
Left = 0
TabIndex = 38
Top = 720
Width = 1455
End
Begin VB.Label Label20
Alignment = 2 'Center
Caption = "Mx = 256 - Fx / (384 * B)"
ForeColor = &H00000080&
Height = 255
Left = 120
TabIndex = 37
Top = 300
Width = 2775
End
End
Begin VB.Frame Frame
Caption = "M51定时器时间常数的计算"
Height = 1335
Index = 3
Left = 7320
TabIndex = 11
Top = 2280
Visible = 0 'False
Width = 6375
Begin VB.TextBox Nxh
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 5040
Locked = -1 'True
TabIndex = 75
Top = 840
Width = 1215
End
Begin VB.TextBox Nx
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 3600
Locked = -1 'True
TabIndex = 36
Top = 840
Width = 1335
End
Begin VB.TextBox M
Height = 270
Left = 2640
TabIndex = 35
Text = "256"
Top = 840
Width = 855
End
Begin VB.TextBox F
Height = 270
Left = 1320
TabIndex = 34
Text = "6"
Top = 840
Width = 1215
End
Begin VB.TextBox Tx
Height = 270
Left = 120
TabIndex = 33
Text = "250"
Top = 840
Width = 1095
End
Begin VB.Label Label23
Alignment = 1 'Right Justify
Caption = "Nx(hex)"
Height = 255
Left = 5040
TabIndex = 32
Top = 600
Width = 855
End
Begin VB.Label Label13
Alignment = 1 'Right Justify
Caption = "时间常数 Nx"
Height = 255
Left = 3600
TabIndex = 31
Top = 600
Width = 1215
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
Caption = "模式（M）"
Height = 255
Left = 2640
TabIndex = 30
Top = 600
Width = 855
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
Caption = "主频 F（MHz）"
Height = 255
Left = 1320
TabIndex = 29
Top = 600
Width = 1215
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
Caption = "时长Tx（uS）"
Height = 255
Left = 240
TabIndex = 28
Top = 600
Width = 1095
End
Begin VB.Label Label15
Alignment = 2 'Center
Caption = "Nx = M-(Tx*F/12)；M = 8192（13bit），65535（16bit），256（8bit）"
ForeColor = &H00000080&
Height = 255
Left = 120
TabIndex = 27
Top = 240
Width = 6135
End
End
Begin VB.Frame Frame
Caption = "LM317T的输出电压 V0 和接地调整电阻 Rx 的关系"
Height = 3135
Index = 1
Left = 600
TabIndex = 9
Top = 1680
Visible = 0 'False
Width = 6375
Begin VB.PictureBox Picture2
Height = 1935
Left = 1200
Picture = "formula.frx":4B41
ScaleHeight = 1875
ScaleWidth = 3915
TabIndex = 134
Top = 1080
Width = 3975
End
Begin VB.TextBox R1x
Height = 270
Left = 2760
TabIndex = 133
Text = "270"
Top = 720
Width = 975
End
Begin VB.TextBox Rx
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4680
Locked = -1 'True
TabIndex = 17
Top = 720
Width = 1575
End
Begin VB.TextBox V0
Height = 270
Left = 840
TabIndex = 15
Text = "2"
Top = 720
Width = 975
End
Begin VB.Label Label58
Alignment = 1 'Right Justify
Caption = "R1(ohm)："
Height = 255
Left = 1800
TabIndex = 132
Top = 720
Width = 975
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "Rx(ohm)："
Height = 255
Left = 3720
TabIndex = 16
Top = 720
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "Rx = R1*(V0-1.25)/1.25"
ForeColor = &H00000080&
Height = 255
Left = 120
TabIndex = 14
Top = 300
Width = 2775
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "V0(V)："
Height = 255
Left = 120
TabIndex = 13
Top = 720
Width = 735
End
End
Begin VB.ComboBox Cmb1
Height = 300
ItemData = "formula.frx":6D5E
Left = 0
List = "formula.frx":6D60
TabIndex = 8
Text = " 公式选择"
Top = 120
Width = 6375
End
Begin VB.Frame Frame
Caption = "并联电阻的计算"
Height = 1335
Index = 2
Left = 6600
TabIndex = 2
Top = 120
Visible = 0 'False
Width = 6375
Begin VB.TextBox R10
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4320
Locked = -1 'True
TabIndex = 63
Top = 960
Width = 1935
End
Begin VB.TextBox R12
Height = 270
Left = 2640
TabIndex = 62
Text = "6"
Top = 960
Width = 735
End
Begin VB.TextBox R11
Height = 270
Left = 960
TabIndex = 61
Text = "6"
Top = 960
Width = 735
End
Begin VB.TextBox R1
Height = 270
Left = 2640
TabIndex = 7
Text = "6"
Top = 600
Width = 735
End
Begin VB.TextBox R
Height = 270
Left = 960
TabIndex = 1
Text = "3"
Top = 600
Width = 735
End
Begin VB.TextBox R2
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4320
Locked = -1 'True
TabIndex = 0
Top = 600
Width = 1935
End
Begin VB.Label Label31
Alignment = 1 'Right Justify
Caption = "R2(ohm)："
Height = 255
Left = 1800
TabIndex = 60
Top = 960
Width = 855
End
Begin VB.Label Label30
Alignment = 1 'Right Justify
Caption = "R1(ohm)："
Height = 255
Left = 120
TabIndex = 59
Top = 960
Width = 855
End
Begin VB.Label Label29
Alignment = 1 'Right Justify
Caption = "R(ohm)："
Height = 255
Left = 3600
TabIndex = 58
Top = 960
Width = 735
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "R1(ohm)："
Height = 255
Left = 1800
TabIndex = 6
Top = 600
Width = 855
End
Begin VB.Label Label6
Alignment = 2 'Center
Caption = "R = R1 // R2， R2 = R * R1 /( R1 - R )"
ForeColor = &H00000080&
Height = 255
Left = 240
TabIndex = 5
Top = 300
Width = 3615
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "R(ohm)："
Height = 255
Left = 240
TabIndex = 4
Top = 600
Width = 735
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "R2(ohm)："
Height = 255
Left = 3480
TabIndex = 3
Top = 600
Width = 855
End
End
Begin VB.Frame Frame
Caption = "公制（mm）和英制（mil）的换算"
Height = 1335
Index = 0
Left = 7200
TabIndex = 10
Top = 4080
Visible = 0 'False
Width = 6375
Begin VB.TextBox MIL1
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4320
Locked = -1 'True
TabIndex = 26
Top = 960
Width = 1935
End
Begin VB.TextBox MM1
Height = 270
Left = 840
TabIndex = 24
Text = "2.54"
Top = 960
Width = 2415
End
Begin VB.TextBox MM
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4320
Locked = -1 'True
TabIndex = 22
Top = 600
Width = 1935
End
Begin VB.TextBox MIL
Height = 270
Left = 840
TabIndex = 20
Text = "100"
Top = 600
Width = 2415
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
Caption = "---> mil："
Height = 255
Left = 3000
TabIndex = 25
Top = 960
Width = 1335
End
Begin VB.Label Label11
Alignment = 1 'Right Justify
Caption = "mm："
Height = 255
Left = 360
TabIndex = 23
Top = 960
Width = 495
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "---> mm："
Height = 255
Left = 2880
TabIndex = 21
Top = 600
Width = 1455
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = "mil："
Height = 255
Left = 240
TabIndex = 19
Top = 600
Width = 615
End
Begin VB.Label Label10
Alignment = 2 'Center
Caption = "100 mil = 2.54 mm ； 1"" = 1000 mil"
ForeColor = &H00000080&
Height = 255
Left = 120
TabIndex = 18
Top = 300
Width = 3615
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private index As Integer
Const P = 3.1416
'
Private Sub Form_Load()
' LM317T的输出电压 V0 和接地调整电阻 Rx 的关系
V0_Change
' 并联电阻的计算
R_Change
R11_Change
' 公制（mm）和英制（0.1”）的换算
MIL_Change
MM1_Change
' 作为波特率发生器的定时器 T1 的初值Mx
B_Change
' M51定时器时间常数的计算
F_Change
' 频率 F （MHz）和周期 T （uS）的换算
T1_Change
F1_Change
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -