169 lines
6.2 KiB
Plaintext
169 lines
6.2 KiB
Plaintext
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 |