Ordenação De Valores

[Guest Darknnez]

Opa, e aí galera?

O negócio é seguinte:

Estou com uma grande dúvida mais especificamente em lógica de programação e não nescessariamente na linguagem Visual Basic.

Partindo do princípio, o que eu pretendo é construir um jogo do estilo manager, para colocar em prática o meu aprendizado em VB6, nada muito sério.

Mas bati de frente com um problema.

Não consigo ordenar valores.

Por exemplo:

No "jogo" teria um form com aproximadamente 20 Labels.

Cada Label.Caption retornaria um valor diferente definido por variáveis.

Vou tentar ser mais específico.

Seria um jogo manager de F1.

Para gerar a corrida, eu teria que definir qual piloto chegou em qual posição.

As posições são representadas por cada um dos Labels.

Então.... como eu faria?

Por que a única maneira com que eu sei trabalhar, seria a seguinte:

(suponham que são apenas 4 Labels e 4 variáveis, para não dar muito trabalho)

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim d As Integer

Private Sub Command1_Click()

Randomize

a = Int(20 * Rnd) + 1

b = Int(15 * Rnd) + 1

c = Int(10 * Rnd) + 1

d = Int(5 * Rnd) + 1

If (a > B) And (a > c) And (a > d) And (b >c) And (b > d) And (c > d) Then

lbl1.Caption = "valor1"

lbl2.Caption = "valor2"

lbl3.Caption = "valor3"

lbl4.Caption = "valor4"

Endif

E assim vai...

End Sub

Mas agora, imaginem se eu tivesse que fazer isso para cada uma das 20 variáveis que seriam necessárias (lembrando que no exemplo acima eu só usei 4 para facilitar).

Daria um trabalho imenso, certo?

Portanto, eu gostaria de saber se alguém poderia me ensinar aplicar algum algoritmo de ordenação no programa.

Mas que por favor, seja bastante específico de como aplicar, para que eu possa entender.

Espero que possam me ajudar.

Obrigado.

Darknnez

[Darknnez]

ou a gente vai conversando e nem percebe hahaha... mas esse aqui já virou disparado o maior tópico da sala de visual basic!!

e caraio... tudo isso em 1 semana...

Hahahahahahahaha

Tá parecendo chat isso aqui.

Espero que não tenha nenhum problema, por nunca que minha intenção com isso é ganhar posts.

Como eu disse antes, o tópico ta grande assim por que eu vou emendando uma pergunta à outra, em vez de criar vários tópicos.

Senão, já teria uns 20 tópicos meus hahahaha

Ok... eu tive que fazer uma pequena correção nesse código que você me passou:

For i = 0 To UBound(xPiloto)
     For j = 0 To UBound(xEquipe)
          If xEquipe(j).nome = xPiloto(i).Equipe Then
               xEquipe(j).pontuaçao = xPiloto(i).pontos
               Exit For
          End If
     Next
Next

