programa del reloj

Este es un programa creado a traves de Visual Basic, se crea con 4 labels y una funcion Timer.
se agregan las configuraciones necesarias para que cada opcion funcione de la manera correcta.
y listo!!!! un programa que da la hora y fecha exactos!!!!

los codigos que se introducen en el control timer son los siguientes:

Private Sub Timer1_Timer()
Label2.Caption = Time
Label4.Caption = Date
End Sub

ejercicio del dibujo mayo 21-2010

Es la muestra de un programa creado para hacer un dibujo sin herramientas con el puntero del mouse.

este programa se crea con ayuda de visual basic, es muy facil hacerlo, solo se da doble clic sobre la superficie y se introducen las opciones necesarias para q funcione.

las opciones o codigos necesarios son los siguientes:

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

CICLOS REPETITIVOS EN VISUAL BASIC

Un ciclo, es un programa operacional en el que se ejecutan un número repetido de veces en periodods mas o menos espaciados. las instrucciones son las mismas, los datos sobre los que operan varían.

Ejemplos de ciclos son: el cálculo de la nota final de los estudiantes, esta accion se realizara tantas veces como alumnos hayan inscritos en la asignatura a la que se le este aplicando, per con datos diferentes, tambien el salario de los empleados d euna empresa, etc.

Los Ciclos o sentencias se dividen en:
♥ SENTENCIAS DE CONTROL SELECTIVAS.
♥ SENTENCIAS DE CONTROL REPETITIVAS.

A continuacion, explicare cada uno de ellos:

♥SENTENCIAS DE CONTROL SELECTIVAS
OPERADORES RACIONALES.
Los operadores relacionales nos sirven para determinar la relación que tiene una expresión con otra. Los operadores relacionales que manejaremos en QB son los siguientes:


Operador o signo
Significa
Ejemplo
Se lee
=
Igual que
x = y
x igual a y
<
Menor que
x < y
x menor que y
>
Mayor que
x > y
x mayor que y
<=
Menor o igual
x <= y
x menor o igual a y
>=
Mayor o igual
x >= y
x mayor o igual a y
<>
Diferente de
x <> y
x diferente de y
SENTENCIA IF...THEN...ELSE
Muchas veces se nos presentan situaciones en las que tenemos que evaluar una condición o situación. Si la condición es verdadera o "cumple", entonces ejecutamos una o más instrucciones; si no, ejecutamos otra u otras instrucciones. Veamos el siguiente ejemplo:
CLS
PRINT TAB(20); "VALIDA SI UN NUMERO ES NEGATIVO O POSITIVO"
PRINT : PRINT
INPUT "Introduce un entero -> ", numero
IF numero < 0 THEN
PRINT "El número es negativo"
ELSE
PRINT "El número es positivo"
END IF
END
El programa anterior valida si un entero es positivo o negativo de la siguiente forma:
El programa pide un número.
Si (if) el numero introducido es menor que cero (esta es la condición a evaluar) entonces (then) se imprime el mensaje "El número es negativo".
Si no (else) es negativo, entonces se imprime el mensaje "El número es positivo".
Un bloque de instrucciones IF...THEN...ELSE debe terminar siempre con END IF para indicar que nuestro proceso de selección IF ha terminado. Ahora, las condiciones que se manejan en las sentencias IF pueden ser verdaderas (True, en inglés) o falsas (False). Si por ejemplo corremos el programa anterior y al pedirse el numero nosotros introducimos un –1, entonces la sentencia IF verá que la condición es verdadera (en efecto el número es menor que 0) y ejecutará la sentencia o sentencias que siguen al IF hasta encontrar el ELSE, luego se pasará hasta el END IF para luego seguir con el curso del programa. De otra forma si nosotros introducimos un 81, entonces la sentencia IF verá que las condición es falsa (false) y no ejecutará las sentencias que le siguen, luego se pasará hasta la sentencia ELSE y se ejecutaran las sentencias que le siguen hasta que termine el bloque (END IF), para luego continuar el curso del programa.
Las condiciones suelen también ser afectadas por los operadores lógicos. Los operadores lógicos nos sirven para evaluar condiciones tales como:
"Si numero1 no es igual a cero entonces..."
(IF NOT numero1 = 0 THEN...)
"Si numero1 es igual a cero o menor a 1 entonces..."
(IF numero1 = 0 OR numero1 > 1 THEN...)
"Si numero1 es igual a 1 y numero2 es menor que cero entonces..."
(IF numero1 = 1 AND numero2 < 0 THEN)
"Si numero1 es igual a cero ó menor que 0 entonces..."

♥SENTENCIAS DE CONTROL REPETITIVAS:
EL BLOQUE WHILE... WEND
Ahora veamos como podemos repetir partes de un programa mientras que cierta condición se cumpla o sea verdadera...
' Ejemplo de WHILE... WEND
' Calcula áreas de 5 círculos
CONST pi = 3.1416
CLS
PRINT TAB(30); "AREA DE 5 CIRCULOS"
PRINT
contador = 0 ' Inicializamos el contador
WHILE contador < 5 'Inicio del ciclo. Contador < 5 porque empezamos en cero
INPUT "Radio -> ", radio
PRINT "El área es"; pi * radio * radio
PRINT
contador = contador + 1 ' El contador se incrementa en 1
WEND ' Seguir
END
El bloque WHILE ("mientras")... WEND ("seguir") nos sirve para que mientras una condición se cumpla (en este caso, mientras contador < 5) repetir una serie de instrucciones, desde donde empieza el WHILE hasta que se encuentre el WEND. En este tipo de ciclos o bucles generalmente el valor de la condición ya ha sido inicializado desde antes de entrar al ciclo (contador = 0) y se incrementa dentro del ciclo (contador = contador + 1). El ciclo se ejecutará mientras la condición sea verdadera, por lo que si desde antes de entrar al bucle la condición ya es falsa, el programa no ejecutará el ciclo. Veamos...
' Ejemplo de un bucle WHILE...WEND que no se ejecutará
i = 0
CLS
WHILE i = 1 ' Mientras i = 1...pero como i = 0 y no igual a 1...
PRINT "HOLA"
i = i + 1
WEND
PRINT "Fin del programa"
END
+ Nota: Si lo ejecutas paso a paso verás mejor la secuencia.
También podemos caer en ciclos infinitos; esto es, ciclos que no tengan fin y terminarán nunca...
' Ejemplo de un bucle WHILE...WEND infinito
i = 1 ' Inicializamos la variable
CLS
WHILE i = 1 ' Mientras i = 1...
PRINT "HOLA, MUNDO..."
WEND '...
PRINT "Fin del programa"
END
+ Nota: Para poder salir de un bucle infinito debemos utilizar la combinación de teclas CTRL + Pause o CTRL + Scroll. En Turbo Basic asegúrate de la opción Keyboard Break del menú Optionseste en ON.
¿Qué podemos observar en el programa anterior? En efecto el programa entrará en el ciclo ya que la condición es verdadera (i = 1), pero i siempre será igual a 1 ya que no hay nada que la modifique dentro del bucle y así poder dar una salida. Este tipo de errores suele ocurrir si por ejemplo...
' Ejemplo de un bucle WHILE...WEND infinito por error interno
cont = 1 ' Inicializamos la variable
CLS WHILE cont = 1 ' Mientras cont = 1...
PRINT "HOLA, MUNDO..."
cont = con + 1 ‘ ¿¿ con ??. Si con = 0, entonces cont = 0 + 1 = 1 (:-O)
WEND ' ...
PRINT "Fin del programa"
END
También no necesariamente tiene que ser un incremento el que nos dé la salida...
' Ejemplo de un bucle WHILE...WEND utilizando un método de salida diferente
salir = 0 ' Inicializamos la variable
CLS
WHILE salir = 0 ' Mientras salir = 0...
PRINT "HOLA, MUNDO..."
INPUT "¿Quieres salir (si = 1, no = 0)? ", salir
PRINT
WEND ' seguir.
PRINT "Fin del programa"
END
Si usamos un contador, también podemos incrementarlo como queramos...
' Sacando raíz cuadrada usando WHILE...WEND.
CLS
PRINT TAB(26); "CALCULO DE LA RAIZ CUADRADA"
PRINT
INPUT "Introduce un número positivo -> ", n
WHILE (cont * cont) < n
cont = cont + .0001
WEND
PRINT "La raíz cuadrada de"; n; "es"; cont
END
No necesitamos declarar una variable cont = 0 ya que al crearla automáticamente asume este valor.
Si n llegara a ser negativo, la condición sería falsa (en efecto, 0 por 0 no es menor que un número negativo) y el bucle no se ejecutaría.
Entre más pequeño sea el incremento de cont, n se acercará más a su raíz, ya que cont por cont debe ser lo más igual posible a n.
EL BLOQUE DO...LOOP
El bloque DO ("hacer")...LOOP ("vuelta) tiene 4 variantes. Veamos la primera:
DO WHILE...LOOP
Este tipo de bloque es muy parecido a WHILE...WEND, ya que la condición regularmente se conoce por adelantado, y existe la posibilidad de que nunca se ejecute el ciclo. Mientras la condición sea verdadera, el ciclo se ejecutará. Este tipo de bloque proporciona una forma más potente que WHILE...WEND.
Sintaxis:
DO WHILE
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP
Ejemplo:
' Ejemplo de DO WHILE...LOOP
i = 0 ‘ Inicializamos la variable
PRINT "El valor de i al empezar el ciclo es"; i
DO WHILE I < 10
I = I + 1
? "Luego i vale"; i ;"..."
LOOP
END
Cuando LOOP encuentra a la condición falsa se termina el ciclo. Si no quisiéramos que se ejecutara el ciclo...
‘ Ejemplo de DO WHILE...LOOP que nunca se ejecutará
CLS
i = 1 ‘ Inicializamos la variable
PRINT "Iniciamos el programa..."
DO WHILE i < 1 ‘¿Es i < 1?
PRINT "Estamos dentro del ciclo"
i = i + 1
LOOP
PRINT "fin del programa"
END
DO...LOOP WHILE
En este tipo de ciclos las instrucciones se ejecutarán por lo menos 1 vez, ya que la condición se evalúa cuando se termina de ejecutar el bloque de instrucciones. Se ejecutara el ciclo mientras la condición sea verdadera.
Sintaxis:
DO
instrucción1
instrucción2
instrucción3
[EXIT DO]
....
instrucciónn
LOOP WHILE
Veamos el siguiente ejemplo:
' Ejemplo de DO...LOOP WHILE. Calculo de la velocidad de un vehículo con MRU
CLS
COLOR 10 ‘ Verde brillante
PRINT TAB(20); "CALCULO DE LA VELOCIDAD DE UN VEHICULO"
COLOR 7: PRINT ‘ Color gris normal
DO ‘ Hacer...
INPUT "Distancia recorrida por el vehículo (m) -> ", d
INPUT "Tiempo en recorrerla (s) -> ", t
v = d / t
PRINT "La velocidad con que viajó el vehículo es"; v; "m / s"
PRINT
INPUT "¿Desea calcular otra vez (si = 1, no = 0)"; desea
LOOP WHILE desea = 1 ‘Mientras desea = 1
END

BIBLIOGRAFIA:
- http://www.monografias.com/trabajos38/manual-programacion/manual-programacion-c3.shtml
- http://www.monografias.com/trabajos16/quick-basic/quick-basic.shtml#SENTEREPETIIV

I wanna rock right now
I wanna I wanna rock right now
I wanna I wanna rock right now
now now rock right now
I wanna I wanna rock right now
I wanna I wanna rock right now
I wanna I wanna rock right noooow!!

I wanna da I wanna dance in the lights
I wanna ro I wanna rock your body
I wanna go I wanna go for a ride
Hop in the music and rock your body right

Rock that body come on come on
Rock that body rock your body
Rock your body come on come on
Rock that body
Rock that body come on come on
Rock that body rock your body
Rock your body come on come on
Rock that body

Let me see your body drop
Shaking it from the bottom to top
Break to what the DJ drop
We be the ones to make it hot
To make it hot
Electric shock
Energy like a billion watts
Face be boomen the speakers pop
Galactic comb and missed a spot
We bumpen in your

Parking lot
When you comming up in the spot
Don't bring nothing we call we got
Cause we burnin around the clock
Hit the lights then turn them off
If euglena don't make you stop
Like the jungle we run the block
No one rollin the way we rock
way we rock

I wanna I wanna rock right now
I wanna I wanna rock right now
I wanna I wanna rock right noooow!!

I wanna da I wanna dance in the lights
I wanna ro I wanna rock your body
I wanna go I wanna go for a ride
Hop in the music and rock your body right

Rock that body come on come on
Rock that body rock that body right
Rock your body come on come on
Rock that body
Rock that body come on come on
Rock that body rock your body
Rock that body come on come on
Rock that body

Super fly ladies
All of my super fly ladies
All of my super fly ladies
All of my super super fly ladies

Yeah you could be big boned
Large looking like your own
You could be the model type
Skinny with no appetite
Short stack black or white
Long as you do what you like
Body out of site
Body body out of site

She does the two step
And her tongue drop
She does the cabbage patch
And the blood stops
She like electro she know hip hop
She like the reggae she feel punk rock
She like the samba and the mamboo
She like to break dance and calypso

Get a little crazy
Get a little stupid
Get a little crazy crazy crazy

I wanna da I wanna dance in the lights
I wanna ro I wanna rock your body
I wanna go I wanna go for a ride
Hop in the music and rock your body right
Rock your body right
Rock your body right

Rock that body come on come on
Rock that body
Rock your body come on come on
Rock that body

Let go ohohoh oh oh oh
Let go ohohoh oh oh oh
Let go ohohoh oh oh oh
Let go ohohoh oh oh oh

I wanna I wanna rock right now
I wanna I wanna rock
I wanna I wanna rock

Let go ohohoh oh oh oh

I wanna I wanna rock
I wanna I wanna rock

Let go ohohoh oh oh oh
Let go ohohoh oh oh oh

I wanna rock right now
I wanna I wanna rock right now
I wanna I wanna rock right now
now now rock right now
I wanna I wanna rock right now
I wanna I wanna rock right now
I wanna I wanna rock right noooow!!