home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / business / muivideo / arexx / playtime_quick_gauge.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-11-24  |  1.9 KB  |  69 lines
  1. /*
  2.  * playtime_quick_gauge.rexx
  3.  *
  4.  * ARexx-Script für MUIVideo
  5.  * Berechnet die Länge der Filme auf einer Videocassette
  6.  * unter Verwendung des in V1.13 eingeführten Befehls
  7.  * GETQUICK. Es erfolgt eine Fortschrittsanzeige über
  8.  * den Befehl GAUGE
  9.  *
  10.  * $VER: playtime_quick_gauge.rexx V1.1 (24.11.96)
  11.  * Copyright 1995/96 by Christoph Kirsch
  12.  *
  13.  */
  14.  
  15. address 'MUIVIDEO.1'
  16. options results
  17.  
  18. sleep                           /* Eingaben unterbinden */
  19.  
  20. get CASSETTE                    /* Kassettennummer holen */
  21. c = result
  22.  
  23. count                           /* Anzahl der Filme holen */
  24. num = result
  25.  
  26. timelp  = 0                     /* Zeit der LP-Filme */
  27. timesp  = 0                     /* Zeit der SP-Filme */
  28. timeall = 0                     /* Gesammtzeit */
  29.  
  30. gauge '0' open                  /* Gauge auf */
  31.  
  32. do i=0 to num-1                 /* bei allen Datensätzen ... */
  33.  
  34.   prozent = i*100/num           /* Fortschritt berechnen */
  35.   gauge prozent                 /* ...und anzeigen */
  36.  
  37.   getquick i CASSETTE           /* Cassettennummer lesen */
  38.   cas = result
  39.  
  40.   if cas = c then do            /* wenn die gleiche Cassette ... */
  41.     getquick i LAENGE           /* ... dann Länge und ... */
  42.     l = result
  43.     getquick i GESCHWINDIGKEIT  /* ... Geschwindigkeit ermitteln */
  44.     g = result
  45.  
  46.     if g = 'LP' then do         /* Filmlängen addieren */
  47.       timelp = timelp + l
  48.       end
  49.     else do
  50.       timesp = timesp + l
  51.       end
  52.  
  53.   end
  54.  
  55. end
  56.  
  57. gauge '0' close                  /* Gauge zu */
  58.  
  59. timeall = timesp + timelp/2      /* Gesammtzeit berechnen */
  60.  
  61.                                  /* Text erstellen */
  62.  
  63. text = """" || "Cassette " || c || "|in ShortPlay = " || timesp || " min" || "|in LongPlay = " || timelp || " min" || "|Summe = " || timeall || " min" || """"
  64.  
  65. wake                             /* Eingaben erlauben */
  66.  
  67. requestnotify text               /* Requester mit Ergebnis anzeigen */
  68.  
  69.