<![CDATA[
<P> </P>
<P></P>
<P> </P>
<P>첨으로 실생활에 유용한(?) 프로그램을 만들어봅니다.</P>
<P>이 프로그램은 아래와 같은 난수 발생을 이용해 6개의 숫자를 뽑아내고...</P>
<P> 306회까지의 데이타를 나름대로 정리해서... </P>
<P>뽑아져 나온 숫자가 제가 정한 일정한 법칙에 들어가면 보여주고</P>
<P>그렇기 않으면 다시 생성하도록.... 하였습당.</P>
<P> </P>
<P>그 부분은 공개하기는 좀 그렇고 해서 실행파일하나 올려놓습니당만 실행화일 업로드 금지로 삭제했습니당. </P>
<P> </P>
<P> </P>
<P>첨으로 만들어보 본 실생활에 유용한(?) 프로그램이라.. 주위사람들 중 로또하는 사람들에게 재미삼아</P>
<P>함 써보라고.. 로또기계에서 자동으로 선택하는것보다는 확률적으로 높을 것이라고 과대광고를 하고있습니당. ㅋ</P>
<P> </P>
<P> </P>
<P>난수발생과 관련된 소스는 다음과 같습니다. (지뢰찾기 소스를 공부하다가 이해되는 부분만 차용한 소스입니다.)</P>
<P> </P>
<P>폼위에.. 두개의 listbox를 올려놓습니당.</P>
<P>버튼 2개 올려놓으면 폼 구성은. 끝 ..... </P>
<P> </P>
<P>Private Sub Command1_Click()<BR></P>
<P> </P>
<P>Dim i As Integer<BR>Dim j As Integer</P>
<P> </P>
<P>For j = 1 To 45 '로또번호가 45까지 맞나여? 안사본지 넘 오래되나서..</P>
<P>List1.AddItem j</P>
<P>Next j</P>
<P> </P>
<P>Randomize</P>
<P><BR>For j = 1 To 6<BR> i = (List1.ListCount - 1) * Rnd ' rnd*(마지막-시작) +시작 -> rnd*(44-0) + 0<BR> <BR> List2.AddItem Me.List1.List(i) ' list1에 있는 숫자를 빼옵니다.<BR> List1.RemoveItem (i) ' 빼온 숫자를 지워버립니다. 그래야 중복이 안되겠지요.<BR> <BR> Next j<BR> </P>
<P>End Sub</P>
<P> </P>
<P>Private Sub Command2_Click()<BR> List2.Clear<BR> List1.Clear<BR>End Sub</P>
<P> </P>
<P> </P>
<P> </P>
<!-- -->]]>
카페 게시글
검색이 허용된 게시물입니다.
[6.0]API 활용
6.0
난수발생을 이용한 로또번호생성기입니당...
낼은어떻게
추천 0
조회 870
08.10.22 11:03
댓글 8
다음검색
첫댓글 실행파일 업로드는 금지되어 있습니다만...
그렇군여. 삭제할께여....
난수가ㅇ머임;;?
랜덤수요.
컴파일 오류가 나오는데...어떻게 처리해야 하나요?
"List1.AddItem j" 이 부분이 컴파일 오류가 나오는데....
오류뜨네요...
리스트 오류는 리스트를 추가시키면되지만 런타임디버그오류 발생하네요