2023.11.24 TIL(기본강의5)

SaGo_MunGcci·2023년 11월 25일
0

VB

목록 보기
7/8

Today do list

⦁ 로또번호 생성



TIL


Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    '로또번호 생성시작
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Start()
    End Sub

    '비우기
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Empty()
    End Sub

    '끝내기
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        AppOff()
    End Sub

    '메뉴스트립 :  버튼 단축키 디자인단에 메뉴 시작 클릭해서 shortcutKeys등록하면됨
    '나머지도 마찬가지
    Private Sub 시작ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 시작ToolStripMenuItem.Click
        Start()
    End Sub

    Private Sub 비우기ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 비우기ToolStripMenuItem.Click
        Empty()
    End Sub

    Private Sub 끝내기ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 끝내기ToolStripMenuItem.Click
        AppOff()
    End Sub


    '컨택스트 메뉴스트립 : 버튼 디자인에 form클릭해서
    '컨택스트메뉴스트립에 등록해야한다. *****중요*****
    Private Sub 시작ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 시작ToolStripMenuItem1.Click
        Start()
    End Sub

    Private Sub 비우기ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 비우기ToolStripMenuItem1.Click
        Empty()
    End Sub

    Private Sub 끝내기ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 끝내기ToolStripMenuItem1.Click
        AppOff()
    End Sub

    Private Sub Start()
        ' 랜덤 객체 생성
        Dim rand As New Random()
        '사용후 항상 클리어
        Dim arrList As ArrayList = New ArrayList()
        Dim randomNumber As Integer = 0

        Dim checkOk As Boolean = True
        'EXIT While
        While checkOk

            For i = 0 To 5 Step 1
                ' 1부터 10까지의 랜덤한 숫자 생성
                ' 아래와 같이 1,451~44까지의 번호만 출력된다.
                'randomNumber = rand.Next(1, 45)
                randomNumber = rand.Next(1, 46)

                If arrList.Contains(randomNumber) Then
                    Debug.WriteLine("이미 존재하는 " + randomNumber.ToString() + "이 있습니다")
                    arrList.Clear()
                Else
                    arrList.Add(randomNumber)
                End If

            Next

            If arrList.Count < 6 Then
                checkOk = True
            Else
                checkOk = False
            End If

        End While

        Label1.Text = arrList(0).ToString()
        Label2.Text = arrList(1).ToString()
        Label3.Text = arrList(2).ToString()
        Label4.Text = arrList(3).ToString()
        Label5.Text = arrList(4).ToString()
        Label6.Text = arrList(5).ToString()
        arrList.Clear()

    End Sub


    Private Sub Empty()
        Label1.Text = "번호1"
        Label2.Text = "번호2"
        Label3.Text = "번호3"
        Label4.Text = "번호4"
        Label5.Text = "번호5"
        Label6.Text = "번호6"
    End Sub

    Private Sub AppOff()
        ' 메시지 박스에 물어보기
        Dim result As DialogResult = MessageBox.Show("정말 종료하시겠습니까?", "질문", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        ' 사용자의 응답 확인
        If result = DialogResult.Yes Then
            ' 여기에 "예"를 선택했을 때 실행할 코드를 추가할 수 있습니다.
            Debug.WriteLine("예를 선택하셨습니다.")
            Close()
        Else
            ' 여기에 "아니오"를 선택했을 때 실행할 코드를 추가할 수 있습니다.
            Debug.WriteLine("아니오를 선택하셨습니다.")
        End If
    End Sub


End Class




Retrospection



profile
이리저리 생각만 많은 사고뭉치입니다.

0개의 댓글