como crear una calculadora en visual basic 6.0.wmv

ESTAS SON LAS FORMULAS QUE YO ENCONTRE ESPERO LES SIRVAN Y LES GUSTE EL VIDEO YA QUE ES MI PRIMER TUTORIAL COMENTEN DEN PUNTUACIONES GRASIAS

Variables:

Dim OP As String
Dim a, b, resultado As Double
Dim c As Double


Numeros:

1:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "1"
c = False

2:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "2"
c = False

3:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "3"
c = False

4:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "4"
c = False

5:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "5"
c = False

6:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "6"
c = False




7:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "7"
c = False

8:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "8"
c = False

9:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "9"
c = False


0:
If c = True Then
Text1.Text = ""
End If
Text1.Text = Text1.Text + "0"
c = False


FORMULAS DE LOS OPERADORES:



Suma:
a = Text1.Text
Text1.Text = ""
OP = "SUMA"

Resta:
a = Text1.Text
Text1.Text = ""
OP = "RESTA"

Multiplicación:
a = Text1.Text
Text1.Text = ""
OP = "MULTIPLICACION"

DIVISION:
a = Text1.Text
Text1.Text = ""
OP = "DIVISION"


FORMULA IGUAL:


b = Val(Text1.Text)
Select Case OP
Case "SUMA"
resultado = a + b
Text1.Text = resultado
Case "RESTA"
resultado = a - b
Text1.Text = resultado
Case "MULTIPLICACION"
resultado = a * b
Text1.Text = resultado
Case "DIVISION"
resultado = a / b
Text1.Text = resultado
End Select


FORMULA PUNTO :

Text1.Text = Text1.Text + "."


FORMULA DE BORRAR CE

Text1.Text = ""


FORMULA DE OFF:

END

Category:

Music

Tags:

• tutorial

[eljefedelbloquejr]

la cancion es de porta y se llama niños y niñas

[eljefedelbloquejr]

la saque de donde estudio tio

[fubukiichirouta]

gracias n_n

[9120DE]

No me funcionò al usarla con el punto: le doy 10.5 mas .5 y no me sale ---- el resultado deberia ser 11 no?? y me sale 105.5

POrQ ??? ESTOY MAL VDD ??

[Jarita930]

chevere, buenisimo me ayudo de mucho gracias

[diego53564]

Siempre me sale "Error 424 en tiempo de ejecución. Se requiere un objeto".

Cuando le doy depurar, siempre se resalta el renglón en el que se escribe Text1.Text = Text1.Text + "1".

¿A qué de debe ese error?

[metin0ichigo]

men la calculadora se te explota por el punto ya que si me da la gana puedo poner mas de 2 puntos ya que no pusiste una condición para eso

pero comoquiera esta bien

[gustavo12389]

GRACIAS CHAVAL ME SIRVIO DE MUCHO ME SACARE UN 10 POR TU AYUDA MIL GRACIAS

[planetarygo11]

pero de todos modos sos un wey en este tuto bn tuto para ser el primero ;)

[planetarygo11]

no lo puedo generar tengo el portable :(

[lupita6806]

me ayudo mucho pero el punto no me funciona pero  muy buen material