Jump to content
Sign in to follow this  
PreTenDer666

[VB6] Ajuda num programa de ratio

Recommended Posts

PreTenDer666

Este programa que estou a fazer é para descobrir o ratio colocando o download e o upload.

Bastante simples,mas faltam-me umas coisas que nao sei fazer e assim aproveito para vos fazer algumas perguntas para ficar a saber como se faz...sempre é informação que fica para outros programas :cheesygrin:

Aqui fica o que já fiz:

Private Sub Calcular_Click()

Dim giga, u, d, r, conta, tmb As Double

giga = 1.024

u = Val(upload.Text)

d = Val(download.Text)

r = u / d

conta = d * 0.60 - u

tmb = conta * giga

ratio.Text = r

If r < 0.60 Then

faltam.Text = tmb

End If

End Sub

Fazendo aqui o código, consigo colocar 0.60 mas lá ele apaga-me um 0 e fica apenas 0.6 ...penso que seja aqui que me esteja a afectar o resultado, pois eu queria que aparece-se neste formato "0.00" e aparece apenas "0.0".Como coloco a aparecer como "0.00"?

Outra coisa é, fazer aparecer o "faltam.txt" apenas e só se o resultado fosse <0.60 ?

Já agora e por fim, existe maneira de eu colocar aqui um botao e quando carregasse nesse botao ele abrir um outro programa? Mas não um programa à parte, outro .exe, mais do estilo juntar o outro com este e fazer apenas um .exe...como é que faço? Noutra "form"? E dps como é que a chamo? E da para fazer de maneira a usar o resultado que deu numa "form" e usar noutra "form"?

Share this post


Link to post
Share on other sites
UnKnowN

Este programa que estou a fazer é para descobrir o ratio colocando o download e o upload.

Bastante simples,mas faltam-me umas coisas que nao sei fazer e assim aproveito para vos fazer algumas perguntas para ficar a saber como se faz...sempre é informação que fica para outros programas :cheesygrin:

Aqui fica o que já fiz:

Private Sub Calcular_Click()

Dim giga, u, d, r, conta, tmb As Double

giga = 1.024

u = Val(upload.Text)

d = Val(download.Text)

r = u / d

conta = d * 0.60 - u

tmb = conta * giga

ratio.Text = r

If r < 0.60 Then

faltam.Text = tmb

End If

End Sub

Fazendo aqui o código, consigo colocar 0.60 mas lá ele apaga-me um 0 e fica apenas 0.6 ...penso que seja aqui que me esteja a afectar o resultado, pois eu queria que aparece-se neste formato "0.00" e aparece apenas "0.0".Como coloco a aparecer como "0.00"?

Outra coisa é, fazer aparecer o "faltam.txt" apenas e só se o resultado fosse <0.60 ?

Já agora e por fim, existe maneira de eu colocar aqui um botao e quando carregasse nesse botao ele abrir um outro programa? Mas não um programa à parte, outro .exe, mais do estilo juntar o outro com este e fazer apenas um .exe...como é que faço? Noutra "form"? E dps como é que a chamo? E da para fazer de maneira a usar o resultado que deu numa "form" e usar noutra "form"?

Quanto às duas primeiras perguntas:

A 1ª pergunta - procurei, mas nao encontrei nada num eBook que tenho aki, mas deve haver maneira de apresentares o resultado com as casas decimais que queiras, quanto à 2ª - Não percebi bem a pergunta por isso não te posso ajudar :)

3ª - Tens de usar 1 Módulo, o Módulo serve para que o valor da Form1 ou 2 ou 3, a que seja , se reflicta nas outras Forms :) , com isto percebes que terás de usar outra Form ... :) Se procurares por Módulos, no pesquisar aqui do Fórum, vais encontrar 1 tópico do vaurdan respondido pelo Tiago Salgado, faz 1 Quote dessa parte e expõe lá o teu problema

Stay Fine :cheesygrin:

Share this post


Link to post
Share on other sites
vbmaster

Para pores o resultado com várias casas decimais é só fazer:

TextBox2.Text = Format$ (Val(TextBox1.Text)/Val(Textbox3.Text), "###.##")

Experimenta... :cheesygrin:

Share this post


Link to post
Share on other sites
PreTenDer666

vbmaster era isso mm, ja vi que isso afecta as casas decimais, mas devo estar a fazer mal, pois aparece-me ",0" nao aparece nada à frente da virgula

Coloquei assim:

ratio.Text = Format$(r, "##.###")

UnKnowN a segunda pergunta é isto: tenho uma textbox que apenas quero que apareca quando o ratio for menor que 0.60.

É possivel? Ja li sobre um "hide" mas nao sei fazer.

Share this post


Link to post
Share on other sites
UnKnowN

PreTenDer666, tens a propriedade visible = true or False

Já disse tudo o vbmaster :cheesygrin:

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
Sign in to follow this  

×
×
  • 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.