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