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
Pergunta
Strifek
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:
Agradeço a atenção!
Editado por StrifekLink 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.