elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Combinatorias
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Combinatorias  (Leído 783 veces)
luis456


Desconectado Desconectado

Mensajes: 543



Ver Perfil
Combinatorias
« en: 8 Enero 2014, 17:53 pm »

Alguien me podria explicar como funciona este codigo de combinatoria quiero aprender pero rompiendo yo las cosas o sea probando; bien este codigo forma combinaciones posibles y estoy tratando que me haga y muestre combinaciones de solo cuatro , no importa el largo del string

Código
  1. Public Class Form1
  2.  
  3.  
  4.    Dim Caracteres(1000) As String
  5.  
  6.  
  7.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  8.        Dim i, j, k As Integer
  9.        Dim Combinacion As String
  10.        Dim Existe As Boolean
  11.  
  12.        For i = 0 To TextBox1.Text.Length - 1
  13.            Caracteres(i) = TextBox1.Text.Substring(i, 1)
  14.        Next
  15.  
  16.        For i = 0 To TextBox1.Text.Length - 1
  17.            For j = 0 To TextBox1.Text.Length - 1
  18.  
  19.                Existe = False
  20.  
  21.                Combinacion = TextBox1.Text.Remove(i, 1)
  22.                Combinacion = Combinacion.Insert(i, Caracteres(j))
  23.  
  24.                Combinacion = Combinacion.Remove(j, 1)
  25.                Combinacion = Combinacion.Insert(j, Caracteres(i))
  26.  
  27.                For k = 0 To ListBox1.Items.Count - 1
  28.                    If Combinacion = ListBox1.Items(k) Then Existe = True
  29.                Next
  30.  
  31.                If Existe = False Then ListBox1.Items.Add(Combinacion)
  32.  
  33.            Next
  34.        Next
  35.    End Sub
  36. End Class


« Última modificación: 8 Enero 2014, 19:15 pm por Eleкtro » En línea

Que tu sabiduria no sea motivo de Humillacion para los demas
kub0x
Enlightenment Seeker
Moderador
***
Desconectado Desconectado

Mensajes: 1.443


S3C M4NI4C


Ver Perfil
Re: Combinatorias
« Respuesta #1 en: 8 Enero 2014, 20:15 pm »

Buenas luis456,

Visual Studio viene con un apartado de debugging extenso y su manejo es primordial. Si no sabes lo que hace este fragmento de código deberías, al menos, analizarlo (debugging) por tu cuenta y ver los resultados.

Un saludo.


En línea

Viejos siempre viejos,
Ellos tienen el poder,
Y la juventud,
¡En el ataúd! Criaturas Al poder.

Visita mi perfil en ResearchGate

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Otra duda con combinatorias de numeros :( « 1 2 »
.NET (C#, VB.NET, ASP)
luis456 10 1,907 Último mensaje 15 Marzo 2020, 06:52 am
por luis456
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines