home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #3
/
amigamamagazinepolishissue1998.iso
/
bazy
/
muivideo
/
arexx
/
playtime_quick_gauge.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-11-24
|
2KB
|
69 lines
/*
* playtime_quick_gauge.rexx
*
* ARexx-Script für MUIVideo
* Berechnet die Länge der Filme auf einer Videocassette
* unter Verwendung des in V1.13 eingeführten Befehls
* GETQUICK. Es erfolgt eine Fortschrittsanzeige über
* den Befehl GAUGE
*
* $VER: playtime_quick_gauge.rexx V1.1 (24.11.96)
* Copyright 1995/96 by Christoph Kirsch
*
*/
address 'MUIVIDEO.1'
options results
sleep /* Eingaben unterbinden */
get CASSETTE /* Kassettennummer holen */
c = result
count /* Anzahl der Filme holen */
num = result
timelp = 0 /* Zeit der LP-Filme */
timesp = 0 /* Zeit der SP-Filme */
timeall = 0 /* Gesammtzeit */
gauge '0' open /* Gauge auf */
do i=0 to num-1 /* bei allen Datensätzen ... */
prozent = i*100/num /* Fortschritt berechnen */
gauge prozent /* ...und anzeigen */
getquick i CASSETTE /* Cassettennummer lesen */
cas = result
if cas = c then do /* wenn die gleiche Cassette ... */
getquick i LAENGE /* ... dann Länge und ... */
l = result
getquick i GESCHWINDIGKEIT /* ... Geschwindigkeit ermitteln */
g = result
if g = 'LP' then do /* Filmlängen addieren */
timelp = timelp + l
end
else do
timesp = timesp + l
end
end
end
gauge '0' close /* Gauge zu */
timeall = timesp + timelp/2 /* Gesammtzeit berechnen */
/* Text erstellen */
text = """" || "Cassette " || c || "|in ShortPlay = " || timesp || " min" || "|in LongPlay = " || timelp || " min" || "|Summe = " || timeall || " min" || """"
wake /* Eingaben erlauben */
requestnotify text /* Requester mit Ergebnis anzeigen */