tengo esta función que está tan rápida que hasta a mi me aburre ,por donde tengo que buscar para poner una barra proges (nunca he usado una ) pero que ralentice la función para que parezca que hace mil cálculos
Código
'****************combinaciones FUNCIONA DE p**a MADRE Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click Dim input As Integer() = (Result1) Dim output As New List(Of Integer) For i As Integer = 0 To input.Length - 1 For j As Integer = 0 To input.Length - 1 If input(i) <> input(j) AndAlso input(i) < 5 Then Dim result As Integer = (input(i) * 10 + input(j)) output.Add(result) End If Next j Next i Me.ListBox8.Items.AddRange(output.Cast(Of Object).Distinct().ToArray) End Sub
saludos
Luis