[Solucionado]Buscar en Textbox |@@|[Solucionado]Ordenar de Mayor a menor

[agus0]

Hola Foro!

Hoy vengo con una Dudilla xD

Edito: Como puedo hacer para saber si en un textbox se encuentra determinado caracter o palabra por ejemplo

si en el tetbox1 no se encuentra el caracter "@" diga "Esa no es una direccion e mail Valida"

GRACIAS


Como puedo ordenar 10 numero...

por ejemplo yo tengo 10 textbox con numeros (2; 10; 8; 2; 4; 9; 99; 0; 1; 76)  y al apretar un boton en un 11º textbox me aparezca 99, 76, 10, 9, 8, 4, 2, 2, 1, 0

Bueno eso solo =)

[BlackZeroX]

esto ya estaposteado me parece pero aun asi hay una forma y es con el metodo burbuja o uno que dicen "divide y venceras"

http://es.wikipedia.org/wiki/Algoritmo_divide_y_vencer%C3%A1s
http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja

hay mas metodos... el que mas me gusta es dividir para ordenarar xP, es rapido.!¡

por metodo burbuja:

Código (vb) [Seleccionar] Expandir


Sub ORDENAR()
Dim X As Integer
Dim I As Integer
Dim y As Double
Dim j As Integer

X = 1
For I = 1 To 10
Cells(I, 1) = Rnd
Next I

For I = 1 To 9
For j = I + 1 To 10
If Cells(I, 1) < Cells(j, 1) Then
y = Cells(j, 1)
Cells(j, 1) = Cells(I, 1)
Cells(I, 1) = y
End If

Next j
Next I

End Sub


buble sort

Código (vb) [Seleccionar] Expandir


Public Function BubbleSort() As Integer
Dim Vec(1 To 10) As Integer
Dim aux As Integer

  For i = 1 To 10 - 1
    For j = 1 To 10 - 1
      If (Vec(j) > vec (j+1))
        aux = vec(j)
        vec(j) = vec (j+1)
        vec(j+1) = aux
      End If
    Next j
  Next i


[agus0]

Gracias!

Edito: Como puedo hacer para saber si en un textbox se encuentra determinado caracter o palabra por ejemplo

si en el tetbox1 no se encuentra el caracter "@" diga "Esa no es una direccion e mail Valida"

GRACIAS

[BlackZeroX]

instr()

si es = 0 no existe en el string

dulces lunas

[agus0]

Me podrias explicar Como se Usa la funcion

instr()

Gracias!

[cassiani]

has intentado buscar? no verdad?
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm#instr

vamos!! se sincero ..... 

[agus0]

NO

Ya lo entendi Gracias =)