16 ago 2008

the Closest places at work

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

11 ago 2008

De viaje 3 y 4

Las ultimas partes de la serie "De viaje"

Tercera Parte...


Cuarta Parte....

4 ago 2008

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..

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

swadrin_nafondo

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?

2 ago 2008

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));
}
}

Related Posts Plugin for WordPress, Blogger...