Zhereital
[Usuario De Mundo Argentum]
![[Usuario De Mundo Argentum]](https://2img.net/i/itest/ranks/default/default1.gif "[Usuario De Mundo Argentum]")
Mensajes : 83
Temas : 69
Fecha de inscripción : 21/06/2013
 |  Tema: Sistema de torneo + sum atraves de frm  Dom Jun 23, 2013 5:07 pm | |
| Comenzamos:Servidor:Buscan en el Modulo TCP, en el Handle_Data:If UCase$(rData) = "LISTUSU" Then
If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub
tStr = "LISTUSU"
For LoopC = 1 To LastUser
If (UserList(LoopC).name <> "") And UserList(LoopC).flags.Privilegios = PlayerType.User Then
tStr = tStr & UserList(LoopC).name & ","
End If
Next LoopC
If Len(tStr) > 7 Then
tStr = Left$(tStr, Len(tStr) - 1)
End If
Call SendData(SendTarget.ToIndex, UserIndex, 0, tStr)
Exit Sub
End If |
Debajo, antes de End Select: - Código:
-
If UCase$(rData) = "/COMBI1" Then[color=#00ff00][/color]
If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub[color=#00ff00][/color]
tStr = "/COMBI1"[color=#00ff00][/color]
For LoopCC = 1 To LastUser[color=#00ff00][/color]
If (UserList(LoopCC).name <> "") And UserList(LoopCC).flags.Privilegios = PlayerType.User Then[color=#00ff00][/color]
tStr = tStr & UserList(LoopCC).name & ","[color=#00ff00][/color]
End If[color=#00ff00][/color]
Next LoopCC[color=#00ff00][/color]
If Len(tStr) > 7 Then[color=#00ff00][/color]
tStr = Left$(tStr, Len(tStr) - 1)[color=#00ff00][/color]
End If[color=#00ff00][/color]
Call SendData(SendTarget.ToIndex, UserIndex, 0, tStr)[color=#00ff00][/color]
Exit Sub[color=#00ff00][/color]
End If En ese mismo Handle, buscan arriba: - Código:
-
Dim LoopC As Integer Debajo: - Código:
-
Dim LoopCC as Integer Cliente:Buscan:Case "LISTUSU"
Rdata = Right$(Rdata, Len(Rdata) - 7)
T = Split(Rdata, ",")
If frmPanelGm.Visible Then
frmPanelGm.cboListaUsus.Clear
For I = LBound(T) To UBound(T)
'frmPanelGm.cboListaUsus.AddItem IIf(Left(t(i), 1) = " ", Right(t(i), Len(t(i)) - 1), t(i))
frmPanelGm.cboListaUsus.AddItem T(I)
Next I
If frmPanelGm.cboListaUsus.ListCount > 0 Then frmPanelGm.cboListaUsus.listIndex = 0
End If
Exit Sub |
Debajo de eso: - Código:
-
Case "/COMBI1"[color=#00ff00][/color]
Rdata = Right$(Rdata, Len(Rdata) - 7)[color=#00ff00][/color]
T1 = Split(Rdata, ",")[color=#00ff00][/color]
If frmTorneo.Visible Then[color=#00ff00][/color]
frmTorneo.Combo1.Clear[color=#00ff00][/color]
frmTorneo.Combo2.Clear[color=#00ff00][/color]
For I1 = LBound(T1) To UBound(T1)[color=#00ff00][/color]
'frmTorneo.cboListaUsus.AddItem IIf(Left(t(i1), 1) = " ", Right(t(i), Len(t(i)) - 1), t(i))[color=#00ff00][/color]
frmTorneo.Combo1.AddItem T1(I1)[color=#00ff00][/color]
frmTorneo.Combo2.AddItem T1(I1)[color=#00ff00][/color]
Next I1[color=#00ff00][/color]
If frmTorneo.Combo1.ListCount > 0 Then frmTorneo.Combo1.listIndex = 0[color=#00ff00][/color]
If frmTorneo.Combo2.ListCount > 0 Then frmTorneo.Combo2.listIndex = 0[color=#00ff00][/color]
End If[color=#00ff00][/color]
Exit Sub Ahora, en el modulo en que se encuentran, en el HandleData, buscan: - Código:
-
Dim T() As String Debajo: - Código:
-
Dim T1() As String Ahora, buscan: - Código:
-
ElseIf UCase$(stxtbuffer) = "/HACERTORNEO" Then[color=#00ff00][/color]
frmConsolaTorneo.Show vbModeless, Me[color=#00ff00][/color]
stxtbuffer = ""[color=#00ff00][/color]
SendTxt.Text = ""[color=#00ff00][/color]
KeyCode = 0[color=#00ff00][/color]
SendTxt.Visible = False[color=#00ff00][/color]
Exit Sub Debajo: - Código:
-
ElseIf UCase$(stxtbuffer) = "/PELEA1" Then[color=#00ff00][/color]
frmTorneo.Show vbModeless, Me[color=#00ff00][/color]
stxtbuffer = ""[color=#00ff00][/color]
SendTxt.Text = ""[color=#00ff00][/color]
KeyCode = 0[color=#00ff00][/color]
SendTxt.Visible = False[color=#00ff00][/color]
frmTorneo.Combo3.Visible = False[color=#00ff00][/color]
frmTorneo.Combo4.Visible = False[color=#00ff00][/color]
frmTorneo.Combo5.Visible = False[color=#00ff00][/color]
frmTorneo.Combo6.Visible = False[color=#00ff00][/color]
frmTorneo.Combo7.Visible = False[color=#00ff00][/color]
frmTorneo.Combo8.Visible = False[color=#00ff00][/color]
User1Punto1 = True[color=#00ff00][/color]
Exit Sub Ahora, crean 1 nuevo formulario con el nombre "frmTorneo", le hacen doble click y dentro colocan: - Código:
-
Private Sub Command1_Click()[color=#00ff00][/color]
If User1Punto1 = True Then[color=#00ff00][/color]
Call SendData("/PELEA1 " & Combo1 & "@" & Combo2)[color=#00ff00][/color]
End If[color=#00ff00][/color]
End Sub[color=#00ff00][/color]
[color=#00ff00][/color]
Private Sub Command2_Click()[color=#00ff00][/color]
Call SendData("/ARENA1")[color=#00ff00][/color]
End Sub[color=#00ff00][/color]
[color=#00ff00][/color]
Private Sub Command3_Click()[color=#00ff00][/color]
Call SendData("/ARENA4")[color=#00ff00][/color]
End Sub[color=#00ff00][/color]
[color=#00ff00][/color]
Private Sub Command4_Click()[color=#00ff00][/color]
Call SendData("/ARENA3")[color=#00ff00][/color]
End Sub[color=#00ff00][/color]
[color=#00ff00][/color]
Private Sub Command5_Click()[color=#00ff00][/color]
Call SendData("/ARENA2")[color=#00ff00][/color]
End Sub[color=#00ff00][/color]
[color=#00ff00][/color]
Private Sub Form_Load()[color=#00ff00][/color]
Call SendData("/COMBI1")[color=#00ff00][/color]
End Sub El formulario debe tener este estilo. Y con el comando "/PELEA1" se abre, colocan los nombres y listo  .Ojo, no tienen que poner /PELEA1(ESPACIO) porque sino no se los computa, solamente sin el espacio:-/PELEA1. |
|
Axters
[Administrador Del Foro]
![[Administrador Del Foro]](https://2img.net/i/itest/ranks/default/default6.gif "[Administrador Del Foro]")
Mensajes : 197
Temas : 46
Fecha de inscripción : 16/06/2013
| | Tema: Re: Sistema de torneo + sum atraves de frm Dom Jun 23, 2013 6:20 pm | |
| Lindo aporte che , gracias por aportarlo. |
|
RetrxM
[Administrador Del Foro]
Mensajes : 196
Temas : 47
Fecha de inscripción : 18/06/2013
| | Tema: Re: Sistema de torneo + sum atraves de frm Dom Jun 23, 2013 7:07 pm | |
| Ya veo si lo pongo en mi ao
Fuente? para que mod? |
|
Invitado
Invitado
| | Tema: Re: Sistema de torneo + sum atraves de frm Dom Jun 23, 2013 8:03 pm | |
| Lindo aporte y gracias x aportarlo.
Eso lo puso larper en GS-ZONE
Deja creditos x lo menos. |
|
TerreZa
[Usuario De Mundo Argentum]
Mensajes : 87
Temas : 32
Fecha de inscripción : 19/06/2013
| | Tema: Re: Sistema de torneo + sum atraves de frm Miér Jun 26, 2013 2:52 pm | |
| Lindo aporte
PD: Deja fuente de quien lo creo (no pongas la pagina) |
|
Invitado
Invitado
| | Tema: Re: Sistema de torneo + sum atraves de frm Vie Jun 28, 2013 12:37 am | |
| - TerreZa escribió:
- Lindo aporte
PD: Deja fuente de quien lo creo (no pongas la pagina) Fuente Es Gs-Zone no leiste mi post? |
|
Contenido patrocinado
| | Tema: Re: Sistema de torneo + sum atraves de frm | |
| |
|
