home *** CD-ROM | disk | FTP | other *** search
/ PSION CD 2 / PsionCDVol2.iso / Programs / 304 / Batterie.sis (.txt) next >
EPOC Installation Package  |  2000-10-06  |  21KB  |  359 lines
  1. C:\Sistemp\SystInfo.oxh!:\System\Apps\Opl\SystInfo.oxhC:\Sistemp\Systinfo.opx!:\System\Opx\Systinfo.opxC:\Sistemp\Batterie.opo!:\Psion5CD1\Batterie\Batterie.opoC:\Sistemp\Batterie!:\Psion5CD1\Batterie\BatterieC:\Sistemp\Bis.txt!:\Psion5CD1\Batterie\Bis.txtBatterie 19.5 kB7
  2. E"rem SYSTINFO.OXH version 3.00
  3. rem Header File for SYSTINFO.OPX
  4. rem Copyright 
  5.  Otfried Cheong 1998
  6. rem See Readme.txt for conditions of use
  7. CONST KOpxSystinfoUid&=&10000B90
  8. CONST KOpxSystinfoVersion%=$300
  9. DECLARE OPX SYSTINFO,KOpxSystinfoUid&,KOpxSystinfoVersion%
  10.     SISystemVisible&: : 1
  11.     SIHiddenVisible&: : 2
  12.     SICurrencyFormat$:(BYREF ndig&, BYREF neg&, BYREF space&, BYREF pos&, BYREF triad&) : 3
  13.     SIDateFormat:(BYREF format&, BYREF sep0%, BYREF sep1%, BYREF sep2%, BYREF sep3%) : 4
  14.     SITimeFormat:(BYREF format&, BYREF sep0%, BYREF sep1%, BYREF sep2%, BYREF sep3%, BYREF ampmSpace&, BYREF ampmPos&) : 5
  15.     SIUTCOffset&: : 6
  16.     SIWorkday%:(dayNo&) : 7
  17.     SIDaylightSaving%:(where&) : 8
  18.     SIHomeCountry$: : 9
  19.     SIUnits:(BYREF general&, BYREF shortDistances&, BYREF longDistances&) : 10
  20.     SIIsDirectory&:(filename$) : 11
  21.     SIVolumeName$:(driveNo&) : 12
  22.     SIUniqueFilename$:(filename$) : 13
  23.     SIBookmark$: : 14
  24.     SIStandardFolder$: : 15
  25.     SIDisplayContrast&: : 16
  26.     SIOwner$: : 17
  27.     SIBatteryVolts:(BYREF mainVolt&, BYREF mainMax&, BYREF backVolt&, BYREF backMax&) : 18
  28.     SIBatteryCurrent:(BYREF curCons&, BYREF totalCons&, BYREF inUseTime&, BYREF extPwrTime&, BYREF extPwr&, battInserted&) : 19
  29.     SIMemory:(BYREF ram&, BYREF rom&, BYREF maxFreeRam&, BYREF freeRam&, BYREF ramDisk&) : 20
  30.     SIKeyClickEnabled%: : 21
  31.     SIKeyClickLoud%: : 22
  32.     SIKeyClickOverridden%: : 23
  33.     SIPointerClickEnabled%: : 24
  34.     SIPointerClickLoud%: : 25
  35.     SIBeepEnabled%: : 26
  36.     SIBeepLoud%: : 27
  37.     SISoundDriverEnabled%: : 28
  38.     SISoundDriverLoud%: : 29
  39.     SISoundEnabled%: : 30
  40.     SIAutoSwitchOffBehaviour&: : 31
  41.     SIAutoSwitchOffTime&: : 32
  42.     SIBacklightBehaviour&: : 33
  43.     SIBacklightOnTime&: : 34
  44.     SIDisplaySize:(BYREF x&, BYREF y&, BYREF inX&, BYREF inY&, BYREF physX&, BYREF physY&) : 35
  45.     SIKeyboardIndex&: : 36
  46.     SILanguageIndex&: : 37
  47.     SIXYInputPresent%: : 38
  48.     SIKeyboardPresent%: : 39
  49.     SIMaximumColors&: : 40
  50.     SIProcessorClock&: : 41
  51.     SISpeedFactor&: : 42
  52.     SIMachine$: : 43
  53.     SIRemoteLinkStatus&: : 44
  54.     SIRemoteLinkDisable: : 45
  55.     SIIsPathVisible&:(path$): 46
  56.     SIRemoteLinkEnable: : 47
  57.     SIPWIsEnabled%: : 48
  58.     SIPWSetEnabled:(password$, enable%) : 49
  59.     SIPWIsValid%:(password$) : 50
  60.     SIPWSet:(oldPw$, newPw$) : 51
  61.     SILedSet:(onOff%) : 52
  62. END DECLARE
  63. *TextEd.app
  64. c:\system\apps\shell\shell.ini
  65. %-16S%-16S%-16S%-16S%-16S%-16S
  66. euser[100000C1].dll
  67. OPLR[10000077].dll
  68. ESTOR[100000cf].dll
  69. EFSRV[100000BD].dll
  70. EALWL[10000173].dll
  71. PLPSVR[1000011a].dll
  72. APPARC[100000de].dll
  73. 0 040H0X0d0p0|0
  74. 6$787<7@7D7H7L7P7T7X7\7`7d7h7l7p7t7x7|7
  75. 9$909<9H9T9`9l9x9
  76. : :,:8:D:P:\:h:t:
  77. ;(;4;@;L;X;d;p;|;
  78. <$<0<<<H<T<`<l<x<
  79. c:\OPL\Batterie
  80.     MAINVOLT&
  81. MAINMAXVOLT&
  82.     BACKVOLT&
  83. BACKMAXVOLT&
  84. TOTAL&
  85. INUSE&
  86. EXTTIME&
  87.     EXTPOWER&
  88. DTIME&
  89. DRAWINIT
  90. GETDATA
  91. PRINTHEADER
  92. CALCZ
  93. CALCV
  94. MARKER
  95. RAUTE
  96. VCHECK
  97. SLEEP
  98. O<{UW
  99. C:\SYSTEM\Data\Batterie.MBMW
  100. C:\SYSTEM\Data\Batterie.MBM
  101. C:\SYSTEM\Data\Batterie.MBM
  102. CALCZ
  103. CALCV
  104. C:\SYSTEM\Data\Batterie.MBMW
  105. C:\SYSTEM\Data\Batterie.MBMW(
  106. Batterie V1.22
  107. O<|VO
  108. DTIME&
  109.     MAINVOLT&
  110. MAINMAXVOLT&
  111.     BACKVOLT&
  112. BACKMAXVOLT&
  113. TOTAL&
  114. INUSE&
  115. EXTTIME&
  116.     EXTPOWER&
  117. |NRWBMx
  118. |NRWBIx
  119.     MAINVOLT&
  120. TOTAL&
  121.     EXTPOWER&
  122.     BACKVOLT&
  123.     MAINVOLT&
  124. +#Batterie austauschen! EPOC-Warnung 
  125. Batterie austauschen! +
  126. EPOC-Warnung 
  127. +'Batterie austauschen! BATTERIE-Warnung 
  128. Batterie austauschen! +
  129. BATTERIE-Warnung 
  130. MAIN$
  131. DRAWINIT
  132. GETDATAc
  133. CALCV8
  134. CALCZ
  135. PRINTHEADER
  136. SLEEP
  137. VCHECKJ
  138. MARKER
  139. RAUTE
  140. SYSTEM\
  141. DATEZ
  142. SYSTINFO
  143. !RREM Batteriespannungskontrolle
  144. REM 28.03.98, R.Kr
  145. ger, Troisdorf
  146. REM home.t-online.de/home/ralf_krueger
  147. REM RK@bigfoot.de
  148. INCLUDE "z:\system\opl\Const.oph"
  149. INCLUDE "z:\system\opl\System.oxh"
  150. INCLUDE "z:\system\opl\Date.oxh"
  151. INCLUDE "c:\system\opl\SystInfo.oxh"
  152. CONST PName$ = "Batterie V1.22"
  153. CONST MBMSave$ = "C:\SYSTEM\Data\Batterie.MBM"
  154. CONST LowBatt& = 2300            :REM Warnpegel 2,3V
  155. CONST Increment% = 6            :REM Alle 6 *10 Sekunden messen
  156. CONST RandOben% = 30            :REM Rand oben
  157. CONST RandUnten% = 20        :REM Rand unten
  158. CONST RandLinks% = 30            :REM Rand links
  159. CONST RandRechts% = 10        :REM Rand rechts
  160. CONST VMin% = 2100                :REM Untere Skala 2,1V
  161. CONST VMax% = 2700                :REM Obere Skala 2,7V
  162. CONST ZMin% = 0                        :REM Zeitskala links = 0 min
  163. CONST ZMax% = 600                    :REM Zeitskala rechts = 600 min = 10 Std
  164. CONST ZIncr% = 30                    :REM Zeitincrement 30 Minuten
  165. CONST ZNk% = 1                            :REM Nackommastellen f
  166. r Zeit
  167. PROC MAIN:
  168.     LOCAL x%, y%, yV%, xV%, tV%, key%
  169.     GLOBAL G_m%, G_t%
  170.     GLOBAL mainVolt&, mainMaxVolt&, backVolt&, backMaxVolt&
  171.     GLOBAL cur&, total&, inuse&, exttime&, extpower&, dtime&
  172. Start::
  173. rem    gCLS
  174.     DrawInit:
  175.     xV% = 999
  176.     WHILE KTrue%
  177.         GetData:
  178.         PrintHeader:
  179.         x% = CalcZ:(FLT(inuse&/60))
  180.         y% = CalcV:(FLT(mainVolt&))
  181.         IF x% < xV%
  182.             xV% = x%
  183.             yV% = y%
  184.             tV% = G_t%
  185.         ENDIF
  186.         gAT xV%,yV%
  187.         gSETPENWIDTH 2
  188.         gCOLOR 0,0,0
  189.         gLINETO x%,y%
  190.         IF tV% <> G_t%
  191.             Marker:(FLT(x%),CalcV:(VMax%),Fix$(G_t%,0,2))
  192.         ENDIF
  193.         IF extpower& > 0
  194.             Raute:(FLT(x%), CalcV:(VMin%))
  195.         ENDIF
  196.         xV% = x%
  197.         yV% = y%
  198.         tV% = G_t%
  199.         VCheck:
  200.         Key% = Sleep:(Increment%) 
  201.         IF Key% = 3 
  202.         IF EXIST (MBMSave$)
  203.             DELETE MBMSave$
  204.         ENDIF
  205.             GOTO Start::
  206.         ELSEIF Key% = 5 
  207.             gSAVEBIT MBMSave$
  208.             BREAK
  209.         ELSEIF Key% = 1 
  210.             Marker:(FLT(x%),CalcV:(VMax%),Fix$(G_t%,0,2))
  211.         ENDIF
  212.     ENDWH
  213. REM ==================================================
  214. PROC DrawInit:
  215.     LOCAL x%, y%, id%
  216.     gCLS
  217.     IF EXIST (MBMSave$)
  218.         id% = gLOADBIT (MBMSave$)
  219.         gUSE 1
  220.         gCOPY id%,0,0,640,240,3
  221.         gCLOSE id%
  222.     ENDIF
  223.     gFONT KFontArialNormal18&
  224.     gSTYLE KgStyleNormal%
  225.     gAT 0,0        : gBOX 640,240
  226.     gAT 5,22    : gPRINT pname$
  227.     gFONT KFontArialNormal11&
  228.     gSTYLE KgStyleBold%
  229.     x% = ZMin%
  230.         gCOLOR 0,0,0
  231.         gSETPENWIDTH 1
  232.         gAT CalcZ:(FLT(x%)) - 10 , 235
  233.         gPRINT FIX$(FLT(x%)/60,ZNk%,4)
  234.         gCOLOR 128,128,128
  235.         gAT CalcZ:(FLT(x%)), 240 - RandUnten%
  236.          gLINEBY 0, -240 + RandUnten% + RandOben%
  237.         x% = x% + ZIncr%
  238.     UNTIL x% > ZMax%
  239.     gCOLOR 200,200,200
  240.     gSETPENWIDTH 5
  241.     gAT RandLinks%, CalcV:(FLT(LowBatt&))
  242.     gLINEBY 640 - RandLinks% - RandRechts%,0
  243.     gSETPENWIDTH 1
  244.     y% = VMin%
  245.         gCOLOR 0,0,0
  246.         gAT 5, CalcV:(FLT(y%)) + 5
  247.         gPRINT FIX$(FLT(y%)/1000,1,-3)
  248.         gCOLOR 128,128,128
  249.         gAT RandLinks%, CalcV:(FLT(y%))
  250.          gLINEBY 640 - RandLinks% - RandRechts%,0
  251.         y% = y% + 100
  252.     UNTIL y% > VMax%
  253. REM ==================================================
  254. PROC GetData:
  255.         dtime& = DTNow&:
  256.         SIBatteryVolts:(mainVolt&, mainMaxVolt&, backVolt&, backMaxVolt&)
  257.         SIBatteryCurrent:(cur&, total&, inuse&, exttime&, extpower&, dtime&)
  258.         G_t% = DTDAYSDIFF&:(dtime&,DTNow&:)
  259. REM ==================================================
  260. PROC CalcV:(v)
  261.     LOCAL VFaktor, Erg%
  262.     VFaktor = (240 - FLT(RandUnten%) - FLT(RandOben%)) / FLT((VMax%) - FLT(VMin%))
  263.     Erg% = 240 - RandUnten% - int(VFaktor * (v - VMin%))
  264.     RETURN Erg%
  265. REM ==================================================
  266. PROC CalcZ:(s)
  267.     LOCAL ZFaktor, Erg%
  268.     ZFaktor = (640 - FLT(RandLinks%) - FLT(RandRechts%)) / FLT((ZMax%) - FLT(ZMin%))
  269.     Erg% = RandLinks% + int(ZFaktor * (s - ZMin%))
  270.     RETURN Erg%
  271. REM ==================================================
  272. PROC PrintHeader:
  273.     LOCAL t$(20)
  274.     gFONT KFontArialNormal15&
  275.     gSTYLE KgStyleInverse%
  276.     gCOLOR 0,0,0
  277.     t$ = FIX$(FLT(mainVolt&)/1000,3,-5) + "V"
  278.     gAT 140, 20 : gPRINTB t$, 80, 3,2,2
  279.     t$ = FIX$(FLT(total&/3588),0,-5) + "mAh"
  280.     gAT 230, 20 : gPRINTB t$, 80, 3,2,2
  281.     IF extpower& = 0
  282.         t$ = "Batt"
  283.     ELSE
  284.         t$ = "Ext"
  285.     ENDIF
  286.     gAT 320, 20 : gPRINTB t$, 80, 3,2,2
  287.     t$ = FIX$(FLT(backVolt&)/1000,3,-5) + "V"
  288.     gAT 410, 20 : gPRINTB t$, 80, 3,2,2
  289.     gAT 500, 20 : gPRINTB mid$(DATIM$,16,8), 130, 3,2,2
  290. REM ==================================================
  291. PROC Sleep:(s%)
  292.     LOCAL c%, key%    
  293.     c% = 0
  294.         PAUSE 20 * 10
  295.         Key% = KEY 
  296.         IF Key% > 0
  297.                 BREAK
  298.         ENDIF
  299.         c% = c% + 1
  300.     UNTIL c% = s%
  301.     RETURN Key%
  302. REM ==================================================
  303. PROC VCheck:
  304.     IF MAINBATTERYSTATUS&: < 3
  305.         G_m% = G_m% + 1
  306.         SETFOREGROUND:
  307.         BEEP 3,500
  308.         BUSY "Batterie austauschen! EPOC-Warnung "+FIX$(G_m%,0,3),1
  309.         ALERT("Batterie austauschen! ","EPOC-Warnung "+FIX$(G_m%,0,3))
  310.         SETBACKGROUND:
  311.     ELSEIF FLT(mainVolt&) < LowBatt&
  312.         G_m% = G_m% + 1
  313.         SETFOREGROUND:
  314.         BEEP 3,500
  315.         BUSY "Batterie austauschen! BATTERIE-Warnung "+FIX$(G_m%,0,3),1
  316.         ALERT("Batterie austauschen! ","BATTERIE-Warnung "+FIX$(G_m%,0,3))
  317.         SETBACKGROUND:
  318.     ELSE
  319.         BUSY OFF
  320.         G_m% = 0
  321.     ENDIF
  322. REM ==================================================
  323. PROC Marker:(x,y,t$)
  324.     gSETPENWIDTH 1
  325.     gCOLOR 0,0,0
  326.     gFONT KFontArialNormal11&
  327.     gSTYLE KgStyleBold% + KgStyleInverse%
  328.     gAT x, y
  329.     gLINEBY 0,25
  330.     gAT x-10, y+17
  331.     gPRINTB t$,20,3,1
  332. REM ==================================================
  333. PROC Raute:(x,y)
  334.     gAT x-4,y
  335.     gSETPENWIDTH 1
  336.     gLINEBY 4,-4
  337.     gLINEBY 4,4
  338.     gLINEBY -4,4
  339.     gLINEBY -4,-4
  340. *TextEd.app
  341. This SIS-file is designed by BISON Software. 
  342. Bison Software doesn't accept any liability 
  343. for the function of the programme to be installed. 
  344. Please pay attention to the comment in the 
  345. README file of the author.
  346. Before installing this software please make 
  347. a B A C K U P  of your Psion.
  348. Have a lot of fun!
  349. Diese SIS-Datei wurde von Bison Software erstellt.
  350. Bison Software 
  351. bernimmt keinerlei Garantie f
  352. r die 
  353. Funktion des zu installierenden Programmes. 
  354. Bitte beachten Sie die Hinweise in der 
  355. README Datei des Autors.
  356. Bevor Sie das Programm installieren machen Sie 
  357. ein B A C K U P  Ihres Psion.
  358. Viel Spa
  359.