JUEGO DE MEMORIA

Creamos unformulario nuevo y insertamos 8 imagenes diferentes:

Estas imagenes deveran tener parejas, encima de las imagenes insertaremos una picture en negro de sesta manera las imagenes quedaran cubiertas por un fondo en negro:

Despues agregaremos los componentes necesarios para poder agregar un progress bar:

Tambien crearemos un timer en el cual pondremos el siguiente codigo:

Private Sub Timer2_Timer()
x = x + 1
ProgressBar1.Value = x
If x >= 100 Then Timer2.Enabled = False
Picture1(x / 100 * 15).Visible = True
Image1(x / 100 * 15).Visible = True
End Sub

Despues otro timer con el codigo siguiente:

Private Sub Timer3_Timer()

Picture1(i1).Visible = True
Timer3.Enabled = False
End Sub

Para finalixzar el ultimo codigo en el timer 4 :
este codigo sirve para mostrar el tiempo transcurido en el form:

Private Sub Timer4_Timer()
If ProgressBar1.Value = 100 Then
tiempo = tiempo + 1
t1.Text = tiempo
End If
End Sub

En el click de las imagenes pondremos el siguiente codigo:

Private Sub Picture1_Click(Index As Integer)

If Timer3.Enabled = True Then

If Image1(i1).Picture = Image1(Index).Picture Then

Picture1(i1).Enabled = False

Picture1(Index).Enabled = False

Picture1(i1).Visible = False

Picture1(Index).Visible = False

Timer3.Enabled = False

AC = 1

Else

Picture1(i1).Visible = True

Timer3.Enabled = False

End If
End If

If AC = 0 Then

Picture1(Index).Visible = False

i1 = Index

Timer3.Enabled = True

End If

End Sub

 

 

 

el programa tendra que parecerse a este q se muestra:
 

EXPLORADOR DE IMAGENES VB

-En este programa crearemos un formulario nuevo donde visualizaremos mediante un drive, dirlistbox y filelistbox imagenes almacenadas en nuestro ordenador:

-Crearemos en el centro un image donde se mostraran las imagenes del ordenador :

Tambien deberemos crear dos botones uno de anterior y otro de siguiente, con el siguiente codigo en el interior de cada uno de ellos:

Private Sub Command2_Click()

On Error Resume Next

File1.Selected(File1.ListIndex - 1) = True

End Sub

Private Sub Command1_Click()

On Error Resume Next

File1.Selected(File1.ListIndex + 1) = True

End Sub
 
 
 

Para poder retroceder y abanzar se introducira el codigo anterior y en los dirlistbox,filelistbox y drive:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

Dir1.Path = Drive1.Drive

End Sub

Private Sub Drive1_Change()

On Error Resume Next

Dir1.Path = Drive1.Drive

End Sub



Private Sub File1_Click()

Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)

End Sub

Private Sub Form_Load()

File1.Pattern = "*.bmp;*.gif;*.jpg"

Image1.Stretch = True

End Sub

I este es el resultado final del proyecto de explorador de imagenes:

DEPOSITO DE COMBUSTIBLE

-En este proyecto de visual basic crearemos un deposito de combustible que se debera llenar y vaciar:

-El deposito debera vaciarse al hacer clic en el optionbutton de "vaciar" y llenarse con el boton "llenar"  con el siguiente codigo en el correspondiente timer:

Private Sub Timer2_Timer()

If Option1.Value = True Then

incremento = 20

Else

incremento = -20

End If

If Text1.Top - incremento <= Picture1.Top + Picture1.Height * 0.9 Then

If Text1.Height + incremento <= Picture1.Height Then

Text1.Height = Text1.Height + incremento

Text1.Top = Text1.Top - incremento

Else

Text1.Height = Picture1.Height

End If

End If

End Sub

-Tambien deberemos poner un BOTON para iniciar el llenado con codigo siguiente:

Private Sub start_Click()

Timer2.Enabled = True

End Sub

 

-Cuando clickemos en el option buton vaciar el bidon se vaciara, debera tener el siguiente aspecto:

 
 

PARTIDO DE TENIS

