home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / TIMER.KIM < prev   
Text File  |  1995-09-07  |  1KB  |  85 lines
  1.  
  2. rem ------------------------------------------------------------
  3. rem Programm      : Beispiel für eine Timer-Funktion
  4. rem Programmierer : JK
  5. rem Datum         : 02.07.95
  6. rem ------------------------------------------------------------
  7.  
  8.  
  9.  deffloat _i
  10.  call fenster_inhalt()
  11.  
  12.  rem Timer starten ...
  13.  event_on_item "window","timer on"
  14.  win_paint "window"
  15.  
  16.  
  17.  while _i<>1000
  18.    win_ev _i
  19.  wend
  20.  
  21.  end
  22.  
  23.  
  24. MODUL fenster_inhalt()
  25.  
  26. deffloat ticks
  27.  
  28. rem Anzahl der Ticks in der Sekunde : 18.2
  29. ticks=1110
  30.  
  31.  
  32. DEF_WINDOW_ST "window",2,2,75,15,"Timer-Test","","",ticks
  33.  
  34. DEF_STRING "String1",29,2,15,"0";""
  35. DEF_PROMPT "Feldname2",1,2,"Anzahl Timer Aufrufe";""
  36. DEF_BUTTON "PushButton3",29,5,17,"","Quit";""
  37. DEF_BUTTON "PushButton4",29,7,17,"","Timer an";""
  38. DEF_BUTTON "PushButton5",29,9,17,"","Timer aus";""
  39.  
  40.  
  41. ADD_ITEM "window",..
  42. "String1",..
  43. "Feldname2",..
  44. "PushButton3",..
  45. "PushButton4",..
  46. "PushButton5"
  47.  
  48.  
  49. ENDMOD
  50.  
  51. modul PushButton4_select()
  52.   event_on_item "window","timer on"
  53. endmod
  54.  
  55. modul PushButton5_select()
  56.   event_on_item "window","timer off"
  57. endmod
  58.  
  59.  
  60. modul PushButton3_select()
  61.  
  62. rem Programm verlassen
  63. _i=1000
  64.  
  65. endmod
  66.  
  67. rem Dieses Modul wird immer aufgerufen wenn der eingestellte Timerwert
  68. rem erreicht ist.
  69.  
  70. modul window_timer()
  71.   deffloat a
  72.   defstring text
  73.   get_item "String1",text
  74.   val text,a
  75.   form a+1,text,0,1
  76.   set_item "String1",text
  77.   beep
  78.  
  79. endmod
  80.  
  81.  
  82.  
  83.  
  84. rem ********************
  85.