Juego Imagenes

Juego Imagenes

En este programa hemos creado un juego de imágenes donde el usuario tendra que hacer parejas con las imagenes que sean iguales.
En el programa pondremos 16 imagenes y 16 picture box para tapar la imágenes cuando se inicie el programa, un progress bar para cargar el programa, tres label uno para el tiempo, uno para la puntación y un label para el tiempo del progress bar y finalmente ponemos los timers que correspondan a cada objeto.

En principio ponemos el progress bar y un label para su tiempo de carga.



Depués ponemos las 16 imagenes y los 16 picture box en el formulario, loslabels para cada cosa.



Despues ponemos el codigo correspondiente:

Dim x As Integer
Dim Contador As Integer
Dim i1 As Integer
Dim i2 As Integer
Dim tiempo As Integer

Private Sub Image2_Click()

End Sub

Private Sub Command1_Click()
Unload Me
Form1.Show
tiempo = 0
Contador = 0

End Sub

Private Sub Form_Load()

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

End Sub

Private Sub Menu1_Click()
Form2.Show 'muestra el form2
End Sub

Private Sub Menu2_Click()
If Lfecha.Visible = True Then 'pone el label visible
Lfecha.Visible = False 'pone el label no visible
Else
Lfecha.Visible = True 'pone el label visible
End If
If Lhora.Visible = True Then 'pone el label visible
Lhora.Visible = False 'pone el label no visible
Else
Lhora.Visible = True 'pone el label visible
End If

End Sub

Private Sub Menu3_Click()
End 'finaliza el programa
End Sub

Private Sub Picture1_Click(Index As Integer)
AC = 0
If Timer4.Enabled = True Then
If Image1(i1).Picture = Image1(Index).Picture Then
Label1.Caption = Label1.Caption + 1
Picture1(i1).Enabled = False
Picture1(Index).Enabled = False
Picture1(i1).Visible = False
Picture1(Index).Visible = False
Timer4.Enabled = False
AC = 1
Else
Picture1(i1).Visible = True
Timer4.Enabled = False
End If
End If
If AC = 0 Then
Picture1(Index).Visible = False
i1 = Index
Timer4.Enabled = True
End If
If Label1.Caption = 8 Then
Timer5.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
x = x + 1 'indica el valor de la variable
ProgressBar1.Value = x 'pone el valor del progressbar a x
If x >= 100 Then
x = 0
Timer1.Enabled = False 'indica que si x es 100 el timer este enable=false
End If
Picture1(x / 100 * 15).Visible = True
Image1(x / 100 * 15).Visible = True
If x >= 100 Then Timer1.Enabled = False

End Sub

Private Sub Timer2_Timer()
Contador = Contador + 1 'indica el valor de contador
Ltiempo.Caption = Contador ' idica el caption del timer
If ProgressBar1.Value = 100 Then 'indica el valor del value del progressbar a 100
Ltiempo.Caption = 100
ProgressBar1.Visible = False
Ltiempo.Visible = False
End If
End Sub

Private Sub Timer3_Timer()
Lfecha.Caption = Date 'muestra la fecha en el label
Lhora.Caption = Time 'muestra la hora en el label
End Sub

Private Sub Timer4_Timer()
Picture1(i1).Visible = True
Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer()
If ProgressBar1.Value = 100 Then
tiempo = tiempo + 1
Label2.Caption = tiempo
End If
End Sub

Finalmente cambiamos la estetica del programa como por ejemplo ponemos un about, la hora y la fecha , cambiamos los colores de los picture box y ponemos un formulario de inicio de bienvenida.

Explorador Imagenes

Explorador imagenes

En esta practica haremos que se puedan ver las imgenes que tenemos. En el fromulario pondremos un DriveListBox, un DirListBox, un FileListBox donde se mostrara todas la imagenes que tengamos en la carpeta seleccionada, un Image y cutro CommandButton.



En los ListBox que hemos puesto ponemos este codigo:

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(File1.Path & "/" & File1.FileName)
End Sub

En los Botones que hemos puesto, entramos en el codigo y ponemos este codigo en cada uno de ellos que sera uno para ir para atras, otro para ir a la siguiente imagen y otro para que las imagenes se pasen solas y otro para parar la visualización automatica.

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

Private Sub Command4_Click()
Timer2.Enabled = True

End Sub

Private Sub Command5_Click()
Timer2.Enabled = False
End Sub

Al final cambiamos la estetica del Formulario como cambiar el color de fondo y poner la fecha y hora.

Deposito Gasolinera

Practica Deposito

En esta practica haremos un programa para simular el deposito de una gasolinera.
primero en el formulario ponemos un PictureBox donde dentro pondremos un TextBox donde ira rellenadno el PictureBox, un boton para iniciar el deposito, dos OptionButton; uno con la palabra llenar y otro con la palabra vaciar y al final pondremos un timer donde se iniciara todo el programa.



En el Timer pondremos un codigo donde realizara todo el programa al apretar el boton Start:

Private Sub Timer1_Timer()
'Timer1.Interval = HScroll1.Value
If Option1.Value = True Then 'pone el valor de option1 en true
incremento = 20 'incrementa a 20
Else
incremento = -20 'incrementa a -20
End If
If Text1.Top - incremento <= Picture1.Top + Picture1.Height * 0.85 Then 'mantiene el text1 ael top del picture 1

If Text1.Height + incremento <= Picture1.Height Then 'pone el text1 al top del picture1
Text1.Height = Text1.Height + incremento 'incrementa el height del text1
Text1.Top = Text1.Top - incremento 'diminuye el incremento del text1
Else
Text1.Height = Picture1.Height
End If
End If
End Sub

En el Boton de Start pondremos un codigo para que cuando se cliquee se inicie el programa desde el Timer:

Private Sub BStart_Click()
Timer1.Enabled = True
If BStart.Caption = "Start" Then 'pone el nombre de start
BStart.Caption = "Stop" 'pone el nombre de stop
Else
BStart.Caption = "Start" ' pone el nombre de start
End If
If BStart.Caption = "Start" Then Timer1.Enabled = False 'inicia el programa
If BStart.Caption = "Stop" Then Timer1.Enabled = True 'para el programa
End Sub

Finalmente cambiamos la apariencia del Fromulario poniendo la fecha y hora, cambiando la estetica como por ejemplo una imgen de gasolinera, y al final podemos poner un HScroll donde se podra variar la velocidad del deposito.

Marcador De Tenis

Marcador Tenis

En la practica pondremos dos command button dentro del formualrio donde ponemos un codigo correspondiente en cada un de ellos que es este:

If t1.Text = 0 Then a = 15
If t1.Text = 30 Then a = 10

If t1.Text = 40 And a = 0 And L1.Visible = True Then
aset = aset + 1
t1.Text = 0
t2.Text = 0
a = 0
b = 0
L1.Visible = False
L2.Visible = False
End If

If t1.Text = 40 Then L1.Visible = True
If t1.Text = 40 Then a = 0

S1.Text = aset
t1.Text = Val(t1.Text) + Val(a)
If L1.Visible = True Then L2.Visible = False And i1 = i1 + 1 And i2 = i2 - 1
If i1 > i2 Then L1.Visible = True

Este codigo es para el primer command button solo se tiene que cambiar los nombres de los texts para el segundo command button.

Después ponemos los correspondientes Textbox para cada boton y despues ponemos dos labels o dos textbox para los puntos de set de cada jugador.

Finalmente ponemos dos label con una V dentro del Caption para indicar la ventaja de cada jugador cuando estan iguales para que el marcador este al cien por cien.

Finalmente le cambiamos un poco la estetica para modificar un poco el diseño como por ejemplo un boton de finalizar, con la fecha y hora, etc...

Base de Datos

Base de Datos

Aqui se muestra como el programa interactua con la base de datos donde el usuario desde la agenda puede escribir los datos y en la base de datos se guardaran los datos escritos.

Aqui se muestra como el usuario escribiendo en un dia cualquiera se muestra en la base de datos lo que ha escrito.

Tambien el usuario puede borrar los datos desde la agenda pra poder añadir nuevos datos.

Calendario-Visual Basic

CALENDARIO

En la practica se muestra la cajas de texto donde se ver las notas que ha escrito el usuario. Cada caja de texto tiene un label donde muestra el dia de cada mes. Tambien hemos puesto un label arriba para poner los dias de Lunes a Domingo.

Despues creamos el menu Calendario en la barra de herraminetas donde se muetra el calendario. También creamos el menu de Meses para cuendo seleccionamos un mes el programa se modifique y muestre los dias de cada mes. Despues ponemos un menu de fecha y hora para mostrar la fecha y la hora actual y finalmente un menu de About donde se muestra nuestros datos.

Despues hemos puesto un Text Box donde el usuario cuando cliquee dos veces en un text box se muestre la caja de texto y escriba lo que el quiera y que cuando cliquee dos veces en la misma caja de texto creada, desaparezca y que se muestre en el Text Box elegido lo que ha escrito.

Despues haremos un formualrio nuevo donde pondremos los objetos para poder interactuar con una base de datos, para que cuando el usuario escriba en el calendario se guarde en la tabla de la base de datos.

Aqui se muestra todo el codigo del programa para que el todo el programa funcione correctamente.

Dim indice As Integer
Dim mes As Integer

Private Sub Command1_Click()
FBD.Show
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
mes = 0
leerdatos
inicializar
End Sub
Private Sub leerdatos()
FBD.Show
FBD.DataGrid1.Row = mes
For i = 0 To 30
Tx1(i).Text = FBD.DataGrid1.Columns(i + 2)
Next
Unload FBD
End Sub
Private Sub escribirdatos()
FBD.Show
FBD.DataGrid1.Row = mes
For i = 0 To 30
FBD.DataGrid1.Columns(i + 2) = Tx1(i).Text
Next
Unload FBD
End Sub

Private Sub M_Click(Index As Integer)
mes = Index
If (mes = 0 Or mes = 2 Or mes = 4 Or mes = 6 Or mes = 7 Or mes = 9 Or mes = 11) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If
If (mes = 3 Or mes = 5 Or mes = 8 Or mes = 10) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = False
End If
If (mes = 1) Then
Tx1(28).Visible = True
Tx1(29).Visible = False
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = False
Label(30).Visible = False
End If
leerdatos
End Sub

Private Sub Menu1_Click()
Form1.Show
End Sub

Private Sub Menu2_Click()
If Lfecha.Visible = True Then
Lfecha.Visible = False
Else
Lfecha.Visible = True
End If
If Lhora.Visible = True Then
Lhora.Visible = False
Else
Lhora.Visible = True
End If
End Sub
Private Sub Menu3_Click()
If Calendar1.Visible = True Then
Calendar1.Visible = False
Else
Calendar1.Visible = True
End If

End Sub

Private Sub Mese10_Click(Index As Integer)
If (Index = 10) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = False
End If
End Sub

Private Sub Mese2_Click(Index As Integer)
Fagenda.Caption = Mese2(Index).Caption
If (Index = 0) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If
mes = Index
leerdatos
End Sub

Private Sub Mese3_Click(Index As Integer)
Fagenda.Caption = Mese3(Index).Caption
If (Index = 3) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = False
End If
End Sub

Private Sub Mese4_Click(Index As Integer)
Fagenda.Caption = Mese4(Index).Caption
If (Index = 4) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If
End Sub

Private Sub Mese9_Click(Index As Integer)
If (Index = 9) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If
End Sub

Private Sub Meses0_Click(Index As Integer)
Fagenda.Caption = Meses0(Index).Caption
If (Index = 0) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If

If (Index = 1) Then
Tx1(28).Visible = True
Tx1(29).Visible = False
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = False
Label(30).Visible = False
End If

