Skip to content
This repository was archived by the owner on Feb 16, 2025. It is now read-only.

2.0-dev.3 #1

Merged
SessionHu merged 16 commits into from
Nov 5, 2022
+271 −100
Merged

2.0-dev.3 #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
16 commits
Select commit Hold shift + click to select a range
e1bf952
Update README.md
SessionHu Oct 19, 2022
10416ba
Delete Script.vbs
SessionHu Oct 19, 2022
6003ed5
Upload icon res
SessionHu Oct 22, 2022
f8a88a5
Fix 16bit colour bug
SessionHu Oct 22, 2022
76398c8
reUpload
SessionHu Oct 22, 2022
8ce91a1
ChangeUI(Unrunnable!)
SessionHu Oct 22, 2022
93cb9d0
SessionHu Oct 22, 2022
cda06ba
支持常用公制单位转换为米（MsgBox显示结果）
SessionHu Oct 22, 2022
6e53981
reUpload
SessionHu Oct 22, 2022
39de68d
reUpload
SessionHu Oct 22, 2022
e69eb4c
完成输入部分
SessionHu Oct 22, 2022
799524e
修复了部分公制单位的换算错误 及 添加了输出换算至㎝的功能
SessionHu Oct 22, 2022
5439fe4
优化UI 优化±1以内小数显示 优化代码体积
SessionHu Nov 5, 2022
cb9191c
完成输出部分 移除了±1小数修复
SessionHu Nov 5, 2022
70f09e3
SessionHu Nov 5, 2022
cf16e09
Update README.md
SessionHu Nov 5, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
323 changes: 237 additions & 86 deletions Form1.frm
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,11 +1,11 @@
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 4 'Fixed ToolWindow
Caption = "���߼�����"
ClientHeight = 1545
ClientLeft = 3390
ClientTop = 2040
ClientWidth = 3030
BorderStyle = 1 'Fixed Single
Caption = "���ȵ�λת����"
ClientHeight = 1560
ClientLeft = 3750
ClientTop = 2070
ClientWidth = 3615
BeginProperty Font
Name = "΢���ź�"
Size = 9
Expand All @@ -15,122 +15,273 @@ Begin VB.Form Form1
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1545
ScaleWidth = 3030
ShowInTaskbar = 0 'False
ScaleHeight = 1560
ScaleWidth = 3615
StartUpPosition = 1 '����������
Begin VB.CommandButton Command4
Caption = "���(&C)"
Begin VB.ComboBox Combo2
Height = 375
Left = 1200
TabIndex = 7
Top = 1080
Width = 855
ItemData = "Form1.frx":048A
Left = 1980
List = "Form1.frx":04D9
Style = 2 'Dropdown List
TabIndex = 6
ToolTipText = "�����λ"
Top = 600
Width = 1515
End
Begin VB.CommandButton Command3
Caption = "�˳�(&E)"
Begin VB.ComboBox Combo1
Height = 375
Left = 2160
TabIndex = 6
Top = 1080
Width = 735
ItemData = "Form1.frx":05E7
Left = 1980
List = "Form1.frx":0636
Style = 2 'Dropdown List
TabIndex = 5
ToolTipText = "ԭ��λ"
Top = 120
Width = 1515
End
Begin VB.CommandButton Command2
Caption = "������"
Caption = "���(&C)"
Height = 375
Left = 2160
TabIndex = 5
Top = 600
Width = 735
Left = 1680
Style = 1 'Graphical
TabIndex = 3
ToolTipText = "�������"
Top = 1080
Width = 855
End
Begin VB.CommandButton Command1
Caption = "���ס�"
Caption = "�˳�(&E)"
Height = 375
Left = 2160
TabIndex = 4
Top = 120
Width = 735
Left = 2640
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "�˳�����"
Top = 1080
Width = 855
End
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 375
Left = 840
TabIndex = 3
Left = 120
Locked = -1 'True
TabIndex = 1
ToolTipText = "���"
Top = 600
Width = 1215
Width = 1815
End
Begin VB.TextBox Text1
Height = 375
Left = 840
TabIndex = 2
Left = 120
TabIndex = 0
ToolTipText = "ԭ����"
Top = 120
Width = 1215
Width = 1815
End
Begin VB.Label Label3
Begin VB.Label Label1
BackColor = &H80000004&
Caption = "by Session"
ForeColor = &H80000011&
Height = 255
Left = 120
TabIndex = 8
Top = 1200
Left = 240
TabIndex = 4
Top = 1150
Width = 975
End
Begin VB.Label Label2
Caption = "���ף�"
BeginProperty Font
Name = "΢���ź�"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 1
Top = 600
Width = 855
End
Begin VB.Label Label1
Caption = "���ף�"
BeginProperty Font
Name = "΢���ź�"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 735
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Let Text2.Text = Val(Text1.Text) * 100 '��������Ϊ�׵�100��
Dim m As String

Public Sub CalcIn()
'����Ϊ���Ƶ�λ
If Combo1.Text = "����(�M)" Then
Let m = Val(Text1.Text) / 100
End If
If Combo1.Text = "��(m)" Then
Let m = Val(Text1.Text)
End If
If Combo1.Text = "����(�L)" Then
Let m = Val(Text1.Text) / 1000
End If
If Combo1.Text = "����(dm)" Then
Let m = Val(Text1.Text) / 10
End If
If Combo1.Text = "����(nm)" Then
Let m = Val(Text1.Text) * (10 ^ -9)
End If
If Combo1.Text = "΢��(��m)" Then
Let m = Val(Text1.Text) * (10 ^ -6)
End If
If Combo1.Text = "ǧ��(�N)" Then
Let m = Val(Text1.Text) * 1000
End If
'���Ƶ�λ���
'����Ϊ���Ƶ�λ
If Combo1.Text = "������" Then
Let m = Val(Text1.Text) * 500
End If
If Combo1.Text = "������" Then
Let m = Val(Text1.Text) * (100 / 3)
End If
If Combo1.Text = "������" Then
Let m = Val(Text1.Text) / 0.3
End If
If Combo1.Text = "������" Then
Let m = Val(Text1.Text) / 3
End If
If Combo1.Text = "������" Then
Let m = Val(Text1.Text) / 30
End If
If Combo1.Text = "������" Then
Let m = Val(Text1.Text) / 300
End If
If Combo1.Text = "������" Then
Let m = Val(Text1.Text) / 3000
End If
'����Ϊ���Ƶ�λ
'����ΪӢ�Ƶ�λ
If Combo1.Text = "Ӣ��(mi)" Then
Let m = Val(Text1.Text) * 1690.9344
End If
If Combo1.Text = "��(yd)" Then
Let m = Val(Text1.Text) * 0.9144
End If
If Combo1.Text = "Ӣ��(ft)" Then
Let m = Val(Text1.Text) * 0.3048
End If
If Combo1.Text = "Ӣ��(in)" Then
Let m = Val(Text1.Text) * 0.0254
End If
'����ΪӢ�Ƶ�λ
'����Ϊ�����õ�λ
If Combo1.Text = "����(n mile)" Then
Let m = Val(Text1.Text) * 1852
End If
If Combo1.Text = "����(ly)" Then
Let m = Val(Text1.Text) * (9.4607304725808 * 10 ^ 15)
End If
If Combo1.Text = "���ĵ�λ(A.U.)" Then
Let m = Val(Text1.Text) * (1.495978707 * 10 ^ 11)
End If
'����Ϊ�����õ�λ
End Sub
Private Sub Command2_Click()
Let Text1.Text = Val(Text2.Text) * 0.01 '������Ϊ���׵�0.01��
Public Sub CalcOut()
'����Ϊ���Ƶ�λ
If Combo2.Text = "����(�M)" Then
Let Text2.Text = Val(m) * 100
End If
If Combo2.Text = "��(m)" Then
Let Text2.Text = Val(m)
End If
If Combo2.Text = "����(�L)" Then
Let Text2.Text = Val(m) * 1000
End If
If Combo2.Text = "����(dm)" Then
Let Text2.Text = Val(m) * 10
End If
If Combo2.Text = "����(nm)" Then
Let Text2.Text = Val(m) / (10 ^ -9)
End If
If Combo2.Text = "΢��(��m)" Then
Let Text2.Text = Val(m) / (10 ^ -6)
End If
If Combo2.Text = "ǧ��(�N)" Then
Let Text2.Text = Val(m) / 1000
End If
'���Ƶ�λ���
'����Ϊ���Ƶ�λ
If Combo2.Text = "������" Then
Let Text2.Text = Val(m) / 500
End If
If Combo2.Text = "������" Then
Let Text2.Text = Val(m) / (100 / 3)
End If
If Combo2.Text = "������" Then
Let Text2.Text = Val(m) * 0.3
End If
If Combo2.Text = "������" Then
Let Text2.Text = Val(m) * 3
End If
If Combo2.Text = "������" Then
Let Text2.Text = Val(m) * 30
End If
If Combo2.Text = "������" Then
Let Text2.Text = Val(m) * 300
End If
If Combo2.Text = "������" Then
Let Text2.Text = Val(m) * 3000
End If
'����Ϊ���Ƶ�λ
'����ΪӢ�Ƶ�λ
If Combo2.Text = "Ӣ��(mi)" Then
Let Text2.Text = Val(m) / 1690.9344
End If
If Combo2.Text = "��(yd)" Then
Let Text2.Text = Val(m) / 0.9144
End If
If Combo2.Text = "Ӣ��(ft)" Then
Let Text2.Text = Val(m) / 0.3048
End If
If Combo2.Text = "Ӣ��(in)" Then
Let Text2.Text = Val(m) / 0.0254
End If
'����ΪӢ�Ƶ�λ
'����Ϊ�����õ�λ
If Combo2.Text = "����(n mile)" Then
Let Text2.Text = Val(m) / 1852
End If
If Combo2.Text = "����(ly)" Then
Let Text2.Text = Val(m) / (9.4607304725808 * 10 ^ 15)
End If
If Combo2.Text = "���ĵ�λ(A.U.)" Then
Let Text2.Text = Val(m) / (1.495978707 * 10 ^ 11)
End If
'����Ϊ�����õ�λ
End Sub
Private Sub Command3_Click()
End '��������




Private Sub Form_Load()
Let Combo1.Text = "����(�M)"
Let Combo2.Text = "��(m)"
End Sub
Private Sub Command4_Click()
Let Text1.Text = "" '�����
Let Text2.Text = "" '�������


Private Sub Combo1_Click()
Call CalcIn
Call CalcOut
End Sub
Private Sub Text1_Change()
Call CalcIn
Call CalcOut
End Sub
Private Sub Combo2_Click()
Call CalcIn
Call CalcOut
End Sub



Private Sub Command1_Click()
End '��������
End Sub


Private Sub Command2_Click()
Let Text1.Text = "" '�����������
Let Text2.Text = "" '����������
End Sub
Private Sub Label3_DblClick()
MsgBox "��Ȩ���� (C) 2022 XhuOffice ��������Ȩ��", vbInformation, "XhuOffice" '��Ȩ��Ϣ


Private Sub Label1_DblClick()
MsgBox "��Ȩ���� (C) 2022 XhuOffice ��������Ȩ��", vbInformation, "XhuOffice" '��Ȩ��Ϣ
End Sub
Binary file added Form1.frx
View file
Open in desktop
Binary file not shown.
Loading