⦁ 로또번호 생성
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,45면 1~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