If (Index = 3) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = False
End If
End Sub
Private Sub inicializar()
For i = 0 To 30
Label(i).Caption = i + 1
Next
End Sub
Private Sub Meses1_Click(Index As Integer)
Fagenda.Caption = Meses1(Index).Caption
Tx1(28).Visible = False
Tx1(29).Visible = False
Tx1(30).Visible = False

Label(28).Visible = False
Label(29).Visible = False
Label(30).Visible = False
End Sub

Private Sub Meses11_Click(Index As Integer)
If (Index = 11) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If
End Sub

Private Sub Meses5_Click(Index As Integer)
Fagenda.Caption = Meses5(Index).Caption
If (Index = 5) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = False
End If
End Sub

Private Sub Meses6_Click(Index As Integer)
If (Index = 6) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If
End Sub

Private Sub Meses7_Click(Index As Integer)
If (Index = 7) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = True

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = True
End If
End Sub

Private Sub Meses8_Click(Index As Integer)
If (Index = 8) Then
Tx1(28).Visible = True
Tx1(29).Visible = True
Tx1(30).Visible = False

Label(28).Visible = True
Label(29).Visible = True
Label(30).Visible = False
End If
End Sub

Private Sub Timer1_Timer()
Lfecha.Caption = Date
Lhora.Caption = Time
End Sub
Private Sub Tx1_DblClick(Index As Integer)
TXnotas.Visible = True
indice = Index
TXnotas.Text = Tx1(indice).Text
End Sub
Private Sub TXnotas_DblClick()
TXnotas.Visible = False
Tx1(indice).Text = TXnotas.Text
escribirdatos
End Sub

Excel-Visual Basic

Excel en Visual Basic:

El programa debera mostrar una tabla Excel en Visual Basic. Dentro del programa podremos modificar la tabla como por ejemplo añadir nuevas reistros o eliminar registros segun lo quiera el usuario.

Pasos para crear el programa:

1. Tendremos que poner un DataGrid para poder visualizar la tabla de Excel cuando iniciemos el programa.

2. Pondremos un CommandButton para interactuar con la tabla.

3. Pondremos 4 Textbox para poner los rangos y la tabla no seleccionara los rango puestos.

4. Tendremos que poner un codigo paa qu el programa funcione.

Texto planoImprimir
Option Explicit
Public Sub Importar_Excel( _
Libro As String, _
hoja As String, _
Optional rango As String = "")

Dim conexion As ADODB.Connection, rs As ADODB.Recordset

Set conexion = New ADODB.Connection

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Libro & _
";Extended Properties=""Excel 8.0;HDR=Yes;"""


' Nuevo recordset
Set rs = New ADODB.Recordset

With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With

If rango <> ":" Then
hoja = hoja & "$" & rango
End If

rs.Open "SELECT * FROM [" & hoja & "]", conexion, , , adCmdText

'Mostramos los datos en el datagrid
Set DataGrid1.DataSource = rs

End Sub

Private Sub Command1_Click()
Dim rango As String, hoja As String, ruta As String

ruta = Text1 'ruta del archivo excel
rango = Text2 & ":" & Text3 'Rango de datos (opcional)
hoja = Text4 'Nombre de la hoja

Importar_Excel ruta, hoja, rango

End Sub

5. Finalmente el prgrama ebera quedar asi:

Como hacer un Blog

Como hacer un Blog.

Para hacer un blog hay que seguir unas intrucciones:

1. Creamos la cuenta del Blog con una cuenta hotmail o gmail o otra:

2. Ponemos los datos personales para poder entrar en la cuenta creada para poder rgistrarnos y para poner la contraseña para poder acceder al Blog:

3. Despues le pondremos un nombre a la direccion url para poder acceder y entrar con internet al Blog poniendo la direccion especificada:

4. Elegiremos el diseño que se mostrara en el Blog y que se podra visualizar cuando se entre en el Blog:

5. Y finalizamos y se ostrara el Blog creado:

Despues hacer los pasos de arriba ya podremos modificar nuestro blog introduciendo todo lo que queramos poner para que se pueda ver cuando la gente entre en nuestro Blog.