CALCULATOR

ESTOS SON LOS CODIGOS QUE VAN EN EL SIGUIENTE PROGRAMA:

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

el botón Nueva Tabla

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1. SetFocus

End Sub

El Botón Salir

Private Sub Command3_Click()

If MsgBox ("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "Qué Ya Te Quieres Ir?")

End

Else

Cancel = 1

EndIf

End Sub

WHO I AM!!!! ( SIWON)

Who am I, that the Lord of all the earth
Would care to know my name
Would care to feel my hurt
Who am I, that the Bright and Morning Star
Would choose to light the way
For my ever wandering heart
Not because of who I am
But because of what You’ve done
Not because of what I’ve done
But because of who You are
I am a flower quickly fading
Here today and gone tomorrow
A wave tossed in the ocean
Vapor in the wind
Still You hear me when I’m calling
Lord, You catch me when I’m falling
And You’ve told me who I am
I am Yours, I am Yours
Who am I, that the eyes that see my sin
Would look on me with love and watch me rise again
Who am I, that the voice that calmed the sea
Would call out through the rain
And calm the storm in me
I am Yours
Whom shall I fear
Whom shall I fear
‘Cause I am Yours
I am Yours

DRAW

vamos a declarar las variables, o la variable, NOS UBICAMOS EN GENERAL PARA ESCRIBIR LO SIGUIENTE, en este caso la variable es draw

Dim draw As Boolean 'Declaramos una variable booleana

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

buscamos en los eventos el evento MOUSE DOWN y escribimos:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

draw = True 'Estamos dibujando

CurrentX = X 'carga en la variable, la ubicación en la coordenada X

CurrentY = Y 'carga en la variable, la ubicación en la coordenada Y

End Sub

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

Buscamos en los eventos el evento MOUSE MOVE y escribimos:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If draw Then Line -(X, Y) 'Si la variable draw esta verdadera 'dibuja cada uno de los puntos

End Sub

Hacemos clic sobre el formulario para ver el área donde se escribe el código.

Buscamos en los eventos el evento MOUSE UP y escrbimos:

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

draw = False 'Si draw es falsa detiene el dibujo

End Sub

clock

"Super Junior es más que un simple nombre, es amar de 13 bellas maneras"

ciclos repetitivos

las sentencias de flujo también llamadas estructuras de control o flujo permite cambiar las secuencias de instrucciones de un programa y ejecutar varias veces un bloque de las mismas sin necesidad de escribirlas tantas veces como se requieran.
Todas las sentencias de control sirven para tomar la decisión de ejecutar o no un bloque de instrucciones dependiendo del resultado de la evaluación, de una condición o variable.
sintaxis :
if then
instrucciones
else
otras instrucciones
End if
a lo chichombiano:
si entonces instruccióno si no
otras instrucciones
fin del if
otra forma es :
if theninstruccionesend if
Si entoncesInstruccionesFin del if

CICLOS REPETITIVO

we!!!!!

ya con blog esto e pa joder con las muchachas...encuenstas ...chistes d too ome!!!