2024y .

2024-12-30 23:04:30 +09:00
parent c01051f024
commit 8f89991a09
45 changed files with 7567 additions and 1033 deletions
--- a/ArinWarev1/Forms_Input/Frm_NaengBang.vb
+++ b/ArinWarev1/Forms_Input/Frm_NaengBang.vb
@@ -821,4 +821,91 @@ Public Class Frm_NaengBang
            MsgBox("개별기기와 헤더가 모두 체크되었습니다. 둘 중 하나만 체크하시기 바랍니다.", MsgBoxStyle.Information, "확인")
        End If
    End Sub
+
+    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
+
+        If DSET1.tbl_Desc.Rows.Count < 1 Then
+            MsgboxE("건물개요가 없습니다")
+            Return
+        End If
+
+
+        Dim drdesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
+        Dim 주거형태 As String = drdesc.isjugo
+        If 주거형태 <> "2" Then
+            'MsgBox("주거용건축물만 사용 가능 합니다")
+            Return
+        End If
+
+        '//zone list
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+        Dim DR() As DS.tbl_zoneRow = DSET1.tbl_zone.Select("열생산냉방생산기기='" & drv("code").ToString & "'") '//2010.12.02 수정
+        If DR.Length < 1 Then
+            MsgBox("연결된 존이 없습니다")
+            Return
+        End If
+
+        Dim 전용면적 As Decimal = 0
+        For Each drz As DS.tbl_zoneRow In DR
+            If 전용면적 = 0 Then
+                전용면적 = drz.면적
+            Else
+                If 전용면적 <> drz.면적 Then
+                    MsgBox("동일하지 않는 면적이 있습니다")
+                    Return
+                End If
+            End If
+        Next
+
+
+        Dim newvalue As Decimal = Math.Round(0.1801 * 전용면적, 3)
+        If MsgBox("전용면적(" + 전용면적.ToString() + ") * 0.1801 = " + newvalue.ToString() + vbCrLf + _
+                  "냉방효율 : 2.894" + vbCrLf + _
+                  "압축식, 실내공조시스템, 멀티분리시스템, on/off제어", MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
+
+
+            열성능비NTb.Text = "2.894"
+
+            냉동기용량NTb.Text = newvalue 'Math.Round(0.1801 * 전용면적, 3)
+            냉동기방식ComboBox.Text = "압축식"
+            냉동기종류ComboBox.Text = "실내공조시스템"
+            냉동기설비시스템ComboBox.Text = "멀티분리시스템"
+            제어방식ComboBox.Text = "on/off제어"
+            '압축식/실내공조시스템
+            '실내기 및 제어방식
+            '멀티분리시스템/ON‧OFF제어
+
+
+        End If
+    End Sub
+
+    Private Sub Frm_NaengBang_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
+        If DSET1.tbl_Desc.Rows.Count < 1 Then
+            'MsgboxE("건물개요가 없습니다")
+            Return
+        End If
+        Dim dr As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
+        Dim 주거형태 As String = dr.isjugo
+        If 주거형태 <> "2" Then
+            Me.Label2.ForeColor = SystemColors.ControlDarkDark
+            Me.Label2.Font = Me.Font
+
+            '    Me.Label3.ForeColor = SystemColors.ControlDarkDark
+            '    Me.Label3.Font = Me.Font
+            'Else
+            Me.Label2.ForeColor = Color.Blue
+            Me.Label2.Font = New Font(Me.Font.Name, Me.Font.Size, FontStyle.Underline)
+
+            'Me.Label3.ForeColor = Color.Blue
+            'Me.Label3.Font = New Font(Me.Font.Name, Me.Font.Size, FontStyle.Underline)
+        End If
+
+
+    End Sub
+
+    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
+
+        
+    End Sub
 End Class