Исходники на Visual Basic .NET

Imports System.Math
Public Class CircleProgressBar
    Private val As UInt16 = 50
    Private maxv As UInt16 = 100
    Private rtspd As Double = 0
    Private ang As Double = 0
    Private drwwght As UInt16 = 16
    Private fnt As New Font("Microsoft Sans Serif", 8.25)
    Private tmr As Timers.Timer
    Public Event RedrawStarted(ByVal sender As Object, ByVal e As EventArgs)
    Public Property MaximumValue As UInt16
        Get
            Return maxv
        End Get
        Set(ByVal value As UInt16)
            maxv = Max(value, val)
        End Set
    End Property
    Public Property Value As UInt16
        Get
            Return val
        End Get
        Set(ByVal value As UInt16)
            val = Min(value, maxv)
        End Set
    End Property
    Public Property RotateSpeed As Int16
        Get
            Return rtspd
        End Get
        Set(ByVal value As Int16)
            While value <= -360
                value += 360
            End While
            While value >= 360
                value -= 360
            End While
            rtspd = value
        End Set
    End Property
    Public Property Angle As Int16
        Get
            Return ang
        End Get
        Set(ByVal value As Int16)
            While value <= -360
                value += 360
            End While
            While value >= 360
                value -= 360
            End While
            ang = value
        End Set
    End Property
    Public Property DrawWight As UInt16
        Get
            Return drwwght
        End Get
        Set(ByVal value As UInt16)
            drwwght = value
        End Set
    End Property
    Public Overrides Property Font As Font
        Get
            Return fnt
        End Get
        Set(ByVal value As Font)
            fnt = value
        End Set
    End Property
    Public Sub New()
        InitializeComponent()
        tmr = New Timers.Timer With {
            .Interval = 20,
            .AutoReset = True,
            .Enabled = True
        }
        AddHandler tmr.Elapsed, AddressOf Redraw
    End Sub
    Private Sub Redraw()
        Try
            RaiseEvent RedrawStarted(Me, Nothing)
            ang += rtspd / 50
            While ang <= -360
                ang += 360
            End While
            While ang >= 360
                ang -= 360
            End While
            Dim bmp As New Bitmap(Size.Width, Size.Height)
            Dim g As Graphics = Graphics.FromImage(bmp)
            g.Clear(BackColor)
            g.FillPie(New SolidBrush(ForeColor), New Rectangle(New Point(), Size), ang - 90, CSng(val / maxv * 360))
            g.FillEllipse(New SolidBrush(BackColor),
                      New Rectangle(New Point(drwwght, drwwght), Size - New Size(drwwght * 2, drwwght * 2)))
            Dim DrawText As String = CInt(val / maxv * 100) & "%"
            Dim sz As SizeF = g.MeasureString(DrawText, fnt)
            g.DrawString(DrawText, fnt, Brushes.Black,
                         New PointF(Size.Width / 2, Size.Height / 2) - New SizeF(sz.Width / 2, sz.Height / 2))
            Me.CreateGraphics.DrawImage(bmp, New Point())
        Catch ex As Exception
 
        End Try
    End Sub
End Class

Public Function SomeFunc(mass As List(Of String))
    'эта функция вызовется 6 раз, и mass будет содержать:
    'А Б В
    'А В Б
    'Б А В
    'Б В А
    'В А Б
    'В Б А
End Function
    '...
    Dim x As New List(Of String) = {"А", "Б", "В"} 'массив из трёх букв
    OrderBruteForce(Of String)(x, New List(Of String), AddressOf SomeFunc) 'второй аргумент нужен для работы рекурсии, делайте его таким же

Public Function SomeFunc(mass As List(Of String))
    'эта функция вызовется 3 раза, и mass будет содержать:
    'Корица
    'Ириски
    'Корица Ириски
    '(Ириски Корица - не вызывается, т. к. порядок не имеет значения)
End Function
    '...
    Dim x As New List(Of String) = {"Корица", "Ириски"}
    GroupBruteForce(Of String)(x, AddressOf SomeFunc)

Public Function SomeFunc(mass As List(Of String))
    'эта функция вызовется 4 раза, и mass будет содержать:
    'Корица
    'Ириски
    'Корица Ириски
    'Ириски Корица - вызывается, т. к. порядок имеет значение
End Function
    '...
    Dim x As New List(Of String) = {"Корица", "Ириски"} 
    FullBruteForce(Of String)(x, New List(Of String), AddressOf SomeFunc) 'второй аргумент нужен для работы рекурсии, делайте его таким же

    Public Shared Sub OrderBruteForce(Of T)(Input As List(Of T), Output As List(Of T), ByVal ToCall As Action(Of List(Of T)))
        If Input.Count = 0 Then
            ToCall(Output)
        Else
            For Each i In Input
                Dim nInp, nOut As New List(Of T)
                nInp.AddRange(Input)
                nOut.AddRange(Output)
                nOut.Add(i)
                nInp.Remove(i)
                OrderBruteForce(Of T)(nInp, nOut, ToCall)
            Next
        End If
    End Sub
 
    Public Shared Sub GroupBruteForce(Of T)(Input As List(Of T), ByVal ToCall As Action(Of List(Of T)))
        Dim x As New BitArray(Input.Count, True)
        Dim f = Function() As Boolean
                    For Each b As Boolean In x
                        If b Then Return True
                    Next
                    Return False
                End Function
        While f()
            Dim ToSend As New List(Of T)
            For i As Integer = 0 To Input.Count - 1
                If x(i) Then ToSend.Add(Input(i))
            Next
            ToCall(ToSend)
            Dim b As Boolean = True
            Dim it As Integer = 0
            While b
                b = Not x(it)
                x(it) = b
                it += 1
            End While
        End While
    End Sub
 
    Public Shared Sub FullBruteForce(Of T)(Input As List(Of T), Output As List(Of T), ByVal ToCall As Action(Of List(Of T)))
        If Input.Count = 0 Then
            ToCall(Output)
        Else
            If Output.Count > 0 Then ToCall(Output)
            For Each i In Input
                Dim nInp, nOut As New List(Of T)
                nInp.AddRange(Input)
                nOut.AddRange(Output)
                nOut.Add(i)
                nInp.Remove(i)
                FullBruteForce(Of T)(nInp, nOut, ToCall)
            Next
        End If
    End Sub