Calculadora

el primer programita que haremos es una pequeña calculadora que sume, reste, multiplique y divida.

lo primero que tenemos que hacer es abrir visual basic y crear el diseño de nuestro formulario con Labels, TexBoxs y commandBottons como la imagen que se muestra a continuación.

Luego de crear el formulario comenzamos a agregarle el código para que la calculadora funcione, para eso tenemos que darle doble clic a los botones a los cuales les vamos a agregar el código. Luego de darle doble clic nos aparecerá una ventanita así como la que se muestra a continuación, en esa ventana agregaremos el código.

A cada botón le daremos doble clic para que se abra esta ventana y comenzamos a agregar el código.

• en el botón de suma escribiremos esto:

Dim n1, n2, r as integer

n1=val(text1)

n2=val(text2)

r=n1+n2

text3=r

• en el botón de resta escribimos esto:

Dim n1, n2, r as integer

n1=val(text1)

n2=val(text2)

r=n1-n2

text3=r

• en el botón de multiplicar escribimos lo siguiente:

Dim n1, n2, r as long

n1=val(text1)

n2=val(text2)

r=n1*n2

text3=r

• en el botón de division escribimos lo siguiente:

Dim n1, n2 as integer

Dim r as single

n1=val(text1)

n2=val(text2)

If n2=0 or n2 <>

e= MsgBox("Error en la division no puedes dividir entre 0 un numero negativo", exclamation, "Error")

else

r=n1/n2

text3=r

end if

Luego de haber escrito los códigos puedes probar si tu código funciona en esta parte.