Ir para conteúdo
Fórum Script Brasil
  • 0

Problema ao fazer uma calculadora Simples


Strifek

Pergunta

Pessoal, tudo bem?

Eu estou com um certo problema, fui fazer uma calculadora simples no vb, apenas com os botões "Soma, subtração, divisão, multiplicação, resultado, e o clear...

Até então deu tudo certinho, o que acontece é, se eu não digito nenhum valor nela e apenas aperto o botão pra calcular, o programa trava. Teria alguma forma de ao clicar somente nesse botão, não acontecer nada até que um número seja digitado?

Já tentei deixar ela vazia colocando "empty" ou "Null" e não tive mudanças

Em baixo segue os códigos da mesma:

Public Class Form1

Dim val1, val2, type As Integer
Sub funsoma(ByVal somav1 As Integer, ByVal somav2 As Integer, ByRef rsoma As Integer)
rsoma = somav1 + somav2
End Sub
Sub funsubt(ByVal subtv1 As Integer, ByVal subtv2 As Integer, ByRef rsubt As Integer)
rsubt = subtv1 - subtv2
End Sub
Sub funmult(ByVal multv1 As Integer, ByVal multv2 As Integer, ByRef rmult As Integer)
rmult = multv1 * multv2
End Sub
Sub fundiv(ByVal div1 As Integer, ByVal div2 As Integer, ByRef rdiv As Integer)
rdiv = div1 / div2
End Sub
Private Sub igual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles igual.Click
val2 = Val(result.Text)
If type = 1 Then
funsoma(val1, val2, result.Text)
ElseIf type = 2 Then
funsubt(val1, val2, result.Text)
ElseIf type = 3 Then
funmult(val1, val2, result.Text)
Else
fundiv(val1, val2, result.Text)
End If
End Sub
Private Sub soma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles soma.Click
type = 1
val1 = Val(result.Text)
result.Clear()
End Sub
Private Sub subt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subt.Click
type = 2
val1 = Val(result.Text)
result.Clear()
End Sub
Private Sub mult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mult.Click
type = 3
val1 = Val(result.Text)
result.Clear()
End Sub
Private Sub div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles div.Click
type = 4
val1 = Val(result.Text)
result.Clear()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
result.Clear()
End Sub
End Class

Agradeço a atenção!

Editado por Strifek
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...