Bueno este mi 2do post y he aquí un pedido por un usuario de Taringa, @henryh007, por un código como lo explica el:
"El código puede ser cualquiera sea entre numeros o letras, se ingresara un codigo de 10 Digitios sin espacios, al final se crea otro código en realidad se ordena y un codigo se repite y son en total 11 digitos, en el orden que te mencione:
Sean los digitos: (Ejemplo)
123456789G
1º El digito 9 se biene al primero
2º El digito 7 se Biene al Segundo
3º El digito 1 se biene al Tercero
4º El digito 2 se biene al Cuarto
5º El digito 10 se biene al Quinto
6º El digito 3 se biene al Sexto
7º El digito 5 se biene al Septimo
8º El digito 8 se queda en el Octabo
9º El digito 6 se biene al Noveno
10º El digito 9 se biene al Decimo
11º El digito 5 se repite en el Onceavo digito (Este digito se crea en total serian 11 Digitos)
El codigo ordenado y aumentado en 1 digito seria este:
9712G358695
Es solo un ejemplo, se pueden igresar entre numeros y letras."
La verdad muy simple como podrán ver ya que solo hice uso de una variable String y un Vector String, permitanme desglosar el código para aquellos que lo quieran entender y no solo copiar.
Dim VectorR(1 To 11) As String
Dim a As String
Private Sub Command1_Click()
a = Text1.Text
VectorR(1) = Mid(a, 9, 1)
VectorR(2) = Mid(a, 7, 1)
VectorR(3) = Mid(a, 1, 1)
VectorR(4) = Mid(a, 2, 1)
VectorR(5) = Mid(a, 10, 1)
VectorR(6) = Mid(a, 3, 1)
VectorR(7) = Mid(a, 5, 1)
VectorR(9) = Mid(a, 6, 1)
VectorR(10) = Mid(a, 9, 1)
VectorR(11) = Mid(a, 5, 1)
For cuenta = 1 To 11
b = b + VectorR(cuenta)
Next cuenta
Text2.Text = b
End Sub
*Pedidos de codigo o ayuda de ejemplos basicos o de nivel medio, en codigo Java, C y Visual Basic , con gusto puedo ayudar, pero porfavor no sean huev0nes ysi quiera lean al copiar y pegar, .
**Apenas empiezo a leer sobre cosas de LUA para cosas en GMOD .
***Si necesitan ayuda sobre algun otro codigo que no sepa yo pero quieren ayuda con la logica, adelante / Si es ayuda con el codigo, tendrian que darme tiempo para aprender lo basico para armar lo complejo.
Otro post mio de VB :
Para mas informacion sobre codigos y funciones de VisualBasic Recomiendo:
Saludos, comentar no les cuesta y ayudarme con almenos un punto, tampoco.
"El código puede ser cualquiera sea entre numeros o letras, se ingresara un codigo de 10 Digitios sin espacios, al final se crea otro código en realidad se ordena y un codigo se repite y son en total 11 digitos, en el orden que te mencione:
Sean los digitos: (Ejemplo)
123456789G
1º El digito 9 se biene al primero
2º El digito 7 se Biene al Segundo
3º El digito 1 se biene al Tercero
4º El digito 2 se biene al Cuarto
5º El digito 10 se biene al Quinto
6º El digito 3 se biene al Sexto
7º El digito 5 se biene al Septimo
8º El digito 8 se queda en el Octabo
9º El digito 6 se biene al Noveno
10º El digito 9 se biene al Decimo
11º El digito 5 se repite en el Onceavo digito (Este digito se crea en total serian 11 Digitos)
El codigo ordenado y aumentado en 1 digito seria este:
9712G358695
Es solo un ejemplo, se pueden igresar entre numeros y letras."
La verdad muy simple como podrán ver ya que solo hice uso de una variable String y un Vector String, permitanme desglosar el código para aquellos que lo quieran entender y no solo copiar.
//Aqui empieza la parte general donde declaro el VECTOR tipo String y la Variable tipo String
Dim VectorR(1 To 11) As String
Dim a As String
//Aqui empieza el Evento del CLICK en el boton que llamé esta vez, "Codificar"
Private Sub Command1_Click()
//Use la variable String para guardar lo que me pongan en el Recuadro de Texto 1 que es el Código original
//Use el VectorR o vector resultante, para ir obteniendo las letras de mi variable String y acomodarlas segun el ejemplo que da Henry.
a = Text1.Text
VectorR(1) = Mid(a, 9, 1)
VectorR(2) = Mid(a, 7, 1)
VectorR(3) = Mid(a, 1, 1)
VectorR(4) = Mid(a, 2, 1)
VectorR(5) = Mid(a, 10, 1)
VectorR(6) = Mid(a, 3, 1)
VectorR(7) = Mid(a, 5, 1)
VectorR(9) = Mid(a, 6, 1)
VectorR(10) = Mid(a, 9, 1)
VectorR(11) = Mid(a, 5, 1)
//Aqui les explico el uso de "Mid"
//El Mid sirve para buscar una cadena(String) específica dentro de otra cadena(String)
//Mid (cadena, inicio, longitud)
//El parámetro cadena es la cadena o variable String a extraer caracteres.
//El parámetro Inicio es donde comenzar.
//El parámetro longitud es la cantidad de caracteres a extraer de la cadena de caracteres.
//Si se dan cuenta solo saco un caracter de las posiciones que necesita Henry.
For cuenta = 1 To 11
b = b + VectorR(cuenta)
Next cuenta
//Por ultimo pero no menos importante pero especialmente singular es como hago que aparezca en pantalla
//el nuevo código, si se dan cuenta nunca declare mi variable "b" pero aun asi no marca error el programa
//y sin embargo corre y de inmediato lo cuenta. Esto se debe a que es una declaracion INDIRECTA
//ya que se inicializa por los valores que le asigne de tipo String y despues aparece en el segundo recuadro de texto.
Text2.Text = b
End Sub
*Pedidos de codigo o ayuda de ejemplos basicos o de nivel medio, en codigo Java, C y Visual Basic , con gusto puedo ayudar, pero porfavor no sean huev0nes ysi quiera lean al copiar y pegar, .
**Apenas empiezo a leer sobre cosas de LUA para cosas en GMOD .
***Si necesitan ayuda sobre algun otro codigo que no sepa yo pero quieren ayuda con la logica, adelante / Si es ayuda con el codigo, tendrian que darme tiempo para aprender lo basico para armar lo complejo.
Otro post mio de VB :
Para mas informacion sobre codigos y funciones de VisualBasic Recomiendo:
Saludos, comentar no les cuesta y ayudarme con almenos un punto, tampoco.