sunzenith.pro

根据输入的经度、纬度以及年、月、日、时间

;
; IDL Widget Interface Procedures. This Code is automatically
;     generated and should not be modified.

;
; Generated on:	01/30/2008 17:33.09
;
pro WID_BASE_0_event, Event

  wTarget = (widget_info(Event.id,/NAME) eq 'TREE' ?  $
      widget_info(Event.id, /tree_root) : event.id)


  wWidget =  Event.top

  case wTarget of

    Widget_Info(wWidget, FIND_BY_UNAME='WID_BASE_0'): begin
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_TEXT_LONG'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_TEXT_CH' )then $
        OnInsertCh_Long, Event
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_TEXT_DEL' )then $
        OnDelete_Long, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_TEXT_LATI'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_TEXT_CH' )then $
        OnInsertCh_Lati, Event
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_TEXT_DEL' )then $
        OnDelete_Lati, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_DROPLIST_DAY'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DROPLIST' )then $
        OnSelectValue_Day, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_DROPLIST_MONTH'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DROPLIST' )then $
        OnSelectValue_Month, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_TEXT_YEAR'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_TEXT_CH' )then $
        OnInsertCh_Year, Event
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_TEXT_DEL' )then $
        OnDelete_Year, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_DROPLIST_SECOND'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DROPLIST' )then $
        OnSelectValue_Second, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_DROPLIST_MINUTE'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DROPLIST' )then $
        OnSelectValue_Minute, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_DROPLIST_HOUR'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_DROPLIST' )then $
        OnSelectValue_Hour, Event
    end
    else:
  endcase

end

pro WID_BASE_0, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_

  Resolve_Routine, 'sunZenith_eventcb',/COMPILE_FULL_FILE  ; Load event callback routines

  WID_BASE_0 = Widget_Base( GROUP_LEADER=wGroup, UNAME='WID_BASE_0'  $
      ,XOFFSET=5 ,YOFFSET=5 ,SCR_XSIZE=443 ,SCR_YSIZE=232  $
      ,NOTIFY_REALIZE='OnRealize_TLB' ,TITLE='太阳高度角、方位角计算'  $
      ,SPACE=3 ,XPAD=3 ,YPAD=3 ,TLB_FRAME_ATTR=1)


  WID_LABEL_0 = Widget_Label(WID_BASE_0, UNAME='WID_LABEL_0'  $
      ,XOFFSET=25 ,YOFFSET=11 ,SCR_XSIZE=52 ,SCR_YSIZE=18  $
      ,/ALIGN_LEFT ,VALUE='参数设置')


  WID_LABEL_13 = Widget_Label(WID_BASE_0, UNAME='WID_LABEL_13'  $
      ,XOFFSET=24 ,YOFFSET=137 ,SCR_XSIZE=50 ,SCR_YSIZE=18  $
      ,/ALIGN_LEFT ,VALUE='计算结果')


  WID_BASE_1 = Widget_Base(WID_BASE_0, UNAME='WID_BASE_1' ,FRAME=1  $
      ,XOFFSET=14 ,YOFFSET=19 ,SCR_XSIZE=408 ,SCR_YSIZE=102  $
      ,TITLE='IDL' ,SPACE=3 ,XPAD=3 ,YPAD=3)


  WID_TEXT_LONG = Widget_Text(WID_BASE_1, UNAME='WID_TEXT_LONG'  $
      ,XOFFSET=107 ,YOFFSET=8 ,SCR_XSIZE=74 ,SCR_YSIZE=20 ,/EDITABLE  $
      ,/ALL_EVENTS ,XSIZE=20 ,YSIZE=1)


  WID_TEXT_LATI = Widget_Text(WID_BASE_1, UNAME='WID_TEXT_LATI'  $
      ,XOFFSET=315 ,YOFFSET=8 ,SCR_XSIZE=82 ,SCR_YSIZE=21 ,/EDITABLE  $
      ,/ALL_EVENTS ,XSIZE=20 ,YSIZE=1)


  WID_LABEL_3 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_3'  $
      ,XOFFSET=8 ,YOFFSET=11 ,SCR_XSIZE=97 ,SCR_YSIZE=17 ,/ALIGN_LEFT  $
      ,VALUE='经度(-180~180)：')


  WID_LABEL_7 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_7'  $
      ,XOFFSET=223 ,YOFFSET=10 ,SCR_XSIZE=87 ,SCR_YSIZE=18  $
      ,/ALIGN_LEFT ,VALUE='纬度(-90~90)：')


  WID_DROPLIST_DAY = Widget_Droplist(WID_BASE_1,  $
      UNAME='WID_DROPLIST_DAY' ,XOFFSET=315 ,YOFFSET=42 ,SCR_XSIZE=83  $
      ,SCR_YSIZE=17 ,NOTIFY_REALIZE='OnRealize_Day')


  WID_LABEL_14 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_14'  $
      ,XOFFSET=286 ,YOFFSET=45 ,SCR_XSIZE=30 ,SCR_YSIZE=13  $
      ,/ALIGN_LEFT ,VALUE='日：')


  WID_DROPLIST_MONTH = Widget_Droplist(WID_BASE_1,  $
      UNAME='WID_DROPLIST_MONTH' ,XOFFSET=173 ,YOFFSET=41  $
      ,SCR_XSIZE=75 ,SCR_YSIZE=18 ,NOTIFY_REALIZE='OnRealize_Month')


  WID_LABEL_15 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_15'  $
      ,XOFFSET=148 ,YOFFSET=44 ,SCR_XSIZE=27 ,SCR_YSIZE=14  $
      ,/ALIGN_LEFT ,VALUE='月：')


  WID_TEXT_YEAR = Widget_Text(WID_BASE_1, UNAME='WID_TEXT_YEAR'  $
      ,XOFFSET=36 ,YOFFSET=42 ,SCR_XSIZE=74 ,SCR_YSIZE=19 ,/EDITABLE  $
      ,/ALL_EVENTS ,XSIZE=20 ,YSIZE=1)


  WID_LABEL_16 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_16'  $
      ,XOFFSET=9 ,YOFFSET=44 ,SCR_XSIZE=27 ,SCR_YSIZE=15 ,/ALIGN_LEFT  $
      ,VALUE='年：')


  WID_DROPLIST_SECOND = Widget_Droplist(WID_BASE_1,  $
      UNAME='WID_DROPLIST_SECOND' ,XOFFSET=315 ,YOFFSET=74  $
      ,SCR_XSIZE=83 ,SCR_YSIZE=17 ,NOTIFY_REALIZE='OnRealize_Second')


  WID_LABEL_17 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_17'  $
      ,XOFFSET=287 ,YOFFSET=76 ,SCR_XSIZE=30 ,SCR_YSIZE=13  $
      ,/ALIGN_LEFT ,VALUE='秒：')


  WID_DROPLIST_MINUTE = Widget_Droplist(WID_BASE_1,  $
      UNAME='WID_DROPLIST_MINUTE' ,XOFFSET=172 ,YOFFSET=73  $
      ,SCR_XSIZE=76 ,SCR_YSIZE=18 ,NOTIFY_REALIZE='OnRealize_Minute')


  WID_LABEL_18 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_18'  $
      ,XOFFSET=148 ,YOFFSET=75 ,SCR_XSIZE=27 ,SCR_YSIZE=14  $
      ,/ALIGN_LEFT ,VALUE='分：')


  WID_DROPLIST_HOUR = Widget_Droplist(WID_BASE_1,  $
      UNAME='WID_DROPLIST_HOUR' ,XOFFSET=36 ,YOFFSET=73 ,SCR_XSIZE=74  $
      ,SCR_YSIZE=18 ,NOTIFY_REALIZE='OnRealize_Hour')


  WID_LABEL_19 = Widget_Label(WID_BASE_1, UNAME='WID_LABEL_19'  $
      ,XOFFSET=9 ,YOFFSET=74 ,SCR_XSIZE=27 ,SCR_YSIZE=15 ,/ALIGN_LEFT  $
      ,VALUE='时：')


  WID_BASE_4 = Widget_Base(WID_BASE_0, UNAME='WID_BASE_4' ,FRAME=1  $
      ,XOFFSET=14 ,YOFFSET=142 ,SCR_XSIZE=409 ,SCR_YSIZE=39  $
      ,TITLE='IDL' ,SPACE=3 ,XPAD=3 ,YPAD=3)


  WID_TEXT_ZENITH = Widget_Text(WID_BASE_4, UNAME='WID_TEXT_ZENITH'  $
      ,XOFFSET=83 ,YOFFSET=9 ,SCR_XSIZE=104 ,SCR_YSIZE=20 ,XSIZE=20  $
      ,YSIZE=1)


  WID_TEXT_AZIMUTH = Widget_Text(WID_BASE_4, UNAME='WID_TEXT_AZIMUTH'  $
      ,XOFFSET=294 ,YOFFSET=8 ,SCR_XSIZE=105 ,SCR_YSIZE=21 ,XSIZE=20  $
      ,YSIZE=1)


  WID_LABEL_20 = Widget_Label(WID_BASE_4, UNAME='WID_LABEL_20'  $
      ,XOFFSET=8 ,YOFFSET=11 ,SCR_XSIZE=83 ,SCR_YSIZE=17 ,/ALIGN_LEFT  $
      ,VALUE='太阳高度角：')


  WID_LABEL_21 = Widget_Label(WID_BASE_4, UNAME='WID_LABEL_21'  $
      ,XOFFSET=218 ,YOFFSET=10 ,SCR_XSIZE=81 ,SCR_YSIZE=18  $
      ,/ALIGN_LEFT ,VALUE='太阳方位角：')

  Widget_Control, /REALIZE, WID_BASE_0

  XManager, 'WID_BASE_0', WID_BASE_0, /NO_BLOCK

end
;
; Empty stub procedure used for autoloading.
;
pro sunZenith, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
  WID_BASE_0, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
end

pro sunZenithCalculate, event
	sunZenith, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
end