Visual Basic - Error en un programa de VB6

Life is soft - evento anual de software empresarial
   
Vista:

Error en un programa de VB6

Publicado por Dstudios (5 intervenciones) el 19/05/2017 04:47:54
Hola a todos programadores soy Dstudios, hoy necesito ayuda con un problema con un programa que estoy haciendo. este programa consiste en un programa que traduce textos a un código encriptado al que llamo Vector de basilisco, he intentado hacerlo primero en c++ pero me daba error en una función por un char que era tipo puntero o algo así, así que decidí usar visual basic para hacerlo más gráfico pero resulta que me da error al presionar el botón de traducir.
codigo fuente
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Dim TextValue As String
Dim TextOutput() As String
Dim FinalLenght As Integer
For i = 1 To Len(Text1)
TextValue = Mid(Text1, i, 1)
FinalLenght = i
Select Case TextValue
Case "a"
TextOutput(FinalLenght) = ":; "
Case "b"
TextOutput(FinalLenght) = ":;; "
End Select
Next
 
For a = 0 To FinalLenght
Text2 = Text2 + TextOutput(FinalLenght)
Next
 
End Sub

El error dice "error 9 en tiempo de ejecución, subindice está fuera del intervalo"
y me señala esta parte
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
Dim TextValue As String
Dim TextOutput() As String
Dim FinalLenght As Integer
For i = 1 To Len(Text1)
TextValue = Mid(Text1, i, 1)
FinalLenght = i
Select Case TextValue
Case "a"
-->TextOutput(FinalLenght) = ":; "
Case "b"
-->TextOutput(FinalLenght) = ":;; "
End Select
Next
 
For a = 0 To FinalLenght
Text2 = Text2 + TextOutput(FinalLenght)
Next
 
End Sub
dependiendo de la letra que quiera traducir primero. ¿a qué se debe? gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Error en un programa de VB6

Publicado por Antoni Masana (190 intervenciones) el 19/05/2017 08:30:59
No has definido el tamaño de la tabla TextOutput(), es decir cuántos elementos ha de tener, y por defecto tiene 10 que van del 0 al 9.
Si no sabes a priori la dimensión de la tabla , Defínela a 0 y utiliza la instrucción REDIM redimensionarla, consulta la ayuda.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error en un programa de VB6

Publicado por Dstudios (5 intervenciones) el 19/05/2017 09:25:30
Ah ok, muchas gracias, intentaré hacerlo y luego digo los resultados, un salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error en un programa de VB6

Publicado por Dstudios (5 intervenciones) el 19/05/2017 09:34:53
Mi problema ahora es que solo traduce la ultima letra 4 veces :c
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error en un programa de VB6

Publicado por Dstudios (5 intervenciones) el 19/05/2017 10:19:00
Ya lo solucioné, muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error en un programa de VB6

Publicado por Dstudios (5 intervenciones) el 19/05/2017 10:21:04
Funciona a la perfección, pondré un texto encriptado que encriptó mi programa:
1
+:::;; :::::;;; ::::;;; :; ,/::;; ::::::;;;; :::::::; ::;; /::;; ::::::;;;; /:::::::;; :::::;; /:::::::; ::;; ::::::::;; :::::::; :::::;;; /::;; :::::;; :;;; ::::::;;; :::;;; ::::::; :::::::; :; ::; :::::;;; //
salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar