📄 导线2.frm
字号:
VERSION 5.00
Begin VB.Form Form2
Caption = "Form2"
ClientHeight = 8160
ClientLeft = 60
ClientTop = 450
ClientWidth = 9405
LinkTopic = "Form2"
ScaleHeight = 8160
ScaleWidth = 9405
StartUpPosition = 3 '窗口缺省
Visible = 0 'False
Begin VB.PictureBox Picture1
Height = 4335
Left = 2280
ScaleHeight = 4275
ScaleWidth = 4755
TabIndex = 26
Top = 1440
Width = 4815
Begin VB.Shape Shape1
Height = 135
Left = 4320
Top = 1680
Width = 135
End
Begin VB.Shape Shape2
Height = 135
Left = 3120
Top = 1680
Width = 135
End
Begin VB.Shape Shape3
Height = 135
Left = 3120
Top = 600
Width = 135
End
Begin VB.Shape Shape4
Height = 135
Left = 1200
Top = 600
Width = 135
End
Begin VB.Shape Shape5
Height = 135
Left = 720
Top = 1080
Width = 135
End
Begin VB.Shape Shape6
Height = 135
Left = 720
Top = 1920
Width = 135
End
Begin VB.Shape Shape7
Height = 135
Left = 1320
Top = 1920
Width = 135
End
Begin VB.Shape Shape8
Height = 135
Left = 1800
Top = 3360
Width = 135
End
Begin VB.Shape Shape9
Height = 135
Left = 4320
Top = 3360
Width = 135
End
Begin VB.Line Line2
X1 = 1920
X2 = 4320
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line3
X1 = 4320
X2 = 4320
Y1 = 3360
Y2 = 1800
End
Begin VB.Line Line4
X1 = 4320
X2 = 3240
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line5
X1 = 3240
X2 = 3120
Y1 = 1680
Y2 = 720
End
Begin VB.Line Line6
X1 = 3120
X2 = 1320
Y1 = 600
Y2 = 600
End
Begin VB.Line Line7
X1 = 1200
X2 = 840
Y1 = 720
Y2 = 1080
End
Begin VB.Line Line8
X1 = 840
X2 = 840
Y1 = 1200
Y2 = 1920
End
Begin VB.Shape Shape10
Height = 135
Left = 1320
Top = 2760
Width = 135
End
Begin VB.Line Line1
X1 = 840
X2 = 1320
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line9
X1 = 1440
X2 = 1440
Y1 = 2040
Y2 = 2760
End
Begin VB.Line Line10
X1 = 1440
X2 = 1800
Y1 = 2880
Y2 = 2880
End
Begin VB.Shape Shape11
Height = 135
Left = 1800
Top = 2880
Width = 135
End
Begin VB.Line Line11
X1 = 1800
X2 = 1800
Y1 = 3000
Y2 = 3360
End
Begin VB.Label Label4
Caption = "1"
Height = 255
Index = 0
Left = 4560
TabIndex = 37
Top = 1560
Width = 495
End
Begin VB.Label Label4
Caption = "2"
Height = 255
Index = 1
Left = 2520
TabIndex = 36
Top = 1680
Width = 495
End
Begin VB.Label Label4
Caption = "3"
Height = 255
Index = 2
Left = 3240
TabIndex = 35
Top = 240
Width = 495
End
Begin VB.Label Label4
Caption = "4"
Height = 255
Index = 3
Left = 960
TabIndex = 34
Top = 240
Width = 495
End
Begin VB.Label Label4
Caption = "5"
Height = 255
Index = 4
Left = 120
TabIndex = 33
Top = 840
Width = 495
End
Begin VB.Label Label4
Caption = "6"
Height = 255
Index = 5
Left = 120
TabIndex = 32
Top = 1800
Width = 495
End
Begin VB.Label Label4
Caption = "7"
Height = 255
Index = 6
Left = 1440
TabIndex = 31
Top = 1680
Width = 495
End
Begin VB.Label Label4
Caption = "8"
Height = 255
Index = 7
Left = 720
TabIndex = 30
Top = 2640
Width = 495
End
Begin VB.Label Label4
Caption = "9"
Height = 255
Index = 8
Left = 2040
TabIndex = 29
Top = 2760
Width = 495
End
Begin VB.Label Label4
Caption = "10"
Height = 255
Index = 9
Left = 1200
TabIndex = 28
Top = 3360
Width = 495
End
Begin VB.Label Label4
Caption = "11"
Height = 255
Index = 10
Left = 4560
TabIndex = 27
Top = 3360
Width = 495
End
End
Begin VB.CommandButton Command2
Caption = "返回"
Enabled = 0 'False
Height = 495
Left = 3960
TabIndex = 25
Top = 6720
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "角度变弧度"
Height = 495
Left = 3960
TabIndex = 24
Top = 600
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 10
Left = 7320
TabIndex = 21
Text = "423.382"
Top = 7440
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 9
Left = 7320
TabIndex = 20
Text = "472.522"
Top = 6840
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 8
Left = 7320
TabIndex = 19
Text = "171.186"
Top = 6240
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 7
Left = 7320
TabIndex = 18
Text = "263.654"
Top = 5640
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 6
Left = 7320
TabIndex = 17
Text = "204.689"
Top = 5040
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 5
Left = 7320
TabIndex = 16
Text = "128.717"
Top = 4440
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 4
Left = 7320
TabIndex = 15
Text = "229.961"
Top = 3840
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 3
Left = 7320
TabIndex = 14
Text = "144.504"
Top = 3120
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 2
Left = 7320
TabIndex = 13
Text = "447.427"
Top = 2400
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 1
Left = 7320
TabIndex = 12
Text = "280.904"
Top = 1680
Width = 1215
End
Begin VB.TextBox Text2
Height = 495
Index = 0
Left = 7320
TabIndex = 11
Text = "324.737"
Top = 960
Width = 1215
End
Begin VB.TextBox Text1
Height = 495
Index = 10
Left = 360
TabIndex = 10
Text = "91.05473"
Top = 7440
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 9
Left = 360
TabIndex = 9
Text = "91.37423"
Top = 6840
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 8
Left = 360
TabIndex = 8
Text = "268.02523"
Top = 6240
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 7
Left = 360
TabIndex = 7
Text = "92.36423"
Top = 5640
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 6
Left = 360
TabIndex = 6
Text = "269.57372"
Top = 4920
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 5
Left = 360
TabIndex = 5
Text = "86.27123"
Top = 4200
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 4
Left = 360
TabIndex = 4
Text = "137.04323"
Top = 3600
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 3
Left = 360
TabIndex = 3
Text = "135.0973"
Top = 2880
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 2
Left = 360
TabIndex = 2
Text = "90.39123"
Top = 2160
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 1
Left = 360
TabIndex = 1
Text = "266.51572"
Top = 1560
Width = 1695
End
Begin VB.TextBox Text1
Height = 495
Index = 0
Left = 360
TabIndex = 0
Text = "90.27173"
Top = 960
Width = 1695
End
Begin VB.Label Label2
Caption = "边长"
Height = 495
Left = 7320
TabIndex = 23
Top = 360
Width = 1215
End
Begin VB.Label Label1
Caption = "角度"
Height = 495
Left = 360
TabIndex = 22
Top = 240
Width = 1215
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function dfs(jd#) As Double
Dim d, f, s1, h, x As Double
d = Int(jd)
x = (jd - d) * 100
f = Int(x)
s1 = (x - f) * 100
h = (d * 3600 + f * 60 + s1) / 206265
dfs = h
End Function
Private Sub Command1_Click()
Dim a As Double
Dim i As Integer
Command1.Enabled = False
Command2.Enabled = True
For i = 0 To 10
a = dfs(Text1(i).Text)
Text1(i).Text = a
Next i
End Sub
Private Sub Command2_Click()
Form1.Visible = True
Form2.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -