📄 mainform.frm
字号:
TValue(267) = 1.44
TValue(268) = 1.525
TValue(269) = 1.611
TValue(270) = 1.698
TValue(271) = 1.785
TValue(272) = 1.873
TValue(273) = 1.962
TValue(274) = 2.051
TValue(275) = 2.141
TValue(276) = 2.232
TValue(277) = 2.323
TValue(278) = 2.414
TValue(279) = 2.506
TValue(280) = 2.599
TValue(281) = 2.692
TValue(282) = 2.786
TValue(283) = 2.88
TValue(284) = 2.974
TValue(285) = 3.069
TValue(286) = 3.164
TValue(287) = 0
TValue(288) = 0
TValue(289) = 0
TValue(290) = 0
TValue(291) = 0
TValue(292) = 0
TValue(293) = 0
TValue(294) = 0
TValue(295) = 0
TValue(296) = 0
TValue(297) = 0
TValue(298) = 0
TValue(299) = 0
TValue(300) = 0
TValue(301) = 0
TValue(302) = 0
TValue(303) = 0
TValue(304) = 0
TValue(305) = 0
TValue(306) = 0
TValue(307) = 0
TValue(308) = 0
TValue(309) = 0
TValue(310) = 0
TValue(311) = 0
TValue(312) = 0
TValue(313) = 0
TValue(314) = 0
TValue(315) = 0
TValue(316) = 0
TValue(317) = 0
TValue(318) = 0
TValue(319) = 0
TValue(320) = 0
TValue(321) = 0
TValue(322) = 0
TValue(323) = 0
TValue(324) = 0
TValue(325) = 0
TValue(326) = 0
TValue(327) = 0
TValue(328) = 0
TValue(329) = 0
TValue(330) = 0
TValue(331) = 0
TValue(332) = 0
TValue(333) = 0
TValue(334) = 0
TValue(335) = 0
TValue(336) = 0
TValue(337) = 0
TValue(338) = 0
TValue(339) = 0
TValue(340) = 0
TValue(341) = 0
TValue(342) = 0
TValue(343) = 0
TValue(344) = 0
TValue(345) = 0
TValue(346) = 0
TValue(347) = 0
TValue(348) = 0
TValue(349) = 0
TValue(350) = 0
TValue(351) = 0
TValue(352) = 0
TValue(353) = 0
TValue(354) = 0
TValue(355) = 0
TValue(356) = 0
TValue(357) = 0
TValue(358) = 0
TValue(359) = 0
TValue(360) = 0
TValue(361) = 0
TValue(362) = 0
TValue(363) = 0
TValue(364) = 0
TValue(365) = 0
TValue(366) = 0
TValue(367) = 0
TValue(368) = 0
TValue(369) = 0
TValue(370) = 0
TValue(371) = 0
TValue(372) = 0
TValue(373) = 0
TValue(374) = 0
TValue(375) = 0
TValue(376) = 0
TValue(377) = 0
TValue(378) = 0
TValue(379) = 0
TValue(380) = 0
TValue(381) = 0
TValue(382) = 0
TValue(383) = 0
TValue(384) = 0
TValue(385) = 0
TValue(386) = 0
TValue(387) = 0
TValue(388) = 0
TValue(389) = 0
TValue(390) = 0
TValue(391) = 0
TValue(392) = 0
TValue(393) = 0
TValue(394) = 0
TValue(395) = 0
TValue(396) = 0
TValue(397) = 0
TValue(398) = 0
TValue(399) = 0
TValue(400) = 0
TValue(401) = 0
TValue(402) = 0
TValue(403) = 0
TValue(404) = 0
TValue(405) = 0
TValue(406) = 0
TValue(407) = 0
TValue(408) = 0
TValue(409) = 0
TValue(410) = 0
TValue(411) = 0
TValue(412) = 0
TValue(413) = 0
TValue(414) = 0
TValue(415) = 0
TValue(416) = 0
TValue(417) = 0
TValue(418) = 0
TValue(419) = 0
TValue(420) = 0
TValue(421) = 0
TValue(422) = 0
TValue(423) = 0
TValue(424) = 0
TValue(425) = 0
TValue(426) = 0
TValue(427) = 0
TValue(428) = 0
TValue(429) = 0
TValue(430) = 0
TValue(431) = 0
TValue(432) = 0
TValue(433) = 0
TValue(434) = 0
TValue(435) = 0
TValue(436) = 0
TValue(437) = 0
TValue(438) = 0
TValue(439) = 0
TValue(440) = 0
TValue(441) = 0
TValue(442) = 0
TValue(443) = 0
TValue(444) = 0
TValue(445) = 0
TValue(446) = 0
TValue(447) = 0
TValue(448) = 0
TValue(449) = 0
TValue(450) = 0
TValue(451) = 0
TValue(452) = 0
TValue(453) = 0
TValue(454) = 0
TValue(455) = 0
TValue(456) = 0
TValue(457) = 0
TValue(458) = 0
TValue(459) = 0
TValue(460) = 0
TValue(461) = 0
TValue(462) = 0
TValue(463) = 0
TValue(464) = 0
TValue(465) = 0
TValue(466) = 0
TValue(467) = 0
TValue(468) = 0
TValue(469) = 0
TValue(470) = 0
TValue(471) = 0
TValue(472) = 0
TValue(473) = 0
TValue(474) = 0
TValue(475) = 0
TValue(476) = 0
TValue(477) = 0
TValue(478) = 0
TValue(479) = 0
TValue(480) = 0
TValue(481) = 0
TValue(482) = 0
TValue(483) = 0
TValue(484) = 0
TValue(485) = 0
TValue(486) = 0
TValue(487) = 0
TValue(488) = 0
TValue(489) = 0
TValue(490) = 0
TValue(491) = 0
TValue(492) = 0
TValue(493) = 0
TValue(494) = 0
TValue(495) = 0
TValue(496) = 0
TValue(497) = 0
TValue(498) = 0
TValue(499) = 0
Else
If Dir(App.Path + "\T-mV.dat") = "" Then
MsgBox ("请将文件 'T-mV.dat' 复制到当前文件夹下！！！")
File_Tag = 0
Else
Open App.Path + "\T-mV.dat" For Input As #1
For i = 0 To 9
If EOF(1) = True Then Exit For
Input #1, TType(i)
TType(i) = Left(TType(i), 1)
Next i
Close #1
Open App.Path + "\T-mV.dat" For Input As #1
For i = 0 To 499
If EOF(1) = True Then Exit For
Input #1, TValue(i)
Next i
' For i = 0 To 40
' Input #1, Temp(i)
' Next i
' For i = 0 To 40
' Input #1, TValue(i)
' Next i
' For i = 0 To 40
' Input #1, JValue(i)
' Next i
' For i = 0 To 40
' Input #1, KValue(i)
' Next i
' For i = 0 To 40
' Input #1, EValue(i)
' Next i
' For i = 0 To 40
' Input #1, SValue(i)
' Next i
End If
Close #1
End If
End Sub
Private Sub Form_Load()
'''定位窗体位置
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
If File_Tag = False Then
Unload Me
Exit Sub
End If
Dim i As Integer
For i = 0 To 1
Combo1(i).AddItem ("T")
Combo1(i).AddItem ("J")
Combo1(i).AddItem ("K")
Combo1(i).AddItem ("E")
Combo1(i).AddItem ("S")
Next i
Combo1(0).ListIndex = 1
Combo1(1).ListIndex = 0
End Sub
Private Function InsertValue(X() As Single, Y() As Single, XValue) As Single
Dim YValue As Single
For i = 1 To UBound(X) - 1
If XValue >= X(i) And XValue < X(i + 1) Then
If XValue < X(2) Then YValue = (XValue - X(i + 1)) * (XValue - X(i + 2)) / (X(i) - X(i + 1)) / (X(i) - X(i + 2)) * Y(i) + (XValue - X(i)) * (XValue - X(i + 2)) / (X(i + 1) - X(i)) / (X(i + 1) - X(i + 2)) * Y(i + 1) + (XValue - X(i)) * (XValue - X(i + 1)) / (X(i + 2) - X(i)) / (X(i + 2) - X(i + 1)) * Y(i + 2)
If XValue >= X(UBound(X) - 1) Then YValue = (XValue - X(i)) / (X(i + 1) - X(i)) * Y(i + 1) + (XValue - X(i + 1)) / (X(i) - X(i + 1)) * Y(i)
If XValue >= X(2) And XValue < X(UBound(X) - 1) Then YValue = (XValue - X(i)) * (XValue - X(i + 1)) * (XValue - X(i + 2)) / (X(i - 1) - X(i)) / (X(i - 1) - X(i + 1)) / (X(i - 1) - X(i + 2)) * Y(i - 1) + (XValue - X(i - 1)) * (XValue - X(i + 1)) * (XValue - X(i + 2)) / (X(i) - X(i - 1)) / (X(i) - X(i + 1)) / (X(i) - X(i + 2)) * Y(i) + (XValue - X(i - 1)) * (XValue - X(i)) * (XValue - X(i + 2)) / (X(i + 1) - X(i - 1)) / (X(i + 1) - X(i)) / (X(i + 1) - X(i + 2)) * Y(i + 1) + (XValue - X(i - 1)) * (XValue - X(i)) * (XValue - X(i + 1)) / (X(i + 2) - X(i - 1)) / (X(i + 2) - X(i)) / (X(i + 2) - X(i + 1)) * Y(i + 2)
End If
Next i
InsertValue = YValue
End Function
Private Sub Text1_Change(Index As Integer)
Dim Dot_Tag As Integer
Dim NonNumber_Tag As Integer
NonNumber_Tag = 0
Dot_Num = 0
If Text1(Index) <> "" Then
If Index <> 1 Then
For i = 1 To Len(Text1(Index))
If Mid(Text1(Index), i, 1) <> "." Then
If Mid(Text1(Index), i, 1) > "9" Or Mid(Text1(Index), i, 1) < "0" Then
NonNumber_Tag = -1
End If
Else
Dot_Num = Dot_Num + 1
End If
Next
If NonNumber_Tag = -1 Or Dot_Num >= 2 Then
Text1(Index) = Left(Text1(Index), Len(Text1(Index)) - 1)
Text1(Index).SetFocus
Text1(Index).SelStart = Len(Text1(Index))
Else
If Text1(2) > 150 Then
MsgBox ("参考温度太高！")
Text1(2) = 25
End If
End If
End If
End If
End Sub
Private Sub Text1_LostFocus(Index As Integer)
If Text1(Index) = "" Then Text1(Index) = 0
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -