MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[ALL]Foto da classe no frmMirage

+17
nicholas
Coyotte
Lucas Roberto
gtalux
Power Game
SkyZero
esmilofay
MarcosVinicius158
Freitas
guuh
snool
Heavy
alexandre
RafaelS.~
St4rk
Cris~
Gu1lh3rm3
21 participantes

Página 1 de 3 1, 2, 3  Seguinte

Ir para baixo

[ALL]Foto da classe no frmMirage Empty [ALL]Foto da classe no frmMirage

Mensagem por Gu1lh3rm3 Sáb 24 Jul 2010, 00:24

vamos la ...
crie uma pasta na GFX e nomei-e ela de Trans , depois disso você vai adiciona quantas pastas você presisar dentro dela eu coloquei apenas 3
goku ... vegeta ... gohan ...
intao você coloca sua foto la dentro 1 né ...
com o nome de normal ... tente deixa-la como .JPG ...
intao agora vamos para os codigos.

vai na frmMirage faça uma "ImagenBox" não "PictureBox" do tamanho que seja suas imagen ...
nomeia essa ImagenBox para

Código:
picTransNormal

agora proucure por

Código:
If Parse(0) = "itembreak" Then
        ItemDur(Val(Parse(1))).Item = Val(Parse(2))
        ItemDur(Val(Parse(1))).Dur = Val(Parse(3))
        ItemDur(Val(Parse(1))).done = 1
        Exit Sub
    End If

a baixo do "END IF" nao do "End Sub"
coloque ...

Código:
' :::::::::::::::::::::::
    ' :: Class Pic request ::
    ' :::::::::::::::::::::::
    If Parse(0) = "classpic" Then
        If GetPlayerClass(MyIndex) = 1 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Goku\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Vegeta\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Gohan\normal.jpg")
        End If
    End If

certo client terminamos ...
vamos para server agr ...

no final da modServerTCP adicione

Código:
Sub SendClassPicRequest(ByVal Index As Long)
    Dim Packet As String

    Packet = "CLASSPIC" & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

e para terminar o tutorial
proucure por

Código:
' Send the flag so they know they can start doing stuff
    Call SendDataTo(Index, "INGAME" & SEP_CHAR & END_CHAR)

a baixo adicione ...

Código:
'Send pictures of classes
    Call SendClassPicRequest(Index)

Fim~
Testado E Funciona!
Código:
Creditos: Gu1lhe3rm3
Lenon
MMORPGBR


Última edição por Gu1lh3rm3 em Sáb 24 Jul 2010, 22:47, editado 1 vez(es)
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Cris~ Sáb 24 Jul 2010, 00:25

Uso e Aprovo + 1 De Cred ^^
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Gu1lh3rm3 Sáb 24 Jul 2010, 00:29

vlw ^^
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por St4rk Sáb 24 Jul 2010, 08:48

Creditos: Gu1lhe3rm3 e MMORPG BRASIL

Coloque os Créditos do João que foi ele que fez, eu sei Wink nem tenta por os seus :*.
St4rk
St4rk
Membro de Honra
Membro de Honra

Mensagens : 2251

http://mylittledev.wordpress.com

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Gu1lh3rm3 Sáb 24 Jul 2010, 14:41

o dele tah incompleto ... eu fiz outro jeito ... para quem quiser por com as trans por foto ...
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por RafaelS.~ Sáb 24 Jul 2010, 17:22

Créditos são do Lenon...

ele ainda tentou mudar parte do code.
Código:
' :::::::::::::::::::::::
    ' :: Class Pic request ::
    ' :::::::::::::::::::::::
    If Parse(0) = "classpic" Then
        If GetPlayerClass(MyIndex) = 1 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Goku\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Vegeta\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Gohan\normal.jpg")
        End If
    End If

e ainda deixou errada...

Enfim, Créditos somente do Lenon.
RafaelS.~
RafaelS.~
Novato
Novato

Mensagens : 48

http://rafaelsoares.rg3.net/

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Cris~ Sáb 24 Jul 2010, 17:30

RafaelS.~ escreveu:Créditos são do Lenon...

ele ainda tentou mudar parte do code.
Código:
' :::::::::::::::::::::::
    ' :: Class Pic request ::
    ' :::::::::::::::::::::::
    If Parse(0) = "classpic" Then
        If GetPlayerClass(MyIndex) = 1 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Goku\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Vegeta\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            frmMirage.picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Gohan\normal.jpg")
        End If
    End If

e ainda deixou errada...

Enfim, Créditos somente do Lenon.

quem fez isso mesmo foi o lenon ^^
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Gu1lh3rm3 Sáb 24 Jul 2010, 22:46

vou apenas editar ... pq eu peguei esse codigo da trans por foto ... e apenas modifiquei ...
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por St4rk Dom 25 Jul 2010, 08:33

Porra veio, eu vou termina deletando esse topico, vou falar de quem são os créditos:


Lenon e João(que também posto e deu a ideia)

Então por favor coloque os créditos certos!.
St4rk
St4rk
Membro de Honra
Membro de Honra

Mensagens : 2251

http://mylittledev.wordpress.com

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por alexandre Sáb 18 Set 2010, 22:22

[size=18]Mais como eu acho esses CÓDIGO: eu não concigo Smile
alexandre
alexandre
Membro
Membro

Mensagens : 121

http://www.dbz-sayajins.webnode.pt

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Heavy Dom 19 Set 2010, 00:29

fomos eu e o lenon que fizemos esse, ele fez com uns erros e eu concertei ;x
Heavy
Heavy
Membro
Membro

Mensagens : 121

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Convidad Dom 19 Set 2010, 00:35

UMA PESSOA IGUAL A MIM^^^ROZIN=D

dESIGNER=D
avatar
Convidad
Convidado


Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Heavy Dom 19 Set 2010, 00:42

eu tenho o orgulho de falar q fui/sou o primeiro designer daqui Very Happy
Heavy
Heavy
Membro
Membro

Mensagens : 121

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por snool Qui 23 Set 2010, 12:28

Código:
' Send the flag so they know they can start doing stuff
    Call SendDataTo(Index, "INGAME" & SEP_CHAR & END_CHAR)

Aonde ainda na modClientTCP ?
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Cris~ Qui 23 Set 2010, 12:52

é na ModGameLogic procure la por :
Código:
    ' Mandar a flag, assim vão poder fazer algo
    Call SendDataTo(Index, "INGAME" & END_CHAR)
Cris~
Cris~
Membro Veterano
Membro Veterano

Mensagens : 1574

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por snool Qui 23 Set 2010, 12:53

Ae cara num achei !
snool
snool
Membro Sênior
Membro Sênior

Mensagens : 351

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por guuh Qui 23 Set 2010, 13:47

aki deu bom tuto
guuh
guuh
Membro Veterano
Membro Veterano

Mensagens : 1187

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Heavy Sex 24 Set 2010, 22:28

cara, quando vai colcar os creditos certos? .-.
Heavy
Heavy
Membro
Membro

Mensagens : 121

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por guuh Sáb 25 Set 2010, 13:48

creditos a quem
guuh
guuh
Membro Veterano
Membro Veterano

Mensagens : 1187

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Heavy Sáb 25 Set 2010, 21:44

a mim horas, o lenon n queria postar o sistema completasso do dbz dele na epoca, e me passo um bem incompleto, eu completei e concertei algumas coisas, mesmo que ele tenha dito que modifico, coloca quem fez o original que você usou pra modificar horas ¬¬

eu fiz/ajudei em poucos sistemas e ainda tiram meus creditos, assim ate desamino em aprender a programar D:
Heavy
Heavy
Membro
Membro

Mensagens : 121

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Freitas Seg 04 Out 2010, 09:46

guilherme sempre mentindo Laughing
Freitas
Freitas
Membro Vitalicio
Membro Vitalicio

Mensagens : 676

http://dragonball.6te.net

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por MarcosVinicius158 Seg 04 Out 2010, 11:11

Ele So Modificou Um Pouco Pareçido Com o Tuto Trans Por Foto xD!
Mas Ta Legal!
MarcosVinicius158
MarcosVinicius158
Membro
Membro

Mensagens : 132

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Gu1lh3rm3 Dom 10 Out 2010, 02:20

pow veio ... parece que se você faz o sistema e esses sistema jah existe o tutorial é do cara que crio 1º ... --' ... foi como eu disse .. peguei do tuto da trans por foto do lenon e apenas modifiquei para que fique compactivel com a trans por foto ai podera usar os 2 juntos --' ... eu to colocano os creditos certos ...
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por esmilofay Sáb 18 Dez 2010, 14:19

no eclipse 2.7 nao pega ! ja testei
esmilofay
esmilofay
Novato
Novato

Mensagens : 37

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por SkyZero Sáb 18 Dez 2010, 14:36

é só fazer assim
abre a form mirage , e aonde procure a sub load nela adicione :
Código:
If GetPlayerClass(MyIndex) = 1 Then
          picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Goku\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Vegeta\normal.jpg")
        ElseIf GetPlayerClass(MyIndex) = 2 Then
            picTransNormal.Picture = LoadPicture(App.Path & "\GFX\Trans\Gohan\normal.jpg")
        End If
    End If
picTransNormal = Nome da pic .
\GFX\Trans\Gohan\normal.jpg
GFX = pasta
Trans= Pasta dentro da GFX
Gohan = Pasta Dentro da Pasta Trans dentro da GFX
normal.jpg = Nome da foto dentro da pasta gohan que está dentro da pasta trans que está dentro da pasta GFX .


Simples pega em todas as Engine .
SkyZero
SkyZero
Membro Veterano
Membro Veterano

Mensagens : 890

Ir para o topo Ir para baixo

[ALL]Foto da classe no frmMirage Empty Re: [ALL]Foto da classe no frmMirage

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Página 1 de 3 1, 2, 3  Seguinte

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos