Jump to content
Leudassdf

Tranferencias jogadores

Recommended Posts

Leudassdf

Boas pessoal!

Estou a fazer um programa de transferencias de jogadores. Basicamente o que ele faz e se nos queremos um jogador entao selecionamos esse jogador e transportamos para a nossa list box. o que acontece e que depois o programa dirá quantos jogadores estao escolhidos e o valor total deles. ja consegui contar os jogadores atraves do items.count, mas agora para contar o valor dos jogadores como faço?

Desde ja agradeço toda a ajuda que me possam facultar

Share this post


Link to post
Share on other sites
ruiribeiro

faz um loop pela listbox... por cada item encontrado, utilizas o value para ir procurar, no sitio onde tens definido o valor de cada jogador (provavelmente na Base de Dados)... vai somando e no fim do loop terás o valor total dos jogadores selecionados...

        For Each item As String In ListBox1.Items
            Debug.Print(item.ToString)
        Next


.NET/T-SQL, JAVA, PHP, Javascript Developer | Business Intelligence | Gestão de Sistemas de Informação Empresariais

Share this post


Link to post
Share on other sites
ribeiro55

Onde é que tens o valor de cada um?


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
Leudassdf

Onde é que tens o valor de cada um?

O valor de cada jogador encontra-se dentro da list box. depois tenho uma label onde quero colocar o preço total dos jogadores.

Share this post


Link to post
Share on other sites
Leudassdf

faz um loop pela listbox... por cada item encontrado, utilizas o value para ir procurar, no sitio onde tens definido o valor de cada jogador (provavelmente na Base de Dados)... vai somando e no fim do loop terás o valor total dos jogadores selecionados...

        For Each item As String In ListBox1.Items
            Debug.Print(item.ToString)
        Next

Desculpa mas nao percebi aquilo que querias dizer.

eu tenho duas list box,numa tenho a lista completa dos jogadores disponiveis. depois tenho 2 buttons para poder transferir os jogadores disponiveis na primeira list, para a list2.

e so depois e que tenho uma label onde devera aparecer o total a pagar pelos jogadores da list2. ou seja ele deve calcular os valores da list2 apenas e introduzi-lo na label

Share this post


Link to post
Share on other sites
ruiribeiro

Se eu percebi bem, tu passas nomes de jogadores de uma listbox para a outra... mas isso são os identificadores deles (nomes)... onde estão guardados os valores de cada um desses jogadores ?


.NET/T-SQL, JAVA, PHP, Javascript Developer | Business Intelligence | Gestão de Sistemas de Informação Empresariais

Share this post


Link to post
Share on other sites
Leudassdf

Se eu percebi bem, tu passas nomes de jogadores de uma listbox para a outra... mas isso são os identificadores deles (nomes)... onde estão guardados os valores de cada um desses jogadores ?

É assim que estao guardados os valores

Case "Defesas"

                LST_Nomejog.Items.Clear()

                LST_Preço.Items.Clear()

                LST_Nomejog.Items.Add("Pique")

                LST_Preço.Items.Add(90000)

                LST_Nomejog.Items.Add("Pepe")

                LST_Preço.Items.Add(70000)

                LST_Nomejog.Items.Add("Rolando")

                LST_Preço.Items.Add(10000)

Share this post


Link to post
Share on other sites
ruiribeiro

Peço desculpa, mas não me parece a melhor forma de fazer o que pretendes...

Vê este exemplo que fiz agora e vê se percebes...

Adiciona 2 ListBox (ListBox1 e ListBox2), 1 Botão (cmdAddJogador) e uma Label (lblTotal) ao Form... e utiliza o seguinte código:

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim ListaJogadores As New ArrayList()
        With ListaJogadores
            .Add(New Jogador("Pique", 90000))
            .Add(New Jogador("Pepe", 70000))
        End With

        ListBox1.DisplayMember = "Nome"
        ListBox1.ValueMember = "Valor"
        ListBox2.DisplayMember = "Nome"
        ListBox2.ValueMember = "Valor"

        Me.ListBox1.DataSource = ListaJogadores

    End Sub

    Private Sub cmdAddJogador_Click(sender As System.Object, e As System.EventArgs) Handles cmdAddJogador.Click
        Me.ListBox2.Items.Add(Me.ListBox1.SelectedItem)
        Totalizar()
    End Sub

    Private Sub Totalizar()
        Dim total As Decimal = 0
        For Each item As Jogador In Me.ListBox2.Items
            total = total + item.Valor
        Next
        Me.lblTotal.Text = total
    End Sub
End Class


Public Class Jogador

    Private _nome As String
    Public ReadOnly Property Nome As String
        Get
            Return _nome
        End Get
    End Property

    Private _valor As Decimal
    Public ReadOnly Property Valor As Decimal
        Get
            Return _valor
        End Get
    End Property

    Public Sub New(nome As String, valor As Decimal)
        _nome = nome
        _valor = valor
    End Sub

End Class


.NET/T-SQL, JAVA, PHP, Javascript Developer | Business Intelligence | Gestão de Sistemas de Informação Empresariais

Share this post


Link to post
Share on other sites
Leudassdf

Peço desculpa, mas não me parece a melhor forma de fazer o que pretendes...

Vê este exemplo que fiz agora e vê se percebes...

Adiciona 2 ListBox (ListBox1 e ListBox2), 1 Botão (cmdAddJogador) e uma Label (lblTotal) ao Form... e utiliza o seguinte código:

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim ListaJogadores As New ArrayList()
        With ListaJogadores
            .Add(New Jogador("Pique", 90000))
            .Add(New Jogador("Pepe", 70000))
        End With

        ListBox1.DisplayMember = "Nome"
        ListBox1.ValueMember = "Valor"
        ListBox2.DisplayMember = "Nome"
        ListBox2.ValueMember = "Valor"

        Me.ListBox1.DataSource = ListaJogadores

    End Sub

    Private Sub cmdAddJogador_Click(sender As System.Object, e As System.EventArgs) Handles cmdAddJogador.Click
        Me.ListBox2.Items.Add(Me.ListBox1.SelectedItem)
        Totalizar()
    End Sub

    Private Sub Totalizar()
        Dim total As Decimal = 0
        For Each item As Jogador In Me.ListBox2.Items
            total = total + item.Valor
        Next
        Me.lblTotal.Text = total
    End Sub
End Class


Public Class Jogador

    Private _nome As String
    Public ReadOnly Property Nome As String
        Get
            Return _nome
        End Get
    End Property

    Private _valor As Decimal
    Public ReadOnly Property Valor As Decimal
        Get
            Return _valor
        End Get
    End Property

    Public Sub New(nome As String, valor As Decimal)
        _nome = nome
        _valor = valor
    End Sub

End Class

Muito obrigado por expor o seu raciocinio.

e bastante gratificante poder desenvolver novos conhecimentos e tecnicas que ainda nao foram exploradas.

Gostaria so de perfuntar o que e e a funçao Dim e a With

Share this post


Link to post
Share on other sites
ruiribeiro

http://msdn.microsoft.com/en-us/library/7ee5a7s1(v=vs.80).aspx

http://msdn.microsoft.com/en-us/library/wc500chb(v=vs.80).aspx

Sugiro que percas (ou ganhes) uma semana da tua vida a ler um livro\tutorial de VB para adquirires as bases e te iniciares na programação... não vale a pena começares a tentar programar aplicações se não souberes para que serve o dim... vais acabar por não conseguir perceber as coisas e desanimar...

http://www.portugal-a-programar.pt/index.php?showtopic=22091


.NET/T-SQL, JAVA, PHP, Javascript Developer | Business Intelligence | Gestão de Sistemas de Informação Empresariais

Share this post


Link to post
Share on other sites
Leudassdf

http://msdn.microsoft.com/en-us/library/7ee5a7s1(v=vs.80).aspx

http://msdn.microsoft.com/en-us/library/wc500chb(v=vs.80).aspx

Sugiro que percas (ou ganhes) uma semana da tua vida a ler um livro\tutorial de VB para adquirires as bases e te iniciares na programação... não vale a pena começares a tentar programar aplicações se não souberes para que serve o dim... vais acabar por não conseguir perceber as coisas e desanimar...

http://www.portugal-a-programar.pt/index.php?showtopic=22091

obrigada pela dica. desanimar nao posso porque estou a seguir programaçao. onde posso encontar algum livro/tuturial? aqui no site?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.