• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

caloiro

[VB6] Ajuda num prog

7 mensagens neste tópico

sou burro e caloiro. preciso de fazer um programa até 5f.. :wallbash:

Programa(visual basic):

pedir ao utilizador 2 valores, num max e num min.

escrever todos os numeros compreendidos entre estes dois(num inclusive).

e no fim mostrar quantos destes valores sao pares..

agradecia uma Santa ajuda..

obrigado..

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bem-vindo ao fórum caloiro! :)

sou burro e caloiro.

Lol, se tu o dizes...:P

É assim, coloca entre uma tag a versão do Visual Basic, para que as pessoas que realmente percebem te possam ajudar. Ex: [VB] ajuda num programa

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

bem...

Crias duas caixas de texto(text1 e text2) a text1 é para o num min e a text2 para o num max e uma listbox para os resultados. Depois podes a nivel de código fazes o seguinte.

dim i as integer
dim varCount as integer
dim arrayVal() as integer

for i = val(text1.text) to val(text2.text)
     if (i mod 2) = 0 then
          redim preserve arrayval(varCount)
          arrayval(varCount) = i
          list1.additem arrayval(varCount)
          varCount = varCount + 1
    end if
next i

Este código metes no evento de um botão p exemplo. Caso não saibas, um evento de um botão é aquela coisa que aparece quando fazes double click emcima de um botão, aparece kk coisa do tipo -> private sub command1_click()

                               

                                                        end sub

este código metes entre essas 2 linhas  :P

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para essa alteração basta adicionares outra listbox (list2)

e depois fica assim:

dim i as integer
dim varCount as integer
dim arrayVal() as integer

for i = val(text1.text) to val(text2.text)
     if (i mod 2) = 0 then
          redim preserve arrayval(varCount)
          arrayval(varCount) = i
          list1.additem arrayval(varCount)
          varCount = varCount + 1
    end if
    list2.additem i
next i

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

Sou um novato de um curso de programação.

Estou no 1º ano e começei a trabalhar com o VB.net.Mas talvez conseguisse resolver o programa ;)

Chamo-me Diogo Paulino tenho 16 anos.

Abraço 4 all

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

N sei se ja resolveste o problema mas para o que tu queres axu k sera axim +/- Para VB .NET:

dim arrayVal(0) as integer
dim kt_de_ns_pares as integer

for i as integer = val(text1.text) to val(text2.text)
     redim preserve arrayval(i)
     arrayval(i) = i
     list1.Items.additem()
     if (i mod 2) = 0 then
         kt_de_ns_pares += 1
    end if
next

text1.text == Nº minimo

text2.text == Nº Maximo

kt_de_ns_pares == Quantos nºs sao pares

list1== Listbox kom todos os nºs entre text1.text e text2.text

Cumprimentos,

Akaru

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora