📄 formula.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form1
Caption = "常用公式"
ClientHeight = 8490
ClientLeft = 60
ClientTop = 345
ClientWidth = 11820
Icon = "formula.frx":0000
LinkTopic = "Form1"
ScaleHeight = 8490
ScaleWidth = 11820
Begin VB.Frame Frame
Caption = " 555 振荡器"
Height = 2655
Index = 9
Left = 6720
TabIndex = 135
Top = 5160
Visible = 0 'False
Width = 6375
Begin VB.TextBox TH
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 2880
Locked = -1 'True
TabIndex = 149
Top = 1800
Width = 855
End
Begin VB.TextBox T5
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 1080
Locked = -1 'True
TabIndex = 147
Top = 2160
Width = 2655
End
Begin VB.TextBox C5
Height = 270
Left = 1080
TabIndex = 145
Text = "0.01"
Top = 1440
Width = 2655
End
Begin VB.TextBox Ra
Height = 270
Left = 1080
TabIndex = 139
Text = "9100"
Top = 720
Width = 2655
End
Begin VB.TextBox TL
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 1080
Locked = -1 'True
TabIndex = 138
Top = 1800
Width = 855
End
Begin VB.TextBox Rb
Height = 270
Left = 1080
TabIndex = 137
Text = "150"
Top = 1080
Width = 2655
End
Begin VB.PictureBox Picture3
Height = 1935
Left = 3840
Picture = "formula.frx":030A
ScaleHeight = 1875
ScaleWidth = 2235
TabIndex = 136
Top = 600
Width = 2295
End
Begin VB.Label Label72
Alignment = 1 'Right Justify
Caption = "TH(ms)："
Height = 255
Left = 1920
TabIndex = 148
Top = 1800
Width = 975
End
Begin VB.Label Label71
Alignment = 1 'Right Justify
Caption = "T(ms)："
Height = 255
Left = 360
TabIndex = 146
Top = 2160
Width = 735
End
Begin VB.Label Label70
Alignment = 1 'Right Justify
Caption = "C(uf)："
Height = 255
Left = 360
TabIndex = 144
Top = 1440
Width = 735
End
Begin VB.Label Label69
Alignment = 1 'Right Justify
Caption = "Ra(kohm)："
Height = 255
Left = 120
TabIndex = 143
Top = 720
Width = 975
End
Begin VB.Label Label68
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "TL = 0.69 * Rb * C TH = 0.69 * (Ra + Rb) * C T = TL + TH"
ForeColor = &H00000080&
Height = 255
Left = 120
TabIndex = 142
Top = 300
Width = 6015
End
Begin VB.Label Label67
Alignment = 1 'Right Justify
Caption = "TL(ms)："
Height = 255
Left = 240
TabIndex = 141
Top = 1800
Width = 855
End
Begin VB.Label Label66
Alignment = 1 'Right Justify
Caption = "Rb(kohm)："
Height = 255
Left = 120
TabIndex = 140
Top = 1080
Width = 975
End
End
Begin VB.Frame Frame
Caption = "RC 振荡器"
Height = 1695
Index = 8
Left = 6480
TabIndex = 112
Top = 5760
Visible = 0 'False
Width = 6375
Begin VB.TextBox Rd2
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4320
Locked = -1 'True
TabIndex = 131
Top = 1320
Width = 1935
End
Begin VB.TextBox Fd2
Height = 270
Left = 2640
TabIndex = 130
Text = "32000"
Top = 1320
Width = 735
End
Begin VB.TextBox Cd2
Height = 270
Left = 960
TabIndex = 129
Text = "1000"
Top = 1320
Width = 735
End
Begin VB.TextBox Fd
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4320
Locked = -1 'True
TabIndex = 118
Top = 600
Width = 1935
End
Begin VB.TextBox Rd
Height = 270
Left = 960
TabIndex = 117
Text = "5"
Top = 600
Width = 735
End
Begin VB.TextBox Cd
Height = 270
Left = 2640
TabIndex = 116
Text = "1000"
Top = 600
Width = 735
End
Begin VB.TextBox Rd1
Height = 270
Left = 960
TabIndex = 115
Text = "5"
Top = 960
Width = 735
End
Begin VB.TextBox Fd1
Height = 270
Left = 2640
TabIndex = 114
Text = "32000"
Top = 960
Width = 735
End
Begin VB.TextBox Cd1
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 4320
Locked = -1 'True
TabIndex = 113
Top = 960
Width = 1935
End
Begin VB.Label Label65
Alignment = 1 'Right Justify
Caption = "R(kohm)："
Height = 255
Left = 3360
TabIndex = 128
Top = 1320
Width = 975
End
Begin VB.Label Label64
Alignment = 1 'Right Justify
Caption = "F(Hz)："
Height = 255
Left = 1920
TabIndex = 127
Top = 1320
Width = 735
End
Begin VB.Label Label63
Alignment = 1 'Right Justify
Caption = "C(pf)："
Height = 255
Left = 240
TabIndex = 126
Top = 1320
Width = 735
End
Begin VB.Label Label62
Alignment = 1 'Right Justify
Caption = "F(Hz)："
Height = 255
Left = 3480
TabIndex = 125
Top = 600
Width = 855
End
Begin VB.Label Label61
Alignment = 1 'Right Justify
Caption = "R(kohm)："
Height = 255
Left = 120
TabIndex = 124
Top = 600
Width = 855
End
Begin VB.Label Label60
Alignment = 2 'Center
Caption = " F = 1/2PRC = 1.6*10^8 / R(kohm)*C(pf) P = 3.1416"
ForeColor = &H00000080&
Height = 255
Left = 240
TabIndex = 123
Top = 300
Width = 5895
End
Begin VB.Label Label59
Alignment = 1 'Right Justify
Caption = "C(pf)："
Height = 255
Left = 1800
TabIndex = 122
Top = 600
Width = 855
End
Begin VB.Label Cd10
Alignment = 1 'Right Justify
Caption = "C(pf)："
Height = 255
Left = 3600
TabIndex = 121
Top = 960
Width = 735
End
Begin VB.Label Label57
Alignment = 1 'Right Justify
Caption = "R(kohm)："
Height = 255
Left = 120
TabIndex = 120
Top = 960
Width = 855
End
Begin VB.Label Label56
Alignment = 1 'Right Justify
Caption = "F(Hz)："
Height = 255
Left = 1800
TabIndex = 119
Top = 960
Width = 855
End
End
Begin VB.Frame Frame
Caption = "带通滤波器"
Height = 6135
Index = 7
Left = 240
TabIndex = 77
Top = 600
Visible = 0 'False
Width = 6375
Begin VB.Frame Frame2
Caption = "校验"
Height = 1575
Left = 120
TabIndex = 95
Top = 1680
Width = 6135
Begin VB.TextBox CB
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 960
Locked = -1 'True
TabIndex = 111
Top = 1200
Width = 975
End
Begin VB.TextBox R1B
Height = 270
Left = 1080
TabIndex = 101
Text = "16000"
Top = 840
Width = 855
End
Begin VB.TextBox R2B
Height = 270
Left = 3000
TabIndex = 100
Text = "820"
Top = 840
Width = 855
End
Begin VB.TextBox R3B
Height = 270
Left = 5040
TabIndex = 99
Text = "330000"
Top = 840
Width = 975
End
Begin VB.TextBox QB
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 2400
Locked = -1 'True
TabIndex = 98
Top = 1200
Width = 735
End
Begin VB.TextBox KB
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 3600
Locked = -1 'True
TabIndex = 97
Top = 1200
Width = 735
End
Begin VB.TextBox FB
BackColor = &H00FF0000&
ForeColor = &H00FFFFFF&
Height = 270
Left = 5160
Locked = -1 'True
TabIndex = 96
Top = 1200
Width = 855
End
Begin VB.Label Label55
BorderStyle = 1 'Fixed Single
Caption = " S = 1/R1 + 1/R2 Kv = Rc/2Ra Qv = (1/2)*(R3*S)^(1/2)"
ForeColor = &H00000080&
Height = 255
Left = 120
TabIndex = 151
Top = 240
Width = 5895
End
Begin VB.Label Label46
BorderStyle = 1 'Fixed Single
Caption = " Fv = (1/2PC)*(S/R3)^(1/2) Cv = (1/2PF)*(S/R3)^(1/2) "
ForeColor = &H00000080&
Height = 255
Left = 120
TabIndex = 150
Top = 480
Width = 5895
End
Begin VB.Label Label54
Alignment = 1 'Right Justify
Caption = "Qv："
Height = 255
Left = 2040
TabIndex = 108
Top = 1200
Width = 375
End
Begin VB.Label Label53
Alignment = 1 'Right Justify
Caption = "Kv："
Height = 255
Left = 3240
TabIndex = 107
Top = 1200
Width = 375
End
Begin VB.Label Label52
Alignment = 1 'Right Justify
Caption = "Fv(Hz)："
Height = 255
Left = 4440
TabIndex = 106
Top = 1200
Width = 735
End
Begin VB.Label Label51
Alignment = 1 'Right Justify
Caption = "Cv(uF)："
Height = 255
Left = 240
TabIndex = 105
Top = 1200
Width = 735
End
Begin VB.Label Label50
Alignment = 1 'Right Justify
Caption = "R1(ohm)："
Height = 255
Left = 120
TabIndex = 104
Top = 840
Width = 975
End
Begin VB.Label Label49
Alignment = 1 'Right Justify
Caption = "R2(ohm)："
Height = 255
Left = 2040
TabIndex = 103
Top = 840
Width = 975
End
Begin VB.Label Label48
Alignment = 1 'Right Justify
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -