Visual Basic - saber ascii en textbox

Life is soft - evento anual de software empresarial
   
Vista:

saber ascii en textbox

Publicado por william (27 intervenciones) el 08/03/2008 21:21:43
hola amigos, necesito saber la cantidad de letras, numeros o espacios, esto para poder saber la cantidad de caracteres en un textbox, puse esto:

cantidad = Len(text1.Text) esto para saber la cantidad y me funciona bien

entonces, necesito hacer que cada caracter que se meta, incluyendo espacio en blanco, saber el cogico ascii, para poder sumarlos y dividirlos por el mismo numero de caracteres y el resultado lo quiero guardar en una base de datos de access.

como le podria hacer? que me recomiendan.. esto lo quiero hacer para que cuando meta un nombre en el textbox y le de clic en guardar, automaticamente le asigne un numero de sucursal al nombre que meti guiandome de sus codigos ascii que seria sumando sus numeros ascii de cada caracter, dividiendo el resultado de la suma por la cantidad de caracteres y el resultado mandarlo a la base de datos.


gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:saber ascii en textbox

Publicado por andrea (1 intervención) el 08/03/2008 22:26:31
No es tan dificil

solo le pones un len a la cadena de caracteres y uno a uno los vas sumando , lo tenes que hacer en un bucle y una vez sumado todo lo dividis por el len que era la cantidad de caracteres.

espero que lo hayais entendido y si no es asi pos me envias un mail y te lo aclaro
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:saber ascii en textbox

Publicado por jose carlos (340 intervenciones) el 09/03/2008 00:24:25
total = 0
For x = 1 To Len(text1.Text)
a = Mid(text1.Text, x, 1)
num_ascii = Asc(a)
total = total + num_ascii
Next

label1 = total

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:saber ascii en textbox

Publicado por william (1 intervención) el 09/03/2008 07:04:15
gracias por sus respuestas, juan carlos ese codigo que me pones, no hace la division entre el numero de caracteres escritos verdad??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:saber ascii en textbox

Publicado por lolo (22 intervenciones) el 09/03/2008 12:56:29
solo tienes que modificar esta linea del codigo que te pusieron

Label1 = total / Len(Text1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:saber ascii en textbox

Publicado por william (27 intervenciones) el 09/03/2008 19:32:18
puse asi el codigo

cantidad = Len(txt_nom_suc.Text)
For indice = 1 To cantidad
suma = suma + Asc(Mid(txt_nom_suc.Text, indice, 1))
Next
resultado = suma / cantidad
Label17 = resultado

me funciona bien, pero cuando le doy clic a nuevo para llenar de nuevo los campos, este no lo lleno por que se genera automaticamente, pero cuando le doy nuevo me marca error de desbordamiento aqui: resultado = suma / cantidad
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:saber ascii en textbox

Publicado por william (27 intervenciones) el 09/03/2008 17:12:02
me marca error el codigo, me dice que no coinciden los tipos en a = Mid(text1.Text, x, 1)

tengo mi codigo asi:

total = 0
total = Len(text1.Text)
For x = 1 To Len(text1.Text)
a = Mid(text1.Text, x, 1)
num_ascii = Asc(a)
total = total + num_ascii
Next

label1 = total

que esta bien o que esta mal?'
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:saber ascii en textbox

Publicado por william (27 intervenciones) el 09/03/2008 19:39:21
otra cosa, como le puedo hacer para que este codigo:

cantidad = Len(txt_nom_suc.Text)
For indice = 1 To cantidad
suma = suma + Asc(Mid(txt_nom_suc.Text, indice, 1))
Next
resultado = suma / cantidad
Label17 = resultado

me guarde el resultado en el campo de una tabla de access pero apartir del registo numero 2 hacia adelante y que el primero que ya tengo no me lo modifique?? uso un control data para la conexion con la base de datos.

muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar