进度条实例

原创 2015年07月10日 10:00:34
*&---------------------------------------------------------------------*
*& Report  ZTEST_SCHEDULE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_SCHEDULE.
DO 100 TIMES.
  PERFORM SHOW_PROGRESSBAR USING SY-INDEX.
  WAIT UP TO SECONDS.
ENDDO.
MESSAGE 'Finished!'(FINTYPE 'S'.
*&---------------------------------------------------------------------*
*& Form show_progressbar
*&---------------------------------------------------------------------*
FORM SHOW_PROGRESSBAR USING UPCT TYPE I.
  DATAFBAR TYPE LENGTH 13,
  FMSG TYPE LENGTH 70.
  CONSTANTSPERCENT1 TYPE VALUE '▏',
  PERCENT2 TYPE VALUE '▎',
  PERCENT3 TYPE VALUE '▍',
  PERCENT4 TYPE VALUE '▌',
  PERCENT5 TYPE VALUE '▋',
  PERCENT6 TYPE VALUE '▊',
  PERCENT7 TYPE VALUE '▉',
  PERCENT8 TYPE VALUE '█'.
  DATAFMOD TYPE N,
  FTIM TYPE I,
  FFIELD TYPE LENGTH 10,
  FIDX TYPE LENGTH 3.
  FIELD-SYMBOLS<FS> TYPE C.
  FTIM UPCT DIV 8.
  FMOD UPCT MOD 8.
  CLEARFBAR.
  DO FTIM TIMES.
    CONCATENATE FBAR PERCENT8 INTO FBAR.
  ENDDO.
  IF FMOD NE 0.
    CONCATENATE 'percent' FMOD INTO FFIELD.
    ASSIGN (FFIELDTO <FS> .
    CONCATENATE <FS>  FBAR  INTO FBAR.
  ENDIF.
  FIDX SY-INDEX.
  CONCATENATE FBAR FIDX '%' INTO FMSG.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE UPCT
      TEXT       FMSG.

ENDFORM"show_progressbar


显示效果非常拉风:


版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

进度条设计实例

  • 2015-03-01 12:44
  • 1.02MB
  • 下载

as3带进度条上传实例

Process进程 ; Thread线程 (拷贝文件,带进度条的使用实例)

前台线程和后台线程 using System; using System.Collections.Generic; using System.Linq; using System.Text; usi...

ExtJs实现进度条实例.htm

  • 2013-03-07 14:40
  • 902KB
  • 下载

进度条实例

C#进度条实现之异步实例浅析

C#进度条实现之异步实例浅析 2009-08-17 14:36 Deckard 博客园 我要评论(0) 字号:T | T C#进度条实现之异步实例是如何实现的呢?C#进度条实现之异步实例...

Extjs 进度条实例

ExtJs 进度条实例   <link rel="styl
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)