ÍndiceCalendarioIndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado

Ninguno

La mayor cantidad de usuarios en línea fue 16 el Miér Ago 07, 2013 8:12 pm.
Mejores posteadores
Rango
 
Habauc
 
Trogclodita
 
WhoTeR
 
Tomm-
 
ZankuR
 
GM-PekeMixz
 
LuciMoyo
 
MwM
 
Diclut s2 Lalaa♥
 
Estadísticas
Tenemos 97 miembros registrados.
El último usuario registrado es PekeMixzGamer1

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

Comparte | 
 

 Sistema de votos

Ir abajo 
AutorMensaje
GM-PekeMixz
Capitan Primero
Capitan Primero
avatar

Cantidad de envíos : 81
Fecha de inscripción : 24/07/2013
Edad : 20
Localización : Boulogne

MensajeTema: Sistema de votos   Miér Jul 24, 2013 5:06 pm

Hola, acá les dejo mi trabajo para que puedan hacer de él lo que desee Razz 

CLIENTE:

Crean un nuevo formulario con el nombre "frmEncuesta", luego copian la consola del "frmMain" y la pegan en el formulario que hicieron Razz.

Buscan:
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:
Código:
Option Explicit


Debajo:
Código:
Public HayVotacion As Boolean ' By Larper.-


Debajo de toda la lista de "DIM's":
Spoiler:
Código:
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


Supongo que con eso está :S.

Espero que esté completo, si puede, alguien que lo implemente en alguno de sus AO's si les sirvió :S.
Volver arriba Ir abajo
Ver perfil de usuario https://www.facebook.com/CiudadesPerdidasAo
LuciMoyo
Capitan
avatar

Cantidad de envíos : 61
Fecha de inscripción : 19/07/2013
Edad : 18
Localización : de por Hay donde nadie sabe

MensajeTema: Re: Sistema de votos   Sáb Jul 27, 2013 9:37 am

lindo aporte me sirvio
Volver arriba Ir abajo
Ver perfil de usuario https://www.facebook.com/luciano.e.moyano
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
avatar

Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 28
Localización : CAO Staff

MensajeTema: Re: Sistema de votos   Sáb Jul 27, 2013 2:52 pm

Ahí está mal, si siguen los pasos que hizo el, cualquier usuario haría SPAM...
Volver arriba Ir abajo
Ver perfil de usuario
Habauc
Director de Tropas
Director de Tropas
avatar

Cantidad de envíos : 146
Fecha de inscripción : 26/07/2013
Edad : 21
Localización : Devoto

MensajeTema: Re: Sistema de votos   Sáb Jul 27, 2013 3:11 pm

Jjaajaj Lucimoyo dice Lindo Aporte me sirvio

Diclut tiene razón con lo que el esta haciendo hacen Spam.

Nose como te puede servir eso

Pero Igual muchas gracias por traerlo a la comunidad.
Volver arriba Ir abajo
Ver perfil de usuario
Diclut s2 Lalaa♥
Pre-Avanzado
Pre-Avanzado
avatar

Cantidad de envíos : 44
Fecha de inscripción : 24/07/2013
Edad : 28
Localización : CAO Staff

MensajeTema: Re: Sistema de votos   Sáb Jul 27, 2013 3:29 pm

Ademas de esto, leí y dice Larper.

FUENTE WHERE ARE YOU!!!!!!!!!!!!!!!!!!!
Volver arriba Ir abajo
Ver perfil de usuario
Tomm-
Director
Director
avatar

Cantidad de envíos : 113
Fecha de inscripción : 27/07/2013

MensajeTema: Re: Sistema de votos   Sáb Jul 27, 2013 3:39 pm

Si vas a hacer "copy and paste" modificalo un poco, lo único que hiciste fue copiar y pegar, aun quesea los hubieras puesto en
Código:
pero lo mandaste así nomas, estoy no se puede ni agradecer ._.

Suerte para la próxima...
Volver arriba Ir abajo
Ver perfil de usuario
Contenido patrocinado




MensajeTema: Re: Sistema de votos   

Volver arriba Ir abajo
 
Sistema de votos
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Silhouette Core - Sistema de rol con d6
» Votos secretos
» Sobre la educación moderna & Sistema educativo español
» Filosofía de la Política: El Sistema Político Ideal
» Nuevo sistema de crianza

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: