Visual Basic - Error en un programa de VB6

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

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
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error en un programa de VB6

Publicado por Antoni Masana (465 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
sin imagen de perfil

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
sin imagen de perfil

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
sin imagen de perfil

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
sin imagen de perfil

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