HX-PGS-ERP-SYS-SIU/08、工程公式系統/管徑_流速_流量計算�...

Public Class 管徑_流速_流量計算器
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-273-" & 語言) : Label1.Text = 系統語言字典("H909-100-" & 語言) : Label2.Text = 系統語言字典("H909-101-" & 語言)
        Label3.Text = 系統語言字典("H909-102-" & 語言) : Label4.Text = 系統語言字典("H909-103-" & 語言) : Label5.Text = 系統語言字典("H909-104-" & 語言)
    End Sub
    Private Sub 管徑_流速_流量計算器_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 管徑_流速_流量計算器_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        風格() : 介面 = "H909" : 語言轉換讀取() : 顯示說明(999, False)
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H909" : 語言轉換讀取()
    End Sub
    Private Sub 管徑類型_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 管徑類型_cb.Click
        CB選擇清單(管徑類型_cb, 管徑類型_cb.Text)
    End Sub
    Private Sub 公稱管徑_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 公稱管徑_cb.Click
        CB選擇清單(公稱管徑_cb, 公稱管徑_cb.Text)
    End Sub
    Private Sub 管徑類型_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 管徑類型_cb.SelectedIndexChanged
        If 管徑類型_cb.Text <> "" Then
            If 公稱管徑_cb.Text <> "" Then : Dim 拍 As Double = "3.141592653589793"
                If Strings.Left(管徑類型_cb.Text, 1) = "D" Then : 截面積_tb.Text = Strings.Format(拍 * (CDbl(公稱管徑_cb.Text) / 2) ^ 2 / 1000000, "#,##0.00000000000")
                ElseIf Strings.Left(管徑類型_cb.Text, 1) = "R" Then : 截面積_tb.Text = Strings.Format(拍 * CDbl(公稱管徑_cb.Text) ^ 2 / 1000000, "#,##0.00000000000")
                Else : 截面積_tb.Text = "0" : End If
                If 流速_tb.Text <> "" Then
                    If IsNumeric(流速_tb.Text) = True Then
                        流量_tb.Text = Strings.Format(CDbl(截面積_tb.Text) * CDbl(流速_tb.Text) * 3600, "#,##0.0000")
                    End If
                ElseIf 流量_tb.Text <> "" Then
                    If IsNumeric(流量_tb.Text) = True Then
                        流速_tb.Text = Strings.Format(CDbl(流量_tb.Text) / CDbl(截面積_tb.Text) / 3600, "#,##0.0000")
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 公稱管徑_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 公稱管徑_cb.SelectedIndexChanged
        If 管徑類型_cb.Text <> "" Then
            If 公稱管徑_cb.Text <> "" Then : Dim 拍 As Double = "3.141592653589793"
                If Strings.Left(管徑類型_cb.Text, 1) = "D" Then : 截面積_tb.Text = Strings.Format(拍 * (CDbl(公稱管徑_cb.Text) / 2) ^ 2 / 1000000, "#,##0.00000000000")
                ElseIf Strings.Left(管徑類型_cb.Text, 1) = "R" Then : 截面積_tb.Text = Strings.Format(拍 * CDbl(公稱管徑_cb.Text) ^ 2 / 1000000, "#,##0.00000000000")
                Else : 截面積_tb.Text = "0" : End If
                If 流速_tb.Text <> "" Then
                    If IsNumeric(流速_tb.Text) = True Then
                        流量_tb.Text = Strings.Format(CDbl(截面積_tb.Text) * CDbl(流速_tb.Text) * 3600, "#,##0.0000")
                    End If
                ElseIf 流量_tb.Text <> "" Then
                    If IsNumeric(流量_tb.Text) = True Then
                        流速_tb.Text = Strings.Format(CDbl(流量_tb.Text) / CDbl(截面積_tb.Text) / 3600, "#,##0.0000")
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 流速_bt_Click(sender As Object, e As EventArgs) Handles 流速_bt.Click
        If 截面積_tb.Text <> "" Then
            If IsNumeric(截面積_tb.Text) = True Then
                If 流速_tb.Text <> "" Then
                    If IsNumeric(流速_tb.Text) = True Then
                        流量_tb.Text = Strings.Format(CDbl(截面積_tb.Text) * CDbl(流速_tb.Text) * 3600, "#,##0.0000")
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 流量_bt_Click(sender As Object, e As EventArgs) Handles 流量_bt.Click
        If 截面積_tb.Text <> "" Then
            If IsNumeric(截面積_tb.Text) = True Then
                If 流量_tb.Text <> "" Then
                    If IsNumeric(流量_tb.Text) = True Then
                        流速_tb.Text = Strings.Format(CDbl(流量_tb.Text) / CDbl(截面積_tb.Text) / 3600, "#,##0.0000")
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            '----------------黑-------------------------------------------
            流速_bt.BackColor = Color.White : 流量_bt.BackColor = Color.White

            Label1.ForeColor = Color.Black : Label2.ForeColor = Color.Black : Label3.ForeColor = Color.Black : Label4.ForeColor = Color.Black
            Label5.ForeColor = Color.Black

            管徑類型_cb.BackColor = Color.White : 管徑類型_cb.ForeColor = Color.Black : 公稱管徑_cb.BackColor = Color.White : 公稱管徑_cb.ForeColor = Color.Black
            截面積_tb.BackColor = Color.White : 截面積_tb.ForeColor = Color.Black : 流速_tb.BackColor = Color.White : 流速_tb.ForeColor = Color.Black
            流量_tb.BackColor = Color.White : 流量_tb.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            '----------------黑-------------------------------------------
            流速_bt.BackColor = Color.DimGray : 流量_bt.BackColor = Color.DimGray

            Label1.ForeColor = Color.White : Label2.ForeColor = Color.White : Label3.ForeColor = Color.White : Label4.ForeColor = Color.White
            Label5.ForeColor = Color.White

            管徑類型_cb.BackColor = Color.DimGray : 管徑類型_cb.ForeColor = Color.White : 公稱管徑_cb.BackColor = Color.DimGray : 公稱管徑_cb.ForeColor = Color.White
            截面積_tb.BackColor = Color.DimGray : 截面積_tb.ForeColor = Color.White : 流速_tb.BackColor = Color.DimGray : 流速_tb.ForeColor = Color.White
            流量_tb.BackColor = Color.DimGray : 流量_tb.ForeColor = Color.White
        End If
    End Sub
End Class