TerreZa
[Usuario De Mundo Argentum]
![[Usuario De Mundo Argentum]](https://2img.net/i/itest/ranks/default/default1.gif "[Usuario De Mundo Argentum]")
Mensajes : 87
Temas : 32
Fecha de inscripción : 19/06/2013
![[Aporte] Sistema de votación Empty](https://2img.net/i/fa/empty.gif) |  Tema: [Aporte] Sistema de votación ![[Aporte] Sistema de votación Icon_minitime](https://2img.net/i/fa/icon_minitime.gif) Sáb Jun 22, 2013 1:10 pm | |
| Hola hoy les traigo un "Sistema De Votación" Creado por: Larper CLIENTE:
Crean un nuevo formulario con el nombre "frmEncuesta", luego copian la consola del "frmMain" y la pegan en el formulario que hicieron| Código: | Case "||" ' >>>>> Dialogo de Usuarios y NPCs :: ||
Rdata = Right$(Rdata, Len(Rdata) - 2)
Dim iuser As Integer
iuser = Val(ReadField(3, Rdata, 176))
If iuser > 0 Then
Dialogos.CrearDialogo ReadField(2, Rdata, 176), iuser, Val(ReadField(1, Rdata, 176))
Else
If PuedoQuitarFoco Then
AddtoRichTextBox frmMain.RecTxt, ReadField(1, Rdata, 126), Val(ReadField(2, Rdata, 126)), Val(ReadField(3, Rdata, 126)), Val(ReadField(4, Rdata, 126)), Val(ReadField(5, Rdata, 126)), Val(ReadField(6, Rdata, 126))
End If
End If
Exit Sub |
Abajo:
| Código: | Case "|~" ' >>>>> Dialogo de Usuarios y NPCs :: || By Larper.-
Rdata = Right$(Rdata, Len(Rdata) - 2)
iuser = Val(ReadField(3, Rdata, 176))
If iuser > 0 Then
Dialogos.CrearDialogo ReadField(2, Rdata, 176), iuser, Val(ReadField(1, Rdata, 176))
Else
If PuedoQuitarFoco Then 'By Larper.-
AddtoRichTextBox frmEncuesta.RecTxt, ReadField(1, Rdata, 126), Val(ReadField(2, Rdata, 126)), Val(ReadField(3, Rdata, 126)), Val(ReadField(4, Rdata, 126)), Val(ReadField(5, Rdata, 126)), Val(ReadField(6, Rdata, 126))
End If
End If
Exit Sub |
Luego buscan:
| Código: | Case "SEGCVCON"
SeguroCvc = True |
Abajo:
| Código: | Case "ENTRO" 'By Larper.-
frmEncuesta.Show , frmMain |
SERVIDOR:
EN las declaraciones buscan:
Debajo:
| Código: | | Public HayVotacion As Boolean ' By Larper.- |
Debajo de toda la lista de "DIM's":
- Lista De DIM´s:
Dim LoopC As Integer
Dim nPos As WorldPos
Dim tStr As String
Dim tInt As Integer
Dim tLong As Long
Dim tIndex As Integer
Dim tName As String
Dim tMessage As String
Dim AuxInd As Integer
Dim Arg1 As String
Dim Arg2 As String
Dim Arg3 As String
Dim Arg4 As String
Dim Ver As String
Dim encpass As String
Dim Pass As String
Dim mapa As Integer
Dim name As String
Dim ind
Dim N As Integer
Dim wpaux As WorldPos
Dim mifile As Integer
Dim X As Integer
Dim Y As Integer
Dim DummyInt As Integer
Dim T() As String
Dim i As Integer
Debajo:
| Código: | If UCase$(Left$(rData, 7)) = "/VOTAR " Then ' By Larper.-
rData = Right$(rData, Len(rData) - 7)
If HayVotacion = False Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Aún no se ha abierto ninguna votación." & FONTTYPE_INFO)
Exit Sub
End If
UserList(UserIndex).flags.YaVotoo = 1
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Tu voto ya ha sido contavilizado." & FONTTYPE_INFO)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "|~" & UserList(UserIndex).name & "> " & rData & ".~251~244~13~1~0")
End If
Procesado = True 'ver al final del sub |
Luego buscan:
| Código: | | If UCase$(Left$(rData, 6)) = "/RMATA" Then |
Arriba:
| Código: | If UCase$(Left$(rData, 6)) = "/PREG " Then 'By Larper.-
rData = Right$(rData, Len(rData) - 6)
If HayVotacion = True Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya hay una votación." & FONTTYPE_INFO)
Exit Sub
End If
Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & " está realizando una votacion sobre " & rData & ", para dar tu opinion escribe '/VOTAR seguido de tu respuesta.~255~255~255~1~1")
HayVotacion = True
End If
If UCase$(Left$(rData, 5)) = "/RESP" Then 'By Larper.-
rData = Right$(rData, Len(rData) - 5)
Call SendData(SendTarget.ToIndex, UserIndex, 0, "ENTRO")
End If
If UCase$(Left$(rData, 7)) = "/CANCEL" Then 'By Larper.-
rData = Right$(rData, Len(rData) - 7)
If HayVotacion = True Then
HayVotacion = False
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||La votacion actual se ha cerrado." & FONTTYPE_INFO) ' By Larper.-
End If
End If |
|
|
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: [Aporte] Sistema de votación Sáb Jun 22, 2013 1:12 pm | |
| Buen aporte che , yo había echo uno también que estaba mejor pero bueno xD |
|
TerreZa
[Usuario De Mundo Argentum]
Mensajes : 87
Temas : 32
Fecha de inscripción : 19/06/2013
| | Tema: Re: [Aporte] Sistema de votación Dom Jun 23, 2013 12:10 pm | |
| jaja  gracias |
|
RetrxM
[Administrador Del Foro]
Mensajes : 196
Temas : 47
Fecha de inscripción : 18/06/2013
| | Tema: Re: [Aporte] Sistema de votación Dom Jun 23, 2013 12:34 pm | |
| Esta bueno capas que lo use para mi Ao
Buen Aporte |
|
Invitado
Invitado
| | Tema: Re: [Aporte] Sistema de votación Dom Jun 23, 2013 8:03 pm | |
| Buenisimo aporte, me sirvio de mucho y gracias. |
|
TerreZa
[Usuario De Mundo Argentum]
Mensajes : 87
Temas : 32
Fecha de inscripción : 19/06/2013
| | Tema: Re: [Aporte] Sistema de votación Miér Jun 26, 2013 2:52 pm | |
| |
|
Contenido patrocinado
| | Tema: Re: [Aporte] Sistema de votación | |
| |
|
![[Aporte] Sistema de votación Vote_lcap](https://2img.net/i/fa/macinscott/vote_lcap.gif){kind=small}
![[Aporte] Sistema de votación Voting_bar](https://2img.net/i/fa/macinscott/voting_bar.gif){kind=small}
![[Aporte] Sistema de votación Vote_rcap](https://2img.net/i/fa/macinscott/vote_rcap.gif){kind=small}