[Visual Basic] Building Calculator.

친구가 과제 좀 도와달라며 계산기 만들 줄 아냐고 물었다.
나는 당연히 C나 Java정도로 만드는 건 줄 알고 당연히 할 줄 안다고 대답하였으나 Visual Basic이었다. ㅋㅋ
내 과제물도 아니지만 이제 C# 공부를 시작해야 하기에 예전 도와줬던 친구의 과제물 (95% 내가만듬)을 포스팅해본다.

소스코드

'미래의IT윱합기술 중간과제
'작성자 : 201621874 김규완
'작성일 : 2022-01-05
Public Class Form1
    Dim combo_01() As String = {"주거지역", "상업지역", "공업지역", "녹지지역"}
    Dim combo_01_00() As String = {"제1종 전용주거지역", "제2종 전용주거지역", "제1종 일반주거지역", "제2종 일반주거지역", "제3종 일반주거지역", "준주거지역"}
    Dim combo_01_01() As String = {"중심상업지역", "일반상업지역", "근린상업지역", "유통상업지역"}
    Dim combo_01_02() As String = {"전용공업지역", "일반공업지역", "준공업지역"}
    Dim combo_01_03() As String = {"보전녹지지역", "생산녹지지역", "자연녹지지역"}

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Items.Clear()
        If ComboBox1.SelectedIndex = 0 Then
            ComboBox2.Items.AddRange(combo_01_00)
        ElseIf ComboBox1.SelectedIndex = 1 Then
            ComboBox2.Items.AddRange(combo_01_01)
        ElseIf ComboBox1.SelectedIndex = 2 Then
            ComboBox2.Items.AddRange(combo_01_02)
        ElseIf ComboBox1.SelectedIndex = 3 Then
            ComboBox2.Items.AddRange(combo_01_03)
        End If
        ComboBox2.SelectedIndex = 0
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox1.SelectedIndex = 0 Then '주거지역
            TextBox2.Text = Val(TextBox1.Text) / 10 * 7
            If ComboBox2.SelectedIndex = 0 Then '1종전용주거지역
                TextBox3.Text = Val(TextBox1.Text) / 2
                TextBox4.Text = Val(TextBox1.Text)
            ElseIf ComboBox2.SelectedIndex = 1 Then '제2종전용주거지역
                TextBox3.Text = Val(TextBox1.Text)
                TextBox4.Text = Val(TextBox1.Text) * 1.5
            ElseIf ComboBox2.SelectedIndex = 2 Then '제1종일반주거지역
                TextBox3.Text = Val(TextBox1.Text)
                TextBox4.Text = Val(TextBox1.Text) * 2
            ElseIf ComboBox2.SelectedIndex = 3 Then '제2종일반주거지역
                TextBox3.Text = Val(TextBox1.Text) * 1.5
                TextBox4.Text = Val(TextBox1.Text) * 2.5
            ElseIf ComboBox2.SelectedIndex = 4 Then '제3종일반주거지역
                TextBox3.Text = Val(TextBox1.Text) * 2
                TextBox4.Text = Val(TextBox1.Text) * 3
            ElseIf ComboBox2.SelectedIndex = 5 Then '준주거지역
                TextBox3.Text = Val(TextBox1.Text) * 2
                TextBox4.Text = Val(TextBox1.Text) * 5
            End If
        ElseIf ComboBox1.SelectedIndex = 1 Then '상업지역
            TextBox2.Text = Val(TextBox1.Text) / 10 * 9
            If ComboBox2.SelectedIndex = 0 Then '중심상업지역
                TextBox3.Text = Val(TextBox1.Text) * 4
                TextBox4.Text = Val(TextBox1.Text) * 15
            ElseIf ComboBox2.SelectedIndex = 1 Then '일반상업지역
                TextBox3.Text = Val(TextBox1.Text) * 3
                TextBox4.Text = Val(TextBox1.Text) * 13
            ElseIf ComboBox2.SelectedIndex = 2 Then '근린상업지역
                TextBox3.Text = Val(TextBox1.Text) * 2
                TextBox4.Text = Val(TextBox1.Text) * 9
            ElseIf ComboBox2.SelectedIndex = 3 Then '유통상업지역
                TextBox3.Text = Val(TextBox1.Text) * 2
                TextBox4.Text = Val(TextBox1.Text) * 11
            End If
        ElseIf ComboBox1.SelectedIndex = 2 Then '공업지역
            TextBox2.Text = Val(TextBox1.Text) / 10 * 7
            If ComboBox2.SelectedIndex = 0 Then '전용공업지역
                TextBox3.Text = Val(TextBox1.Text) * 1.5
                TextBox4.Text = Val(TextBox1.Text) * 3
            ElseIf ComboBox2.SelectedIndex = 1 Then '일반공업지역
                TextBox3.Text = Val(TextBox1.Text) * 2
                TextBox4.Text = Val(TextBox1.Text) * 3.5
            ElseIf ComboBox2.SelectedIndex = 2 Then '준공업지역
                TextBox3.Text = Val(TextBox1.Text) * 2
                TextBox4.Text = Val(TextBox1.Text) * 4
            End If
        ElseIf ComboBox1.SelectedIndex = 3 Then '녹지지역
            TextBox2.Text = Val(TextBox1.Text) / 10 * 2
            If ComboBox2.SelectedIndex = 0 Then '보전녹지지역
                TextBox3.Text = Val(TextBox1.Text) * 0.5
                TextBox4.Text = Val(TextBox1.Text) * 0.8
            ElseIf ComboBox2.SelectedIndex = 1 Then '생산녹지지역
                TextBox3.Text = Val(TextBox1.Text) * 0.5
                TextBox4.Text = Val(TextBox1.Text)
            ElseIf ComboBox2.SelectedIndex = 2 Then '자연녹지지역
                TextBox3.Text = Val(TextBox1.Text) * 0.5
                TextBox4.Text = Val(TextBox1.Text)
            End If
        End If


    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange(combo_01)
        ComboBox1.SelectedIndex = 0

    End Sub
End Class

실행화면

처음 실행화면

대지면적에 값을 입력해주고

용도를 재설정 해주면 건폐율과 용적률이 계산된다.

용도를 바꿔주면 그에 맞는 값으로 다시 계산해준다.