수다닷컴

안녕하세요 비주얼베이직 초급반을 배우고 있는 학생입니다
제가 비주얼베이직 프로그램으로 야구게임을 만들어 오는것이 숙제인데요 저한테 너무 어려워서 코딩을 부탁드립니다
textbox1에 숫자3자리를쓰고 게임시작을 누르면 textbox2에는 숫자3개가 적히면서 동시에visible이 false로 바뀌고
예를들어 만약 textbox2의 답이 123이였을때 textbox1에 321을 적으면 listbox1에 적은수(123) 0스트라이크 3볼 0아웃이 적히고 213이 되면 1스트라이크 2볼이 되는식으로 하고 한번 틀릴때마다 textbox3의 몫숨이 1개씩 사라지면서 0이되면 msg박스로 게임종료 라고 뜨게하고싶네요...
초보를 도와주세요 ㅠㅠ

Dim i As Integer
Dim j As Integer
Dim tmpSt As Integer
Dim tmpBa As Integer
Dim tmpRes As String
tmpSt = 0 '초기값 스트라이크
tmpBa = 0 '초기값 볼
For i = 0 To 2
For j = 0 To 2
If i = j Then
'자리수가 맞다
If lblCom(i).Caption = txtAns(j).Text Then
'맞는게 있다 스트라이크
tmpSt = tmpSt + 1
End If
Else
'자리수가 안맞다
If lblCom(i).Caption = txtAns(j).Text Then
'맞는게 있다 볼
tmpBa = tmpBa + 1
End If
End If
Next j
Next i
If tmpSt 0 Then
'스트라이크가 있다
tmpRes = tmpSt & S
End If
If tmpBa 0 Then
'볼이 있다
tmpRes = tmpRes & tmpBa & B
End If
List1.AddItem tmpRes '리스트박스에 뿌린다.
End Sub
Private Sub Form_Load()
lblCom(0).Caption = 1
lblCom(1).Caption = 2
lblCom(2).Caption = 3

이게 제가 다른 소스 비교해보면서 해봣던 것인데 이소스처럼 비스무리하게 도와주세요

신청하기