난수 생성 프로그램 (랜덤숫자 생성기)

비주얼 베이직 닷넷으로 만든 프로그램 입니다.

한가지의 난수만을 나타내는 프로그램 입니다.

1.기본값 체크를 해제 하면 원하는 범위를 설정할 수 있습니다.

2. 엔터를 꾹~ 누르고 있으면 값이 계속 변합니다.

VB Random.exe

P.S 정보 메뉴 미구현( 귀차니즘 )

*소스코드 공개.

Public Class Form2

    Public i, j, k, g As Long

    Public ask As MsgBoxResult

    Public i_random As New Random

    Private Sub ChkDefault_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkDefault.CheckedChanged

        If ChkDefault.Checked = False Then

            txtMin.Enabled = True

            txtMin.Clear()

            txtMax.Enabled = True

            txtMax.Clear()

            txtMin.Focus()

        ElseIf ChkDefault.Checked = True Then

            txtMin.Enabled = False

            txtMin.Text = "0"

            txtMax.Enabled = False

            txtMax.Text = "100"

        End If

    End Sub

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

        j = txtMin.Text

        k = txtMax.Text

        i = i_random.Next(j, k)

        txtValue.Text = i

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize() '난수 랜덤설정

        Me.Width = 251

        Me.Height = 244

    End Sub

    Private Sub ExitXToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitXToolStripMenuItem.Click

        ask = MsgBox("정말 종료하시겠습니까?", MsgBoxStyle.YesNo, "프로그램 종료")

        If ask = MsgBoxResult.Yes Then

            End

        ElseIf ask = MsgBoxResult.No Then

        End If

    End Sub

    Private Sub ClearCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearCToolStripMenuItem.Click

        If ChkDefault.Checked = True Then

            txtValue.Clear()

        ElseIf ChkDefault.Checked = False Then

            txtMin.Clear()

            txtMax.Clear()

            txtValue.Clear()

        End If

    End Sub

End Class