[Aportes indexados] GM desde el Codigo

Estado
Cerrado para nuevas respuestas.

Tavo

[color=#BF0000]Lucha por tus ideales![/color]
[SERVIDOR]GM desde el Codigo

La anterior version contenia algunos errores asi que decidi rescribirla.
Mas que nada, utilizamos las funciones Es*. Mas que nada, en cada una hay un If, y tienen que poner el nombre (en mayuscula) y despues le Then que devuelva True.
El codigo en si es este:


[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #808080;">'[Tavo] 29-09-06</span></li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsAdmin<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"PEPE"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    EsAdmin = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1">    EsAdmin = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Function</span> EsDios<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"PEPA"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    EsDios = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1">    EsDios = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsSemiDios<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"TAVO"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    EsSemiDios = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2">    EsSemiDios = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> EsConsejero<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"YO"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    EsConsejero = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1">    EsConsejero = <span style="color: #b1b100;">False</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Function</span> EsRolesMaster<span style="color: #66cc66;">(</span>ByVal <span style="color: #b1b100;">name</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">name</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"TU"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    EsRolesMaster = <span style="color: #b1b100;">True</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1">    EsRolesMaster = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="" class="li2"><span style="color: #808080;">'[/Tavo]</span></li></ol></div>[/vb]


NOTA: Marque el codigo en Cyan para que sea mas visible.

Saludos!
 
A

Anonymous

Invitado
Re: [SERVIDOR]GM desde el Codigo

donde se pone el code este de hacer gm donde y k parte¿?
 

Gendreuf

Destructor Lvl 2
Re: [SERVIDOR]GM desde el Codigo

¿Como vas a revivirrrr asiiiiiiiiiiiiiiiiiiiiiiiiii.?

Busca EsDios con el vb y te vas a dar cuenta :D.
 

^[GS]^

GS-Zone Admin
Miembro del equipo
Administrador
Moderador
Re: [SERVIDOR]GM desde el Codigo

CIERRO el desacato este.
Señor invitado, podría registrarse y enviarle MP preguntándole sobre el código a Tavo directamente y no revivir un Thread de septiembre.
 
Estado
Cerrado para nuevas respuestas.
Arriba