the Closest places at work

Video que muestra el paisaje cercano a donde trabajo... chequen....

De viaje 3 y 4

Las ultimas partes de la serie "De viaje"

Tercera Parte...

De viaje 3

Cuarta Parte....

De viaje 4

De viaje la serie, Segunda Parte

SEgunda Parte del Viaje a Aguascalientes, si vieron la primera segunda esta mas ao menos pero la tercera esperenla..

http://www.livevideo.com

Carrusel de Imagenes en Visual Basic

Bien, ahora mostrare como hacer un pequeño carrusel en VB si asi es sencillo y facil, pueden usar su imaginacion si quieren pero lo hare lo mas facil que se pueda se aceptan comentarios..

Para hacer esto

Hacemos esto:

1 Abrimos nuevo y le ponemos nombre despues creamos nuestro espacio de trabajo es esto arrastramos nuestro objetos hacia el formulario ..

Necesitamos:

2 timer Por que dos bueno luego, esperen

y minimo tres image containers,

pueden ubicarlos donde sea me refiero a los timers, y las image bueno centrenlas si a si lo desean

Dentro de los objetos image pueden poner lo que quieran no importa o depende para que las vayan a usar...

Muy bien ahora creamos un modulo en nuestro proyecto ahi agregamos esto..

Public Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Esta pequeña funcion agregara un efecto atu galeria....

despues le damos codigo al proyecto...

Despues entro Form_load del formulario hacemos esto..

Private Sub Form_Load() FrmPpal.Picture = LoadPicture("C:\SWADRIN\fondo2.jpg") Timer1.Enabled = True Timer2.Enabled = True Image2.Visible = True Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False End Sub

Yo aqui agregue una imagen de fondo para que no se vea tan feo. y como ven le di la propiedad enabled a timer y la propiedad Visible a false a cada una de la Image que agregue...

Despues Vamos con los timers..

Teniendo ya los timers con las propiedades hacemos..

Private Sub Timer1_Timer() Dim rc As Long rc = FlashWindow(hwnd, True) End Sub con un Intervalo de 100 para que cada segundo empiece de nuevo bueno lo veran...

despues dentro del timer 2 y de su intevalo a 1000

haremos asi Private Sub Timer2_Timer() If Image2.Visible = True Then Image2.Visible = False Image3.Visible = True Else If Image3.Visible = True Then Image3.Visible = False Image4.Visible = True Else If Image4.Visible = True Then Image4.Visible = False Image5.Visible = True Else If Image5.Visible = True Then Image5.Visible = False Image6.Visible = True Else If Image6.Visible = True Then Image6.Visible = False Image7.Visible = True Else If Image7.Visible = True Then Image7.Visible = False Image8.Visible = True Else If Image8.Visible = True Then Image8.Visible = False Image9.Visible = True Else If Image9.Visible = True Then Image9.Visible = False Image10.Visible = True Else If Image10.Visible = True Then Image10.Visible = False Image2.Visible = True End If End If End If End If End If End If End If End If End If End Sub

Listo Pruebenlo y veran los efectos de hecho es un poco tedioso con tanto if pero funciona, bueno que les parecio SENCILLO NO?

Programas Java

Me hicieron hacer esto pequeños programas en Java, realemnte hace mucho que no lo hacia ya que me dedique a programar en javascript pero valio la pena jeje

Selección: Este método consiste en buscar el elemento más pequeño del array y ponerlo en primera posición; luego, entre los restantes, se busca el elemento más pequeño y se coloca en segudo lugar, y así sucesivamente hasta colocar el último elemento. Por ejemplo, si tenemos el array {40,21,4,9,10,35}, los pasos a seguir son: {4,21,40,9,10,35} <-- Se coloca el 4, el más pequeño, en primera posición : se cambia el 4 por el 40. {4,9,40,21,10,35} <-- Se coloca el 9, en segunda posición: se cambia el 9 por el 21. {4,9,10,21,40,35} <-- Se coloca el 10, en tercera posición: se cambia el 10 por el 40. {4,9,10,21,40,35} <-- Se coloca el 21, en tercera posición: ya está colocado. {4,9,10,21,35,40} <-- Se coloca el 35, en tercera posición: se cambia el 35 por el 40.

class Algoritmo1 {
public static void main(String[] args){
int caja[]=new int[6];
caja[0]=14;
caja[1]=21;
caja[2]=40;
caja[3]=9;
caja[4]=35;
caja[5]=10;
System.out.println("Se muestra el arreglo en desorden");
for(int i=0;i<caja.length;i++){
System.out.print(caja[i]);
}
System.out.println("Se muestra ahora el arreglo ordenado");
int x;
int y;
int tempo, min;
int cap=caja.length;
y=0;
while (y<cap-1){
min=y;
for(x=y+1;x<cap; x++){
if (caja[x]<caja[min]){
min=y;
tempo=caja[x];
caja[x]=caja[min];
caja[min]=tempo;
}
}
y++;
}
for(int i=0;i<caja.length;i++)
System.out.println(caja[i]);

}
}

Array contenido en uno mas grande. Dados dos arrays de números enteros A y B de longitud n y m respectivamente, siendo n >= m, determinar si B está contenido en A. Ejemplo: A = {2,3,4,5,6,7,-3} B = {7,-3} -> contenido; B = {5,7} -> no contenido; B = {3,2} -> no contenido

public class algoritmo7 {
public static void main(String[] args){
int A[] = {2,3,4,5,6,7,-3};
int B[]={6,7,-3};
int m=0;
boolean sigue=false;
for(int i=0; i<A.length;i++){
for (int j=0; j<B.length;j++){
if(B[j]==A[i]){
//C[j]=A[i];
m++;
sigue=true;
}else{
sigue=false;
}
}
}
if ((m==B.length) && (sigue==true)){
System.out.println("Contenido");
}else
System.out.println("NO Contenido");
}

}

Potencia. Dados dos números a (número entero) y b (número natural mayor o igual que cero) determinar a^b.

public class algoritmo4 {
static int potencias(int a, int b){
if(b==0){
return 1;
} else
return a * potencias(a,b-1);
}

public static void main(String[] args){
System.out.println(potencias(3,6));
}
}