bom.. o título do tópico não sei se é o melhor pro q eu quero, mas não pensei em algo melhor
bom, o q eu quero fazer é o seguinte:
tem 2 usuarios conectados atraves do winsock.. ai quando um clica num botão aparece um numero aleatorio de 1 a 20 pra ele.. ai quando os 2 apertam o botão, o programa confere qual é o maior e fala pro usuario q ganhou q ele ganhou e pro q perdeu q ele perdeu... mas o script q eu fiz não ta funcionando não ... na verdade eu não tinha a mínima ideia de como fazer isso, então eu sai tentando e acabo saindo isso ai:
botão para gerar o numero e enviar:
Private Sub Command1_Click()
Dim a As Integer
Randomize
D1 = Int(Rnd() * 20) + 1
Text1.Text = Text1.Text + vbCrLf + USER + " - Tirou " & D1 & " de iniciativa"
PRONTO = True
Command1.Visible = False
For u = 1 To iUsers
If Winsock(u).State = 7 Then
Winsock(u).SendData D1
Winsock(u).SendData USER + " - Tirou " & D1 & " de iniciativa"
End If
Next u
End Sub
botão pra receber:
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim STR As String
Winsock.GetData STR, vbString, bytesTotal
If (STR > 0) Then
If (PRONTO = False) Then
D2 = STR
Command1.Enabled = True
PRONTO = True
End If
Else
Text1.Text = Text1.Text + vbCrLf & STR
End If
If (STR = "perdeu") Then
RL = True
Text1.Text = Text1.Text + vbCrLf + USER + " - Rodada Livre"
comum.Enabled = True
End If
If (D2 > D1) Then
Text1.Text = Text1.Text + vbCrLf + USER + " - Rodada Livre"
For u = 1 To iUsers
If Winsock.State = 7 Then
Winsock.SendData USER + " - Rodada Livre"
End If
Next u
RL = True
End If
If (D2 < D1) Then
For u = 1 To iUsers
If Winsock.State = 7 Then
Winsock.SendData "perdeu"
End If
Next u
RL = False
End If
End Sub
são 2 forms, um abre o ip, e o outro conecta... esse codigo acima é de quem abre o ip pra outra pessoa conectar, mas o codigo de quem conecta é quase igual e não faz mt diferença eu posta aqui não...
bom, se alguém entender meu problema, me de uma luz plz
Pergunta
Lucas Phillip
bom.. o título do tópico não sei se é o melhor pro q eu quero, mas não pensei em algo melhor
bom, o q eu quero fazer é o seguinte:
tem 2 usuarios conectados atraves do winsock.. ai quando um clica num botão aparece um numero aleatorio de 1 a 20 pra ele.. ai quando os 2 apertam o botão, o programa confere qual é o maior e fala pro usuario q ganhou q ele ganhou e pro q perdeu q ele perdeu... mas o script q eu fiz não ta funcionando não
... na verdade eu não tinha a mínima ideia de como fazer isso, então eu sai tentando e acabo saindo isso ai:
botão para gerar o numero e enviar:
botão pra receber:são 2 forms, um abre o ip, e o outro conecta... esse codigo acima é de quem abre o ip pra outra pessoa conectar, mas o codigo de quem conecta é quase igual e não faz mt diferença eu posta aqui não...
bom, se alguém entender meu problema, me de uma luz plz
vlw
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados