ndvi_803.pro

利用IDL读取MODIS影像L1B和MOD03数据(HDF格式),计算遥感植被指数NDVI

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

;
; Generated on:	03/23/2008 13:45.23
;
pro WID_BASE_NDVI_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_NDVI'): begin
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_OpenFiles_NDVI'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_OpenFiles_NDVI_803, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_RemoveFiles_NDVI'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_RemoveFiles_NDVI_803, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_FilterFiles_NDVI'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_FilterFiles_NDVI_803, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_DefaultSavePath'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_DefaultSavePath_NDVI_803, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_SpecifySavePath'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_SpecifySavePath_NDVI_803, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_SelectSavePath_NDVI'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_SelectSavePath_NDVI_803, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_NDVI_Cancel'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_Cancel_NDVI_803, Event
    end
    Widget_Info(wWidget, FIND_BY_UNAME='WID_BUTTON_NDVI_OK'): begin
      if( Tag_Names(Event, /STRUCTURE_NAME) eq 'WIDGET_BUTTON' )then $
        OnButtonPress_OK_NDVI_803, Event
    end
    else:
  endcase

end

pro WID_BASE_NDVI, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_

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

  WID_BASE_NDVI = Widget_Base( GROUP_LEADER=wGroup,  $
      UNAME='WID_BASE_NDVI' ,XOFFSET=5 ,YOFFSET=5 ,SCR_XSIZE=560  $
      ,SCR_YSIZE=372 ,NOTIFY_REALIZE='OnRealize_NDVI_803'  $
      ,KILL_NOTIFY='OnDestroy_NDVI_803' ,TITLE='归一化植被指数NDVI'  $
      ,SPACE=3 ,XPAD=3 ,YPAD=3 ,TLB_FRAME_ATTR=1)


  PostCreation_NDVI_803, WID_BASE_NDVI, _EXTRA=_VWBExtra_


  WID_TABLE_InputFiles = Widget_Table(WID_BASE_NDVI,  $
      UNAME='WID_TABLE_InputFiles' ,FRAME=1 ,XOFFSET=26 ,YOFFSET=41  $
      ,SCR_XSIZE=448 ,SCR_YSIZE=158 ,/COLUMN_MAJOR  $
      ,/RESIZEABLE_COLUMNS ,COLUMN_LABELS=[ '' ] ,XSIZE=2 ,YSIZE=1  $
      ,X_SCROLL_SIZE=3 ,Y_SCROLL_SIZE=6, /NO_ROW_HEADERS)


  WID_BUTTON_OpenFiles_NDVI = Widget_Button(WID_BASE_NDVI,  $
      UNAME='WID_BUTTON_OpenFiles_NDVI' ,XOFFSET=490 ,YOFFSET=42  $
      ,SCR_XSIZE=39 ,SCR_YSIZE=30 ,/ALIGN_CENTER  $
      ,TOOLTIP='添加选中文件' ,VALUE='cross1.bmp' ,/BITMAP)


  WID_LABEL_InputFiles = Widget_Label(WID_BASE_NDVI,  $
      UNAME='WID_LABEL_InputFiles' ,XOFFSET=26 ,YOFFSET=23  $
      ,SCR_XSIZE=352 ,SCR_YSIZE=18 ,/ALIGN_LEFT  $
      ,VALUE='输入文件：L1B级的MODIS数据（必须）')


  WID_BUTTON_RemoveFiles_NDVI = Widget_Button(WID_BASE_NDVI,  $
      UNAME='WID_BUTTON_RemoveFiles_NDVI' ,XOFFSET=491 ,YOFFSET=103  $
      ,SCR_XSIZE=38 ,SCR_YSIZE=30 ,/ALIGN_CENTER  $
      ,TOOLTIP='移除选中文件' ,VALUE='cross2.bmp' ,/BITMAP)


  WID_BUTTON_FilterFiles_NDVI = Widget_Button(WID_BASE_NDVI,  $
      UNAME='WID_BUTTON_FilterFiles_NDVI' ,XOFFSET=492 ,YOFFSET=167  $
      ,SCR_XSIZE=38 ,SCR_YSIZE=30 ,/ALIGN_CENTER  $
      ,TOOLTIP='移除不合格文件' ,VALUE='eraser.bmp' ,/BITMAP)


  WID_BASE_SavePath = Widget_Base(WID_BASE_NDVI,  $
      UNAME='WID_BASE_SavePath' ,XOFFSET=27 ,YOFFSET=219  $
      ,SCR_XSIZE=345 ,SCR_YSIZE=22 ,TITLE='IDL' ,ROW=1 ,/EXCLUSIVE)


  WID_BUTTON_DefaultSavePath = Widget_Button(WID_BASE_SavePath,  $
      UNAME='WID_BUTTON_DefaultSavePath' ,/ALIGN_LEFT  $
      ,VALUE='保存结果到原文件夹下')


  WID_BUTTON_SpecifySavePath = Widget_Button(WID_BASE_SavePath,  $
      UNAME='WID_BUTTON_SpecifySavePath' ,XOFFSET=151 ,SCR_XSIZE=150  $
      ,SCR_YSIZE=21 ,/ALIGN_LEFT ,VALUE='保存结果到指定文件夹')


  WID_BUTTON_SelectSavePath_NDVI = Widget_Button(WID_BASE_NDVI,  $
      UNAME='WID_BUTTON_SelectSavePath_NDVI' ,XOFFSET=492  $
      ,YOFFSET=238 ,SCR_XSIZE=40 ,SCR_YSIZE=30 ,/ALIGN_CENTER  $
      ,TOOLTIP='选择保存文件夹' ,VALUE='Open Folder.bmp' ,/BITMAP)


  WID_TEXT_SavePath = Widget_Text(WID_BASE_NDVI,  $
      UNAME='WID_TEXT_SavePath' ,XOFFSET=26 ,YOFFSET=246  $
      ,SCR_XSIZE=449 ,SCR_YSIZE=22 ,XSIZE=20 ,YSIZE=1)


  WID_BUTTON_NDVI_Cancel = Widget_Button(WID_BASE_NDVI,  $
      UNAME='WID_BUTTON_NDVI_Cancel' ,XOFFSET=475 ,YOFFSET=300  $
      ,SCR_XSIZE=59 ,SCR_YSIZE=30 ,/ALIGN_CENTER ,VALUE='取　消')


  WID_BUTTON_NDVI_OK = Widget_Button(WID_BASE_NDVI,  $
      UNAME='WID_BUTTON_NDVI_OK' ,XOFFSET=399 ,YOFFSET=300  $
      ,SCR_XSIZE=60 ,SCR_YSIZE=30 ,/ALIGN_CENTER ,VALUE='确　定')


  WID_BASE_TempBar = Widget_Base(WID_BASE_NDVI,  $
      UNAME='WID_BASE_TempBar' ,FRAME=1 ,YOFFSET=282 ,SCR_XSIZE=580  $
      ,SCR_YSIZE=1 ,TITLE='IDL' ,SPACE=3 ,XPAD=3 ,YPAD=3)

  Widget_Control, /REALIZE, WID_BASE_NDVI

  XManager, 'WID_BASE_NDVI', WID_BASE_NDVI, /NO_BLOCK  ,CLEANUP='OnDestroy_NDVI_803'

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

pro NDVI803,event
    NDVI_803, GROUP_LEADER=wGroup, _EXTRA=_VWBExtra_
end