使用OCX进行4GL / Openedge移动整数

Question

如何使用OCX创建一个模块，使FILL-IN (INT)像彩票一样移动。我试着在网上搜索如何做但没有运气。

Answer 1

你过于复杂了。不需要OCX或多个填充：

define variable r as integer no-undo.

define variable z as integer no-undo format "999999".

define variable k as integer no-undo.

do k = 6 to 1 by -1:

    etime( true ).
    do while etime < 1000: /* spend 1000ms on each random digit */

      r = random( 0, exp( 10, k ) - 1 ).
      display ( z + r ) @ z.

    end.

  z = z + ( random( 0, 9 ) * exp( 10, k - 1 )).
  display z.

  /* pause. */ /* handy for debugging... */

end.