Recién hoy estoy empezando con .NET en el colegio, y la profesora nos pidió de hacer una calculadora, aca les dejo la que hice yo, les pido POR FAVOR que la critiquen
(Con criticar me refiero solo a criticas constructivas, y hagan el favor de argumentar
)
Code:
Public Class Form1
Dim Num1, Num2 As Integer
Dim Resultado As Single
Dim numeros(9) As Short
Private Sub btnmas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmas.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 + Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btnmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmenos.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 - Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btnpor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpor.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 * Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btndiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndiv.Click
Dim comp1 As String = txtnum1.Text
Dim comp2 As String = txtnum2.Text
If comp1 = "" Or comp2 = "" Then
MessageBox.Show("Hay que completar los cuadros de texto con los dígitos del 0 al 9 antes de elegir el operador", "Error")
Else
Num1 = Convert.ToInt32(txtnum1.Text)
Num2 = Convert.ToInt32(txtnum2.Text)
Resultado = Num1 / Num2
txtresultado.Text = Convert.ToSingle(Resultado)
End If
End Sub
Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
txtnum1.Clear()
txtnum2.Clear()
txtresultado.Clear()
End Sub
Private Sub txtnum1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum1.KeyPress
If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
MessageBox.Show("Solo dígitos del 0 al 9 =P", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
Private Sub txtnum2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnum2.KeyPress
If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
MessageBox.Show("Solo dígitos del 0 al 9 =P", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
End Class
Imagen:
Ah, una cosa más, la profesora nos dijo que iba a intentar "romperla", hay otra medida de seguridad aparte de validar los textboxs que se pueda implementar?
Saludos!