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

SkYmb3r

[vb x] Calculadora

7 mensagens neste tópico

Boas...

São coisas muito básicas mas comecei a fazer uma calculadora que soma-se dois números...

Depois fiz uma com as quatros operações, adicionei o botão "sair" e "limpar'', já está mais completa.

Deixo aqui para quem quiser ver  :Dhttp://rapidshare.de/files/25917876/calculadora.zip.html , a da soma chama-se N + N = X e a outra chama-se N +-*/ N = X  v1

A minha dúvida é a seguinte, na segunda calculadora, a divisão a principio fiz com este código:

Private Sub divisao_Click()

vValor1 = Val(Text1.Text)

vValor2 = Val(Text2.Text)

Text3.Text = vValor1 / vValor2

End Sub

Supostamente seria o primeiro valor a dividir pelo segundo, quando fiz 10 a dividir por 2 deu-me 0.2, logo de seguinda tentei com 2 no primeiro valor e 10 no segundo, ou seja 2 / 10, e deu-me 5... então alterei o código e ficou desta forma:

Private Sub divisao_Click()

vValor1 = Val(Text1.Text)

vValor2 = Val(Text2.Text)

Text3.Text = vValor2 / vValor1

End Sub

Está a funcionar assim, mas não entendi bem a razão de assim funcionar sendo 2 / 10, e não funcione com 10/2.

( a primeira calculadora da soma funciona só com números inteiros, a outra já funciona com e sem virgulas. )

Agora tenho outra dúvida... a calculadora, a segunda, a subtração não dá números negativo (10-50=+40), se alguem souber como fazer com que isso seja possivel.

Obrigado desde já.  :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

12 - 1  = -11 ? vê isso :)

A calculadora que diz "(só números inteiros") também calcula números reais :D (experimentei 23,3 + 23 = 46,3 :D

De resto o programa claro que é facil mas é com a experiencia que se aprende, já puseste 1 "wallpaper" (lol) e é perciso é continuares a programar :D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

quanto à 1a questão devia funcionar como fizeste da 1ª vez. Verifica se não trocaste os nomes das caixas de texto ( exemplo: a 1ª caixa chama-se Text2)

quanto à 2ª questão secalhar tens aí o mesmo problema que na 1ª porque 10-50 deveria dar -40 mas se mais uma vez trocaste as caixas de texto então ficaria 50-10 e aí ja daria +40

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

12 - 1  = -11 ? vê isso :)

A calculadora que diz "(só números inteiros") também calcula números reais :) (experimentei 23,3 + 23 = 46,3 :)

De resto o programa claro que é facil mas é com a experiencia que se aprende, já puseste 1 "wallpaper" (lol) e é perciso é continuares a programar :D

Obrigado.

quanto à 1a questão devia funcionar como fizeste da 1ª vez. Verifica se não trocaste os nomes das caixas de texto ( exemplo: a 1ª caixa chama-se Text2)

quanto à 2ª questão secalhar tens aí o mesmo problema que na 1ª porque 10-50 deveria dar -40 mas se mais uma vez trocaste as caixas de texto então ficaria 50-10 e aí ja daria +40

Era isso mesmo.. obrigado, agora já funciona bem e já dá negativos. :)

Agora tenho outro problema, o UnKnowN disse que a primeira calculadora dava números reais, e realmente dá, eu é que em vez de virgula, usei ponto, com pontos não dá, com virgulas dá.

Na segunda calculadora, com pontos dá correctamente reais e inteiros, com virgulas já não dá. Não faço a minima ideia do que seja.

Vou colocar aqui o código para quem quiser ver:

Private Sub divisao_Click()

vValor1 = Val(Text1.Text)

vValor2 = Val(Text2.Text)

Text3.Text = vValor1 / vValor2

End Sub

Private Sub exit_Click()

End

End Sub

Private Sub limpar_Click()

Text1 = Empty

Text2 = Empty

Text3 = Empty

End Sub

Private Sub multiplicação_Click()

vValor1 = Val(Text1.Text)

vValor2 = Val(Text2.Text)

Text3.Text = vValor1 * vValor2

End Sub

Private Sub soma_Click()

vValor1 = Val(Text1.Text)

vValor2 = Val(Text2.Text)

Text3.Text = vValor1 + vValor2

End Sub

Private Sub subtracao_Click()

vValor1 = Val(Text1.Text)

vValor2 = Val(Text2.Text)

Text3.Text = vValor1 - vValor2

End Sub

Penso que seja fácil de entender ... o código END faz o botão sair, e o EMPTY limpa as caixas.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tópico movido para secção correcta, faça favbor de ler as regras.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

calculo que isto n seja VB.net mas supostamente deve haver uma parte onde declaras as variáveis (tipo Dim vValor1, vValor2 as *tipo de variável)

Tipos de Variáveis que queres:

Integer -> Nºs inteiros

Double -> Nºs inteiros e fraccionários

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