ECO2/ArinWarev1

guest / 329235645

190703 mdimain load 시에 user 계정 서버접속안하게 처리함

2016-05-08
	파일의 백업기능(예정)
	오류난파일 복구기능(예정)
2016-04-27
	로그코드추가
2016-04-26
	Arinlog dll 추가및 데이터 로그기록 추가

#변경시 - 프로젝트 -속성 - 응용프로그램 - 어셈블리정보 - 어셈블리버젼 수정 (년/월/일/시/분)
1.프로젝트빌드(Release 설정 필요) 후 생성되는 파일 ->  C:\ECO2\debug_2016
2.난독처리 (프로젝트폴더 Dotfuscator1_v2010.xml 를 이용) -> C:\ECO2\dotfus_2016
3.설치프로젝트 우클릭 - 다시빌드(난독처리폴더 닫고 실행) ->  C:\ECO2\Setup_2016\Express\SingleImage\DiskImages\DISK1
4.setup.exe 를 이용하여 프로그램설치 후 -> 실행 -> 상단 버젼확인

2016-03-27
	Build path -> c:\eco2\debug_2016
	Project Name -> 건물에너지평가프로그램(ECO2_2016)
	frm_upload
		항목별평가결과(L1361) / 운전방식이 순차,동시가동이라면 * 보일러대수
		MakeData(L639) / 열교환기유형에따라서 송풍기,전열교환기식 변경
	frm_zone
		AcceptChanged(L9) / 입력적용시 천장고,면적 비정상입력값 체크
	frm_myoun
		validate_control(L543) / cmb방위와 라디오컨트롤의 활성화여부를 동일하게처리
	VERSION PROFILE  - update
	frm_yk
		재료쪽 그리드뷰 사용자가 행높이 변경할 수 없게함

				
2016-03-26
	설정프로필화면 : 일일사용기간 -> 일일사용시간
	존(frm_zone)
		최초 존 생성시 사용프로필 선택 후 점등시간 미표기 오류 수정
		면적입력시 커서가 천장고로 이동하는 현상 수정 (오토포커스 기능 제거)
		GetMyounMaxCode : 로직개선(ctrl c+v 조건시 중복키오류에대한 대처)
	신재생(frm_new)
		태양광발전용량 : 엔터키 입력시 커서가 아래로 이동되게 수정(엔터키값 수정)

2014-01-11
	mdimain - openfile 함수에 ..순실체적 제개산 로직 추가

//2009 11 23 (생성)
// Save File Structure
(2)		세이브파일구조파일(업데이트여분) 
(10)	UI버젼넘버(20091231) 뒤에 2자리는 리비젼
(10)	LG버젼넘버(20091231) 뒤에 2자리는 리비젼
(100)	프로젝트명(한글50자)
(256)	프로젝트설명(한글128자)
(19)	프로젝트생성시간
(19)	프로젝트최종변경시간
(Long)	데이터셋의길이
.
.
.
.
데이터셋
//반복



'//SFTYPE HISTORY
이름	생성일자	생성자	설명
01		2009-12-27	Arin	암호 8바이트를 프로젝트최종변경시간후에 추가

 '//설비방식및사용연료 
        '//난방(입력존에서 가장많이 사용한놈)
        Dim fndr As DS.tbl_nanbangkikiRow = Nothing
        Dim fndrcnt As Integer = 0

        Dim sum_보일러 As Single = 0
        Dim sum_히트펌프 As Single = 0
        Dim sum_지역난방 As Single = 0
        Dim sum_전기보일러 As Single = 0

        For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0'")
            Dim cnt As Integer = 0
            Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")

            '//131207
            If zDR.Length > 0 Then
                Select Case dr.열생산기기방식
                    Case "보일러"
                        sum_보일러 += TOSG(dr.보일러정격출력)
                    Case "히트펌프"
                        sum_히트펌프 += TOSG(dr.히트난방용량)
                    Case "지역난방"
                        sum_지역난방 += TOSG(dr.열교환기정격출력)
                    Case "전기보일러"
                        sum_전기보일러 += TOSG(dr.보일러정격출력)
                End Select
            End If
        Next


        '//합이 가장 큰 그룹을 검색
        Dim maxvalue As Single = 0
        ' Dim maxindex As Integer = 0
        maxvalue = Math.Max(sum_보일러, sum_히트펌프)
        maxvalue = Math.Max(maxvalue, sum_지역난방)
        maxvalue = Math.Max(maxvalue, sum_전기보일러)

        Dim searchfilter As String = ""

        If maxvalue = 0 Then
            searchfilter = ""
            ' maxindex = 0 '//없음
        ElseIf maxvalue = sum_보일러 Then
            ' maxindex = 1
            searchfilter = "열생산기기방식='보일러'"
        ElseIf maxvalue = sum_히트펌프 Then
            'maxindex = 2
            searchfilter = "열생산기기방식='히트펌프'"
        ElseIf maxvalue = sum_지역난방 Then
            '  maxindex = 3
            searchfilter = "열생산기기방식='지역난방'"
        ElseIf maxvalue = sum_전기보일러 Then
            ' maxindex = 4
            searchfilter = "열생산기기방식='전기보일러'"
        End If

        '//가장큰 그룹내의 개별 대표값 찾기
        If searchfilter <> "" Then
            For Each dr As DS.tbl_nanbangkikiRow In DSET1.tbl_nanbangkiki.Select("code <> '0' and " + searchfilter)
                Dim cnt As Integer = 0
                Dim zDR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("code <> '0' and 열생산난방생산기기='" & dr.code & "' or 공조난방생산기기='" & dr.code & "'")

                '///
                For Each drow As DS.tbl_zoneRow In zDR
                    Dim 입력존수문자 As Integer = drow.입력존의수
                    If IsNumeric(입력존수문자) = False Then 입력존수문자 = "1"
                    cnt += CInt(입력존수문자)
                Next

                If cnt > fndrcnt Then   '//최대값찾기
                    fndr = dr
                    fndrcnt = cnt
                End If

                If Not fndr Is Nothing Then
                    NDr.온열원설비방식 = fndr.열생산기기방식
                    Select Case fndr.열생산기기방식
                        Case "보일러"
                            NDr.온열원설비연료 = fndr.사용연료
                            NDr.온열원용량 = maxvalue.ToString() + "(" + fndr.보일러정격출력 + ")"
                            NDr.온열원효율 = fndr.정격보일러효율 + "%"
                        Case "히트펌프"
                            NDr.온열원설비연료 = fndr.히트연료
                            NDr.온열원용량 = maxvalue.ToString() + "(" + fndr.히트난방용량 + ")"
                            NDr.온열원효율 = fndr.히트난방정격7
                        Case "지역난방"
                            NDr.온열원설비연료 = fndr.사용연료
                            NDr.온열원용량 = maxvalue.ToString() + "(" + fndr.열교환기정격출력 + ")"
                            NDr.온열원효율 = fndr.정격보일러효율 + "%"
                        Case "전기보일러"
                            NDr.온열원설비연료 = fndr.사용연료
                            NDr.온열원용량 = maxvalue.ToString() + "(" + fndr.보일러정격출력 + ")"
                            NDr.온열원효율 = fndr.정격보일러효율 + "%"
                    End Select
                End If
            Next
        Else
            NDr.온열원설비연료 = ""
            NDr.온열원용량 = ""
            NDr.온열원효율 = ""
        End If