로또번호 추출 3

publish.zip

0.08MB

위 파일은 실행파일입니다.

지난번에 이어 프로그램을 더 추가하여 진행하겠습니다.

​

로또번호 추출기

이번에는 반자동 숫자 하나를 넣어서 번호를 추출하는 방법과

If chk_반자동사용.Checked = True Then

...

end if

​

추출된 숫자를 정렬하는법

lottoNumbers.Sort()

​

리스트박스 를 지우는 법등을 살펴보겠습니다.

ListBox1.Items.Clear()

​

아래는 전체 소스입니다.

보통 코딩할때 변수명은

저는 아래와같이 해당컨트롤의 의미를 나타내는 접두어를 넣고

그다음 실 변수 이름을 사용합니다.

보통 한글의미를 영어로 번역하거나 한글을 영문소리나는데로 하여사용하는데

그럴필요없이 저는 한글을 사용합니다

​

텍스트박스 : txt_

체크박스 : chk_

​

 

 

Public Class Form1

​

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

​

If chk_반자동사용.Checked = True Then

If IsNumeric(txt_반자동숫자.Text) = False Then

MessageBox.Show("반자동숫자를 입력하세요")

txt_반자동숫자.Select()

End If

While lottoNumbers.Count < 5

Dim num As Integer

num = rand.Next(1, 46)

If num = CInt(txt_반자동숫자.Text) Then

num = rand.Next(1, 46)

End If

tot = tot + num

If Not lottoNumbers.Contains(num) Then

lottoNumbers.Add(num)

End If

End While

lottoNumbers.Add(CInt(txt_반자동숫자.Text))

Else

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

​

End If

lottoNumbers.Sort()

If chk_숫자합사용.Checked = True Then

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

SelNum = SelNum.Substring(0, SelNum.Length - 1)

ListBox1.Items.Add(SelNum)

numcnt += 1

End If

Else

Dim SelNum As String = ""

For Each num In lottoNumbers

SelNum = SelNum & num & ","

Next

SelNum = SelNum.Substring(0, SelNum.Length - 1)

ListBox1.Items.Add(SelNum)

numcnt += 1

End If

​

End While

​

End Sub

​

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

ListBox1.Items.Clear()

End Sub

End Class

​

​

다음번에는 이 프로그램에 다른기능을 추가하고

1회부터 전체 로또번호를 db에 등록하고 조회하는법을 알아보겠습니다.