12345

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: [---] AD: Upgrade ArcaOS to NeoWPS level Install original PNG icons drawed by designer, specialized at OS/2 adornation. Install eSchemes 2019 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: USB Widget - widget monitoring USB flashdisks Comments: eCo Software is a group of russian developers. How to support eCo Software? (you can send us some computers. Maybe you don't use the device but it may be useful for the developers). We have the mailboxes in USA, Netherlands, China and Hong Kong.

(C) OS2.GURU 2001-2025