IDL简易计算器

   TLB = WIDGET_AUTO_BASE(title='小型的计算器')
   text = WIDGET_LABEL(tlb,VALUE='这是个小型计算器',xsize=200,ysize=20)

; text = WIDGET_LABEL(tlb,VALUE='xxxxx')

     cr=Widget_base(title='xxx')
; text = WIDGET_LABEL(tlb,VALUE='cccccc',ysize=10,frame=30)
   p1 = WIDGET_PARAM(tlb, /auto_manage, dt=4, field=2, $
     prompt='输入第一个值',uvalue='p1',default=3,xsize=5)

   p2 = WIDGET_PARAM(tlb, /auto_manage, dt=4, field=2, $
     prompt='输入第二个值', uvalue='p2',default=7.5,xsize=5)



   operation = WIDGET_TOGGLE(tlb, /auto_manage, default=0,list=['加','乘'], prompt='运算',uvalue='operation')

result=AUTO_WID_MNG(TLB)
IF (result.accept eq 0) THEN return

IF (result.operation eq 0) THEN $
   ENVI_INFO_WID, STRTRIM(result.p1 + result.p2) ELSE $
     ENVI_INFO_WID, STRTRIM(result.p1 * result.p2)

转载于:https://www.cnblogs.com/crmhf/p/3823160.html