Imports System.Data.Odbc
Public Class Form1
Dim logros(10) As Label
Dim codDeporte As Integer = 1 'Beisbol
Dim Partidos() As GroupBox
Dim totalPartidos As Integer = 0
Dim totalLogros As Integer = 0
Dim BotonEquipo1(,) As Button
Dim BotonEquipo2(,) As Button
Dim NombreLogroEquipo1(,) As Label
Dim NombreLogroEquipo2(,) As Label
Sub CrearPartido(ByVal nombreEquipo1 As String, ByVal nombreEquipo2 As String)
ReDim Preserve Partidos(totalPartidos)
Dim x As Integer = 100
Dim i As Integer
Dim separacion As Integer = 75
Dim equipo1 As New Label
Dim equipo2 As New Label
equipo1.Text = nombreEquipo1
equipo2.Text = nombreEquipo2
equipo1.AutoSize = True
equipo2.AutoSize = True
equipo1.Location = New Point(15, 20)
equipo2.Location = New Point(15, 55)
Partidos(totalPartidos) = New GroupBox
Partidos(totalPartidos).Size = New Size(800, 90)
'Partidos(totalPartidos).BackColor = Color.Gray
Partidos(totalPartidos).Location = New Point(4, 90 * (totalPartidos + 1))
Partidos(totalPartidos).Controls.Add(equipo1)
Partidos(totalPartidos).Controls.Add(equipo2)
For i = 1 To totalLogros
ReDim BotonEquipo1(totalPartidos, i)
BotonEquipo1(totalPartidos, i) = New Button
BotonEquipo1(totalPartidos, i).Size = New Size(33, 20)
BotonEquipo1(totalPartidos, i).Location = New Point(x, 20)
Partidos(totalPartidos).Controls.Add(BotonEquipo1(totalPartidos, i))
ReDim NombreLogroEquipo1(totalPartidos, i)
NombreLogroEquipo1(totalPartidos, i) = New Label
NombreLogroEquipo1(totalPartidos, i).Size = New Size(33, 20)
NombreLogroEquipo1(totalPartidos, i).Location = New Point(x, 30)
Partidos(totalPartidos).Controls.Add(NombreLogroEquipo1(totalPartidos, i))
ReDim BotonEquipo2(totalPartidos, i)
BotonEquipo2(totalPartidos, i) = New Button
BotonEquipo2(totalPartidos, i).Size = New Size(33, 20)
BotonEquipo2(totalPartidos, i).Location = New Point(x, 55)
Partidos(totalPartidos).Controls.Add(BotonEquipo2(totalPartidos, i))
ReDim NombreLogroEquipo2(totalPartidos, i)
NombreLogroEquipo2(totalPartidos, i) = New Label
NombreLogroEquipo2(totalPartidos, i).Size = New Size(33, 20)
NombreLogroEquipo2(totalPartidos, i).Location = New Point(x, 30)
Partidos(totalPartidos).Controls.Add(NombreLogroEquipo2(totalPartidos, i))
x = x + separacion
Next
Me.Controls.Add(Partidos(totalPartidos))
totalPartidos = totalPartidos + 1
End Sub
Sub CrearFormulario()
Dim tabla As OdbcDataReader
Dim conex As New Conexion
Dim contador As Integer = 0
Dim x As Integer = 100
Dim separacion As Integer = 75
tabla = conex.consultar("select *from tipoapuesta where codDeporte = " & codDeporte)
While tabla.Read
logros(contador) = New Label
logros(contador).Text = tabla.GetValue(2)
logros(contador).Location = New Point(x, 40)
logros(contador).AutoSize = True
Me.Controls.Add(logros(contador))
contador = contador + 1
x = x + separacion
End While
totalLogros = contador
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CrearFormulario()
mostrarJuegos()
End Sub
Sub mostrarJuegos()
Dim fecha As String
Dim sql As String
Dim Conex As New Conexion
Dim Tabla As OdbcDataReader
fecha = Format(Now, "yyyy-MM-dd")
sql = "SELECT codPartido,fecha,horaInicio, a.nombre,b.nombre FROM partidos p, equipos a, equipos b WHERE p.nombreEA = a.codEquipo AND p.nombreEB = b.codEquipo AND fecha='" & fecha & "'"
Tabla = Conex.consultar(sql)
While Tabla.Read
CrearPartido(Tabla(3), Tabla(4))
End While
End Sub
End Class