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.