Visual Basic

CALCULADORA

hecho por : Dayan stephanie Villacastin Escobar y Erika Reina

En calculadora puedes hacer operaciones sencillas como :

sumar
restar
multiplicar
dividir

la pudimos hacer en el programa visual basic con los siguentes pasos:

En el formulario debe insertar 4 labels, 3 cuadros de texto, un combobox, y 3 botones de comando. Pueden ver que cada label lleva un titulo, cada botón de comando un titulo. Los cuadros de texto o textbox, deben ir vacios, es decir hay que borrar en la propiedad TEXT , la palabra text1, según el numero de cuadro trexto que corresponda.

Haga doble clic sobre el command1 y escriba el siguiente código

Private Sub Command1_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text1.SetFocus

End Sub

Nota: La función SETFOCUS, me permite dejar el puntero del mouse en el primer cuadro texto, listo para que el usuario empiece a escribir.

Haga doble clic sobre el command2 y escriba el siguiente código

Private Sub Command2_Click()

If Combo1 = "Sumar" Then

Text3 = Val(Text1) + Val(Text2)

ElseIf Combo1 = "Restar" Then

Text3 = Val(Text1) - Val(Text2)

ElseIf Combo1 = "Multiplicar" Then

Text3 = Val(Text1) * Val(Text2)

ElseIf Combo1 = "Dividir" Then

Text3 = Val(Text1) / Val(Text2)

End If

End Sub

Haga doble clic sobre el command3 y escriba el código que corresponda para que el formulario se cierre y quede nuevamente en el formulario No1

Private Sub Command3_Click()

End Sub

Haga doble clic sobre el formulario y escriba el siguiente código

Private Sub Form_Load()

Combo1.AddItem "Dividir"

Combo1.AddItem "Multiplicar"

Combo1.AddItem "Restar"

Combo1.AddItem "Sumar"

End Sub

TABLA DE MULTIPLICAR

bueno yo logre hacer esta hermosa tablita de multiplicar siguiendo estos pasos...tambien necesitando la ayuda de unas cuantas amigas...jjejeje..bueno para lo que no les guste multiplicar..

Private Sub Command1_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno
Next n
End Sub

Private Sub Command2_Click()
Text1 = " "
Text2 = " "
Text1.SetFocus

Private Sub Command3_Click()
If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te Quieres Ir?") = vbYes
Then
End
Else
Cancel = 1
End If
End Sub

..solo esto hermosos codigos en cada uno de los comandos...

RELOJ

DIBUJO

SENTENCIAS DE CONTROL EN VISUAL BASIC

Las sentencias de control, denominadas también estructuras de control, permiten tomar decisiones y realizar un proceso repetidas veces. Visual Basic dispone de las siguientes estructuras:

- If...Then
- If...Then...Else
- Select case
- For... Next
- While...Wend
- Do...loop
- Goto

Sentencia If

Permite tomar una decisión referente al camino a seguir o acción a ejecutar en un proceso basándose en el resultado (verdadero o falso) de una condición. Su sintaxis es: If condición then acción1 [else acción2] donde condición debe ser una expresión numérica, relacional o lógica. Si la condición es verdadera se ejecuta la acción1 y si es falsa se ejecutará la acción2.

Sentencia SELECT

Esta expresión permite ejecutar una de varias acciones en función del valor de una expresión. Es una alternativa a If... Then ... ElseIf cuando lo que se necesita es comprobar es la misma expresión con diferentes valores. Su sintaxis es:

selec case expresion
case lista1
sentencias
case lista2
sentencias
case else
sentencias n
end select

Sentencia For... NexT

La sentencia for da lugar a un bucle que permite ejecutar un conjunto de sentencias cierto número de veces. Su sintaxis es:

for variable = expresion1 to expresion2[Step expresion3]
[sentencias]
[Exit for]
[sentencias]
Next [variable[,variable...]]

Cuando se ejecuta una sentencia For en la que el valor de la expresión3 es positivo o no se ha especificado, primero se ha asigna el valor de la expresión1 a la variable y a continuación se comprueba si la variable es mayor que la expresión 2, en cuyo caso se salta el cuerpo del bucle y se continúa en la línea que éste a continuación de la sentencia Next. En otro caso, se ejecutan las línea sde programa que haya entre la sentencia For y la sentencia Next.

Sentencia While... Wend

Un bucle While repite la ejecución de un conjunto de sentencias mientras una condición dada sea cierta. La condición se verifica antes de ejecutarse el conjunto de sentencias.

While condicion
[sentencias]
Wend

Donde condición es cualquier expresión numérica, relacional o lógica. La ejecución de la sentencia While sucede así:

1.- Se evalúa la condición.
2.- Si el resultado de la evaluación es falso, las sentencias que forman el cuerpo de While no se ejecutan y se pasa el control a la siguiente sentencia en el código a Wend.
3.- Si el resultado de la evaluación es verdadero, se ejecutan las sentencias que forman el cuerpo de While y el proceso descrito se repite desde el punto 1.

Sentencia Do... Loop

Un Loop(bucle) repite la ejecución de un conjunto de sentencias mientras una condición dada sea cierta, o basta que una condición dada sea cierta. La condición puede ser verificada antes o después de ejecutarse el conjunto de sentencias:

Formato1	Formato2
Do [{WhileUntil}condición] [sentencias] [Exit do] [sentencias] Loop	Do [sentencias] [Exit do] [sentencias] Loop[{WhileUntil}condición]

Donde condición es cualquier expresión que se evalúe a True o a False.

Sentencia Goto

Transmite el control a una línea específica del código, identificada por una etiqueta o por un número de línea. Su sintaxis es:
Goto {etiqueta/nº de línea}
Si la línea a la que se transfiere el control es una sentencia ejecutable, se ejecuta esa sentencia y las que le siguen. Si no es ejecutable, la ejecución se inicia en la primera sentencia ejecutable que se encuentra tras dicha línea. Por ejemplo, el siguiente procedimeinto calcula e imprime el área de uno o más círculos

http://www.euskalnet.net/jaoprogramador/vbman/vb03.htm