Antes disso, a pontuação da equipe estava sendo somada errada. Tipo, era somada a pontuação total com a pontuação total atual. Por exemplo, quando o Alonso ficava em primeiro, ele ganhava 10 pontos, e na próxima corrida, ele ficava em segundo, ganhando 8 pontos. A pontuação da equipe ficava igual a 28, no final das duas corridas, por que somava 10 (pontuação total após primeira corrida) + 18 (pontuação total após segunda corrida. Mas ainda está dando um problema. Como eu disse, tem que somar a pontuação total dos dois pilotos da equipe. Mas com esse código eu não consegui. Apenas para você ter uma noção, o código está assim: Classificação de Equipe

Option Explicit

Private Sub Command1_Click()
MenuEquipe.Show
Unload Me
End Sub

Private Sub Form_Load()
Dim i As Variant
Dim j As Variant

For i = 0 To UBound(xPiloto)
     For j = 0 To UBound(xEquipe)
          If xEquipe(j).nome = xPiloto(i).Equipe Then
               xEquipe(j).pontuaçao = xPiloto(i).pontos
               Exit For
          End If
     Next
Next

Label1.Caption = xEquipe(0).pontuaçao
End Sub

Module1

Option Explicit
Public xPiloto(21) As piloto
Public xJogador As Jogador
Public xEquipe(10) As Equipe
Public xMotor(10) As Motor
Public m As Integer

Type Jogador
    nome As String
    idade As Variant
    nacionalidade As String
    Equipe As Variant
End Type

Type piloto
    nome As String
    ai As Integer
    pontos As Integer
    chance As Integer
    Equipe As Variant
End Type

Type Equipe
    nome As String
    piloto(1) As Variant
    pontuaçao As Variant
    finanças As Currency
    Motor As Variant
    chassi As Variant
    engenheiro As Variant
End Type

Type Motor
    nome As String
    custo As Currency
    potencia As Variant
End Type
    

Public Function Colocação(ByRef Vetor() As piloto, tam)
     Dim i, j
     Dim min
     Dim aux As piloto

     For i = 0 To tam
          min = i
          For j = i + 1 To tam
               If Vetor(j).ai < Vetor(min).ai Then min = j
          Next j

          aux = Vetor(i)
          Vetor(i) = Vetor(min)
          Vetor(min) = aux
     Next i
End Function

Public Function Classificação(ByRef Vetor() As piloto, tam)
     Dim i, j
     Dim min
     Dim aux As piloto

     For i = 0 To tam
          min = i
          For j = i + 1 To tam
               If Vetor(j).pontos < Vetor(min).pontos Then min = j
          Next j

          aux = Vetor(i)
          Vetor(i) = Vetor(min)
          Vetor(min) = aux
     Next i
End Function

Private Sub Main()

    xMotor(0).nome = "Mercedes"
    xMotor(0).potencia = 95
    xMotor(0).custo = 12000
    xMotor(1).nome = "Ferrari"
    xMotor(1).potencia = 100
    xMotor(1).custo = 15000
    xMotor(2).nome = "Renault"
    xMotor(2).potencia = 85
    xMotor(2).custo = 10000
    xMotor(3).nome = "Honda"
    xMotor(3).potencia = 80
    xMotor(3).custo = 8000
    xMotor(4).nome = "Toyota"
    xMotor(4).potencia = 70
    xMotor(4).custo = 6000
    xMotor(5).nome = "BMW"
    xMotor(5).potencia = 60
    xMotor(5).custo = 4000
    xMotor(6).nome = "Ford"
    xMotor(6).potencia = 45
    xMotor(6).custo = 2000
    xMotor(7).nome = "Supertec"
    xMotor(7).potencia = 30
    xMotor(7).custo = 1000

    xEquipe(0).nome = "McLaren"
    xEquipe(0).finanças = 20000
    xEquipe(0).Motor = xMotor(0).nome
    xEquipe(1).nome = "Ferrari"
    xEquipe(1).finanças = 17000
    xEquipe(1).Motor = xMotor(0).nome
    xEquipe(2).nome = "BMW"
    xEquipe(2).finanças = 15000
    xEquipe(2).Motor = xMotor(0).nome
    xEquipe(3).nome = "Renault"
    xEquipe(3).finanças = 13000
    xEquipe(3).Motor = xMotor(0).nome
    xEquipe(4).nome = "Williams"
    xEquipe(4).finanças = 10000
    xEquipe(4).Motor = xMotor(0).nome
    xEquipe(5).nome = "RedBull"
    xEquipe(5).finanças = 8000
    xEquipe(5).Motor = xMotor(0).nome
    xEquipe(6).nome = "Toyota"
    xEquipe(6).finanças = 6000
    xEquipe(6).Motor = xMotor(0).nome
    xEquipe(7).nome = "Honda"
    xEquipe(7).finanças = 4000
    xEquipe(7).Motor = xMotor(0).nome
    xEquipe(8).nome = "Toro Rosso"
    xEquipe(8).finanças = 3000
    xEquipe(8).Motor = xMotor(0).nome
    xEquipe(9).nome = "Super Aguri"
    xEquipe(9).finanças = 2000
    xEquipe(9).Motor = xMotor(0).nome
    xEquipe(10).nome = "Spyker"
    xEquipe(10).finanças = 1000
    xEquipe(10).Motor = xMotor(0).nome

    xPiloto(0).nome = "Alonso"
    xPiloto(0).chance = 199
    xPiloto(0).Equipe = xEquipe(0).nome
    xPiloto(1).nome = "Hamilton"
    xPiloto(1).chance = 200
    xPiloto(1).Equipe = xEquipe(0).nome
    xPiloto(2).nome = "Massa"
    xPiloto(2).chance = 194
    xPiloto(3).nome = "Raikkonen"
    xPiloto(3).chance = 195
    xPiloto(4).nome = "Heidfield"
    xPiloto(4).chance = 93
    xPiloto(5).nome = "Kubica"
    xPiloto(5).chance = 97
    xPiloto(6).nome = "Fisichella"
    xPiloto(6).chance = 88
    xPiloto(7).nome = "Kovalainen"
    xPiloto(7).chance = 72
    xPiloto(8).nome = "Rosberg"
    xPiloto(8).chance = 75
    xPiloto(9).nome = "Wurz"
    xPiloto(9).chance = 52
    xPiloto(10).nome = "Coulthard"
    xPiloto(10).chance = 70
    xPiloto(11).nome = "Webber"
    xPiloto(11).chance = 72
    xPiloto(12).nome = "Schumacher"
    xPiloto(12).chance = 64
    xPiloto(13).nome = "Trulli"
    xPiloto(13).chance = 55
    xPiloto(14).nome = "Button"
    xPiloto(14).chance = 62
    xPiloto(15).nome = "Barrichello"
    xPiloto(15).chance = 57
    xPiloto(16).nome = "Liuzzi"
    xPiloto(16).chance = 59
    xPiloto(17).nome = "Speed"
    xPiloto(17).chance = 28
    xPiloto(18).nome = "Sato"
    xPiloto(18).chance = 32
    xPiloto(19).nome = "Davidson"
    xPiloto(19).chance = 35
    xPiloto(20).nome = "Sutil"
    xPiloto(20).chance = 30
    xPiloto(21).nome = "Vettel"
    xPiloto(21).chance = 25
     
    MenuInicial.Show
End Sub

Editado Agosto 4, 2007 por Darknnez

[kuroi]

Espero que não tenha nenhum problema, por nunca que minha intenção com isso é ganhar posts.

Como eu disse antes, o tópico ta grande assim por que eu vou emendando uma pergunta à outra, em vez de criar vários tópicos.

Senão, já teria uns 20 tópicos meus hahahaha

nem pega nd não, depois da ordenacao de valores, o tópico não tratou de nenhum assunto especifico, so das suas proprias duvidas pro seu jogo, não tem necessidade de outros topicos. alem de que, tudo junto fica melhor, é td sobre a mesma coisa mesmo...

Mas com esse código eu não consegui.

o que acontece?? ele soma errado ou nem soma??

lembra do negocio do debug que eu falei?? do F8, F9, etc?? poe o breakpoint na linha desse for e va olhando a cada linha o que acontece. veja qual o piloto que ele esta testando, veja se ele encontra a equipe, e veja se ele faz a soma correta, etc.

For i = 0 To UBound(xPiloto)
     For j = 0 To UBound(xEquipe)
          If xEquipe(j).nome = xPiloto(i).Equipe Then
               xEquipe(j).pontuaçao = xPiloto(i).pontos
               Exit For
          End If
     Next
Next[/code]

[Darknnez]

Ele soma corretamente se eu mando somar apenas as pontuações de um piloto.

Se eu mando somar a pontuação dos dois pilotos da equipe, aí o resultado já fica incorreto.

Eu entendi o código, mas não consigo pensar numa maneira de resolver o problema.

Edit:

Mandei o projeto por MP.

Editado Agosto 4, 2007 por Darknnez

[kuroi]

ou ta bem loco o jogo la

ou, foi mal, no for, troque:

xEquipe(j).pontuaçao = xPiloto(i).pontos

por:

xEquipe(j).pontuaçao = xEquipe(j).pontuaçao + xPiloto(i).pontos

agora deve dar

[Darknnez]

Foi mal por que?

Você tinha me passado assim, fui eu que mudei, por que desse jeito da tando mais errado ainda. hahahaha

Desse jeito, acontece da seguinte forma.

Alonso fica em 1° na primeira corrida = 10 pontos

Pontuação da Equipe = 10 pontos.

Alonso fica em 2° na segunda corrida = 10 pontos + 8 pontos = 18 pontos

Pontuação da Equipe = 10 pontos + 18 pontos = 28 pontos.

Deu pra entender?

Soma a pontuação total com a pontuação total atual.

E além desse problema, tem o outro que eu te falei.

Eu não consigo somar a pontuação do Alonso com a pontuação do companheiro de equipe Hamilton.

[kuroi]

a ta você tem duas opcoes então. na hora que você soma o ponto pro jogador, procure também a equipe dele (use o segundo For) ou antes de somar a pontuacao pra equipe, zere o campo (pontuacao) pra todas as equipes com um For.

[Darknnez]

Ok, deu certo.

O que eu quero fazer agora, é mostrar em um outro form, apenas a pontuação que as equipes fizeram na ultima corrida. Ou seja, sem levar em consideração a pontuação que ela já havia ganhando em outras corridas. E claro, lembrando que a pontuação de cada equipe é determinada pela posição final na corrida de seus dois pilotos.

[kuroi]

você pode fazer isso de varios jeitos. pode fazer um array novo e somar a pontuacao mas so a da ultima corrida. ou pode adicionar uma propriedade nova no tipo equipe que guarde a pontuacao so da ultima corrida e ai na hora de somar na pontuacao acumulada, você substitui o novo campo, ect.

[Darknnez]

E como eu faço para que uma propriedade reconheça apenas a pontuação da última corrida?

[kuroi]

exatamente como você faz aqui:

a ta você tem duas opcoes então. na hora que você soma o ponto pro jogador, procure também a equipe dele (use o segundo For) ou antes de somar a pontuacao pra equipe, zere o campo (pontuacao) pra todas as equipes com um For.

so que em vez de você somar os pontos do piloto, some os pontos pela colocacao, como aqui:

xPiloto(19).pontos = xPiloto(19).pontos + 10
     xPiloto(18).pontos = xPiloto(18).pontos + 8
     xPiloto(17).pontos = xPiloto(17).pontos + 6
     xPiloto(16).pontos = xPiloto(16).pontos + 5
     xPiloto(15).pontos = xPiloto(15).pontos + 4
     xPiloto(14).pontos = xPiloto(14).pontos + 3
     xPiloto(13).pontos = xPiloto(13).pontos + 2
     xPiloto(12).pontos = xPiloto(12).pontos + 1[/code]
o equipe do piloto 19 ganha 10 pontos, a do 18 ganha 8 e etc.

[Darknnez]

É... não consegui :huh:

EDIT:

Postei a 16000° resposta da área!

hahahahahaha :lol:

Editado Agosto 5, 2007 por Darknnez

[kuroi]

haha mas você tentou alguma coisa?? como ficou o codigo??

[Darknnez]

Putz, tentei várias coisas.

Eu apaguei o que eu tinha tentado, por que acho que não cheguei nem perto.

O que eu tinha feito era algo parecido com isso, usando um form:

Dim i As Integer
Dim j As Integer

For j = 0 To UBound(xEquipe)
    xEquipe(j).pontuaçao = 0
    xEquipe(j).pontuaçao = xEquipe(j).pontuaçao - xPiloto(i).pontos
Next

For i = 0 To UBound(xPiloto)
    For j = 0 To UBound(xEquipe)
        If xEquipe(j).nome = xPiloto(i).Equipe Then
            xEquipe(j).pontuaçao2 = xPiloto(i).pontos2
            Exit For
        End If
    Next
Next

Sendo que antes eu já havia definido o pontos2 de cada piloto com um valor diferente para cada posição possível.

Pelo menos foi isso que eu entendi que tinha que fazer.

Fiz outras tentativas também, todas fracassadas.

haha

[kuroi]

ue, pra que essa linha??

xEquipe(j).pontuaçao = xEquipe(j).pontuaçao - xPiloto(i).pontos

então, declare uma funcao tipo assim:

Private Sub SomaPontos(i As Integer, pontos As Integer)
    Dim j As Integer

    xPiloto(i).pontos = xPiloto(i).pontos + pontos
    For j = 0 To UBound(xEquipe)
        If xEquipe(j).nome = xPiloto(i).Equipe Then
            xEquipe(j).pontuaçao2 = xEquipe(j).pontuaçao2 + pontos
            Exit For
        End If
    Next
End Sub[/code]


ai substitua esse codigo:
[code]xPiloto(19).pontos = xPiloto(19).pontos + 10
     xPiloto(18).pontos = xPiloto(18).pontos + 8
     xPiloto(17).pontos = xPiloto(17).pontos + 6
     xPiloto(16).pontos = xPiloto(16).pontos + 5
     xPiloto(15).pontos = xPiloto(15).pontos + 4
     xPiloto(14).pontos = xPiloto(14).pontos + 3
     xPiloto(13).pontos = xPiloto(13).pontos + 2
     xPiloto(12).pontos = xPiloto(12).pontos + 1

por:

SomaPontos(19, 10)
SomaPontos(18, 8)
....
....
SomaPontos(12, 1)[/code]
mas não esqueca de zerar a pontuacao2 da equipe antes de comecar a chamar o SomaPontos.

[Darknnez]

Ops! Aquela linha eu copiei pra cá por engano.

Foi de uma das minhas tentativas, e parece que eu esqueci ela lá antes de tentar outras coisas.

Valeu , vou tentar aqui.

EDIT:

Quanto eu tento declarar aparece a mensagem de erro:

"Sub or Function not defined"

Editado Agosto 5, 2007 por Darknnez

[kuroi]

a, você pos no module ne?? troque Private Sub por Public Sub.

[Darknnez]

Agora aparece:

"ByRef argumento type mismatch"

Eu posso estar chamando a função errado?

[kuroi]

sim, os parametros passados, tanto o i como o pontos devem ser do tipo Integer. pra arrumar ou você altera o tipo das variaveis passadas como parametro ou você altera o tipo dos parametros na declaracao da sub, de modo que os tipos batam.

[Darknnez]

Aff... não dá! :P

O que, especificamente, eu devo digitar para chamar a função?

Eu devo declarar a função no module ou no form?

E quando você diz para eu substituir aquele código por SomaPontos(19, 10), aonde exatamente eu devo substituir, no form da corrida mesmo, ou no form aonde aparece a pontuação, e antes ou depois de chamar a função?

Eita!

[kuroi]

Aff... não dá! :P

ta acontecendo algum erro??

O que, especificamente, eu devo digitar para chamar a função?

SomaPontos indice, pontos

exemplo: SomaPontos 19, 10

alias, eu tinha passado com parenteses, mas na verdade tem que ser sem, como no exemplo acima, foi mal.

Eu devo declarar a função no module ou no form?

tanto faz. se for declarar no module, declare como Public.

E quando você diz para eu substituir aquele código por SomaPontos(19, 10), aonde exatamente eu devo substituir, no form da corrida mesmo, ou no form aonde aparece a pontuação, e antes ou depois de chamar a função?

Tem que se exatamente no mesmo lugar onde tava o código antigo. mas não esqueca que é sem parenteses.

[Darknnez]

Acho que tá quase lá.

Mas a pontuação da equipe ainda não ta aparecendo corretamente.

O código ta assim:

No Form da corrida

Private Sub cmdOK_Click()
Dim i As Integer
Dim h As Integer
     Randomize
     
     For h = 0 To 10
        xEquipe(h).pontuaçao2 = 0
     Next
     
     For i = 0 To 19
        xPiloto(i).ai = Int(xPiloto(i).chance * Rnd) + 1
     Next
     
     Colocação xPiloto(), 19
    
     SomaPontos 19, 10
     SomaPontos 18, 8
     SomaPontos 17, 6
     SomaPontos 16, 5
     SomaPontos 15, 4
     SomaPontos 14, 3
     SomaPontos 13, 2
     SomaPontos 12, 1
     
     Timer1.Enabled = True
     
     cmdOK.Enabled = False
     cmdNext.Enabled = True
     
End Sub

No Form da pontuação das equipes na última corrida

Private Sub Form_Load()
    
    ClassificaçãoEquipe xEquipe(), 10

    lbl1.Caption = xEquipe(10).nome & "-" & xEquipe(10).pontuaçao2
    lbl2.Caption = xEquipe(9).nome & "-" & xEquipe(9).pontuaçao2
    lbl3.Caption = xEquipe(8).nome & "-" & xEquipe(8).pontuaçao2
    lbl4.Caption = xEquipe(7).nome & "-" & xEquipe(7).pontuaçao2
    lbl5.Caption = xEquipe(6).nome & "-" & xEquipe(6).pontuaçao2
    lbl6.Caption = xEquipe(5).nome & "-" & xEquipe(5).pontuaçao2
    lbl7.Caption = xEquipe(4).nome & "-" & xEquipe(4).pontuaçao2
    lbl8.Caption = xEquipe(3).nome & "-" & xEquipe(3).pontuaçao2
    lbl9.Caption = xEquipe(2).nome & "-" & xEquipe(2).pontuaçao2
    lbl10.Caption = xEquipe(1).nome & "-" & xEquipe(1).pontuaçao2
    lbl11.Caption = xEquipe(0).nome & "-" & xEquipe(0).pontuaçao2

End Sub

E no Módulo

Public Sub SomaPontos(i As Integer, pontos As Integer)
    Dim j As Integer
    xPiloto(i).pontos = xPiloto(i).pontos + pontos
    For j = 0 To UBound(xEquipe)
        If xEquipe(j).nome = xPiloto(i).Equipe Then
            xEquipe(j).pontuaçao2 = xEquipe(j).pontuaçao2 + pontos
            Exit For
        End If
    Next
End Sub

[kuroi]

como esta aparecendo?? ele soma errado ou nem soma??

tenta isso...

lembra do negocio do debug que eu falei?? do F8, F9, etc?? poe o breakpoint na linha desse for e va olhando a cada linha o que acontece. veja qual o piloto que ele esta testando, veja se ele encontra a equipe, e veja se ele faz a soma correta, etc.

[Darknnez]

Ele soma errado acho.

Na primeira corrida a soma é correta até

Mas a partir da segunda começa a aparecer errado.

Por exemplo: os dois pilotos chegam um em 1° e o outro em 3°, a soma deveria dar 16, mas em vez disso aparece 13, ou outro número qualquer.

Vou tentar aqui, olhar linha por linha.

EDIT:

Olhei aqui as linhas, e não encontrei nada.

Não entendi muito bem a sequência do que ocorre.

[kuroi]

ou da pra me mandar o projeto então pra eu dar uma olhada??

[Darknnez]

Ok, vou te mandar por MP.

E como você vai ver o projeto, queria que visse outro erro que tá acontecendo também.

No form MenuEquipe, era para aparecer o nome das peças de cada equipe, como o motor, o pneu, o combustível, etc.

Aí para isso eu fiz assim.

Defini no Module1, dentro do Private Sub Main

'McLaren
    xEquipe(0).nome = "McLaren"
    xEquipe(0).finanças = 20000
    xEquipe(0).Motor = xMotor(0).nome
    xEquipe(0).Pneu = xPneu(0).nome
    xEquipe(0).Combustível = xCombustível(2).nome
    xEquipe(0).chassi = 100
    'Ferrari
    xEquipe(1).nome = "Ferrari"
    xEquipe(1).finanças = 17000
    xEquipe(1).Motor = xMotor(1).nome
    xEquipe(1).Pneu = xPneu(1).nome
    xEquipe(1).Combustível = xCombustível(1).nome
    xEquipe(1).chassi = 95

    ......................................

    'Spyker
    xEquipe(10).nome = "Spyker"
    xEquipe(10).finanças = 1000
    xEquipe(10).Motor = xMotor(7).nome
    xEquipe(10).Pneu = xPneu(2).nome
    xEquipe(10).Combustível = xCombustível(4).nome
    xEquipe(10).chassi = 30

E no form MenuEquipe, dentro do Form_Load

lblNome.Caption = xJogador.nome
lblIdade.Caption = xJogador.idade
lblNacionalidade.Caption = xJogador.nacionalidade

lblMotor.Caption = xEquipe(m).Motor
lblPneu.Caption = xEquipe(m).Pneu
lblCombustível.Caption = xEquipe(m).Combustível
lblChassi.Caption = xEquipe(m).chassi
lblMecânicos.Caption = xEquipe(m).mecânicos
lblPiloto1.Caption = xEquipe(m).piloto(0)
lblPiloto2.Caption = xEquipe(m).piloto(1)

Sendo que a variável m tem um valor numérico diferente para cada equipe, definido quando o jogador escolhe a equipe com que vai jogar.

Private Sub optMcLaren_Click()
m = 0
End Sub

Private Sub optFerrari_Click()
m = 1
End Sub

Private Sub optRenault_Click()
m = 2
End Sub

......................

Private Sub optSpyker_Click()
m = 10
End Sub

Só que no final das contas, não está aparecendo o nome das peças.

Bem... se puder da uma olhada nisso também.

Valeu!