Foro de elhacker.net

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 =)

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:

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

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
 

Gracias! :D :D :D

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

instr()

si es = 0 no existe en el string

dulces lunas

Me podrias explicar Como se Usa la funcion

instr()

Gracias!

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

vamos!! se sincero .....  ;)

NO :( :(

Ya lo entendi Gracias =)