O MAIOR...

USUARIO.EXCLUIDOS 22/12/2006 22:15:46
#191915
Primeramente gostaria dde dizer que sou iniciante em VB, faz apenas dias que mexo com programação. Então por favor, paciencia comigo que nao sei nada ^^

o que gostaria era o seguinte, vou tentar faze um exemplo aqui

dim joao as integer
dim maria as integer
dim roberto as integer
dim tiago as integer
joao = 54
maria = 32
reberto = 74
tiago = 31

maior = [maior numero]

Label1.Caption = maior


Então queria saber que comando teno que usa pro VB identificar o maior número.
é que fiz um programa de cadastro de funcionários, e cada funcionários tem um ponto, o programa ta certinho, mas queria que indentificase em uma label o funcionário que tenha mais pontos, e não sei o comando que faz descobrir "o maior"

Obrigada desde ja
USUARIO.EXCLUIDOS 22/12/2006 22:50:23
#191919
Bom, só com esses 4 funcionários, você pode fazer com if mesmo. Testando um por um.
Com um número maior, eu tentaria jogar todos os dados numa listbox, ordenala e pegar a última posição..
Mas realmente seria bom um comando pra isso..
USUARIO.EXCLUIDOS 22/12/2006 23:03:28
#191921
Não são apenas esses 4, dei apenas um exemplo pra entenderem melhor o que quero.
Os Funcionários são adicionado pelo programa, e seu pontos tambem.
Os funcionários e seus respectivos pontos são salvos em um XML.
Os pontos carregados do XML se trasformam em uma variavel Funcionário(i).Pontos
onde i é um Loop de 1 a 1000, representando cada funcionário

Meu programa tá pronto, só falta eu descobri como faz isso :/
USUARIO.EXCLUIDOS 22/12/2006 23:07:10
#191924
dim i as integer
dim maior as integer
maior = 0
for i = 1 to 1000
if funcionarios(i).pontos > maior then
maior = funcionarios(i).pontos
end if
loop
msgbox "Maior valor: " & maior

Vualá!
USUARIO.EXCLUIDOS 22/12/2006 23:19:32
#191926
Eita velho, vlw mesmo certinho.
Sem querer abusar, queria que mostrasse o nome do funcionário que tem o maior ponto.
talvez essas informacoes podem ajudar

No XML cada funcionario tem essa tag:
<func name="Joao" cargo="Loja" ponts="67"/>
name = Funcionário(i).Nome
ponts = Funcionário(i).Pontos

então, tem como pegar o nome do dono do maior ponto??

Valeu muito cara
HARRY.POTTER 22/12/2006 23:28:27
#191927 
dim i as integer
dim maior as integer
dim nome as string
maior = 0
for i = 1 to 1000
if funcionarios(i).pontos > maior then
maior = funcionarios(i).pontos
nome  = funcionarios(i).nome
end if
loop
msgbox "Maior valor: " & maior


Vualá!
(pequena alteração no código do amigo UCX2)

Se sua dúvida foi esclarecida, encerre o tópico e pontue quem te ajudou, o amigo UCX2.
USUARIO.EXCLUIDOS 22/12/2006 23:30:27
#191928
Então. é só você armazenar em uma variável o nome do funcionário que tem o maior valor..

dim i as integer
dim maior as integer
dim funcionario as string
maior = 0
for i = 1 to 1000
if funcionarios(i).pontos > maior then
maior = funcionarios(i).pontos
funcionario = funcionarios(i).nome
end if
loop
msgbox "Funcionário com maior valor: " & funcionario & ". Valor: " & maior
USUARIO.EXCLUIDOS 22/12/2006 23:32:00
#191929 Resposta escolhida
Opa. Postei junto com o HARRY POTTER..
Bom.. é isso.. Bem simplesinho..
Espero ter ajudado!
USUARIO.EXCLUIDOS 22/12/2006 23:34:14
#191930
Veio, vocês do VB mania são muito gente boa, obrigada por tudo
era isso que queria

Vou encerrar o tópico
Tópico encerrado , respostas não são mais permitidas
Voltar