Programacion visual basic 6.0

Cerrado
gena - 3 jul 2009 a las 04:26
 hj - 17 abr 2011 a las 01:51
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.,
Consulta también:

3 respuestas

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
4
GRACIAS LUIS DEVERDAD., me ayudas mucho.,

y disculpa la molestia es solo que estoy aprendiendo y me gustaria saber mas.,

gracias por todo., saludos.,
0
Es una gran alegría las ansias de saber de la humanidad, comienza cuando damos los primeros pasos que revolvemos toda la casa y finaliza con nuestra muerte.
No dudes que contas con nosotros dentro de esta meta que te has propuesto de saber en programación.

Un abrazo.

Desde Bragado, Provincia de Buenos Aires, Rca. Argentina.

Elinv
Luis
0
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
2
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
1
ratoncito Mensajes enviados 9 Fecha de inscripción miércoles, 25 de marzo de 2009 Estatus Miembro Última intervención miércoles, 13 de enero de 2010
7 jul 2009 a las 07:29
Hola,
Quisiera saber si me podrias ayudar con un programa en visual basic,
Consiste en calcular mediante una expresion matematica y con un archivo que contiene una lista de datos otro conjunto de datos correspondientes a cada uno de los de la lista. y q esto se represente en una grafica.
Te agradeceria inmensamente si me puedes ayudar. Es pero no te moleste pero te he agregado a mi lista de msn. De antemano te agradezco cualquier ayuda que me puedas prestaR
mI email es: jaimeandres0791@hotmail.com
0
Eso es algo muy básico, mejor lee un manual que hay muchos en internet si buscas ok?
0