mainform.frm

用于温度仪表类型与所配热电偶类型不匹配情况

            RefValueV2 = InsertValue(Ytemp(), XTemp(), RefValueT)
            RealValueV = RefValueV2 + ValueVdef
            ''''求实际温度
            RealValueT = InsertValue(XTemp(), Ytemp(), RealValueV)
        End If
    Next i

Text1(1).Text = FormatNumber(RealValueT, 1, vbFalse, vbFalse, vbFalse)
If Text1(1).Text < 1 Then Text1(1).Text = "0" + Text1(1).Text

End If

'If aaaa = 82 Then aaaa = 0
'Text1(0).Text = CStr(TValue(aaaa))
'aaaa = aaaa + 1
End Sub

Private Sub Command2_Click()

Dim P As String
'Dim t As Single
Open App.Path + "\1.txt" For Output As #1

For i = 0 To 499

    If TValue(i) < 1 And TValue(i) > 0 Then
        P = "tvalue(" & i & ")=0" & TValue(i)
    Else
        P = "tvalue(" & i & ")=" & TValue(i)
    End If
    Print #1, P

Next

'P = 0
'For k = 1 To 39
'    If j >= TValue(k) And j < TValue(k + 1) Then
        
        ''线性插值
        'P = TValue(82 + k) + (TValue(82 + k + 1) - TValue(82 + k)) * (j - TValue(k)) / (TValue(k + 1) - TValue(k))
        'P = (j - TValue(k)) / (TValue(k + 1) - TValue(k)) * TValue(82 + k + 1) + (j - TValue(k + 1)) / (TValue(k) - TValue(k + 1)) * TValue(82 + k)
        
        ''二次插值
        'If j >= 380 Then
        '    P = (j - TValue(k)) / (TValue(k + 1) - TValue(k)) * TValue(82 + k + 1) + (j - TValue(k + 1)) / (TValue(k) - TValue(k + 1)) * TValue(82 + k)
        'Else
        '    P = (j - TValue(k + 1)) * (j - TValue(k + 2)) / (TValue(k) - TValue(k + 1)) / (TValue(k) - TValue(k + 2)) * TValue(82 + k) + (j - TValue(k)) * (j - TValue(k + 2)) / (TValue(k + 1) - TValue(k)) / (TValue(k + 1) - TValue(k + 2)) * TValue(82 + k + 1) + (j - TValue(k)) * (j - TValue(k + 1)) / (TValue(k + 2) - TValue(k)) / (TValue(k + 2) - TValue(k + 1)) * TValue(82 + k + 2)
        'End If
          
        ''三次插值
 '       If j < 10 Then P = (j - TValue(k + 1)) * (j - TValue(k + 2)) / (TValue(k) - TValue(k + 1)) / (TValue(k) - TValue(k + 2)) * TValue(82 + k) + (j - TValue(k)) * (j - TValue(k + 2)) / (TValue(k + 1) - TValue(k)) / (TValue(k + 1) - TValue(k + 2)) * TValue(82 + k + 1) + (j - TValue(k)) * (j - TValue(k + 1)) / (TValue(k + 2) - TValue(k)) / (TValue(k + 2) - TValue(k + 1)) * TValue(82 + k + 2)
 '       If j >= 380 Then P = (j - TValue(k)) / (TValue(k + 1) - TValue(k)) * TValue(82 + k + 1) + (j - TValue(k + 1)) / (TValue(k) - TValue(k + 1)) * TValue(82 + k)
 '       If j >= 10 And j < 380 Then P = (j - TValue(k)) * (j - TValue(k + 1)) * (j - TValue(k + 2)) / (TValue(k - 1) - TValue(k)) / (TValue(k - 1) - TValue(k + 1)) / (TValue(k - 1) - TValue(k + 2)) * TValue(82 + k - 1) + (j - TValue(k - 1)) * (j - TValue(k + 1)) * (j - TValue(k + 2)) / (TValue(k) - TValue(k - 1)) / (TValue(k) - TValue(k + 1)) / (TValue(k) - TValue(k + 2)) * TValue(82 + k) + (j - TValue(k - 1)) * (j - TValue(k)) * (j - TValue(k + 2)) / (TValue(k + 1) - TValue(k - 1)) / (TValue(k + 1) - TValue(k)) / (TValue(k + 1) - TValue(k + 2)) * TValue(82 + k + 1) + (j - TValue(k - 1)) * (j - TValue(k)) * (j - TValue(k + 1)) / (TValue(k + 2) - TValue(k - 1)) / (TValue(k + 2) - TValue(k)) / (TValue(k + 2) - TValue(k + 1)) * TValue(82 + k + 2)
 '   End If
    't = 1
    'For i = 1 To 40
    '    If k <> i Then t = t * (j - TValue(i)) / (TValue(k) - TValue(i))
    'Next i
    'P = P + TValue(82 + k) * t
'Next k
'Print #1, P
'Text1(0) = t

Close #1
End Sub

Private Sub Form_Initialize()

File_Tag = True
aaaa = 0

If 1 Then
    TType(0) = "C/mV"
    TType(1) = ".."
    TType(2) = "T"
    TType(3) = "J"
    TType(4) = "K"
    TType(5) = "E"
    TType(6) = "S"
    TType(7) = "1"
    TType(8) = "1"
    TType(9) = "1"
        
    
    TValue(0) = 0
    TValue(1) = 0
    TValue(2) = 10
    TValue(3) = 20
    TValue(4) = 30
    TValue(5) = 40
    TValue(6) = 50
    TValue(7) = 60
    TValue(8) = 70
    TValue(9) = 80
    TValue(10) = 90
    TValue(11) = 100
    TValue(12) = 110
    TValue(13) = 120
    TValue(14) = 130
    TValue(15) = 140
    TValue(16) = 150
    TValue(17) = 160
    TValue(18) = 170
    TValue(19) = 180
    TValue(20) = 190
    TValue(21) = 200
    TValue(22) = 210
    TValue(23) = 220
    TValue(24) = 230
    TValue(25) = 240
    TValue(26) = 250
    TValue(27) = 260
    TValue(28) = 270
    TValue(29) = 280
    TValue(30) = 290
    TValue(31) = 300
    TValue(32) = 310
    TValue(33) = 320
    TValue(34) = 330
    TValue(35) = 340
    TValue(36) = 350
    TValue(37) = 360
    TValue(38) = 370
    TValue(39) = 380
    TValue(40) = 390
    TValue(41) = 0
    TValue(42) = 0
    TValue(43) = 0.5
    TValue(44) = 1
    TValue(45) = 1.5
    TValue(46) = 2
    TValue(47) = 2.5
    TValue(48) = 3
    TValue(49) = 3.5
    TValue(50) = 4
    TValue(51) = 4.5
    TValue(52) = 5
    TValue(53) = 5.5
    TValue(54) = 6
    TValue(55) = 6.5
    TValue(56) = 7
    TValue(57) = 7.5
    TValue(58) = 8
    TValue(59) = 8.5
    TValue(60) = 9
    TValue(61) = 9.5
    TValue(62) = 10
    TValue(63) = 10.5
    TValue(64) = 11
    TValue(65) = 11.5
    TValue(66) = 12
    TValue(67) = 12.5
    TValue(68) = 13
    TValue(69) = 13.5
    TValue(70) = 14
    TValue(71) = 14.5
    TValue(72) = 15
    TValue(73) = 15.5
    TValue(74) = 16
    TValue(75) = 16.5
    TValue(76) = 17
    TValue(77) = 17.5
    TValue(78) = 18
    TValue(79) = 18.5
    TValue(80) = 19
    TValue(81) = 19.5
    TValue(82) = 0
    TValue(83) = 0
    TValue(84) = 0.391
    TValue(85) = 0.789
    TValue(86) = 1.196
    TValue(87) = 1.611
    TValue(88) = 2.035
    TValue(89) = 2.467
    TValue(90) = 2.98
    TValue(91) = 3.357
    TValue(92) = 3.813
    TValue(93) = 4.277
    TValue(94) = 4.749
    TValue(95) = 5.227
    TValue(96) = 5.712
    TValue(97) = 6.204
    TValue(98) = 6.702
    TValue(99) = 7.207
    TValue(100) = 7.718
    TValue(101) = 8.235
    TValue(102) = 8.757
    TValue(103) = 9.268
    TValue(104) = 9.82
    TValue(105) = 10.36
    TValue(106) = 10.905
    TValue(107) = 11.456
    TValue(108) = 12.011
    TValue(109) = 12.572
    TValue(110) = 13.137
    TValue(111) = 13.707
    TValue(112) = 14.281
    TValue(113) = 14.86
    TValue(114) = 15.443
    TValue(115) = 16.03
    TValue(116) = 16.621
    TValue(117) = 17.217
    TValue(118) = 17.816
    TValue(119) = 18.42
    TValue(120) = 19.027
    TValue(121) = 19.638
    TValue(122) = 20.252
    TValue(123) = 0
    TValue(124) = 0
    TValue(125) = 0.507
    TValue(126) = 1.019
    TValue(127) = 1.536
    TValue(128) = 2.058
    TValue(129) = 2.585
    TValue(130) = 3.115
    TValue(131) = 3.649
    TValue(132) = 4.186
    TValue(133) = 4.725
    TValue(134) = 5.268
    TValue(135) = 5.812
    TValue(136) = 6.359
    TValue(137) = 6.907
    TValue(138) = 7.457
    TValue(139) = 8.008
    TValue(140) = 8.56
    TValue(141) = 9.113
    TValue(142) = 9.667
    TValue(143) = 10.222
    TValue(144) = 10.777
    TValue(145) = 11.332
    TValue(146) = 11.887
    TValue(147) = 12.442
    TValue(148) = 12.998
    TValue(149) = 13.553
    TValue(150) = 14.108
    TValue(151) = 14.663
    TValue(152) = 15.217
    TValue(153) = 15.771
    TValue(154) = 16.325
    TValue(155) = 16.879
    TValue(156) = 17.432
    TValue(157) = 17.984
    TValue(158) = 18.537
    TValue(159) = 19.089
    TValue(160) = 19.64
    TValue(161) = 20.192
    TValue(162) = 20.743
    TValue(163) = 21.295
    TValue(164) = 0
    TValue(165) = 0
    TValue(166) = 0.397
    TValue(167) = 0.798
    TValue(168) = 1.203
    TValue(169) = 1.611
    TValue(170) = 2.022
    TValue(171) = 2.436
    TValue(172) = 2.85
    TValue(173) = 3.266
    TValue(174) = 3.681
    TValue(175) = 4.095
    TValue(176) = 4.508
    TValue(177) = 4.919
    TValue(178) = 5.327
    TValue(179) = 5.733
    TValue(180) = 6.137
    TValue(181) = 6.539
    TValue(182) = 6.939
    TValue(183) = 7.338
    TValue(184) = 7.737
    TValue(185) = 8.137
    TValue(186) = 8.537
    TValue(187) = 8.938
    TValue(188) = 9.341
    TValue(189) = 9.745
    TValue(190) = 10.151
    TValue(191) = 10.56
    TValue(192) = 10.969
    TValue(193) = 11.381
    TValue(194) = 11.793
    TValue(195) = 12.207
    TValue(196) = 12.623
    TValue(197) = 13.039
    TValue(198) = 13.456
    TValue(199) = 13.874
    TValue(200) = 14.292
    TValue(201) = 14.712
    TValue(202) = 15.132
    TValue(203) = 15.552
    TValue(204) = 15.974
    TValue(205) = 0
    TValue(206) = 0
    TValue(207) = 0.591
    TValue(208) = 1.192
    TValue(209) = 1.801
    TValue(210) = 2.419
    TValue(211) = 3.047
    TValue(212) = 3.683
    TValue(213) = 4.329
    TValue(214) = 4.983
    TValue(215) = 5.646
    TValue(216) = 6.317
    TValue(217) = 6.996
    TValue(218) = 7.683
    TValue(219) = 8.377
    TValue(220) = 9.078
    TValue(221) = 9.787
    TValue(222) = 10.501
    TValue(223) = 11.222
    TValue(224) = 11.949
    TValue(225) = 12.681
    TValue(226) = 13.419
    TValue(227) = 14.161
    TValue(228) = 14.909
    TValue(229) = 15.661
    TValue(230) = 16.417
    TValue(231) = 17.178
    TValue(232) = 17.942
    TValue(233) = 18.71
    TValue(234) = 19.481
    TValue(235) = 20.256
    TValue(236) = 21.033
    TValue(237) = 21.814
    TValue(238) = 22.597
    TValue(239) = 23.383
    TValue(240) = 24.171
    TValue(241) = 24.961
    TValue(242) = 25.754
    TValue(243) = 26.549
    TValue(244) = 27.345
    TValue(245) = 28.143
    TValue(246) = 0
    TValue(247) = 0
    TValue(248) = 0.055
    TValue(249) = 0.113
    TValue(250) = 0.173
    TValue(251) = 0.235
    TValue(252) = 0.299
    TValue(253) = 0.365
    TValue(254) = 0.432
    TValue(255) = 0.502
    TValue(256) = 0.573
    TValue(257) = 0.645
    TValue(258) = 0.719
    TValue(259) = 0.795
    TValue(260) = 0.872
    TValue(261) = 0.95
    TValue(262) = 1.029
    TValue(263) = 1.109
    TValue(264) = 1.19
    TValue(265) = 1.273
    TValue(266) = 1.356