Creamos un Proyecto nuevo, buscamos una imagen de fondo de una pista de tennis, la ponemos en fondo del formulario:

Creamos dos botones para añadir los puntos del partido de tennis del jugador 1 y el jugador 2 de esta forma se añadiran a unas textbox creadas en el inicio del formulario:

Para dar ventaja a un jugador o otro engancharemos en la parte inferior de los textbosx de los jugadores una V que mostrara que jugador tiene la ventaja en ese momento del partido como se muestra en la imagen siguientemente mostrada a continuacion:

Con el siguiente codigo en los boton:

Private Sub Command1_Click()
indice1 = indice1 + 1
If indice1 = 1 Then pt1.Text = pt1.Text + 15
If indice1 = 2 Then pt1.Text = pt1.Text + 15
If indice1 = 3 Then pt1.Text = pt1.Text + 10
If indice1 >= 4 And pt1.Text = pt2.Text Then Label3.Visible = True
If indice1 >= 4 And pt1.Text > pt2.Text Then
txset1.Text = Val(txset1.Text) + 1

CALENDARIO 2ºparte

-En la practica de el calendario ponemos cajas de texto y labels representando los dias de la semana y el numero correspondiente de los dias:

-En la barra de herramientas del formulario creamos el menu about, fecha y hora (que se activara o desactivara) calendario y meses.

-Clicando sobre el menu meses saldran todos los meses del año y segun el mes que nosotros elijamos desapareceran los dias que sobren:

-El calendario se activara o desactivara mediante un boton especialmente creado:

Despues hemos creado un textbox en el que podemos escribir notas para todos los dias:

Haciendo doble click en un dia aparecera el textbox y clicando otra vez desaparecerà.
Crearemos un nuevo formulario donde insertaremos un datagrid y un adodc, para mostrarlo hacemos click secundario en el adodc-propiedades de adodc-generar y en conexion ponemos la ruta del archivo de la base de datos para visualizarla en el datagrid anteriormente creado:

Para provar la funcionalidad del programa elegimos un mes y en el dia seleccionado hacemos doble clic en un dia concreto, y escrivimos una nota, despues hacemos doble click y en el dia seleccionado y mes se guardara una nota para ese dia.

finalmente crearemos el boton "IR" para poder ir al formulario que comtiene la base de datos:

Mostrar datos de Excel en un DataGrid

Mostrar datos de Excel en un DataGrid
Este ejemplo muestra como leer mediante una conexión ADO una hoja de Excel y poder mostrar dichos datos ( previamente almacenados en un recordset ) en un control DataGrid

Colocar los siguiente controles como está en la imagen:




- Un control Text1 para colocar el Path del libro

- Un Text2 y un Text3 para especificar el Rango de los datos (opcional, si no se especifica se lee toda la hoja)

- Un Text4 para el nombre de la hoja

- Un CommandButton para leer los datos

- Un control DataGrid




- Especificar desde el menú referencias Microsoft Activex Data Objects - Ado

Y aquí vemos la tabla de excel en nuestro programa de Visual Basic:

Como crear un blog

1º Crear nuestro blog en blogger:

-Primero vamos a ir a www.blogger.com y pincharemos sobre el boton que pone Crear blog ahora.

-En elegir nombre de usuario ponemos el nuestro para identificarnos en blogger.

-Pondremos nuestro nick o nombre que se vea cuando publiquemos un post, una vez rellenados los datos, pulsaremos continuar.

-Luego ponemos el titulo de nuestro blog, nuestra direcion de internet, pulsamos continuar.

-Despues escogemos nuestro estilo de blog.

 

2º Publicamos nuestro mensaje

-En titulo ponemos el nombre el post que queremos poner y usamos las herramientas tipo wordpad.

-Cuando tengamos listo pulsamos en publicar y se publicara (saldra un mensaje de confirmacion).

3º Configurar el blog

1-Iremos a la pestaña Settings.

2-En Title , podemos personalizar el título de nuestro blog

3-En Description , pondremos una descripción del blog para quien nos visite por ejemplo , pueda verlo.

4-En Global settings , si presionamos sobre Save Changes, salvaremos los cambios realizados.