Como crear un juego

Primero creamos una portada...



Y ahora lo diseñamos poniendo imagenes y encima picture con color negro.
Que las llamaremos Tapaderas.



Crearemos timers a porrillo, `para contar el tiempo, para ver la fecha y la hora del sistema...
Y tambien para la barra de carga y en este caso el circulo de valores.



Parte del codigo

AC = 0
If Timer2.Enabled = True Then
l8.Caption = l8.Caption + 1
If Image1(i1).Picture = Image1(Index).Picture Then
Picture1(i1).Enabled = False
Picture1(Index).Enabled = False
Picture1(i1).Visible = False
Picture1(Index).Visible = False
Picture1(i1).Visible = False
Timer2.Enabled = False

AC = 1
Else
Picture1(i1).Visible = True
Timer2.Enabled = False
End If

Dentro de la picture al hacel clic si las imagenes coinciden las tapaderas quedan ocultas. Porque has acertado ademas el Timer del progressbar al llegar al 100 tambien se para, y la barra se oculta.

La variable AC al principio en 0 cambiara a 1.

En el form_load deben estar declaradas las coincidencias.

Private Sub Form_Load()
Image1(0).Picture = Image1(11)
Image1(2).Picture = Image1(9)
Image1(1).Picture = Image1(10)
Image1(3).Picture = Image1(13)
Image1(4).Picture = Image1(14)
Image1(5).Picture = Image1(8)
Image1(6).Picture = Image1(15)
Image1(7).Picture = Image1(12)
End Sub

ASi sabra si acertamos.

Ruben Santana

Como crear un Visualizador de imagenes

Como podeis ver el diseño final es una pasada, bien comenzaremos lo primero es relacionar el DriveList, con el DirList y este a su vez con el File List, por ultimo recomiendo usar On Error go to resume para que en caso de error no lo muestre.

Bien ese contenido es el que pondremos en el form Load, haciendo doble clic en el Formulario, y servira para mostrar solo los archivos que hagamos clic con las extensiones GIF, JPG, y BMP que seran imagenes. Y la propiedad de Image Strech sirve para hacer la imagen redimensionado al tamaño dado al picture.

Esto lo tendremos que poner dentro del File1 para al hacer clic que lea la ruta, y el resultado lo muestre en image.picture.

Y aqui la gota que colma el proyecto, crearemos un Boton llamado Preview para que las fotos pasen automaticamente y al llegar al final vuelvan al principio de hay que tenga un lujoso 10 !



Aqui esta el contenido del Timer 2 desde el que enlazaremos en el Boton Preview conectando o desconectandolo con la propiedad Enable.
En el Timer 2 se ve como al ListIndex se le suma 1 y cuando llegue al ListCount volvera al principio.


Por ultimo ese código lo Introduciremos en el botón Siguiente para pasar de una foto a otra de manera manual. Y lo mismo para el Botón anterior pero con el símbolo -.

By Ruben Santana

Como crear un deposito y Visualizador de imagenes

Practica deposito de Gasolina

Crearemos
2 Labels
1 Cuadro de texto
1 Cuadro dentro
2 Timers
2 Botones
Los menus
Y ahora pasaremos al código...
Aqui podemos distinguir 2 partes la de arriba que es la del boton Start que es para que cambie a Stop y al pulsar Stop pare y en Start empiece y la de abajo:
La de abajo trabaja con el picture para saber hasta cuando se debe llenar es decir hacer el cuadro grande poniendo unos limites basados en la variable incremento.

Y aqui tenemos el ultimo codigo, del timer !, con el comando Height estamos trabajando su altura la multiplicamos por 0.8 porque en mi caso solo llenara al 80 % y establecemos las relaciones poniendo superior a o igual ><= sobre el incremento que es una variable que le damos un -20 al iniciarla. Ese incremento sera sumado o restado segun la opcion utilizada Vaciar o Llenar.
NO CONFUNDIR !

By Ruben Santana

Puntuador Partido Tennis

Este es un simlador te una partida de Tenis, aqui aprenderemos a contar los puntos.
Los sets...
Este es el resultado final:


Explicando un poco el codigo...

En primer lugar declararemos las variables "a" y "b" seran los puntos.
"aset" y "aset2" seran para controlar los sets de cada jugador
Iniciamos las variables y los cuadros de texto los cuales los bloqueamos con locked al principio, a 0.
Cuando el cuadro de texto llegue a 30 seguiremos sumando 10 al siguiente punto.
Al llegar a 40 se pondran a 0, el usuario nunca vera que llegamos a 40 porque cambiara a 0.
Los sets siempre son iguales a lo que habia en la caja de texto mas el punto de set.


Aqui es la parte mas complicada donde si gana uno seguimos jugando los jugadores con las variables i1 y i2 si uno va ganando le restamos un punto al otro de esta manera nunca llegan a un empate cuando la diferencia sea de mas de 2 puntos gana el otro, de no ser asi la etiqueta V de Ventaja de muestra en el que va ganando.


Aqui es donde jugamos con la etiqueta de la V de Ventaja Cuando este activa en un jugador en el otro no se mostrara, y viceversa.

Salu2 Santana

Como enlazar Visual Basic con Access

Ahora conexion con Access.


Con el Datagrid mostraremos el contenido del archivo enlazado al visual Basic.
El Datagrid lo enlazamos al ADODC con la propiedad DataSource.

En las propiedades del ADODC, le hacemos clic al boton Generar y buscamos el archivo a enlazar. Despues hay un boton que pone comprobar conexion para ver si enlaza correctamente, solo compatible con Office 2003.

Este es el resultado si todo ha salido bien, veremos el contenido del archivo, y podemos buscar, escribir o guardar informacion en ella con cajas de texto y modificando el codigo.
Si por ejemplo los datos empiezan en la 2 columna hay que poner + y el numero de columnas.
Aqui podemos distinguir basicamente las 2 partes del codigo, Leer los datos, Escribir y las distintas maneras de enlazar el codigo a los datos enlazados.

Como crear una agenda

En la practica para crear la agenda creamos cajas de texto con matriz y etiquetas.
Le aplicamos un fondo. Creamos etiquetas con los nombres de cada dia en un unico formulario no uno por cada mes, porque al ser matricial luego se mostraran unas u otras.



Creamos unos menus, desde el menu herramientas. Creamos los diferentes meses, que dentro de su codigo mostraran o ocultaran las cajas de texto segun el nombre del mes.

La parte del codigo, por cada mes debe de mostrar ciertos dias, no todos ejemplo en Febrero solo hasta el 28. Jugamos con la propiedad visible.

Lo que escribamos en la caja se mostrara en una mas grande y al hacer doble clic aparecera una caja grande.
Ahora conexion con Access.


Con el Datagrid mostraremos el contenido del archivo enlazado al visual Basic.
El Datagrid lo enlazamos al ADODC con la propiedad DataSource.

En las propiedades del ADODC, le hacemos clic al boton Generar y buscamos el archivo a enlazar. Despues hay un boton que pone comprobar conexion para ver si enlaza correctamente, solo compatible con Office 2003.

Este es el resultado si todo ha salido bien, veremos el contenido del archivo, y podemos buscar, escribir o guardar informacion en ella con cajas de texto y modificando el codigo.
Si por ejemplo los datos empiezan en la 2 columna hay que poner + y el numero de columnas.
Aqui podemos distinguir basicamente las 2 partes del codigo, Leer los datos, Escribir y las distintas maneras de enlazar el codigo a los datos enlazados.

S1B Conectar Excel con Visual Basic

Por Ruben Santana
Como conectar Visual Basic con Excel por ADO.

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

DataGrid con los datos del Excel

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



Código en un formulario:

Texto planoImprimir

1. Option Explicit
2. Public Sub Importar_Excel( _
3. Libro As String, _
4. hoja As String, _
5. Optional rango As String = "")
6.
7. Dim conexion As ADODB.Connection, rs As ADODB.Recordset
8.
9. Set conexion = New ADODB.Connection
10.
11. conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
12. "Data Source=" & Libro & _
13. ";Extended Properties=""Excel 8.0;HDR=Yes;"""
14.
15.
16. ' Nuevo recordset
17. Set rs = New ADODB.Recordset
18.
19. With rs
20. .CursorLocation = adUseClient
21. .CursorType = adOpenStatic
22. .LockType = adLockOptimistic
23. End With
24.
25. If rango <> ":" Then
26. hoja = hoja & "$" & rango
27. End If
28.
29. rs.Open "SELECT * FROM [" & hoja & "]", conexion, , , adCmdText
30.
31. ' Mostramos los datos en el datagrid
32. Set DataGrid1.DataSource = rs
33.
34.
35. End Sub
36.
37.
38.
39. Private Sub Command1_Click()
40. Dim rango As String, hoja As String, ruta As String
41.
42. ruta = Text1 'ruta del archivo excel
43. rango = Text2 & ":" & Text3 'Rango de datos (opcional)
44. hoja = Text4 'Nombre de la hoja
45.
46. Importar_Excel ruta, hoja, rango
47.
48. End Sub

Y no olvidarse de ir al Menu Herramientas, Componentes y agregar OLE Objets, y Excel.