Visual Basic

Public Class clsGame
    Public teams As ArrayList

    Public Sub New(ByVal intTeamNumber As Integer)
        teams = New ArrayList
        teams.Capacity = intTeamNumber
    End Sub

    Public Sub add(ByVal intTeam As Integer)
        If Not isFull() And Not contains(intTeam) Then teams.Add(intTeam)
    End Sub

    Public Function isEmpty() As Boolean
        If teams.Count = 0 Then Return True
        Return False
    End Function

    Public Function isFull() As Boolean
        If teams.Count = teams.Capacity Then Return True
        Return False
    End Function

    Public Function contains(ByVal intTeam As Integer) As Boolean
        If teams.Contains(intTeam) Then Return True
        Return False
    End Function

End Class

Public Class clsSummerCamp
    Public intDays As Integer
    Public teams As New Queue
    Public swimming() As clsGame
    Public games(,) As clsGame

    Public Sub New(ByVal intNewDays As Integer, ByVal intTeams As Integer)
        intDays = intNewDays
        ReDim swimming(intDays)
        ReDim games(intDays, 6)
        For intCount As Integer = 0 To intTeams - 1
            teams.Enqueue(intCount)
        Next
    End Sub

    Public Sub schedule(ByVal t As Queue)
        Dim temp As Queue = t.Clone
        initiateGames()
        While Not temp.Count = 0
            Dim intTeamNumber As Integer = temp.Dequeue
            For intDay As Integer = 0 To intDays - 1
                setGames(intDay, intTeamNumber)
            Next
        End While
    End Sub

    Public Sub initiateGames()
        For intGameDay As Integer = 0 To games.GetUpperBound(0) - 1
            For intCount As Integer = 0 To games.GetUpperBound(1) - 1
                games(intGameDay, intCount) = New clsGame(2)
            Next
        Next
    End Sub

    Public Sub setGames(ByVal intDay As Integer, ByVal intTeam As Integer)
        For intCount As Integer = 0 To games.GetUpperBound(1) - 1
            If games(intDay, intCount).isEmpty Then
                If Not isPlayed(intCount, intTeam) Then
                    games(intDay, intCount).add(intTeam)
                    Exit For
                End If
            ElseIf Not games(intDay, intCount).isFull Then
                If Not games(intDay, intCount).contains(intTeam) And Not isPlayed(intCount, intTeam) Then
                    If Not isPlayedWith(games(intDay, intCount).teams.Item(0), intTeam) Then
                        games(intDay, intCount).add(intTeam)
                        Exit For
                    End If
                End If
            End If
        Next
    End Sub

    Public Function isPlayed(ByVal intGame As Integer, ByVal intTeam As Integer) As Boolean
        For intDay As Integer = 0 To games.GetUpperBound(0) - 1
            If games(intDay, intGame).contains(intTeam) Then Return True
        Next
        Return False
    End Function

    Public Function isPlayedWith(ByVal intTeam1 As Integer, ByVal intTeam2 As Integer) As Boolean
        For intDay As Integer = 0 To games.GetUpperBound(0) - 1
            For intCount As Integer = 0 To games.GetUpperBound(1) - 1
                If games(intDay, intCount).contains(intTeam1) And games(intDay, intCount).contains(intTeam2) Then Return True
            Next
        Next
        Return False
    End Function

    Public Sub printSchedule()
        schedule(teams)
        For int1 As Integer = 0 To games.GetUpperBound(0) - 1
            Console.Write("Games： ")
            For int2 As Integer = 0 To games.GetUpperBound(1) - 1
                Console.Write("{0,-10}", games(int1, int2).teams.Item(0) & " vs " & games(int1, int2).teams.Item(1) & "  ")
            Next
            Console.WriteLine()
        Next

    End Sub

End Class

Module modTest

    Sub Main()

        Dim summerCamp As New clsSummerCamp(6, 12)
        summerCamp.printSchedule()

        Console.Read()

    End Sub

End Module

Dim strBase as String = "\\fileserver\resx\resources"
Dim strUrlA as String = "X:\resources\img\img1.jpg" 'X: refers to \\fileserver\resx
Dim strUrlB as String = "\\fileserver\resx\resources\img\img1.jpg"
Dim strUrlC as String = "Y:\tracks\track1.mp3" 'Y: refers to \\fileserver\audio
Dim strUrlD as String = "\\fileserver\audio\tracks\track1.mp3"

<code>

  Dim con As New SqlConnection
        Dim cmd As New SqlCommand

        con.ConnectionString = "Data Source=192.168.xx.xx;Initial Catalog=directory1;Persist Security Info=True;User ID=me;Password=cute"
        cmd.Connection = con
        con.Open()

        
        Dim qr As String = "SELECT names,(dept + div + pos) as dept_div_pos, tel, local FROM directory1"
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter(qr, con)
        da.Fill(ds, "directory1")

        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "directory1"
        con.Close()

</code>