Akun varaustason ilmoitukset välille 30-80%

skannaus-osissa_yhdistäminen
Osissa skannatun kuvan yhdistäminen Photoshopissa
2017/05/09
photoshop_lisaosat
Parhaat ilmaiset Adobe Photoshop lisäosat
2017/05/23
Näytä kaikki

Akun varaustason ilmoitukset välille 30-80%

Heti Surface Pron ostettuani aloin setvimään akku asiaa, koska halusin sen pysyvän mahdollisimman hyvässä kunnossa pitkään ja välttyä laturin raahaamiselta lyhyemmillä matkoilla. Microsoftin omissa ohjeissa suositeltiin antaa akun varaustason laskea alle 10%:iin noin kerran kuukaudessa. Muualta löytyi lisäksi useita ohjeita joiden mukaan varaustaso olisi SP:ssa ja muissakin nykyaikaisissa kannettavissa (lithium-ion akut) hyvä pitää noin 30-80%:n välillä. Ei anneta mennä ihan tyhjäksi, eikä ladata täyteen. Eikä varsinkaan roikoteta verkkovirrassa koko ajan.

Akun varaustason kyttääminen on hankalaa. Matalasta ja kriittisestä tasosta saa kyllä ilmoituksen, ja sitä on helppo muuttaa menemällä (Win 10:ssä) Asetukset/Järjestelmä/Virta ja lepotila ja siellä edelleen Virran lisäasetukset.

Aukeavassa ikkunassa valitse Tasapainotettu ja Muuta suunnitelman asetuksia.

Virrankäyttösuunitelma

Taas aukeaa uusi ikkuna, valitse siellä Muuta virranhallinnan lisäasetuksia

Virranhallinnan lisäasetukset

Valitse ikkunassa kohta Akku, ja tee muutokset kuten alla kuvassa. Muista painaa lopuksi Käytä-painiketta!

Akku

Nyt saat aina ilmon kun akun varaus on laskenut 30%:iin ja voit pistää laitteesi lataukseen.

Vastaavaa toimintoa ei ole kuitenkaan saatavissa toiseen päähän, eli saavutetusta 80%:sta ei tule ilmoitusta. Itse hoidin tämän skriptillä. Kopioi alla oleva koodi Muistioon ja tallenna vaikka nimellä AkkuTaynna työpöydällesi. Anna tiedoston tunnisteeksi .vbs

set oLocator = CreateObject("WbemScripting.SWbemLocator")

set oServices = oLocator.ConnectServer(".","root\wmi")

set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")

for each oResult in oResults

   iFull = oResult.FullChargedCapacity

next


while (1)

  set oResults = oServices.ExecQuery("select * from batterystatus")

  for each oResult in oResults

    iRemaining = oResult.RemainingCapacity

    bCharging = oResult.Charging

  next

  iPercent = ((iRemaining / iFull) * 100) mod 100

  if bCharging and (iPercent > 79) Then msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor"

  wscript.sleep 30000 ' 5 minutes

wend

akun varaustaso

Tee sitten samaan paikkaan eli työpöydälle pikakuvake tuosta tiedostosta ja siirrä pikakuvake sijaintiin:

C:/ProgramData/Microsoft/Windows/Käynnistä-valikko/Ohjelmat/Käynnistys

Homma toimii omalla laitteella hienosti, skripti napattu (ja hieman muutettu) täältä, eli valitukset ongelmista sinne :). Jos haluat päästä toiminnosta joskus eroon, poista skripti työpöydältä.

 

 

 

Vastaa

Sähköpostiosoitettasi ei julkaista. Pakolliset kentät on merkitty *

Spam Blocking by WP-SpamShield