programacion visual basic 6.0 Cerrado

Question

Hola,
 buenas noches nesecito una ayudita con este programa., el problema es lo siguiente.,

  Programa que permita leer una lista de N nombres y almacenarlos en un vector, luego lea un nombre y localice su posicion en el arreglo. en caso de no existir debe emitir un mensaje con el texto "no se encuentra".

ayuda., solo quiero que me lo expliquen o me den una idea de como hacerlo.,

Elinv · Accepted Answer

Hola Gena:
              Aca tenes el proyecto, agrega un textbox, un commandbutton y dos listbox, y luego copia este código.
Todo está suficientemente explicado.

--------------------------------------------------------------------------------------------------
'variable para el array
Dim Nnombres() As String

Private Sub Command1_Click()
'declaramos variables
Dim i As Integer, pos As Integer
'vaciamos el list donde se muestra el resultado
List2.Clear
'iniciamos la busqueda desde el primer elemento de la matriz
For i = 0 To UBound(Nnombres)
    'Utilizamos la función -InStr- y trim para eliminar los espacios vacios al principio y final de la cadena
    pos = InStr(1, Nnombres(i), Trim(Text1.Text), vbTextCompare)
    'si pos devuelve distinto a 0, informamos los datos en esos momentos
    If pos <> 0 Then
        'MsgBox "El dato aportado, se halla en la matriz, con el indice: " _
                & i + 1 & " y corresponde a " & Nnombres(i)
        List2.AddItem Nnombres(i) & "-Orden n°(" & i + 1 & ")"
    End If
Next i
End Sub

Private Sub Form_Load()
'declaramos variable para el bucle for
Dim i As Integer
'cargamos el listbox
List1.AddItem "José Pérez"
List1.AddItem "Perico Pérez"
List1.AddItem "Alberto Rodriguez"
List1.AddItem "Martín Fernández"
List1.AddItem "Luis Pedro Méndez"
List1.AddItem "Josefo Hernández"
List1.AddItem "María José Martinez"
List1.AddItem "Anibal Santellan"
List1.AddItem "Jorge Alberto Castro"
List1.AddItem "Miriam Zulema Correa"
List1.AddItem "Lola Flores"
List1.AddItem "Cristin Castro"
List1.AddItem "Alberto Iglesias"
'establecemos los elementos de la matriz
'preserve es opcional en este caso no tiene sentido dado que la matriz está a cero.
ReDim Nnombres(List1.ListCount - 1)
For i = 0 To List1.ListCount - 1
Nnombres(i) = List1.List(i)
Next i
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub
--------------------------------------------------------------------------------------------------

Un abrazo y cualquier cosa a tu disposición.


Desde Bragado, Provincia de Buenos Aires, Rca. Argentina.


Luis

MatuteMza · Answer

Hola Amigo, como estas?

Mi nombre es Matias y soy de Argentina.

No tengo problemas en ayudarte, si quieres puedes agregarme a tu lista de contacto de messenger o escribirme un correo con PROYECTOSISTEMAS07@HOTMAIL.COM, te puedo ayudar con eso o algun programa completo.

Saludos

rober · Answer

aqui tienes unos tutoriales de vectores y matrices para vb , hechales un ojo , espero te sirvan

https://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico6.htm

http://www.elguille.info/vb/cursos_vb/basico/indice.htm

Programacion visual basic 6.0

3 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!