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