Campo de Tenis

Este programa va dedicado a las puntuación de un partido de tenis. Funciona de la siguiente manera cuando cualquier equipo gana un punto se presiona el boton "Añadir punto".

Este boton funciona asi:

- Primero creamos dos variables : la primera para el primer boton y la segunda para el segundo.

- Creamos dos cajas de texto para visualizar la puntuación de los puntos y de los sets.

Private Sub Bpunto1_Click()
indice1 = indice1 + 1

En esta parte decimos que cuando presionemos el botón para añadir los puntos se visualice en numero 15 en el cuadro de texto y que cuando se vuelva presionar se sumen 15 puntos mas hasta llegar a 40.

If indice1 = 1 Then Txpun1.Text = Val(Txpun1.Text) + 15
If indice1 = 2 Then Txpun1.Text = Val(Txpun1.Text) + 15
If indice1 = 3 Then Txpun1.Text = Val(Txpun1.Text) + 10
If indice1 >= 4 And Txpun1.Text = Txpun2.Text Then Label1.Visible = True
If indice1 >= 4 And Txpun1.Text > Txpun2.Text Then

Esta segunda parte del código dice que cuando se vuelva a pulsar el botón añadir punto se muestre el numer 1 en el cuadro de texto del Set.
' set ganado
Txset1.Text = Val(Txset1.Text) + 1
Label1.Visible = False
Txpun1.Text = 0

Label2.Visible = False
Txpun2.Text = 0
indice2 = 0
End If
End Sub

Las explicación del primer botón sirve para el otro botón.

Base de datos unida al calendario

Antes de empezar debemos crear un archivo de Acces 2003 para poder tener algun sitio para meter los datos luego, una vez creada la unimos a Visual Basic.

Introducimos el codigo correspondiente para que al escribir en el cuadro de texto envie lo escrito a la base de datos:

Private Sub Txnotas_DblClick()
Txnotas.Visible = False
Text1(Indice).Text = Txnotas.Text
Escribirdatos
End Sub

La Variable Escribirdatos esta creada para que los datos excritos vayan a la Base de datos de Acces:

Private Sub Escribirdatos()
FBD.Show
FBD.DataGrid1.Row = mes
For i = 0 To 30
FBD.DataGrid1.Columns(i + 2) = Text1(i).Text
Next
Unload FBD
End Sub

Creamos otra variable "leerdatos" para que lo calice exactamente la posición de lo que hemos escrito:

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

Finalmente comprobamos que el funcionamiento de la aplición es correcta:

C a l e n d a r i o V i s u a l B a s i c

Antes de empezar hemos de crear un cuadro de texto i una etiqueta en la cual pondremos el numero del dia y en el cuadro de texto escribiremos la nota que queramos:

Esto lo copiamos y lo pegamos unas 31 veces una al lado de la otra hasta conseguir algo asi:

Ahora crearemos una barra de menus para colocar los Meses y tambien colocaremos el codigo para que se visualice en una etiqueta previamente creada para que se visualice el mes seleccionado:

Label4.Caption = meses(Index).Caption
meses(0).Caption = "Enero"
meses(1).Caption = "Febrero"
meses(2).Caption = "Marzo"
meses(3).Caption = "Abril"

En el caso de febrero tendremos que hacer que tres de los cuadros y etiquetas que contienen el numero del dia desaparezcan. Con este codigo:

If (Index = 1) Then

Text1(28).Visible = False

Text1(29).Visible = False

Text1(30).Visible = False

Label2(28).Visible = False

Label2(29).Visible = False

Label2(30).Visible = False

End If

Para poder escribir en el cuadro debemos hacer doble click en el cuadro de texto y esto se hace de la siguiente manera.

Hacemos dobleclik en el cuadro de texto y escribimos el siguiente codigo:

Private Sub Text1_DblClick(Index As Integer)
Txnotas.Visible = True
Indice = Index
Txnotas.Text = Text1(Index).Text
End Sub

Txnotas es un cuadro de texto que se abrira para poder escribir dentro.

Luego entramos en el codigo de Txnotas para que luego podamos acer doble clik dentro del cuadro para que lo podamos cerrar y que se quede guardado. Este es el codigo: