Page 210 - 3-3

Dim Rsec As Byte = 0
'10ms 단위 저장
Dim Rmsec As Byte = 0

'' 팔굽혀펴기''
' 개수 저장
Dim Pcount As Byte

'' 유연성''
' 거리값 저장
Dim Fdist As Double

'' 엑셀관련 변수''
' 엑셀 애플리케이션
Dim xlsApp As Microsoft.Office.Interop.Excel.Application
' 워크북
Dim xlsWB As Microsoft.Office.Interop.Excel.Workbook
'50m 통신 시트
Dim xlsSheet50m_ts As Microsoft.Office.Interop.Excel.Worksheet
'50m 회로 시트
Dim xlsSheet50m_hr As Microsoft.Office.Interop.Excel.Worksheet
'50m 제어 시트
Dim xlsSheet50m_je As Microsoft.Office.Interop.Excel.Worksheet

' 팔굽혀펴기 통신 시트
Dim xlsSheetPushUp_ts As Microsoft.Office.Interop.Excel.Worksheet
' 팔굽혀펴기 회로 시트
Dim xlsSheetPushUp_hr As Microsoft.Office.Interop.Excel.Worksheet
' 팔굽혀펴기 제어 시트
Dim xlsSheetPushUp_je As Microsoft.Office.Interop.Excel.Worksheet

' 유연성 통신 시트
Dim xlsSheetFlex_ts As Microsoft.Office.Interop.Excel.Worksheet
' 유연성 회로 시트
Dim xlsSheetFlex_hr As Microsoft.Office.Interop.Excel.Worksheet
' 유연성 제어 시트
Dim xlsSheetFlex_je As Microsoft.Office.Interop.Excel.Worksheet

' 누락된 object
Dim misVal As Object = System.Reflection.Missing.Value
' 엑셀이 열렸는지 확인
Dim Excel As Boolean = False

' 폼이 열릴때

- 210 -