[VB] 비주얼베이직 중간평가 실습 과제 1

오늘은 학교 수업시간에 배운것을 토대로 중간평가 실습과제를 풀어보았습니다.

 

문제 1. 회원등록하기

 

1-1 폼

1-2 코드

Public Class Form1
    '' 구조체
    Public Structure checker
        Dim name As String
        Dim age As Integer
        Dim sex As String
        Dim color As String
    End Structure
    '' 배열
    Dim CheckerList As New ArrayList()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblName.Text = "이름:"
        lblAge.Text = "나이:"
        lblSex.Text = "성별:"

        gbColor.Text = "가장 좋아하는 색"
        rbRed.Text = "빨강"
        '' 라디오 버튼 초기값 지정
        rbRed.Checked = True
        rbGreen.Text = "초록"
        rbBlue.Text = "파랑"

        cbSex.Items.Add("남")
        cbSex.Items.Add("여")
        '' 성별 콤보박스 초기값 지정
        cbSex.SelectedIndex = 0
        tbResult.Text = ""
        btnCheck.Text = "확인"

        gbSaveList.Text = "등록자리스트"
    End Sub

    '' 확인 버튼
    Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
        '' 이름 예외처리
        If Not tbName.Text.Length = 3 Then
            MsgBox("이름을 잘못 입력하였습니다.")
            '' 나이 예외 처리
        ElseIf tbAge.Text.Length > 2 Or Not IsNumeric(tbAge.Text) Then
            MsgBox("나이를 잘못 입력하였습니다.")
        Else
            Dim data As New checker

            data.name = tbName.Text
            data.age = CInt(tbAge.Text)
            data.sex = cbSex.SelectedItem

            If rbRed.Checked Then
                data.color = "빨강"
            ElseIf rbGreen.Checked Then
                data.color = "초록"
            Else
                data.color = "파랑"
            End If

            CheckerList.Add(data)

            lbSaveList.Items.Add(data.name)
            tbResult.Text = tbName.Text & "님이 등록되었습니다." & vbCrLf & "성별: " & cbSex.SelectedItem & vbCrLf & "가장 좋아하는 색: " & data.color
            tmTextClear.Start()

        End If
    End Sub

    '' 리스트 박스
    Private Sub lbSaveList_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbSaveList.SelectedIndexChanged
        lblShowName.Text = CheckerList(lbSaveList.SelectedIndex).name
        lblShowAge.Text = CStr(CheckerList(lbSaveList.SelectedIndex).age)
        lblShowSex.Text = CheckerList(lbSaveList.SelectedIndex).sex
        lblShowColor.Text = CheckerList(lbSaveList.SelectedIndex).color
    End Sub

    '' 타이머
    Private Sub tmTextClear_Tick(sender As Object, e As EventArgs) Handles tmTextClear.Tick
        tbResult.Text = ""
        tmTextClear.Stop()
    End Sub
End Class