Reviews / articles about OS/2

Operating systems: ArcaOS, eComStation, IBM OS/2 Warp

Latest       Unsorted	Добавить комментарий Ваше имя: e-mail для связи: Введите Anti-spam код Какой товар вам нужен? (коротко) Describe your order in free form: What application do you need: [---] web-site: OS2FAQ/?action= your contacts * email: [---] Upgrade ArcaOS to NeoWPS level Install original PNG icons drawed by designer, specialized at OS/2 adornation. Install eSchemes 2018 to change colors and buttons on desktop. Usage of REXX with IBM Works TITLE: Usage of REXX with IBM Works DATE: 2002-01-04 23:31:34 AUTHOR: Timur Kazimirov Please use online translator go to http://translate.google.com and request the translation of http://ru.ecomstation./projects/reviews/index.php?id=37 to your language . ........., . ............ IBM Works .. ...... ...... .. .., ... ... ...... . ......... IBM Works ..... ......... . ............ .... ........... ......., .......... .. REXX. ....... ...... ........ ..... ....... . ........ IBM Works, . ....... ..... ....... ....... ..... ....... (........, .... RANDOM.FNC) - .. .......... . .......... ......... ... ....... ... ... ...... ...... . ...... . IBM, .. ... ...... ......... . ............, ....... .......... ........ .. ..... ....... ...., ... .. ... ... ........... ...... ...... ........... ....... ... ... ........ ....... . ...... ...... ....... .......: =rexx("... .....", ... ......, ...-.. .........., ...... ..........) ... ...., . ........... .. ............ ........ ....... ........... ......, ..... .............. ....... ... ..... . ....... (... ....... ........., ... . .....). .. ........., .... ... ......... .. ....... ...... '......', .. .... ..... ............ ..... . ........ ...... ..... (.. .... ......): =rexx("C:\USER\.... .. .........RXX";0;1;A1) .....: "... ....." ........ ..... *. ....... ........* . ..... ..... ........ ..... ....... ...... .... ... ............. (............ ........, . ....... ......... ......... IBM Works). .......... ..... .... .. ....... ... ..... ..... ......... ........ ... ...... ... ......... ..... .... ...: 0 - .... ......... ..... ....... ..... ......; 1 - .... ............ ...... (...... 1 ..... ...... ..... ......, ........ .. .... .....). .......... .......... ....., ..........., ....... .......... .. ......... ..... ........ .... ....... .. ....... .........., .. ....... ..... ...... .......... .... ........., ............ . .... ........ .. .......... ...... .... ..... .., ..... .. ... ....... . .......... ........., . ......... ...... .. ........ ......... .. ....... ... ........ ..... .........., .. ... ..... ....: ..... . ............ . ........ ............. ........... (........, ..... 16,4). .... .......... ... ...... ...... .......... . ....... ......... .......: "......1", "Narrow->" ........ ...... . .... ...... . ....... ..... ....... ........., ............ . ......... ....... . ........., ...... ........ ........ ...... ......... ..... ..... .... ... .........., ... . .............. .......: A1, $B$8 .......... ....... ... ..... ........., ..... .... ......... ..... ....... . .... ........ . .......... ..... ........... ........ ..... (... .........., ... . .............). ...... .......... ...... ....... ...... .......... ..... ......... ..... ........... ........... ARG.... ............ '......', ....... ..... ........... .. ...., ....... . ............. ............ ... .. ...., REXX ....... . .......... ..... ......., ...... .... ... ............ . ..... "xxx.yyy", . .... .. ......... ... ....... ..... "12,6" (........ ....... . ......, .... ....... ...... - ......), .. . .... ....... .... ... .... ......... - ........ ........ TRANSLATE, .. .... argvar = TRANSLATE(argvar, ".", ",") ...... ........: IBM Works ........ ......... ... ..... ........, .... . ...... B1, ....... ..... .......... ... ..... ......., ..... ..... 12, .. ...... ........... ...... ... ........ . ............ .. ..... .... '12,00..', .. ........ ........ ....... '12,00.' (.. ..... ........... .............). ..... ... ........, ........ B1 .. ........ .. ....: =rexx("myfunc.fnc";0;1;B1) .... ........ .. =rexx("myfunc.fnc";0;1;B1*1) .... ..... ......... . . ........... ............. ...... .......... ....... ... . . ..., ... .... .............. ... ....., ...... .... . ...... ..... "28.....01", .. . . .... ....... ..... ........ ...... ... ......, . .. "37253.661". .... .. ...... ........ ........ ............. ...., .. ........ .... .. ........ ......, ... . .... ....... ... ..... ......... ... ... ....... ....... .. ...... .., . .... ... ... ... ...... .. ........, .. ....... ............ ......... ............. ..... (... . ...... . .....). .... ....... . ............ ........ .... ....... - ... ....... ......... .. REXX (.... ...... .......... . ........... /*.......*/). ...... ..... ....... .. ...... ....... ... ... ... ....... - .. ........ ............, .. ......... .......... RxSock, ............ HTTP-.......... . ....... ......-.... ....... . ...-........ . ......... ....... ............ ... ...... - ..... RETURN ......... .. .......... ....... ...... EXIT - ... ..... ........ . .......... ............. .........., .... .... ....... ........ ....., .. ....... ...-.. ........... (....... .....-.. ........., ......... ........ ....... . ....). . ...., .. ... ..., .. ....... .. . ........... ...., .., ...... ....., ......, ..... 100% ........ .......... .. .. ........ . ......... '.........' ... IBMWORKS, ... .. ...... .......... ....... ...... . .......... ....... ...... ....... ........... ........ ..... .......: /* ...... ........... ....... */ /* */ /* ............ ..... ......... ....... ..: */ /* */ /* TotalCost - ......... ........... .........; */ /* AgrLen - .... ......... (........); */ /* LeasePerc - .......... .......; */ /* PeriodCount - ............. ........ ........ */ /* */ Parse Arg TotalCost, AgrLen, LeasePerc, PeriodCount TotalCost=Translate(TotalCost, ".", ",") AgrLen=Translate(AgrLen, ".", ",") LeasePerc=Translate(LeasePerc, ".", ",") PeriodCount=Translate(PeriodCount, ".", ",") tmp1 = LeasePerc / PeriodCount tmp2 = (1 + tmp1)**(PeriodCount*AgrLen) answ = TotalCost * tmp1 * tmp2 / (tmp2 - 1) Return answ . ... .., ... .. ........ . ..........: ..... ......: Timur Kazimirov ...... ..........: http://ns.rnlease.snc.ru/~timur/os2/rxworks.shtml ........: Eugene Gorbunoff Test the program: Several dosenz of applications may be ported to eComStation thanks to Qt4 toolkit Komentarze: eComStation 2.0 supports computers with large amount of memory (4 Gb) + What about modern fresh transparent icons? You need Sunny icons..

(C) OS2.GURU 2001-2021