サーモグラフィを用いた木材乾燥制御法 宋 周勲
Contents
1.2.
3.
4. 10
5. 1 1980 x
6. VC
7. THig 5 3 Hig 5 4 Table 5 1 THig 5 5 LH 20 PC
8. 37 RUE Ze L IE AVE Ltt RIL GRE AF aL
9. iE RC
10. 1800 1835 THig 1 8 0 7
11. Am 12 13 14 15 16 17 18 Fig 1 1 Changes in the supply of kiln lumber from End check Fig 1 2 Occurrence of check in the early drying stage Fig 1 3 Check development from cross section of lumber 4 lt 5
12. 15 0 08 yellow poplar 0 02 100 80 60 40 20 0 MC Fig 1 10 Dependence of the COV of the surface temperature on MC for Legend COV coefficient of variance defined as the standard deviation of temperature divided by the average temperature Excitation Heat Impact Recording Heat Emission Surtace layer Boundary layer Defect Base material La Thermographec inane ef the glued mb auface a b Fig 1 11 a Schematic drawing of the principle of infrared thermography b Schematic drawing of the thermographic set up 16 13
13. Wes 76 1 2 3 4 5 6 7 8 8 2006 2008 2006
14. Fig 1 9 Fig 1 9 b 13 22d 25 6 b Fig 1 9 a Detection of crack using infrared thermography b Detection of debondings and struct
15. XE
16. Fig 1 5 OF A
17. Ey E 2 lt VY CAP
18. 17 2 2 1 w
19. 44 Fig 3 183 B 2 5mm 10mm 10mm
20. WH
21. Fig 5 2 61 Heating chamber Electronic toploader Programmable controler CRT Personal computer with a CRT display and a printer oo 0 UO 3 m Sumple lumber Bi H 1 Electric heaters for control of temp and Fig 5 2 Schematic diagram of the prototype DINI UE ere automatic drying control system
22. THig 2 6 1 83X3 9 2 3 2 THig 2 13 105C 100 6
23. 50 4 4 1 X100
24. 2 1 9 3X3 3 A B C
25. 4 E Fig 3 9 EKA 40 OS xs pr e BAUS UAT OU BE eR 100 Surface temperature C 90 0 2 14 6 8 10 12 Drying time h Fig 3 5 Comparison of surface temperature among surface middle and center layer 41 12 e Surface vs center 10 x oe E W Middle vs center c d RUNE
26. EADH 80 Appendix Appendix A VB Form frmMnu VERSION 5 00 Begin VB Form frmMnu BorderStyle Caption ClientHeight ClientLeft ClientTop ClientWidth LinkTopic MaxButton MinButton ScaleHeight ScaleWidth ShowInTaskbar StartUpPosition Begin VB CommandBut Caption BeginProperty Fo Name Size Charset Weight Under ine Italic Strikethrough EndProperty Height Index Left Tab Index Top Width End Begin VB CommandBut Caption BeginProperty Fo Name Size Charset Weight Under ine Italic Strikethrough EndProperty Height Left Tab Index Top Width End Begin VB CommandBut Caption BeginProperty Fo Name Size Charset Weight Under ine Italic Strikethrough EndProperty 3 hn TP L0260 Software 3555
27. 36 3 3 1 3x3 5X5
28. 18 105C 2 2 2 2 1 76 117 BE x117 lg X800mm 105C DKN602 1 2 10 IXY700 TVS 100 PE Professional 105C
29. Fig 2 1 Tig 2 2 THig 2 3 Specimen Infravedkay camera Fig 2 1 Experimental set up 19 CS Cross section oven dryer Measurement interval 1 hour Bg Thermography 10min until 2 hours Fig 2 2 Schematic of the experimental set up Fig 2 3 Thermal image on surface of cross section E 160 120 1 12 FD 1 16 2 y axis Hig 2 4 Fig 2 4 Locations on IR image 20
30. lt 3H YZ b os ficia 277 ILE 7 Eq 2 1 1 1 AG AOBUS 0 98 Table2 1 0 5 0 9 0 68 Table 2 1 Emissivity of wood e 0 5 0 7 20 C 0 90 20 C 0 7 0 8 TVS 100 THig 2 5 o a Eq 2 2 Fig 2 5 Reflectance and transmi
31. 50 310 315 2004 37 MER A 226 260 2003 38 17 43 53 1992 39 4901 14 19 1994 40 1 415 1 11 1986 41 2 21 1 10 1988 42
32. J di Prices of infrared thermography Unit 10 000 500 450 400 350 300 250 200 150 100 50 High Resolution Portable amp lt High End type Compact type Fig 1 4 Prices of infrared thermography NEC Avio Co e o Ser Woa m 9 AE 2 Fig 1 5 Kiln drying control applied to a conventional dry kiln 12
33. E E Ge BEA WE CE RWC OD WLER A H IB INO
34. 1 5 6 14 4mm fig 3 14 3 15 45 80 50 40 f Checked areal Surface temperature C 30 Unchecked areal 20 J Lu NN MENT NN Drying time h 80 70 60 50 Surface temperature C Checked area2 30 Unchecked area2 2 2 4 6 8 10 12 Drying time h
35. AE AE AE AE 19 Hig 1 7
36. 3 2 3 2 1 Fig 3 1 50 2 THig 3 2
37. 14 0 E
38. THig 2 10 A C THig 2 11 80 74 THig 2 12 lt Aarea Surface temperature C Barea 5 6 Drying time h Fig 2 8 Comparison of surface temperature among A area B area and C area Legend A area unchecked area B area checked area in the initial stages of drying C area checked area in the final stages of drying 25 Aarea Surface temperature C Barea 0 1 2 3 4 5 6 7 8 9 10 11 12 Drying time h Fig 2 9 Comparison of surface temperature among A area B area and C area Legend A B and C are shown in Fig 2 8 Temperature difference C O MP 0 Q DN
39. 12 o 40 80C 25 95 15 10 L 2 5 100 Kollmann Eq 1 1 P AN AM icy Eq 1 1 81 Z f A Z 90 C 0 Z 100 C 0 gt lt
40. CON NEL VETTER Ns 1 WEE P dT P 1 TO EEO statio dedu c sc pM ccce E 8 CODE Boo 17 2 ik 18 EEO NN NN 18 2 2 i 19 DOA rv 19 DUAE C D ITE 22 23 Ii PL U mms 28 28 Na RM IPC ED MM 28 DEDE E ee CT en en ee ean asas 28 DUE o EE E 36 8 i 37 SO 37 3 2 kk 37 vM Imm 37 SO MMe co 40 SEE Urin bisce 44 BL Meu ute tuii A ia m 44 DOE 531 PEL ET 44 Db E OD E 4 i 51 A DO E Mr 51 11 52 C uper esu eat nent Siar ds uc xar Mints Soh ott ahay anan muria 52 DD Fi T TEES 52 4 3
41. AE AE Rr xd REDITU TOA Noguchi 5 AE Fig 1 6 HIGH PASS FILTER d i MULTI PEN CONTAINER RECORDER Fig 1 6 Experimental set up AE slow AE rapid AE slow AE rapid AE 9
42. 7 Ny ull
43. F i X HOR POMA BIC o TARRAA JSU WEB JJ 2 B INET ROBERTA OTEAE IC rT zB A
44. 150g HET OR 60 70 5 2 2 Hig 5 9 5 5 3
45. B RE 90C Temperature C 120 100 f 90 80 eo H 40 4F 110 _ 70 as 50 HHH Hn Eur 20 25 30 Drying time h Center Ern d Surface A Danger of surface check B Danger of internal check Fig 4 11 Temperature measured by thermocouple 45
46. Ww gt AN HH 13 25 13 1 rin Bee YEK LY AAT OF ae f
47. 3E 20 Fig 1 4 2008 20 000
48. 5 5 3 Fig 5 18 TP TFHig 5 18 Fig 5 13 Example of back and front view of a dry kiln 75
49. 2 2 52 10 All surface A Outer surface B 8 N 9 Mid surface C Coefficient of variation 0 5 10 25 30 35 15 20 Drying time h Fig 4 2 Comparison of coefficient of variation in all surface outer surface and mid surface MM oe Checked area Unchecked area 8 4 9 ee SB 34 5 gt H 5 H 2 i 1 4 6 Drying time h Fig 4 3 Comparison of coefficient of variation between checked area and unchecked area 53 4 3 4 31 120mmx120mmx250mm KS 105 C DKN602
50. TP L series VS 100 Hig 4 4 Hig 4 5 15cm 1 Fig 4 6 1 4 Table 4 1 4 2 Fig 4 9 4 10 Fig 4 6 Cnm Fig 4 5 Measurement of internal check Fig 4 6 Locations in the sample Fig 4 4 Thermal imaging on center surface of cross section after cutting 4 3 2 Fig 4 7
51. 5 3 59 5 5 1 Fig 5 1 D Q xX SAME Fig 5 1 Approaches and methods in wood drying technology 60 AM OA Tapa aa bk Rape AEA SNA KIRT RK
52. lt 5 5 2
53. 71 Wo DBT DBTi nput data DBT CVu Final MC ARH Complete time Calculate CV from the surface temp No DBT 2 DBT RHzRHi Yes No RH RHi A RH DBT Calculate CM from the surface temperature RH RHi ARH Wo oven dry weight DBTs DBT dry bulb temperature MCS Final MC Time Complete Time RH relative humidity DBT1 2 DBT in step 1 2 MC moisture content coefficient of variation CVrrr CVin step 1 2 Fig 5 9 Flow chart of controlling a drying kiln using the CV of the surface temperature 72 Fig 5 10 THig 5 10 80 85 Schedule 1 I 5 HE 65 Schedule 2 Fig 5 12 3 THig 5 11 80
54. Tanaka Banerjee Hig 1 10 10 15 Meinlschmidt Fig 1 11
55. 28 39 1 13 18 1993 29 Tanaka T Divos F Thermgraphic inspection of wood 12th International Symposium on Nondestructive Testing of Wood 2000 30 Banerjee S Fike GM Abedi J Imaging the Drying of Surfaces by Infrared 78 Thermography Ind Eng Chem Res 43 4178 4181 2004 31 Meinlschmidt P Thermographic detection of defects in wood and wood based materials 14th international Symposium of nondestructive testing of wood 2005 32 46 366 370 1991 33 R Ka K ARARE 44 313 319 1998 94 35 18 354 359 1963 4 170 174 2005 36
56. Fig 1 1 4 E A LHR 0 E PE REX v3 Alley Bayes P A _ Bl HUCK 19 5 o 13 43 163 m C 5 2 ED 50 m 2 5 18 25 4 2 8
57. RS232C SOLAC TI E C Appendix Hig 5 7 Fig 5 8 Fig 5 6 Drying control system using thermography Legend A Heating chamber B Weight sensor C IR camera D Specimen E Personal computer 67 Hea 2 1 2 20 UNC 3 Hz 1 Hz ELE 10 1 00 0 01 10 80 RH IP65 wma rates 150 g CE EN61326 1 Class B 3 Fig 5 7 Specification of thermography
58. TP L series Fig 5 3 Kiln drying control program using thermography 62 RH 100 MC DBT RH CV Fig 5 4 Schematic of kiln drying conditions controlled by coefficient of variation of surface temperature CV coefficient of variation DBT dry bulb temperature RH relative humidity MC moisture content Table 5 1 Drying conditions controlled by coefficient of variation 100 100 CV1 1 CV2 2 63
59. 0 5 5 0 5 986 950 914 877 841 805 769 732 696 Fig 4 7 Thermal image of center surface ws Unchecked area Internal checked area Surface temperature 2C Drying time h Fig 4 8 Comparison of surface temperature between unchecked and internal checked area 55 Table 4 1 Photographs and infrared images on center surface after cutting Surface After cutting 1 After cutting 2 Photo 1 image d Temp 90 2 68 2 69 0 CV 3 3 5 2 5 3 Table 4 2 Photographs and infrared images on center surface after cutting Surface After cutting 1 After cutting 2 Photo r 87 r9 IR 1140 e i E 155 L 755 image ns m 682 682 Lows ws k 810 L 610 73 0 L m 513 Lom n Temp 94 7 68 8 71 2 CV 4 0 7 0 4 4 56 Coefficient of variation O N WH OQ O N O OO 0 5 10 15 20 25 Drying time h Fig 4 9 Comparison of coefficient of variation of surface temperature 10 9 L 8 5 7 S 6 5 S A14 34 21 9 9 1 9 0 0 5 10 20 25 15 Drying time h Fig 4 10 Comparison of coefficient of variation of surface temperature Legend S1 S2 C 58 and S4 are shown in Fig 4 6 57 44
60. TI Fig 1 7 Classification of nondestructive methods of wood Ultraviolet rays Visible light Gamma rays Wavelengths in Fig 1 8 Wavelengths of infrared rays 11 1960 0 1C 1 ER HO DEB 20 o Choi 7 1
61. 51 3 42 4 9 1 THig 4 1 2 All surface QOuter surface Mid surface Fig 4 1 Sections for surface temperature calculated by the thermal image 4 2 2 Fig 4 2
62. 3 zl am 5X5 4 5
63. HRS Xm F ig 3 6 2 11 Fig 3 7 1 5 TI 5 TIII 20 Fig 3 8
64. l JAS JAS D15 D20 A ED Hi 3 D25 25 LARD T D25
65. OCEAN a 7 v 1990 TOMS Le UTIL WE 12 IRI HED
66. 9 surface check AMA internal check honeycomb Fig 1 3
67. 54 15cm 1 2 3 52mm CHS Hig 4 8
68. Case 10 Timer3 Interval 10000 sendStr A lt lt gt gt Case 20 If Left recvStr 1 Or Len recvStr lt 17 Then recvStr sendBIn False Else real_Data LH 20 REAL sendBln True commBas 0 sendStr End If Case 30 posInt InStr recvStr R If posInt Then dspStr Left recvStr posInt 1 Else dspStr recvStr posInt InStr dspStr vbCr If posInt Then dspStr Left dspStr posInt 1 dspStr len7 Set dspStr MSFlexGrid1 Col 2 MSF lexGr id1 Row 6 MSFlexGrid1 Text dspStr amp weightDbl 0 weightDbI 0 dspStr weightScn weightScn 1 If setBln Then commBas 1 sendStr LH 20 Else sendBIn False End If Case 31 With MSFlexGrid1 Col 1 Row 1 Text Format tablSng tablBas 4 fmtFrm 1 amp If tablSng tablBas 3 lt 0 Then Mid LH20set 3 1 dspStr Format Abs tablSng tablBas 4 10 0000 Mid LH20set 4 4 dspStr dspStr Format realRHsng 00 Row 2 Text Format realRHsng fmtFrm 0 amp Mid LH20set 8 2 dspStr End With sendStr Case 32 sendByt sendStr Case 50 commBas sendBln sendStr Case 51 sendBln False If MSComm1 0 PortOpen Then MSComm
69. 18 86 m3 6 Fig 1 2
70. Hig 3 3 t 1 0mm 100 90 80 70 60 50 40 30 20 10 2 5 5 7 5 10 12 5 15 17 5 20 22 5 25 pm Fig 3 1 Characteristics of silicon wafer Fig 3 2 Experimental set up using silicon wafer 38 Styrofoam Picture of the placement of the sample in the oven Fig 3 3 Thermal imaging with infrared thermography VS 100 NEC Avio Co 39 Hig 3 4 JIS T 1 4 2 Surface layer Middle layer Center layer Fig 3 4 Schematic of division of cross section 3 2 2 Fig 3 5
71. 3 Begin ComctlLib StatusBar StatusBar1 Align Height Left Tab Index Top Width _ExtentX _ExtentY SimpleText _Version 2 RRA 375 0 17 6795 8790 15505 661 327682 BeginProperty Panels 0713E89E 850A 101B AFCO 4210102A8DA7 NumPanels 2 BeginProperty Panel1 0713E89F 850A 101B AFC0 4210102A8DA7 Alignment Text TextSave Key Ob ject Tag EndProperty 1 BeginProperty Panel2 0713E89F 850A 101B AFC0 4210102A8DA7 Alignment AutoSize 1 Object Width 12435 Text TextSave Key _ m Ob ject Tag EndProperty EndProperty End Begin VB VScrol Bar VScroll1 Height 375 Index 0 Left 120 Tab Index 4 Top 4440 Value 16384 Width 375 End Begin VB VScrolIBar VScrol l1 Height 375 Index 1 Left 480 Tab Index 3 Top 4440 Value 16384 Width 375 End Begin VB VScrol Bar VScroll1 Height 375 Index 2 Left 120 Tab Index 2 Top 4800 Value 16384 Width 375 End Begin VB VScrol Bar VScrol l1 Height 375 Index 3 Left 480 Tab Index 1 Top 4800 Value 16384 Width 375 End Begin VB PictureBox Picture2 Appearance 0 2 AutoRedraw 1 True BackColor amp H80000005 amp BorderStyle 0 BeginProperty Font Name MSP Size 9 Charset 128 Weight
72. 4 4 1 60mm 4 4 2 Hig 4 11 5cm 12 5cm 5cm 5 5h 809 5 P A Du
73. 7 142 145 2007 45 46 366 2004 21 2009 BERE 53 3 62 65 2001 29 2 673 678 2007 BREK 3 9 10 11 12 29 30 2009 31 34 2009
74. A C B B 6 TRig 2 18 fl 100 95 90 85 80 75 Surface temperature C 70 60 12 Drying time h Fig 2 16 Comparison of surface temperature at each area in cross section 30 100 area B area 90 C area Surface temperature C 40 1 0 2 4 6 8 10 1 Drying time h Fig 2 17 Comparison of surface temperature among A B and C area 100 90 5 80 70 E 9 8 60 t 50 40 s 20 25 30 35 Moisture content Fig 2 18 Relationship between moisture content and surface temperature at A B and C area Legend A B and C are shown in Fig 2 6 31 Fig 2 19 Fig 2 5 o COCK EMC
75. 80 Surface temperature C 7 Checked area3 of Unchecked area3 2 4 6 8 10 12 Drying time h 205 Fig 3 11 Comparison of surface temperature between checked area and unchecked area until 12 hours Left until 2 hours Right 0 2 4 6 8 10 1 65 60 x 50 40 35 30 25 Surface temperature C Checked areal Unchecked areal 65 40 35 30 Surface temperature C 25 Surface temperature C 25 205 46 05 1 15 2 25 Drying time h 60 NE INTE S E 5 A i Checked area2 Unchecked area2 05 1 15 2 25 Drying time h Checked area3 s Unchecked area3 05 1 15 2 25 Drying time h 70 70 e Tee M of checked area Upper part of checked area G 65 W Checked area J Oo NH Checked area o i Lower part of checked area Lower part of checked area x E ens 5 60 4 o i J 4 5 WV 55 i S S t E 50 50 Le pese 4 0 5 10 15 20 2
76. C Fig 2 6 Analysis of temperature distribution of thermal image 22 Time 30min 1h 2h 4h 6h Photograph Infrared Image m Fig 2 7 1 Photographs and infrared images at each time 23 56 6 c 52 7 48 9 450 411 372 334 295 256 619 580 544 503 464 425 38 6 348 30 9 710 671 633 594 555 516 478 439 40 0 76 1 G 722 68 4 64 5 60 6 56 7 529 490 45 1 787 748 709 671 632 59 3 55 4 51 6 477 Time Photograph Infrared Image te 78 1 743 704 9h 665 62 6 588 549 510 68 9 65 0 61 1 1 2 h 57 3 53 4 49 5 456 41 8 379 877 838 799 2 4h 76 1 722 68 3 644 60 6 567 956 C 93 1 90 7 36h i 857 832 808 783 758 970 93 1 89 3 48h 85 4 81 5 716 738 69 9 66 0 Fig 2 7 2 Photographs and infrared images at each time 24 Fig 2 8 2 9 C A B
77. naaaaaaad dd 54 54 4 82 EE 54 44 RERNE E aC eoi cei etie i s ace cde basen Sa Re 58 CA 58 58 RS H A T EE 59 5 60 RUE dro oo TIO RTT anes 60 5 2 FA OTe y 4 PM 67 67 07 71 9 75 SI c a Ea 76 Appendix 11 p 3 2 DARKEN C380 OJ 6
78. 33 4 142 146 1978 H E 1 AMI 32 1 8 11 1977 13 Kollmann F Technologie des Holzes und der Holzwerkstoffe I 451 483 1951 14 3 GE 40 2 66 70 1988 15 Noguchi M Kagawa Y Katagiri J Detection of acoustic emissons during hardwood drying Mokuzai Gakakaishi 26 9 637 638 1980 16 Noguchi M Kitayama S Satoyoshi K Umetsu J Feedback control for drying 77 Zelkova serrata using in process acousitc emission monitoring Forest Products Journal 37 1 28 34 1987 17 30 117 123 1984 18 FORE AE KH T 10 464 469 1985 19 39 9 973 979 1993 20 BEE 200
79. 105 Fig 2 14 2 15 100 J 40 6 95 30 404 90 85 5 80 75 70 Air temperature 105 C 65 0 2 4 6 8 10 12 Drying time h Hig 2 13 Temperature measured by thermocouple 28 518 s 2121 r y RE r guo 65 28 68 60 an n2 673 59 41 61 76 64 83 66 67 Fig 2 14 Photographs and infrared images at 40 min began to appear surface check Legend Temperature C indicates the average temperature in each section t t 1 REM mmm qnm x 605 r JA MED 0 Wm e Deu FR atl 743 zJ 1 RED Hm b ra TE aw Ls Fig 2 15 Photographs and infrared images at 6 hours MC 22 25 29 Fig 2 16 X Fig 2 5 TFig 2 17
80. cene z x x x o XL 4 M M Ee 2 gd e po ai bs AER ME x MEE MU m m NIS m m m 2 0 0 5 1 1 5 2 Drying time h Fig 2 22 Temperature difference between A and C area until 12 h Top until 2 h Bottom 34 Fig 2 23 A B F Fig 2 16DE 2 1 0 5H8F 0 2 PE E 0 5 B A 6 B 12 Oo 10 ts A B 97 area blackened 6le MESE E CEN 5 m IM NEN 1 BH r e e J x E S E Oe T m 2 m 4 6 8 10 12 12 G e Nue ds 3 a 5 _ a 20 0 5 e E 4 e sea pee eae A eer eI e i es 4 e 0 eee ee
81. Label6 5 Caption Format finalSng fmtFrm 2 amp Timer1 Enabled True With MSFlexGrid1 ColWidth 0 1900 0 Col 0 Text Col 1 Text Row 1 Col 0 Text DBT Col 1 Text Format initDBsng fmtFrm 1 amp Row 2 0 Text RH Col 1 Text Format initRHbyt fmtFrm 0 amp Row 3 Col 0 Text WBT C Col 1 Text 4 0 Text TIME hour Col 1 Text Format cntTIMEsng fmtFrm 1 amp Row 5 0 Text Col 1 Text Row 6 Gol 0 Text Ss kg Col 1 Text Row 7 Col 0 Text tagStr 5 amp o amp untStr 5 amp 7 Col 1 Text recdDat recdDat amp amp fmtFrm 3 amp amp fmtFrm 1 datByt 8 Col 0 Row 8 If cntByt Then Text Col 1 Text Format tablSng 0 1 fmtFrm 4 amp Label2 4 Caption Else Text C Col 1 Text Format tablSng 0 0 fmtFrm 1 amp Label2 4 Caption End If Col 0 For D1 0 To tplCst If 01 0 Then Row D1 9 Text tplByt D1 0 1 amp amp tplByt Di 1 1 amp amp tplByt D1 2 1 amp _ amp tplBy
82. InitialDBT80 C RH85 90 I 6 80 u DBT RH MC AO Drying time h Fig 5 10 Drying curves controlled by the CV of the surface temperature in schedule 1 Legend CVI CVII are shown in Fig 5 9 73 Initial DBT80 C RH65 100 lt DBT 90 RH MC X 0V 70 P m a 50 A nn 40 50 ee 30 20 10 20 30 40 50 60 magnify Drying time h DBT RH MC AO Drying time h 70 AO Fig 5 11 Drying curves controlled by the CV of the surface temperature in schedule 2 74 a Free of surface checks b Free of internal checks Fig 5 12 Photographs of end surface and center surface which was cut after drying 53 CV I
83. adcSng Mid bufStr drwAdd grhByt i1 7 adcSng adcSng sclSng il 0 sclSng it 1 sclSng i1 0 adcSng 1 adcSng Picture2 ScaleHeight Picture2 Line bufDbl bufSng i1 culDbl adcSng drwCor 11 bufSng i1 adcSng Next il bufDbl culDbl drwAdd InStr drwAdd 1 bufStr S Loop While drwAdd End Sub
84. 400 Under ine 0 False Italic 0 False Strikethrough 0 False EndProperty ForeColor amp H80000008 amp Height 1815 Left 5640 ScaleHei ght 1815 ScaleWidth 2895 Tab Index 0 Top 1920 Width 2895 End Begin ComctlLib ImageList ImageList1 Left 1440 Top 5040 _ExtentX 1005 _ExtentY 1005 BackColor 2147483643 ImageWidth 32 ImageHeight 32 MaskColor 12632256 _Version 327682 BeginProperty Images 0713E8C2 850A 101B AFCO 4210102A8DA7 NumListImages 3 BeginProperty ListImage1 0713E8C3 850A 101B AFC0 4210102A8DA7 Picture frmBatch frx 0000 Key Lem EndProperty BeginProperty ListImage2 0713E8C3 850A 101B AFC0 4210102A8DA7 Picture frmBatch frx 031A Key Lom EndProperty BeginProperty ListImage3 0713E8C3 850A 101B AFCO 4210102A8DA7 Picture frmBatch frx 0634 Key _ m EndProperty EndProperty End Attribute VB Name frmBatch Attribute VB GlobalNameSpace False Attribute VB Creatable False Attribute VB PredeclaredId True Attribute VB Exposed False Option Explicit Dim dskDat As String Private Sub Command1_Click Index As Integer If Index Then Picturel Visible False Exit Sub On Error GoTo noFile StatusBar1 Panels 1 Text StatusBar1 Panels 2 Text dspStr If Right recPath 1 Y Then txtFile recPath amp txtFile Else txtFile recPath amp Y amp txtFile Open txtFile For Input As 1 For 11 0 To 12 Line Input
85. For D1 0 To tplCst If tplByt D1 0 Then dspStr dspStr amp amp 01 0 1 amp _ amp D1 1 1 amp amp tplByt Di 2 1 amp _ amp tplByt D1 3 1 End If Next D1 Print 1 dspStr Close 1 End Sub Sub tpl TimO getInt 4 getInt 4 1 If getInt 4 gt 60 Then getInt 4 getInt 4 getInt 3 getInt 3 End If If getInt 3 gt 24 Then getInt 3 getInt 3 24 1 e e getInt 2 getInt 2 1 End If Select Case getInt 1 Case 2 If getInt 0 2008 Mod 4 Then If getInt 2 gt 29 Then getInt 2 1 getInt 1 3 Else If getInt 2 gt 30 Then getInt 2 1 getInt 1 3 End If Case 4 6 9 11 If getInt 2 gt 31 Then getInt 2 1 getInt 1 getInt 1 1 Case Else If getInt 2 gt 32 Then getInt 2 1 getInt 1 getInt 1 1 End Select If getInt 1 gt 13 Then getInt 1 1 getInt 0 getInt 0 1 tplFile getInt 0 amp amp Right Str getInt 1 100 2 amp amp Right Str getInt 2 100 2 Select Case getInt 3 Case 0 tplFile tplFile amp amp getInt 3 Case Else tplFile tplFile amp _ amp getInt 3 End Select tplFile tplFile amp _ amp Right Str getInt 4 100 2 amp filLas If Right tplPath 1 Y Then tplFile tplPath amp tplFile Else tplFile tplPath amp Y amp tplFile jpgClr False End
86. Graphic txt Else savFile App Path amp Graphic txt Open savFile For Output As 1 For Y1 0 To drwCst Write 1 drwStr Y1 0 drwStr Y1 1 Nex Clo End Sub t Yl se 1 Public Sub drw ClsQ frmOb j Picture2 Cls For Y1 1 To 19 If Y1 Mod 2 Then frmObj Picture2 DrawStyle 2 Else frm0bj Picture2 DrawStyle 0 frm0bj Picture2 Line 0 Y1 hetLng 2 Step frm0bj Picture2 ScaleWidth 0 memCst Nex t Yl For Y1 1 To 19 If Y1 Mod 2 Then frmObj Picture2 DrawStyle 2 Else frmObj Picture2 DrawStyle 0 frmOb Picture2 Line Y1 widLng 2 0 Step 0 frmObj Picture2 ScaleHeight memCst initDBsng changeSng 1 buzSng 1 buzSng 2 0 tablSng 0 1 tablSng 0 2 tablSng 0 3 tablSng 0 4 0 tablSng 1 1 tabISng 1 2 tablSng 1 3 tablSng 1 4 tplByt Y1 2 tplByt Y1 3 1 C Next Y1 frmOb j Picture2 DrawStyle 0 End Sub Public Function len7 Set p As String Select Case Len Case 1 en Set Space 6 amp Case 2 en Set Space 5 amp p Case 3 en Set Space 4 amp p Case 4 en Set Space 3 amp p Case 5 en Set Space 2 amp p Case 6 en Set Space 1 amp p Case Else If Len p gt 7 Then len7 Set Left p 7 Else len7 Set p End Select End Function Pub
87. Text If Text4 i1 Text Then Text4 i1 Text drwStr i1 1 drwStr i1 1 Text4 i1 Text Next i1 drw Save scl Set drw Scl If bufStr lt gt Then drw Old End If End Sub Private Sub Command4_Click Unload Me End Sub Sub send_Cmd Timer3 Enabled False Select Case sendByt Case 0 sendBIn True commBas 0 sendStr Case 1 firTim DateValue Date TimeValue Time getMinute Minute Time sendBln True commBas 1 LH 20 sendStr I lt lt LH 20 gt gt gt Case 2 commBas 1 sendStr SW101 1CH Case 3 sendStr LH20set S If setBln Then setBln False tablBas 1 End If Case 4 sendStr SC100 1CH Case 5 sendStr A Case 6 sendStr A 0 Case 7 If watByt Then StatusBar1 Panels 1 Text amp initMAITbyt amp sendBln True sendStr RNO10000 Me MousePointer vbDefault Case 8 sendStr I Case 9 sendStr A
88. 0 sclSng Index 0 sclSng Index 2 Else sclSng Index 0 End Sub End Sub End Sub sclSng Index 0 sclSng Index 2 addInt Index VScrol11 Index Value drw Scl If bufStr lt gt Then drw Old Sub drw Frs culDb Mid recdDat 1 7 timDbl culDbl culDbl Picture2 ScaleWidth For 11 0 To drwCst If il lt drwCst Then adcSng Mid recdDat grhByt it 7 Else adcSng Mid recdDat grhByt i1 cntByt 7 End If adcSng adcSng sclSng il 0 sclSng il 1 sclSng it 0 adcSng 1 adcSng Picture2 ScaleHei ght Picture2 Circle culDbl adcSng 5 drwCor 11 bufSng i1 adcSng Next i1 bufDb culDbl Sub drw_Scd culDb Mid recdDat 1 7 timDbl culDbl culDbl Picture2 ScaleWidth For 11 0 To drwCst If il lt drwCst Then adcSng Mid recdDat grhByt it 7 Else adcSng Mid recdDat grhByt i1 cntByt 7 End If adcSng adcSng sclSng il 0 sclSng il 1 sclSng it 0 adcSng 1 adcSng Picture2 ScaleHei ght Picture2 Circle culDbl adcSng 5 drwCor 11 bufSng il adcSng Next il bufDb culDbl Sub dsk_Open firRecd DateValue Date TimeValue Time StatusBar1 Panels 1 Text StatusBar1 Panels 3 Text getInt 1 amp A amp getInt 2 amp H amp getInt 3 amp BR amp Right Str getInt 4 100 2 amp txtFile RF amp getInt 0 a
89. 0 Then weightDbl 1 weightDbI 0 dspStr len7_Set Format weightDb 0 fmtFrm 3 Mid recdDat 41 7 dspStr Row 6 Text dspStr amp waterDb weightDbl 0 weightSng weightSng 100 dspStr len7_Set Format waterDbl fmtFrm 3 Mid recdDat 33 7 dspStr Row 5 Text dspStr amp g mh speedDb cntTime LH20tim LH20tim cntTime speedDb weightDbI 1 weightDbI 0 speedDbl areaSng dspStr len7_Set Format speedDbl fmtFrm 3 Mid recdDat 49 7 dspStr Row 7 Text dspStr amp weightDbl 1 weightDb 0 weightDbI 0 0 weightScn 0 CH tolDbl 0 rcdCnt 0 For D1 0 To tplCst If tplByt D1 0 0 Then GoTo noData tplAve D1 0 tplScn 0 For D2 01 0 To tpIByt D1 2 For 03 tplByt D1 1 To 01 3 tpIAve 01 tplAve D1 tplSng D2 1 D3 1 tplScn tplScn 1 Next D3 Next D2 tplAve D1 tplAve 01 tplScn tolDbl tolDbl tplAve 01 rcdCnt rcdCnt 1 dspStr len7_Set Format tpIAve 01 fmtFrm 1 Row Dl 9 Text dspStr Mid recdDat 01 9 8 1 7 dspStr noData Next D1 tolDbl tolDbl rcdCnt tmpStr len7_Set Format tolDbl fmtFrm 1 Mid recdDat 65 7 tmpStr culDbl 0 For D1 0
90. 2048 10 Fig 5 5 1 Flow chart of kiln drying control system based on the coefficient of variation of the surface temperature 64 Fig 5 5 2 Flow chart of kiln drying control system based on the coefficient of variation of the surface temperature 6 i REX 1 Fig 5 5 3 Flow chart of kiln drying control system based on the coefficient of variation of the surface temperature 66 5 2 5 2 1 Fig 5 6 A D
91. 3 2 10 20 1988 43 19 22 2009 44 EAER 2000 1 3 2009 79
92. 45 330 4770 Form 0 False 0 False 3555 4770 0 False 2 ton Command1 BR amp T nt MSP 12 128 400 0 False 0 False 0 False 460 2 720 3 2160 3255 ton Command2 amp T 80 nt MSPdLv2 12 128 400 0 False 0 False 0 False 460 720 0 2640 3255 ton Command fe amp R nt MSP 12 128 400 0 0 0 False False False Height Index Left Tab Index Top Width End 460 1 720 2 1680 3255 Begin VB CommandButton Command1 Caption BeginProperty Font Name Size Charset Weight Under ine Italic Strikethrough EndProperty Height Index Left Tab Index Top Width End Begin VB Label Label1 Alignment BackStyle Caption BeginProperty Font Name Size Charset Weight Under ine Italic Strikethrough EndProperty Height Index Left Tab Index Top Width End Begin VB Label Label1 Alignment BackStyle Caption BeginProperty Font Name Size Charset Weight Under ine Italic Strikethrough EndProperty Height Index Left Tab Index ae S MSP 12 128 400 0 False 0 False 0 False 460 0 720 1 1200 3255 2 0 Copyr ight c 1991 1997 Microsoft Corporation MSP 11 25 128 400 0 False 0 False 0 False 255 3 0 7 3
93. 7 dspStr 16 2 Caption dspStr amp h exGrid1 Col 2 exGr idl Row 4 exGrid1 Text dspStr amp ile Dir tplFile pgFile Then GoTo getErr ight tplPath 1 Y Then jpgFile tplPath amp jpgFile Else jpgFile tplPath amp Y amp jpgFile usBar1 Panels 2 Text jpgFile ents ure7 Picture LoadPicture jpgFi le ure7 CurrentX 100 ure7 CurrentY 0 ure7 Print getInt 1 amp amp getInt 2 amp amp getInt 3 amp amp Right Str getInt 4 100 2 ile jpgFile InStr tplFile jpg tplFile 11 4 csv ents tplFile For Input As 1 Input 1 recvStr Input 1 recvStr Input 1 recvStr Input 1 recvStr 0 Line Input 1 recvStr posInt InStr recvStr recvStr Mid recvStr posInt 1 For D2 0 To 46 posInt InStr recvStr tplSng D2 D1 Left recvStr posInt 1 recvStr Mid recvStr posInt 1 Next D2 tplSng D2 D1 recvStr 01 01 1 Until EOF 1 e 1 tplFile CSV Ir True atByt Then watByt watByt 1 StatusBar1 Panels 1 Text amp watByt amp In True atByt 0 Then savByt savByt 1 IP watByt 0 And savByt gt intvByt Then jpgInt 0 1 getInt 0 jpgInt 1 1 getInt 1 jpglnt 2 1 getInt 2 jpgInt 3 1 getInt 3 jpgint 4 1 getInt 4 dskSave True
94. 8 70 5 60 e area 50 B area E C area 40 0 2 4 6 8 10 12 Drying time h Fig 2 20 Comparison of surface temperature among A B and C area coated in black 100 _ 90 J 80 s 70 4 Q 5 60 S 50 3 40 30 15 20 25 30 35 40 Moisture content Fig 2 21 Relationship between moisture content and surface temperature at A B and C area coated in black Legend A B and C are shown in Fig 2 6 38 fig 2 22 A C 0 5 0 5 A C 2 12 Temperature difference C A C area unblackened A C area blackened e e Isu E m l Drying time h 12 Oo 10 de 9 A C area blackened 8 3 esee eet
95. End Sub Private Sub Form_Load sys_Init End Sub Private Sub Form Unload Cancel As Integer End End Sub Appendix B VB Form frm Module1 Attribute VB Name Module1 Option Explicit Microsoft Windows2000 SP4 Visual Basic V5 0 Professional Edition Public Const tagCst As Byte 8 Public Const tablCst As Byte 1 Public Const drwCst As Byte 4 Public Const memCst As Long amp H8000000C Public Const tplCst As Byte 9 Public frmObj As Object Public fmtFrm 4 As String comPort 1 As Byte Public prmFile As String recPath As String savFile As String txtFile As String Public tilStr As String cmtStr As String Public cntTIMEsng As Single initWAITbyt As Byte Public initRHbyt As Byte initDBsng As Single itTiSng As Single intvByt As Long buzSng 2 As Single Public tablSng tablOst 4 As Single changeSng 1 As Single culDbl As Double timDbl As Double Public dspStr As String bufStr As String Public drwCor drwCst As Long drwStr drwCst 1 As String 11 As Integer i2 As Integer Public tagStr tagCst As String untStr tagCst As String adcSng As Single Public lefLng As Long topLng As Long widLng As Long hetLng As Long Public sclSng drwCst 2 As Single sclByt drwOst As Byte addInt drwOst As Integer Public bufSng drwCst As Single bufDbl As Double drwAdd As Double posInt As Integer Public weightSng As Single finalSng As Single Public grhByt 5 As Byte Public tplPath As String Public tplByt tp
96. Private Sub Form Unload Cancel As Integer frmMnu Show End Sub Sub drw_Cls Q Picture2 Cls For 11 1 To 9 Picture2 Line 0 11 hetLng Step Picture2 ScaleWidth 0 memCst Next i1 For 11 1 To 9 Picture2 Line il widLng 0 Step 0 Picture2 ScaleHeight memCst Next il End Sub Private Sub Toolbar1_ButtonCl ick ByVal Button As ComctlLib Button Select Case Button Case Picturel Visible True Command1 0 SetFocus Case F Picture3 Visible True Command3 1 SetFocus Case T Unload Me End Select End Sub Private Sub VScroll1 Change Index As Integer If addInt Index lt VScrol 11 Index Value Then sclSng Index 0 sclSng Index 0 sclSng Index 2 Else sclSng Index 0 sclSng Index 0 sclSng Index 2 addInt Index VScrol11 Index Value drw Scl If bufStr lt gt Then drw Old End Sub Sub 0190 drw_Cls culDbl Mid bufStr 2 7 culDb culDbI timDbl culDbl culDbl Picture2 ScaleWidth For 11 0 To drwCst adcSng Mid bufStr grhByt il 1 7 adcSng adcSng sclSng il 0 sclSng il 1 sclSng il 0 adcSng 1 adcSng Picture2 ScaleHeight Picture2 PSet culDbl adcSng drwCor i1 bufSng il adcSng Next il bufDb culDbl drwAdd InStr 2 bufStr S If drwAdd 0 Then Exit Sub Do culDbl Mid bufStr drwAdd 1 7 culDbl culDbI timDbl culDbl culDbl Picture2 ScaleWidth For 11 0 To drwCst
97. widLng hetLng Picture2 ScaleHeight 10 Picture2 ScaleWidth 10 or il 0 To drwCst 1 VScrollt it Move 11 750 100 Picture2 Top Picture2 Height 120 Next il VScroll1 drwCst Move Picture2 Left Picture2 Width 400 Picture2 Top Picture2 Height 120 For 11 0 To 10 Label3 it Move lefLng widLng i1 300 topLng Picture2 Height 100 Next i1 drw_Cls drw_Scl If bufStr lt gt Then drw Old End Sub Private Sub Form Unload Cancel As Integer Timer1 Enabled False If MSComm1 0 PortOpen And MSComm1 1 PortOpen Then Cancel 1 Picture4 Visible True Command2 1 SetFocus Exit Sub If MSComm1 0 Port0pen Then MSComm1 0 Port0pen False If MSComm1 1 PortOpen Then MSComm1 1 PortOpen False sys_Save bufStr False frmMnu Show End Sub Private Sub Picture7_Cl ick Picture7 Visible False Toolbar1 Buttons 5 Enabled False End Sub Private Sub Timer5_Timer Time On E JpgC real cntT dspS Mid Labe MSF MSF MSF JPG jpgF If j If R Stat DoEv Pict Pict Pict Pict CSV tplF il Mid DoEv Open Line Line Line Line 01 Do Loop Clos Kill JpgC If w dspB If w r5 Enabled False rror GoTo getErr Ir False Time DateValue Date TimeValue Time ime realTime firTim hourDbl Hour tr len7_Set Format cntTime fmtFrm 2 recdDat 1
98. 0 initDBsng changeSng 1 buzSng 1 buzSng 2 0 tabISng 0 1 REO Input 1 tablSng 1 0 tablSng 1 1 For Y1 0 To tplCst Input 1 tplByt Yt 0 tplByt Y1 1 Next Y1 Clo End Sub se 1 Public Sub prm_Save sys_Save tablSng 0 2 tablSng 0 3 tablSng 0 4 kg m m tablSng 1 2 tablSng 1 3 tablSng 1 4 2 tplByt Y1 2 tplByt Y1 3 If Right App Path 1 Y Then savFile App Path amp prmFile Else savFile App Path amp amp prmFile Open savFile For Output As 1 Pr Pr Pr Pr Pr Pr Pr Pr Pr Pr Pr Pr Pr int 1 int 1 int 1 int 1 int 1 int 1 int 1 int 1 int 1 int 1 int 1 int 1 int 1 tilStr cmtStr cntTIMEsng initWAITbyt initRHbyt finalSng changeSng 0 intvByt weightSng buzSng 0 cntByt tablSng 0 tablSng 1 For Y1 0 To tplCst Nex Clo End Sub Print 1 tplByt Yi 0 tplByt Y1 1 t Yl se 1 Public Sub drw_Save If Right App Path 1 Y Then savFile App Path amp
99. 0 1 90 C LAF OO CR 0 2 100 C 8
100. CO Oo 0 1 2 3 4 5 6 7 8 9 10 Drying time h Fig 2 10 Difference of surface temperature between A area and C area Legend A and are shown in Fig 2 8 26 200 180 160 5 140 1 8 0 5 100 6 804 604 40 y 2 302 205 27 S 2 R 0 9186 0 1 0 10 20 30 40 50 60 70 80 Moisture content Fig 2 11 Relationship between moisture content and total length of surface check 004 E A E 180 y 4 1892x 180 16 a E 0 9149 160 4 G 140 4 8 120 E 100 5 804 o 60 c 2 40 4 S 904 0 T T T T 1 40 50 60 70 80 90 Surface temperature C Fig 2 12 Relationship between surface temperature and total length of surface check 27 23 2 3 4
101. Command5_Cl ick On Error GoTo cancelKey CommonDialog1 DialogTitle CommonDialog1 InitDir tplPath CommonDialogl Filter jpg jpg csv csv CommonDialog1 filename Local CommonDialog1 ShowSave For il Len CommonDialog1 filename To 1 Step 1 If Mid CommonDialog1 filename 11 1 Y Then tplPath Left CommonDialog1 filename il 1 Label9 Caption tplPath i1 1 End If Next i1 sys_Save cance Key On Error GoTo 0 End Sub Private Sub Form_Activate prm_Load Combo1 0 Text comPort 0 Combol 1 Text comPort 1 Label1 13 Caption prmFile Label1 14 Caption recPath Label9 Caption tplPath prm_Dsp False End Sub Private Sub Form_Load True Picture1 Line 0 0 Step Picture1 ScaleWidth Picturel ScaleHeight 8H80000005 B Picture1 Line 50 Picture1 ScaleHeight Step Picture1 ScaleWidth 0 amp H8000000C Picturel Line Picture1 ScaleWidth 50 Step 0 Picturel ScaleHeight amp H8000000C With MSFlexGrid1 ColWidth 0 400 ColWidth 49 20 RowHe ight 48 20 For S1 1 To 48 ColWidth S1 300 Next S1 End With Label1 23 Caption tagStr 5 Label1 24 Caption untStr 5 Labell 38 Caption tagStr 5 Label1 37 Caption untStr 5 Label1 25 Caption tagStr 6 Label1 26 Caption untStr 6 Label1 34 Caption tagS
102. Label 1 24 Capti Label 1 38 Capti Text1 6 Text Label1 37 Capti Label 1 36 Capti Label 1 23 Capti Text1 5 Text Label1 24 Capti Label 1 38 Capti Text1 6 Text on tablSng 0 1 on W on tablSng 1 1 on W on W on tablSng 0 0 on C on tablSng 1 0 Label1 37 Caption C Label1 36 Caption C End If Text1 7 Text changeSng cntByt End Sub Private Sub SSTab1_Click PreviousTab As Integer If SSTab1 Caption Then Label1 49 Caption No Click or 2U 7 Else Label1 49 Caption End If End Sub Private Sub Text1_Change Index As Integer If jmpBIn Then Exit Sub Else savBln True End Sub Sub prm DspO Text1 0 Text tilStr Combo2 0 Text cntTIMEsng Combo2 1 Text initWAITbyt Combo2 2 Text initRHbyt Combo2 3 Text initDBsng Combo2 4 Text finalSng Text1 7 Text changeSng cntByt Combo2 6 Text intvByt Text1 1 Text weightSng Text1 2 Text buzSng 0 Text1 3 Text buzSng 1 Text1 4 Text buzSng 2 Option1 cntByt Value True If cntByt Then Label1 23 Caption Text1 5 Text tablSng 0 1 Labe 11 24 Caption X Label1 38 Caption Te
103. RE es a Bg I x 5 25 0 n 0 2 4 6 8 10 12 Drying time h Fig 3 6 Temperature difference between surface vs center and middle vs center layer Temperature C Time h Fig 3 7 Schematic of the changes of surface temperatures versus time 42 S 9 ps E G 4 0 amp o H o n c o Og 2 E o E pic 5 5 n 4 um o Unchecked area o Checked area 6 1 0 5 10 15 20 25 30 Drying time h Fig 3 8 Comparison of temperature difference between unchecked area and checked area 80 T T T y 81 715 0 2961x R 0 93835 79 677 0 31879x R 0 93752 O 75 cb x s 70 a 42 65 _ 3 60 e Unchecked area H Checked area 55 10 20 30 40 50 60 Moisture content Fig 3 9 Relationship between moisture content and surface temperature at unchecked are and checked area 43 3 3 3 3 1 Fig 3 10 5X5 5x5 4 8mm X 4 8mm Outer
104. Sub ENERO R U Sub jpg OldO Dim a As Integer b As Byte c As Byte d As Byte e As Byte jpgBuf As String a jpgInt 0 0 b jpgInt 1 0 c jpgInt 2 0 d jpgInt 3 0 e jpgInt 4 0 jpgInc jpgBuf a amp Right Str b 100 2 amp Right Str c 100 2 jpgBuf jpgBuf amp _ amp Right Str d 100 2 amp Right Str e 100 2 amp jpg If Right recPath 1 Y Then jpgBuf recPath amp jpgBuf Else jpgBuf recPath amp Y amp jpgBuf If Dir jpgBuf lt gt Then Picture7 Picture LoadPicture jpgBuf Picture7 CurrentX 100 Picture7 CurrentY 0 Picture7 Print b amp amp b amp amp d amp amp Right Str 100 2 DoEvents End If e e 1 If e gt 60 Then e e 60 d d 1 End If If d gt 24 Then d d 24 c c 1 End If Select Case b Case 2 If a 2008 Mod 4 Then Ifc gt 29Thenc 1 b 3 Else Ifc gt 30Thenc 1 b 3 End If Case 4 6 9 11 If c gt 31 Thenc 1 b b 1 Case Else If c gt 32 Thenc 1 b b 1 End Select If b gt 13 Thenb 1 a a 1 If a lt jpgInt 0 1 Then GoTo jpgInc If b lt jpgInt 1 1 Then GoTo jpglnc If c lt jpgInt 2 1 Then GoTo jpglnc If d lt jpgInt 3 1 Then GoTo jpglnc If e lt jpgInt 4 1 Then GoTo jpgInc End Sub Appendix E VB Form frmBatch VERSION 5 00 Object 6B7E6392 850A 101B AFCO 4210102A8DA7 1 3310 Comct132 ocx Begin VB Form frmBatch AutoRedraw True C
105. il 1 Label1 13 Caption prmFile i1 1 End If Next i1 sys_Save prm_Load Label1 14 Caption recPath jmpBln True prm_Dsp Text3 Text prmFile jmpBln False End If Else CommonDialogi DialogTitle CommonDialogl InitDir recPath CommonDialog1 Filter csv csv CommonDialog1 filename Local CommonDialog1 ShowSave For i1 Len CommonDialog1 filename To 1 Step 1 If Mid CommonDialogi filename 11 1 Y Then recPath Left CommonDialogl filename 11 1 Label1 14 Caption recPath i1 1 End If Next i1 sys_Save End If cance Key On Error GoTo 0 End Sub Private Sub Command2 Click Unload Me End Sub Private Sub Command3_Cl ick Index As Integer If Index 0 Then prmFile Text3 Text Label1 13 Caption prmFile prm_Chg prm_Save End If savBIn False Picturel Visible False If prmChg Then prmChg False Else Unload Me End Sub Private Sub Label4 Click Index As Integer tplBas 1 For 1 0 To tplCst If S1 Index Then If Label4 S1 BackColor amp H8000000F Then Label4 S1 BackColor amp H80000005 Label1 49 Caption X Y tplBas S1 Else Label4 S1 BackColor amp H8000000F Label1 49 Caption No f amp 3E Click or 2U 7 End If Else Label4 S1 BackColor amp H8000000F End If Next S1 End Sub Private Sub MSFle
106. savByt 0 tplFile getInt 0 amp Right Str getInt 1 100 2 amp Right Str getInt 2 100 2 tplFile tplFile amp amp Right Str getInt 3 100 2 amp Right Str getInt 4 100 2 amp jpg If Right recPath 1 Y Then tplFile recPath amp tplFile Else tplFile recPath amp Y amp tplFile FileCopy jpgFile tplFile End If If dskSave True And txtFile Then dsk Open bsyTime bsyTime 1 getErr On Error GoTo 0 If jpgClr Then Kill jpgFile JPEGHI BR If dspBln Then dsp_Cnt 1 If dskSave Then Open txtFile For Append As 1 Print 1 recdDat Close 1 dskSave False End If If jpgClr Then tpl Tim recvStr If endBln False And bsyTime gt 0 Then Exit Sub sendByt 50 send_Cmd End Sub Private Sub Toolbar1_ButtonClick ByVal Button As ComctlLib Button Select Case Button Case Picturel Visible True Command1 SetFocus Case Picture3 Visible True Command3 1 SetFocus Case Picture7 Move Me ScaleWidth 2 Picture7 Width 2 Me ScaleHeight 2 Picture7 Height 2 If Picture7 Visible Then Picture7 Visible False Toolbar1 Buttons 5 Enabled False Else Picture7 Visible True Toolbar1 Buttons 5 Enabled True End If Case Combo1 5 Text Combo1 6 Text Combol 7 Text Combol 8 T
107. surface Cross section 5X5 division TUR Checked area Mid surface Fig 3 10 Comparison of surface temperature between unchecked area and checked area 3 3 2 Fig 3 11 Fig 3 12 2mm
108. 0 01 Then realRHsng realRHsng tablSng tablBas 3 setBln True If setBln Then If scdTb Then setBln False Else scdTbl 1 End If End If If setBln Then tabl_Dsp If waterDb lt finalSng Then bsyTime 0 LH 20 End Sub LH 20 REAL Sub real_Data posInt InStr recvStr RL With MSFlexGrid1 Col 2 Row 0 Text Time amp dspStr len7_Set Format Mid recvStr posInt 2 5 10 fmtFrm 1 DB Mid recdDat 9 7 dspStr Row 1 Text dspStr dspStr len7_Set Format Mid recvStr posInt 7 2 fmtFrm 0 RH Mid recdDat 17 7 dspStr realRHsng dspStr Row 2 Text dspStr dspStr len7_Set Format Mid recvStr posInt 9 3 10 fmtFrm 1 WB Mid recdDat 25 7 dspStr Row 3 Text dspStr End With End Sub Sub tabl DspO With MSFlexGr idi Col 1 Row 1 Text Format tablSng tablBas 4 fmtFrm 1 amp Row 2 Text Format realRHsng fmtFrm 0 amp Row 7 Text Format tablSng tablBas 4 fmtFrm 1 amp Row 8 If cntByt Then Text Format tablSng 1 cntByt fmtFrm 3 amp Else Text Format tablSng 1 cntByt fmtFrm 1 amp End If End With End Sub Private Sub VScroll1_Change Index As Integer If addInt Index lt VScrol11 Index Value Then sclSng Index
109. 1 dskDat dspStr dspStr amp dskDat amp vbCrLf If il 1 Then posInt InStr dskDat dskDat Mid dskDat posInt 1 posInt InStr dskDat timDb Left dskDat posInt 1 End If Next il Text1 Text dspStr bufStr Do ARR R Line Input 1 dskDat bufStr bufStr amp S amp dskDat amp vbLf Loop Until EOF 1 Close 1 culDbl timDbl 10 For il 0 To 10 If il Then timDb timDbl culDbl Else timDbl 0 Label3 i1 Caption Format timDb 0 0 Next 11 On Error GoTo 0 drw Old Exit Sub noFile Beep StatusBar1 Panels 1 Text StatusBar1 Panels 2 Text On Error GoTo 0 End Sub Private Sub Command3 Click Index As Integer If Index Then Picture3 Visible False Else For il 0 To drwCst If Text3 i1 Text Then Text3 i1 Text drwStr 11 0 drwStr i1 0 Text3 i1 Text If Text4 i1 Text Then Text4 i1 Text drwStr i1 1 drwStr i1 1 Text4 i1 Text Next il drw_Save scl_Set If bufStr lt gt Then drw Old Else drw Scl End If End Sub Private Sub ClickO txtFile Filet filename Command1 0 SetFocus End Sub Private Sub Form Load Set frmObj frmBatch Picture1 Line 0 0 Step Picture1 ScaleWidth Picturel ScaleHeight 8H80000005 B Picture1 Line 50 Picture1 ScaleHeight Step Picture1 ScaleWidth 0 amp H8000000C Picture1 Line Pictur
110. 1 0 Port0pen False If MSComm1 1 Port0pen Then MSComm1 1 Port0pen False If endBIn False Then Picture6 Visible True Command4 SetFocus End Select If sendBIn Then Timer2 Enabled True Exit Sub If sendByt 51 And endBln True Then Timer4 Enabled True Exit Sub If sendByt 30 Then Timer5 Enabled True End Sub 1 True p LH 20 Private Sub Timer1_Timer Label6 3 Caption Month Date amp H amp Day Date amp A Label6 4 Caption Hour Time amp BR amp Minute Time amp Label6 4 ToolTipText Second Time amp End Sub Private Sub Timer2_Timer Timer2 Enabled False recvStr StatusBar1 Panels 2 Text sendStr Timer3 Enabled True MSComm1 commBas Output sendStr amp vbCr End Sub 3 Private Sub Timer3_Timer Timer3 Enabled False If sendByt 6 Then sendByt 7 send_Cmd Exit Sub Beep MSComm1 commBas Por tOpen StatusBar1 Panels 1 Text False StatusBar1 Panels 2 Text COM amp comPort commBas amp amp sendStr amp If Me MousePointer lt gt vbDefault Then Me MousePointer vbDefault Toolbar1 Buttons 1 Enabled True If sendByt 35 Then sendByt 40 send
111. 2 1 Text If Combo2 2 Text Then Combo2 2 Text initRHbyt initRHbyt Combo2 2 Text If Combo2 3 Text Then Combo2 3 Text initDBsng initDBsng Combo2 3 Text If Combo2 4 Text Then Combo2 4 Text finalSng finalSng Combo2 4 Text If Texti 7 Text Then Text1 7 Text changeSng cntByt changeSng cntByt Text1 7 Text If Combo2 6 Text Then Combo2 6 Text intvByt intvByt Combo2 6 Text If Texti 1 Text Then Text1 1 Text weightSng weightSng Text1 1 Text 1 Else Label5 1 Else Label6 1 Else Label7 1 Else Label8 pod CELA S1 Caption S1 Caption S1 Caption S1 Caption For il 0 2 If Text1 i1 2 Text Then Text1 i1 2 Text buzSng i1 buzSng i1 Text1 i1 2 Text Next il For 11 0 To 1 If Text1 i1 5 Text Then Text1 i1 5 Text tabISng i1 cntByt Text1 i1 5 Text If Combo2 i1 3 7 Text Then 2 11 3 7 Text tabISng i1 2 2 11 3 7 Text If 2 11 3 8 Text Then 2 11 3 8 Text tabISng i1 3 2 11 3 8 Text If Combo2 i1 3 9 Text Then 2 11 3 9 Text tablSng it 4 Next il End Sub 2 i1 3 9 Text Appendix D VB Form frmDsp VERSION 5 00 Object 5E9E78A0 531B 11CF 91F6 C28630385E30 1 080 MSFLXGRD OCX Object 6B7E6
112. 240 4695 2 0 ITB SE SANS BB MSP 14 25 128 400 0 0 0 375 2 120 6 False False False Top Width End Begin VB Label Label1 Alignment BackStyle Caption BeginProperty Font Name Size Charset Weight Under ine Italic Strikethrough EndProperty Height Index Left Tab Index Tool TipText Top Width End Begin VB Label Label1 Alignment BackStyle Caption BeginProperty Font Name Size Charset Weight Under ine Italic Strikethrough EndProperty Height Index Left Tab Index Top Width End End 195 4515 2 0 Version 1 0 1 MSP 11 25 128 400 0 False 0 False 0 False 255 1 120 5 2009 480 4575 2 0 MSP 14 25 128 400 0 False 0 False 0 False 375 0 0 4 120 4695 Attribute VB Name frmMnu Attribute VB GlobalNameSpace False Attribute VB Creatable False Attribute VB PredeclaredId True Attribute VB Exposed False Option Explicit Private Sub Command1_Click Index As Integer Select Case Index Case 0 frmSet Show Case 1 frmDsp Show Case 2 frmBatch Show End Select Me Hide End Sub Private Sub Command2_Cl ick Unload Me End Sub Private Sub Form_Activate Command2 SetFocus
113. 392 850A 101B AFCO 4210102A8DA7 1 3 0 Comet 132 ocx Object 648A5603 2C6E 101B 82B6 000000000014 1 1 0 Mscomm32 ocx Begin VB Form frmDsp Private Sub Form Load Set frm0bj frmDsp hourDbl TimeValue 1 0 0 bsyTime cntTIMEsng bsyTime 60 bsyTime LH 20 LH20set SOOddddrr5000 500 If initDBsng lt 0 Then Mid LH20set 3 1 dspStr Format Abs initDBsng 10 0000 Mid LH20set 4 4 dspStr dspStr Format initRHbyt 00 Mid LH20set 8 2 dspStr m tablSng il cntByt tablSng it 2 tablSng it 3 tablSng it 4 areaSng buzSng 0 buzSng 1 buzSng 0 buzSng 2 buzSng 1 buzSng 2 areaSng areaSng 2 Label6 0 Caption Format areaSng 0 000 mi RESK ZG cy REESE 825 8 recdDat fmtFrm 1 amp 0020 0 0080 0 0070 0 amp fmtFrm 3 amp amp fmtFrm 3 amp amp fmtFrm 3 Picture1 Line 0 0 Step Picturet Sca Picturel Line Picturel Line Picture1 ScaleWidth 50 Picture3 Line 0 0 Step Picture3 Sca Picture3 Line 50 Picture3 Sca Picture3 Line Picture3 ScaleWidth 50 Pict
114. 4 21 Choi MY Kang KS Park JH Kim WT Kim KS Measurement of defects and stress by infrared thermography Journal of the Korean Society for Precision Engineering 23 30 35 2006 22 29 2 679 684 2007 23 Cielo P Krapez JC Lamontagne M Lumber moisture evaluation by a reflective cavity photothermal technique Revue De Physique Appliquee 23 1565 1576 1988 24 Carslaw HS Jaeger JC Conduction of heat in solids 2nd ed Oxford 1959 25 RUE OBR 39 544 549 1993 26 46 320 325 2000 27 REEL 1 46 2 149 154 2000
115. 5 s 0 5 10 15 20 25 Distance from surface layer mm Distance from surface layer mm 70 70 I j i I i Upper part of checked area Upper part of checked area t3 65 W Checked area G 85 Checked area Lower part of checked area pee Lower part of checked area a E E x S 60 zi c E 60 uuu amm c E 8 o E NEN NE S m EE DE a i i I al Ur ME a o D ast USE EF IDE mi 45 45 i 0 5 10 15 20 25 0 5 10 15 20 25 Distance from surface layer mm Distance from surface layer mm Fig 3 12 Comparison of surface temperature among the upper part of checked area checked area and lower part of checked area Legend Upper part and lower part of checked area are shown in Fig 3 10 47 Surface temperature C Surface temperature C 85 i Checked area 1 5h 80 Checked area 6h 50 10 15 Checked area 2h Surface temperature C 0 5 20 Distance from surface layer mm 25 85 4 Checked area 2h Checked area 1 5h Surface temperature C 45 10 15 Distance from surface layer mm 48 85 Unchecked area 1 5
116. 7 kx 1mm 10 TAE XE y amp HE Pet AO RERUM Y BE n TET a X y 8 B HUE AE CCD CT MRI X y RO CT CT EH S CT ITER BES LOR
117. BY gt Tig 2 20 Tig 2 16 A 9 C 4 B 2 Fig 2 16 C B 6 mTig 2 21 100 95 90 85 80 Surface temperature C 75 70 65 60 12 Drying time h Fig 2 19 Comparison of surface temperature at each section in cross section coated in black 32 100 90 Bp o 80 4 a E
118. Circle culDbl adcSng 5 drwCor Y1 bufSng Y1 adcSng Next Y1 bufDbl culDbl drwAdd InStr drwAdd 1 bufStr S Loop While drwAdd End Sub Appendix C VB Form frmSet VERSION 5 00 Object 5E9E78A0 531B 11CF 91F6 C2863C385E30 1 0 10 MSFLXGRD OCX Object F9043C88 F6F2 101A A3C9 08002B2F 49FB 1 240 Comdlg32 ocx Object BDC217C8 ED16 110D 956C 0000C04E4COA 1 1 0 TABCTL32 OCX Begin VB Form frmSet End Attribute VB Name frmSet Attribute VB GlobalNameSpace False Attribute VB Creatable False Attribute VB PredeclaredId True Attribute VB Exposed False Option Explicit Dim savBIn As Boolean prmChg As Boolean jmpBln As Boolean S1 As Integer S2 As Integer S3 As Integer tplBas As Integer Dim rowByt 1 As Byte colByt 1 As Byte Private Sub Command4 Click Index As Integer With MSFlexGrid1 Visible False For S1 tplByt Index 0 To tplByt Index 2 Col S1 For S2 tplByt Index 1 To tplByt Index 3 If S1 gt 0 And S2 gt 0 Then Row S2 Text End If Next S2 Next S1 Visible True End With tplBas 1 Label4 Index BackColor amp H8000000F tplByt Index 0 0 tplByt Index 1 0 tplByt Index 2 0 tplByt Index 3 0 Label5 Index Caption Label6 Index Caption Label7 Index Caption 18 Index Caption 11 49 Caption NO or DU savBIn True End Sub Private Sub
119. Cmd End Sub Private Sub Timer4 Timer Timer4 Enabled False Unload Me End Sub Private Sub MSComm1_0nComm Index As Integer rcVCnt If MSComm1 Index InBufferCount Then recvStr recvStr amp MSComm1 Index Input Else Exit Sub If InStr recvStr vbCr O Then GoTo rcvCnt If sendStr And sendByt gt 0 Then sendByt 29 If InStr recvStr RL Then sendByt 19 REAL nxtCmd StatusBar1 Panels 2 Text recvStr sendByt sendByt 1 send_Cmd End Sub Sub com_Open On Error GoTo comErr If MSComm1 0 Port0pen Then MSComm1 0 PortOpen False If MSComm 1 PortOpen Then MSComm1 1 Port0pen False commBas 0 MSComm1 0 CommPort comPort 0 MSComm1 0 PortOpen True commBas 1 MSComm1 1 CommPort comPort 1 MSComm1 1 PortOpen True On Error GoTo 0 Me MousePointer vbHourglass Toolbar1 Buttons 1 Enabled False StatusBar1 Panels 1 Text 7 SendByt 0 send_Cmd Exit Sub comErr Beep StatusBar1 Panels 2 Text COM amp comPort commBas amp amp Err Description On Error GoTo 0 End Sub amp Sub dsp_Cnt False With MSFlexGrid1 Col 2 kg weightDbl 0 weightDbI 0 weightScn If weightDbI 1
120. L BM m area unblackened A B area blackened 1 15 2 Drying time h Fig 2 23 Temperature difference between A and B area until 12 h Top until 2 h Bottom 35 24 1 2 10 L lt
121. To tplCst If tplByt D1 0 Then culDbl culDbl tplAve D1 tolDbl 2 D2 01 End If Next D1 culDbl Sqr culDbl rcdCnt dspStr len7_Set Format culDbl fmtFrm 4 Mid recdDat D2 10 8 1 7 dspStr DEBUG cvDbl culDbl tolDbl 100 dspStr len7_Set Format cvDbl fmtFrm 4 Mid recdDat 57 7 dspStr Row 8 Col 2 If cntByt Then Text dspStr amp Else Text tmpStr amp End With If bufStr Then drw Frs Else drw Scd bufStr bufStr amp S amp recdDat amp vbLf If dskSave False Then Exit Sub amp cntTime realTime firRecd hourDbl Hour dspStr len7_Set Format cntTime fmtFrm 2 Mid recdDat 1 7 dspStr Mid recdDat 65 7 tmpStr With MSFlexGrid1 Visible False For 11 0 To datByt Row 11 For i2 59 To 3 Step 1 Col i2 1 dspStr Text Col i2 Text dspStr Next i2 Next il Visible True End With rcdCnt 0 If cntByt Then speedDb cvDbl Else speedDb tolDbl If tablBas 0 Then If speedDb gt tablSng tablBas cntByt tablSng tablBas cntByt tablSng tablBas 2 0 01 Then realRHsng realRHsng tablSng tablBas 3 setBln True Else If speedDb lt tablSng tablBas cntByt tablSng tablBas cntByt tablSng tablBas 2
122. aption FRA Cl ientHeight 7170 ClientLeft 60 ClientTop 345 ClientWidth 8790 BeginProperty Font Name MSP Size 12 Charset 128 Weight 400 Underline 0 False Italic 0 False Strikethrough 0 False EndProperty LinkTopic Form ScaleHei ght 7170 ScaleWidth 8790 StartUpPosition 3 Windows WindowState 2 Begin ComctlLib Toolbar Toolbar1 Align 1 Height 855 Left 0 Tab Index 16 Top 0 Width _ExtentX _ExtentY ButtonWidth ButtonHeight Appearance ImageList _Version 8790 15505 1508 1349 1349 1 TmageList1 327682 BeginProperty Buttons 0713E452 850A 101B AFCO 4210102A8DA7 NumButtons 4 BeginProperty Button1 0713F354 850A 101B AFCO 4210102A8DA7 Caption Key Ob ject Tag ImageIndex EndProperty Ob ject ToolTipText 1 BeginProperty Button2 0713F354 850A 101B AFCO 4210102A8DA7 Caption Key Ob ject Tag ImageIndex EndProperty Ob ject ToolTipText 2 BeginProperty Button3 0713F354 850A 101B AFCO 4210102A8DA7 Enabled Key 0bject Tag Style MixedState EndProperty 0 False 3 1 True BeginProperty Button4 0713F354 850A 101B AFCO 4210102A8DA7 Caption Key Object Tool TipText Ob ject Tag ImageIndex EndProperty EndProperty End 1 P
123. camera TP L series Chino Co 68 Ex 3 794 X 1 4 20 UNC Fig 5 8 Standard composition of thermography camera TP L series Chino Co CD ROM LAN USB 2 5m 12 24V DC 69 9 T TP L 8 TP L 60mm
124. e1 ScaleWidth 50 Step 0 Picturel ScaleHeight amp H8000000C Picture3 Line 0 0 Step Picture3 ScaleWidth Picture3 ScaleHeight amp H80000005 B Picture3 Line 50 Picture3 ScaleHeight Step Picture3 ScaleWidth 0 amp H8000000C Picture3 Line Picture3 ScaleWidth 50 Step 0 Picture3 ScaleHeight amp H8000000C File1 Path recPath For 11 0 To drwCst Label2 i1 ForeColor drwCor i1 Text3 i1 Text drwStr i1 0 14 11 Text drwStr i1 1 Next il addInt 0 16384 addInt 1 16384 addInt 2 16384 addInt 3 16384 scl_Set End Sub Private Sub Form_Resize Text1 Width Me ScaleWidth Picture1 Move Me ScaleWidth 2 Picture1 Width 2 Me Height 2 Picture1 Height 2 Picture3 Move Me ScaleWidth 2 Picture3 Width 2 Me Height 2 Picture3 Height 2 lefLng 3050 topLng Text1 Top Text1 Height 600 widLng Me ScaleWidth lefLng 1300 hetLng Me ScaleHeight topLng StatusBar1 Height 500 Picture2 Move lefLng topLng widLng hetLng hetLng Picture2 ScaleHeight 10 widLng Picture2 ScaleWidth 10 For i1 0 To drwCst 1 VScrollt it Move i1 750 100 Picture2 Top Picture2 Height 120 Next il VScroll1 drwCst Move Picture2 Left Picture2 Width 400 Picture2 Top Picture2 Height 120 For il 0 To 10 Label3 it Move lefLng widLng i1 300 topLng Picture2 Height 100 Next il drw_Cls drw_Scl End Sub
125. ext jpgInt 3 1 Combo1 9 Text jpgInt 4 1 Picture8 Visible True Command5 1 SetFocus Case Unload Me Case SET frmSet Show End Select End Sub jpglnt 0 1 jpglnt 1 1 jpglnt 2 1 Private Sub Command1_Click cmtStr Text2 Text prm_Save bufStr picAdd 0 255 txtFile savByt intvByt LH20tim 0 _REAL watByt initWAITbyt getInt 0 Year Date getInt 1 Month Date getInt 2 Day Date getInt 3 Hour Time getInt 4 Minute Time If jpgInt 0 0 0 Then For D1 0 To 4 jpgInt D1 0 getInt 01 jpgint 01 1 getInt D1 Next D1 sys_Save End If tpl Tim endBln False Picturel Visible False com_Open End Sub Private Sub Command2_Click Index As Integer Picture4 Visible False If Index Then Exit Sub Me MousePointer vbHourglass StatusBar1 Panels 1 Text endBln True End Sub Private Sub Command3_Click Index As Integer If Index Then Picture3 Visible False Else For il 0 To drwCst If Text3 i1 Text Then Text3 i1 Text drwStr i1 0 drwStr i1 0 Text3 i1
126. h 80 1 Unchecked area 2h Unchecked area 6h 50 0 5 10 15 20 25 Distance from surface layer mm 85 i Unchecked area 1 5h 80 Unchecked area 2h Unchecked area 6h 45 15 10 Distance from surface layer mm 25 Fig 3 13 Comparison of surface temperature between checked area and unchecked area 0 1 Checked area 1 5h i 0 08 F ces 0 06 Checked area E eh 0 04 a 0 02 0 30 50 70 90 Temperature 2C Fig 3 14 Comparison of probability density of surface temperature in checked area 0 1 Unchecked area 1 5h Unchecked area 2h gt 0 08 z Unchecked 0 06 area 6h gt 0 04 2 2 a 0 02 0 30 50 70 90 Temperature 2C Fig 3 15 Comparison of probability density of surface temperature in unchecked area 49 3 4 Hi SE ORAZ S ICMR 5 7 1 BORER IED D gt DT 2315 K 2 ICE Z Ui
127. lCst 3 As Byte Public filLas As String Public jpgInt 4 1 As Integer Public masBIn As Boolean Public cntByt As Byte Private Y1 As Integer 1 9 17 25 33 41 49 Public Sub sys_Init drwCor 0 amp HFF amp drwCor 1 amp HFF0000 drwCor 2 amp HFFFF00 drwCor 3 amp HFFOOFF drwCor 4 amp HCO00 amp grhByt 0 9 grhByt 1 17 grhByt 2 33 grhByt 3 49 grhByt 4 65 grhByt 5 57 fmtFrm 0 HH fmtFrm 1 hH O 07 fmtFrm 2 0 00 fmtFrm 3 0 000 fmtFrm 4 0 0000 tagStr 1 untStr 1 C tagStr 2 untStr 2 tagStr 3 untStr 3 C tagStr 4 untStr 4 kg tagStr 5 untStr 5 g mh tagStr 6 untStr 6 7 If Right App Path 1 Y Then savFile App Path amp Graphic txt Else savFile App Path amp Graphic txt Open savFile For Input As 1 For Y1 0 To drwCst Input 1 drwStr Y1 0 drwStr Y1 1 Next Y1 Close 1 If Right App Path 1 Y Then savFile App Path amp TPLO260
128. lic Sub scl_Set For Y1 0 To drwCst sclByt Y1 InStr frmObj Text3 Y1 Text If sclByt Y1 Then sclByt Y1 Len frmObj Text3 Y1 Text sclByt Y1 sclSng Y1 0 frmObj Text3 Y1 Text sclSng Yl 1 frmObj Text4 Y1 Text sclSng Y1 2 sclSng Yl 1 sclSng Y1 0 10 Next Y1 End Sub Public Sub drw Scl O Dim a As Byte frm0bj Cls For Y1 0 To drwCst If Y1 lt drwCst Then frm0bj Line Y1 750 750 topLng 10 Step 0 frmObj Picture2 ScaleHeight drwCor Y1 frmObj CurrentX Y1 750 Else frm0bj Line frmObj Picture2 Left frmObj Picture2 Width 30 topLng 10 Step 0 frmObj Picture2 ScaleHeight drwCor Y1 frmObj CurrentX frmObj Picture2 Left frmObj Picture2 Width End If frm0bj CurrentY topLng 500 Select Case Y1 Case 0 dspStr len7 Set DBT C 1 Case 1 dspStr a 2 Case 2 dspStr len7 Set MC a 4 Case 3 dspStr len7_Set untStr 5 a 5 len7 Set RH Case 4 If cntByt Then dspStr Else dspStr End Select frm0bj Print dspStr For i2 0 To 10 If Y1 lt drwCst Then frm0bj Line Y1 750 750 topLng hetLng i2 10 Step 80 0 drwCor Y1 frm0bj CurrentX Y1 750 Else frm0bj Line frmObj Picture2 Left frmObj Picture2 Width 30 topLng hetLng i2 10 Step 80 0 drwCor Y1 frm0bj CurrentX frmObj Picture2 Left frmObj Pictu
129. mp Right Str getInt 1 100 2 amp Right Str getInt 2 100 2 txtFile txtFile amp _ amp Right Str getInt 3 100 2 amp Right Str getInt 4 100 2 amp csv If Right recPath 1 Y Then txtFile recPath amp txtFile Else txtFile recPath amp Y amp txtFile Open txtFile For Output As 1 Print 1 TITLE tilStr COMMENT amp cmtStr Print 1 MEASURE TIME H Format cntTIMEsng fmtFrm 1 INTERVAL M intvByt WAIT TIME M Print 1 INITIAL DBCC Format initDBsng fmtFrm 1 RH amp Format initRHbyt fmtFrm 0 Print 1 FINAL 9 Format finalSng fmtFrm 2 CHANGE Print 1 AREA m Format areaSng fmtFrm 3 Print 1 WEIGHT kg weightSng Print 1 TOLERANCE 5 tablSng 0 2 tablSng 1 2 Print 1 CORRECTION Format tablSng 0 3 fmtFrm 1 Format tablSng 1 3 fmtFrm 1 Print 1 DB C Format tablSng 0 4 fmtFrm 1 Format tablSng 1 4 fmtFrm 1 Print 1 TURNING Format changeSng 0 fmtFrm 1 C Format changeSng 1 fmtFrm 4 Print 1 AVECC Format tablSng 0 0 fmtFrm 1 Format tablSng 1 0 fmtFrm 1 Print 1 SD Format tablSng 0 1 fmtFrm 4 Format tablSng 1 1 fmtFrm 4 dspStr TIME Hour DB CC RH 9 WB CC RATE WEIGHT kg SPEED g mih CV ini tWAITbyt
130. re2 Width End If frm0bj CurrentY topLng frmObj Picture2 ScaleHeight hetLng 12 120 If i2 Then sclSng Y1 1 sclSng Yl 1 sclSng Yl 2 Else sclSng Y1 1 sclSng Y1 0 dspStr len7_Set Format sclSng Y1 1 fmtFrm sclByt Y1 frmOb j Print dspStr Next i2 Next Y1 End Sub Public Sub tim_Set culDbl cntTIMEsng 10 For Y1 0 To 10 If Then timDbl timDbl culDbl Else timDbl 0 frmOb j Label3 Y1 Caption Format timDb 0 0 Next Y1 End Sub Sub drw 0140 drw Cls culDb Mid bufStr 2 7 timDbl culDb culDbl frmObj Picture2 ScaleWidth For Y1 0 To drwCst If Y1 lt drwCst Then adcSng Mid bufStr grhByt Y1 1 7 Else adcSng Mid bufStr grhByt Y1 cntByt 1 7 End If adcSng adcSng sclSng Y1 0 sclSng Y1 1 sclSng Y1 0 adcSng 1 adcSng frmObj Picture2 ScaleHeight frm0bj Picture2 Circle culDbl adcSng 5 drwCor Y1 bufSng Y1 adcSng Next Y1 bufDbl culDbI drwAdd InStr 2 bufStr S If drwAdd 0 Then Exit Sub Do culDbl Mid bufStr drwAdd 1 7 timDbl culDbl culDbl frmObj Picture2 ScaleWidth For Y1 0 To drwCst If Y1 lt drwCst Then adcSng Mid bufStr drwAdd grhByt Y1 7 Else adcSng Mid bufStr drwAdd grhByt Y1 cntByt 7 End If adcSng adcSng sclSng Y1 0 sclSng Y1 1 sclSng Y1 0 adcSng 1 adcSng frmObj Picture2 ScaleHei ght frm0bj Picture2
131. ssivity 21 2 2 2 3X3 THig 2 6 1 9 3X3 A B C A B C Fig 2 7 48 1 2 10 721 683 A
132. t Dt 3 1 recdDat recdDat amp amp fmtFrm 1 datByt datByt 1 End If Next D1 End With recdDat recdDat amp amp fmtFrm 4 tolScn datByt 8 Text2 Text cmtStr For 11 0 To drwCst Label2 i1 ForeColor drwCor i1 Text3 i1 Text drwStr 11 0 Text4 i1 Text drwStr 11 1 Next il For D1 0 To 4 Combo1 D1 Text jpgInt D1 0 Combo1 D1 5 Text jpgInt D1 1 Next D1 addInt 0 16384 addInt 1 16384 addInt 2 16384 addInt 3 16384 scl_Set tim_Set masBIn True End Sub Private Sub Form_Resize ictureb Left Me ScaleWidth Pictured Width Text1 2 Width Picture5 Left Text1 2 Left MSFlexGrid1 Width Me ScaleWidth 50 Picture1 Move ScaleWidth 2 Picturel Width 2 Me Height 2 Picturel Height 2 Picture3 Move Me ScaleWidth 2 Picture3 Width 2 Me Height 2 Picture3 Height 2 Picture4 Move Me ScaleWidth 2 Picture4 Width 2 Me Height 2 Picture4 Height 2 Picture6 Move Me ScaleWidth 2 Picture6 Width 2 Me Height 2 Picture6 Height 2 Picture8 Move Me ScaleWidth 2 Picture8 Width 2 Me Height 2 Picture8 Height 2 t W h P h W F uv efLng 3050 opLng MSF lexGrid1 MSFlexGrid1 Height 600 idLng Me ScaleWidth lefLng 1300 etLng Me ScaleHeight topLng StatusBar1 Height 500 icture2 Move lefLng topLng
133. tr 6 Label1 33 Caption untStr 6 Label1 27 Caption tagStr 2 Label1 28 Caption untStr 2 Label1 32 Caption tagStr 2 Label1 31 Caption untStr 2 Label1 22 Caption tagStr 1 Label1 20 Caption untStr 1 Label1 29 Caption tagStr 1 Label1 30 Caption untStr 1 Text3 Text prmFile tplBas 1 End Sub Private Sub Form Unload Cancel As Integer If savBIn Then Beep Cancel 1 Picturel Visible True Exit Sub If False Then frmMnu Show End Sub Private Sub Combo1_Click Index As Integer comPort Index Combo1 Index Text sys_Save End Sub Private Sub Combo1_KeyPress Index As Integer KeyAscii As Integer If KeyAscii lt gt 13 Then Exit Sub comPort Index Combol Index Text End Sub Private Sub Combo2_Change Index As Integer If jmpBln Then Exit Sub Else savBln True End Sub Private Sub Combo2_Click Index As Integer savBIn True End Sub Private Sub Command1_Click Index As Integer On Error GoTo cancelKey If Index Then If savBIn Then prmChg True Picturel Visible True Else ComonDialog1 DialogTitle CommonDialog1 InitDir App Path CommonDialogl Filter set set x CommonDialog1 filename prmFile CommonDialog1 ShowOpen For i1 Len CommonDialog1 filename To 1 Step 1 If Mid CommonDialog1 filename 11 1 Y Then prmFile Mid CommonDialog1 filename
134. txt Else savFile App Path amp TPLO260 txt Open savFile For Input As 1 Input 1 recPath Input 1 comPort 0 Input 1 comPort 1 LH 20 Input 1 prmFile Input 1 tplPath Input 1 filLas Input 1 jpgInt 0 0 jpgInt l 0 jpgInt 2 0 jpgInt 3 0 jpgInt 4 0 Input 1 jpgInt 0 1 jpglnt 1 D jpgInt 2 1 jpgInt 3 1 jpgInt 4 1 Close 1 prm_Load End Sub Public Sub sys_Save If Right App Path 1 Y Then savFile App Path amp TPLO260 txt Else savFile App Path amp TPLO260 txt Open savFile For Output As 1 Print 1 recPath Print 1 comPort 0 Print 1 comPort 1 Print 1 prmFile Print 1 tplPath Print 1 filLas Print 1 jpgInt 0 0 jpgint 1 0 jpgInt 2 0 jpgint 3 0 jpgInt 4 0 Print 1 jpgInt O 1 jpglnt 1 1 jpgint 2 1 jpgInt 3 D jpgInt 4 1 Close 1 End Sub Public Sub prm_Load If Right App Path 1 Y Then savFile App Path amp prmFile Else savFile App Path amp amp prmFile Open savFile For Input As 1 Input 1 tilStr Inp Inp Inp Inp Inp Inp Inp Inp Inp Inp Inp ut 1 ut 1 ut 1 ut 1 ut 1 ut 1 ut 1 ut 1 ut 1 ut 1 ut 1 cmtStr cntTIMEsng ini tWAITbyt ini tRHbyt finalSng changeSng 0 intvByt weightSng buzSng 0 cntByt tablSng
135. ural faults within the laminated material 29 Cielo Z Carslaw 5 oc thermal effusivity z27a z a po
136. ure4 Line 0 0 Step Picture4 Sca Picture4 Line 50 Picture4 Sca Picture4 Line Picture4 ScaleWidth 50 Picture6 Line 0 0 Step Picture6 Line 50 Picture6 Sca Picture6 Line Picture6 ScaleWidth 50 Picture8 Line 0 Picture8 Line 50 Picture8 Sca Picture8 Line Picture8 ScaleWidth 50 Step 0 Picture1 ScaleHei Step 0 Picture3 ScaleHei Step 0 Picture4 ScaleHe eWidth Picture1 ScaleHeight 50 Picture1 ScaleHeight Step Picture1 ScaleWidth 0 amp H8000000C ght eWidth Picture3 ScaleHeight eHeight Step Picture3 ScaleWidth 0 ght eWidth Picture4 ScaleHei ght eHeight Step Picture4 ScaleWidth 0 ight Picture6 ScaleWidth Picture6 ScaleHei ght eHei ght Step Picture6 ScaleWidth 0 Step 0 Picture6 ScaleHei ght 0 Step Picture8 ScaleWidth Picture ScaleHei ght eHei ght Step Picture8 ScaleWidth 0 Step 0 Picture8 ScaleHei ght amp H80000005 B amp H8000000C amp H80000005 B amp H8000000C amp H8000000C amp H80000005 B amp H8000000C amp H8000000C amp H80000005 B amp H8000000C amp H8000000C amp H80000005 B amp H8000000C amp H8000000C Text1 2 Text tilStr Label6 1 Caption Format weightSng fmtFrm 3 amp kg Label6 3 Caption Month Date amp H amp Day Date amp A Label6 4 Caption Hour Time amp BR amp Minute Time amp Label6 4 ToolTipText Second Time amp 9
137. xGridi_MouseDown Button As With MSFlexGrid1 If RowSel Rows 1 Then rowByt 0 If ColSel Cols 1 Then colByt 0 End With End Sub Integer Shift As Integer x As Single y As Single RowSel ColSel 1 Else rowByt 0 1 Else colByt 0 Private Sub MSFlexGridi_MouseUp Button As Integer Shift As Integer x As Single y As Single If tplBas 1 Then MSFlexGrid1 Col 0 With MSFlexGr idi Visible False If RowSel Rows 1 Then rowByt 1 If ColSel Cols 1 Then colByt 1 Visible False For S1 colByt 0 To colByt 1 S1 For S2 rowByt 0 To rowByt 1 Row 82 Text Next 2 Next S1 Col 0 0 Visible True End With tplByt tplBas 0 colByt 0 tplByt tplBas 1 rowByt 0 tplByt tplBas 2 colByt 1 tplByt tplBas 3 rowByt 1 Label5 tplBas Caption Label6 tplBas Caption Label7 tplBas Caption tplByt tplBas Label8 tpIBas Caption tplByt tplBas Label 4 BackColor amp H8000000F Label1 49 Caption No Click or tplBas 1 savBln True End Sub tplByt tp1Bas tplByt tp1Bas MSFlexGridl Row 0 Exit Sub RowSel MSF lexGrid1 ColSel C Rows 2 Else rowByt 1 C Cols 2 Else colByt 1 CD e a 1 I I ui k eds qasi Private Sub Option1_Click Index As Integer cntByt Index If cntByt Then 11 23 Capti Text1 5 Text
138. xt1 6 Text tablSng 1 1 Label1 37 Caption 7 Labe l1 36 Caption 7 Else Label1 23 Caption Text1 5 Text tablSng 0 0 Label1 24 Caption C Label1 38 Caption End Sub Text1 6 Text tablSng 1 0 Label1 37 Caption C Label1 36 Caption C End If Combo2 7 Text tablSng 0 2 Combo2 8 Text tablSng 0 3 Combo2 9 Text tablSng 0 4 Combo2 10 Text tablSng 1 2 Combo2 11 Text tablSng 1 3 Combo2 12 Text tablSng 1 4 With MSFlexGrid1 Visible False Clear Row 0 Col 0 Text X Y For S1 1 To 48 Col S1 Text S1 1 Next S1 Col 0 For S1 1 To 47 Row 1 Text S1 1 Next S1 For S1 0 To tplCst If tplByt S1 0 Then Label5 1 Caption tpIByt S1 0 If tplByt S1 1 Then Label6 S1 Caption 1 1 If tplByt S1 2 Then Label7 S1 Caption tpIByt S1 2 If tplByt S1 3 Then Label8 1 Caption tpIByt 1 3 For 82 tplByt S1 0 To tpIByt S1 2 Col 82 For S3 51 1 To tpIByt S1 3 If S2 gt 0 And S3 gt 0 Then Row S3 Text e End If Next S3 Next S2 Next S1 Visible True End With Sub prm Chg 0 tilStr Text1 0 Text If Combo2 0 Text Then Combo2 0 Text cntTIMEsng cntTIMEsng Combo2 0 Text If Combo2 1 Text Then Combo2 1 Text initWAITbyt initWAITbyt Combo
Download Pdf Manuals
Related Search