비주얼베이직6 로 대진표 짜는 프로그램 소스(코드)짜주세요! (VisualBa...

본문 바로가기

비주얼베이직6 로 대진표 짜는 프로그램 소스(코드)짜주세요! (VisualBa...

작성일 2005.08.06댓글 1건
    게시물 수정 , 삭제는 로그인 필요

음.. 일단 이 프로그램을 스타크래프트에서 길드원끼리 랜덤으로 대진표짜서

 

토너먼트식으로 게임 진행하려고 하는데요..

 

제가 지금 이걸 스스로 만들 실력도 안되고 급히 필요한 거라 이렇게 올립니다.

 

물론 대진표짜는 프로그램이 있긴 있습니다만.. cmd에서 실행되는거라.. 복사해서

 

붙여넣기가 안돼 불편한점이 있습니다

 

 

일단 저는 기본적인 비주얼베이직6는 마스터했구요.. 응용하는 작업을 아직 못합니다..

 

일단 프로그램에 필요한것은

 

1. 총 X명의 플레이가 게임할것인지 적어 넣는 칸, 적용하는버튼

 

2. X명의 아이디를 복사해 넣을수 있는 칸, 적용하는버튼

 

3. Infomation 커맨드버튼(제작자, 도와주신분 나오는 버튼)

 

4. 결과가 나오는 창(복사가능한 창)

 

5. 대충 만들어질 디자인 예상

 

이정도구요.. 설명이 좀 난해한거 같으니 소스짜시는분께서 감각대로

 

짜주시기 바랍니다.

 

그리고 2번에서 x명의 아이디를 모두 넣어서 처리하면 결과가 나오는 창에

 

누구 vs 누구

누구 vs 누구 이렇게 나오되 랜덤하게 섞여서 나오도록요.. 공평하게

 

*그리고 참고로 실행하면 cmd에서 실행되는 대진표짜는 프로그램 링크할께요(참고)

 

▶링크클릭◀

 

 

후.. 그리고 글 썼었는데 운영자님이 지우셨나요? 지웠다면 왜지우셨는지.. 통보도없이..

내공만 날아갔네요.. 보상해주세요



profile_image 익명 작성일 -

대진표 사닥다리처럼 타고 올라가는거 만들고 싶었지만.. -_-;;;

낼이 시험이랍니다 ...... OTL

링크해주신 프로그램만큼만 만들었습니다.

레이아웃은 보고 따라해주시고요

코드 붙여넣고 실행하시면 됩니다.

인포메이션버튼에 관해서는.......

워낙 간단한 프로그램이므로 -_-;; 저작권따위는 없으니

라벨 하나 붙이고 님 아이디 넣으셔도 됩니다.

아니면 커맨드버튼에 Form?.Show 하셔도 되고요...

(디버깅도 끝냈습니다.)

Option Explicit

Private Sub Command1_Click()
List1.AddItem Trim(Text1)
Text1 = ""
End Sub

Private Sub Command2_Click()
Dim K As Integer
Dim aLine As String
Randomize
Text2 = ""
Do Until List1.ListCount <= 1
     K = Int(Rnd * List1.ListCount)
     aLine = aLine & List1.List(K) & " vs "
     List1.RemoveItem K
     K = Int(Rnd * List1.ListCount)
     aLine = aLine & List1.List(K)
     List1.RemoveItem K
     Text2 = Text2 & aLine & vbCrLf
     aLine = ""
Loop
If List1.ListCount = 1 Then
     Text2 = Text2 & "깍두기 : " & List1.List(0)
     List1.Clear
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
     Command1_Click
     KeyAscii = 0
End If
End Sub

연관된 질문 답변 리스트

비주얼베이직 6으로 개발된 프로그램을...

한글 비주얼베이직 6로 개발된 프로그램이 있습니다. 물론 소스코드도 갖고 있습니다. 이 프로그램의 한글을... 작업 해보신분은 꼭 좀 알려주세요. 벌써 2주째 이러고...

비주얼베이직6 프로그램 실행시...

비주얼베이직6로 만든 프로그램을 윈도우 7 64비트... 알려주세요. 만약에 프로그램 소스에 문제가 있다면... 코드 메시지 3 GoSub가 없는 Return입니다 5 프로시저 호출이...

비주얼 베이직 소스코드 좀 짜주실분

... 그런데 문제는 생활기록부 프로그램 상에서는 seq라는... 비주얼 베이직이나 코딩으로 정렬하는 방법 좀 알려 주세요. 부탁드립니다. 화면 캡쳐해서 올립니다. 빠른...