Jump to content

[VB6] Ajuda num prog


caloiro

Recommended Posts

Bem-vindo ao fórum caloiro! 🙂

sou burro e caloiro.

Lol, se tu o dizes...😛

É 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

"Nunca discutas com um idiota. Eles arrastam-te até ao seu nível e depois ganham-te em experiência"

Link to comment
Share on other 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  😛

Cumps

Link to comment
Share on other 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

Link to comment
Share on other sites

  • 3 weeks later...
  • 5 weeks later...

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

Link to comment
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.