Uno más de RS232 - WinXP+VB6

[migsantiago]

Hola Bruno

Es mucho código para corregir un detalle estético, mejor me quedo con las ganas  aunque ya aprendí algo más, como CStr, e investigué sobre CDbl y Cint, ¡a qué buenas funciones! 

Gracias

[PalitroqueZ]

Mig, no es nada de otro mundo, lo que hay que hacer es convertirlo a string y lo demás es jugar con las funciones para string ($MID, $left, Right, etc).

[migsantiago]

Lo malo es que soy nuevo con VBasic... hago todo con bolitas y palitos  me tardo mucho y pues como es solo un detalle estético mejor sigo programando lo demás.

Ahora otra pregunta, ¿cómo obtengo el residuo de una división?

En lenguaje C se pone

residuo= 9%7; //residuo valdrá 2

 

[PalitroqueZ]

con la función MOD

Acá el maestro Bruno dá una aplicación a dicha función, y la explica en gran detalle.

[migsantiago]

Perfecto... lo puse a prueba con un programa simple...

Text3.Text = Text1.Text Mod Text2.Text 'saca residuo

Gracias Pedro

Edito:

Haciendo más pruebas intenté dividir 40 entre 3.5 y pasa algo raro, me entrega 0 como residuo. Parece ser que siempre hay que entregarle enteros a esta función para que trabaje bien.

[BrunoF]

Hola!

Efectivamente. Sólo sirve para enteros NO negativos.

Podriamos recurrir a la matemática para hacer lo que querés con punto flotante:

Si querés el resto con decimales:

Resto = Dividendo - fix(Dividendo/Divisor)*Divisor

Si lo querés pero sin decimales:

Resto = fix(Dividendo - fix(Dividendo/Divisor)*Divisor)

Probalo.

Saludos!

P.D: Fix() se queda sólo con la parte entera de la expresión entre paréntesis.

[migsantiago]

Hola

Lo corregí de forma más directa usando Int(). Es bueno porque no redondea el número como la instrucción CInt().

residuo = dividendo Mod Int(divisor)

Gracias Bruno

[migsantiago]

Otra pregunta...

¿Cómo se usa una listbox?

Solo me gustaría saber qué opción es la que selecciona el usuario. Estuve leyendo por internet que es con la propiedad .text y .listindex, pero no encontré qué tipo de variable entregan y vb me marca errores.

Sé agregarle un elemento a la lista, es con .additem pero es lo único que sé.

[PalitroqueZ]

añadiendo a lo de Bruno, en la ayuda msdn dice:

"El operador de módulo, o resto, divide número1 por número2 (redondeando a enteros los números de signo flotante) y devuelve sólo el resto como resultado"

es decir, que si tienes 3.5 él lo reconoce como 4, dando por ello 0 el resto.

respecto a lo del listbox, tendré quie repasar ese control jeje, ya que las veces que lo he usado ha sido guiandome por la ayuda 

[BrunoF]

Hola!

Está bien tu solución. El int() es una conversión explicita de variable a entero y hace lo mismo que un fix().

Con respecto al ListView:

Hay 4 modos de visualizar los datos si mal no recuerdo, yo uso el ultimo casi siempre(el "report").(podes configurarlo facilmente desde tiempo de diseño, haciendo click derecho sobre el control listview y seleccionando "propiedades".


"Objeto.SelectedItem" hace referencia al elemento seleccionado actualmente.

Ejemplo:

Private Sub Form_Load()
ListView1.ListItems.Add , , "Foro"
ListView1.ListItems.Add , , "Todopic"
ListView1.ListItems.Add , , "2007"
End Sub

Private Sub ListView1_Click()

MsgBox "El item seleccionado es el: " & ListView1.SelectedItem.Index & ". Y tiene por texto: " & ListView1.ListItems.Item(ListView1.SelectedItem.Index)

End Sub

El Listview es un control MUY completo. Si necesitas algo mas, decime.

Salu2!!!

[migsantiago]

Hola Bruno

¿Esas son instrucciones para una listbox de visual basic 6? Es que cuando corro el programa me marca...

[BrunoF]

Sisi.
¿En que linea te tira eso?

¿Agregaste un objeto Listview al formulario?

Saludos.

[migsantiago]

Hola 

El error aparece en:

ListView1.ListItems.Item(ListView1.SelectedItem.Index)

pero en vez de ponerle listview, yo le pongo el nombre de mi list box.

Va a sonar tonto, ¿pero que un listbox no es diferente a un listview? Además no encuentro ese control en la barra de controles...

[BrunoF]

jaja ok!

Bueno, era lo que me temía.

Vete a Proyecto->Componentes y tilda en la lista "Microsoft Windows Common Controls 6.0".

Se te agregarán varios controles. Inserta uno de tipo "ListView".

Saludos.

[migsantiago]

Gracias Bruno