KICT/ECO2-OD
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

법적기준수정, 문,세대현관문 직간접 추가, 냉방기기 디폴트 적용, 단열재 추가

Browse Source
This commit is contained in:
ykh
2025-07-28 00:26:19 +09:00
parent 1de072b424
commit 27704968e6
10 changed files with 1493 additions and 1348 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
ArinWarev1/FORM-OD/Frm_3_Mach.vb
View File

@@ -165,6 +165,35 @@ Public Class Frm_3_Mach
End If
fxNaengBang.Invalidate()
End If
If grid.Cols(e.Col).Name.ToLower() = "설명" AndAlso Me.C1DockingTab1.SelectedIndex = 1 Then
If String.IsNullOrEmpty(data) = False Then
'//
For Each drtype As DS.tbl_typeRow In DSET1.tbl_type
If drtype.세대타입.ToLower().Equals(data.ToString().ToLower()) Then
Dim msg As String = "냉방기기 미설치 시," + vbCrLf + "표준값 적용을 위해 다음과 같이 입력(세대타입별 기기 생성)" + vbCrLf + vbCrLf + _
"냉방방식 = (압축식)" + vbCrLf + "냉방기기 용량 = (전용면적별) X 0.1801, COP = 2.894" + vbCrLf + "기기대수 = 타입별 세대수" + vbCrLf + "냉동기종류 = (히트펌프)" + vbCrLf + "사용연료 = (전기)"
If MsgBox(msg, MsgBoxStyle.YesNo, "OK") = MsgBoxResult.Yes Then
'냉방기기 미설치 시, 표준값 적용을 위해 다음과 같이 입력(세대타입별 기기 생성) 냉방방식 = (압축식), 냉방기기 용량 = (전용면적별) X 0.1801, COP = 2.894, 기기대수 = 타입별 세대수, 냉동기종류 = (히트펌프), 사용연료 = (전기) 선택
Dim 냉동기용량 As String = grid.GetData(e.Row, grid.Cols("냉동기용량").Index)
If String.IsNullOrEmpty(냉동기용량) OrElse 냉동기용량 = "0" Then
grid.SetData(e.Row, grid.Cols("냉동기방식").Index, "압축식")
Dim value1 As Double = Math.Round(drtype.세대면적 * 0.1801, 3)
grid.SetData(e.Row, grid.Cols("냉동기용량").Index, value1) '냉동기용량
grid.SetData(e.Row, grid.Cols("열성능비").Index, 2.894)
grid.SetData(e.Row, grid.Cols("대수").Index, drtype.세대수) '냉동기용량
grid.SetData(e.Row, grid.Cols("냉동기종류").Index, "히트펌프") '냉동기용량
grid.SetData(e.Row, grid.Cols("사용연료").Index, "전기") '냉동기용량
End If
End If
End If
Next
End If
End If
'//공조
@@ -1118,4 +1147,5 @@ Public Class Frm_3_Mach
Private Sub fxLight_Click(sender As Object, e As EventArgs) Handles fxLight.Click
End Sub
End Class