로또번호 추출기 2

지난번에이어 추가한 부분은 숫자합의범위를 줘서 그안에 포함되는 번호만

나오게 하는 부분을 추가하여봤습니다.

​

로또번호 추출기 샐행화면

소스상에서 틀린 부분은 기존소스에서는

for ~ next 문을 사용하였다면

​

수정한 소스에서는 While (조건) ~ end While을 사용하였습니다.

​

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim numcnt As Integer = 0

While numcnt < NumericUpDown1.Value

Dim rand As New Random()

Dim lottoNumbers As New List(Of Integer)

Dim tot As Integer = 0

While lottoNumbers.Count < 6

Dim num As Integer = rand.Next(1, 46)

tot = tot + num

If Not lottoNumbers.Contains(num) Then

lottoNumbers.Add(num)

End If

End While

​

If tot >= CInt(txt_min.Text) And tot <= CInt(txt_max.Text) Then

Dim SelNum As String = ""

For Each num In lottoNumbers

SelNum = SelNum & num & " "

Next

ListBox1.Items.Add(SelNum)

numcnt += 1

End If

End While

​

End Sub

​

While 문을 사용하여 로또번호가 추출되면 tot 변수에 값을 더해서

6개가 나오면 최소값과 최대값의 범위에 있는가를 판단하여

조건이 참일 경우 리스트 목록에 추가하여 자신이 원하는 갯수만큼 로또번호를 추출할수 있습니다.

​

어떤값을 변수에 더할경우

tot = tot + num ==> tot += num

numcnt += 1 ==> numcnt = numcnt + 1

위 두가지 방식을 사용할 수 있습니다.

​

오는을 While 문에 대해 알아보며 로또번호를 추출하여 보았습니다.

다음번에는 이 소스를 계속 발전시켜 내가 원하는 숫자하나를 선정한 후

나머지 숫자만 추출하는것과

지금은 추출된 숫자가 정렬이 안되어있지만 추출된 숫자를 정렬하는 방법에대해 알아보겠습니다.

​

여러분들이 하나하나 따라해보시면서 코딩해보세요

VB.NET 화이팅