Foro de elhacker.net

Hola migos, hace dos dias comence con esto de visual basic la verdad me parece un lenguaje muy bueno para aplicaciones graficas, estoy usando visual studio k es realmente completo y facil de usar, empeze a hacer una simple calculadora, bueno aki esta el codigo del algoritmo de calculos no el de los graficos..bueno amigos espero cualkier comentario que me ayude a aprender mas..saludos ::)

link del .exe: http://www.megaupload.com/?d=G5WU7VAJ (http://www.megaupload.com/?d=G5WU7VAJ)

Public Class Ventana
    Dim Valor1 As Double, Result As Double, Valor2 As Double, Marca_Suma As Boolean
    Dim Marca_Resta As Boolean, Marca_Multiplicacion As Boolean, Marca_Division As Boolean
 
    Private Sub Uno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Uno.Click
        Valor1 = Valor1 * 10 + 1
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Dos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dos.Click
        Valor1 = Valor1 * 10 + 2
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Tres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tres.Click
        Valor1 = Valor1 * 10 + 3
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Cuatro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cuatro.Click
        Valor1 = Valor1 * 10 + 4
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Cinco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cinco.Click
        Valor1 = Valor1 * 10 + 5
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Seis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Seis.Click
        Valor1 = Valor1 * 10 + 6
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Siete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siete.Click
        Valor1 = Valor1 * 10 + 7
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Ocho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ocho.Click
        Valor1 = Valor1 * 10 + 8
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Nueve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nueve.Click
        Valor1 = Valor1 * 10 + 9
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Cero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cero.Click
        Valor1 = Valor1 * 10
        Pantalla.Text = Valor1
    End Sub
 
    Private Sub Resta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Resta.Click
        Pantalla.Text = "-"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Resta = True
    End Sub
 
    Private Sub Suma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Suma.Click
        Pantalla.Text = "+"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Suma = True
    End Sub
 
    Private Sub Dividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dividir.Click
        Pantalla.Text = "/"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Division = True
    End Sub
 
    Private Sub Multiplicar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Multiplicar.Click
        Pantalla.Text = "x"
        Valor2 = Valor1
        Valor1 = 0
        Marca_Multiplicacion = True
    End Sub
 
    Private Sub Resultado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Resultado.Click
        If Marca_Suma = True Then
            Result = Valor2 + Valor1
        ElseIf Marca_Resta = True Then
            Result = Valor2 - Valor1
        ElseIf Marca_Multiplicacion = True Then
            Result = Valor2 * Valor1
        ElseIf Marca_Division = True Then
            Result = Valor2 / Valor1
        End If
        Pantalla.Text = Result
    End Sub
 
    Private Sub Limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Limpiar.Click
        Pantalla.Text = "" : Valor1 = 0 : Valor2 = 0
        Marca_Division = False : Marca_Multiplicacion = False : Marca_Resta = False : Marca_Suma = False
    End Sub
End Class
 

esto va en .NET

y si no me equivoco puede simplificar las operaciones Aritmeticas de la siguiente forma

 
Valor1 = Valor1 * 10 + 9
 
 

por

 
Valor1 *= 10 + 9
 
 

aun que

 
        Valor1 = Valor1 * 10 + 9
        Pantalla.Text = Valor1
 
 

quedaria mejor asi

 
        Pantalla.Text = Valor1 * 10 + 9
 
 

Nota: Es una desgracia que ya no existe de forma NATIVA los arreglos de controles... ahora se tienen que hacer Magia Negra y Malavares para poderlo hacer de nuevo asi ¬¬".

Dulce Infierno Lunar!¡.