| widgets [message #45227] |
Fri, 19 August 2005 07:36 |
hernan
Messages: 11
Registered: March 2005
|
Junior Member |
|
|
¿Como puedo hacer un widget que sume dos valores?
As I can do a widget that addition two values?
pro widget_sum_event, event
widget_control, event_top, get_uvalue = textwid
result = long(uno) + long(dos)
widget_control, textwid, set_value = string(result)
end
pro widget_sum
;* Ingresamos la base de trabajo.
;* Creamos la primera entrada de datos
base_suma = widget_base(xsize = 300, ysize = 200)
eti1 = widget_label(base_suma, value = 'Ingrese el valor de a: ', $
xsize = 100, xoffset = 20, yoffset = 20)
text1 = widget_text(base_suma, value = '1', uvalue = 'uno', $
xoffset = 120, yoffset = 20, /editable)
;* Creamos la segunda entrada de datos
eti2 = widget_label(base_suma, value = 'Ingrese el valor de b: ', $
xsize = 100, xoffset = 20, yoffset = 60)
text2 = widget_text(base_suma, value = '1', uvalue = 'dos', $
xoffset = 120, yoffset = 60, /editable)
;* Creamos la salida de los datos
eti = widget_label(base_suma, value = 'La suma es: ', $
xsize = 100, xoffset = 20, yoffset = 100)
text = widget_text(base_suma, value = '1', $
xoffset = 120, yoffset = 100, /editable)
widget_control, base_suma, set_uvalue = 'text'
widget_control, base_suma, /realize
xmanager, 'widget_suma', base_suma
end
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
