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
El error dice "error 9 en tiempo de ejecución, subindice está fuera del intervalo"
y me señala esta parte
dependiendo de la letra que quiera traducir primero. ¿a qué se debe? gracias
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 = iSelect Case TextValue
Case "a"TextOutput(FinalLenght) = ":; "
Case "b"TextOutput(FinalLenght) = ":;; "
End Select
Next
For a = 0 To FinalLenghtText2 = 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 = iSelect Case TextValue
Case "a"-->TextOutput(FinalLenght) = ":; "
Case "b"-->TextOutput(FinalLenght) = ":;; "
End Select
Next
For a = 0 To FinalLenghtText2 = Text2 + TextOutput(FinalLenght)
Next
End Sub
Valora esta pregunta
0
