API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 14th, 2011
2,006
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 12.95 KB | None | 0 0
raw download clone embed print report
  1.         Public ReadOnly Property BatteryPercent()
  2.             ' This code will retrieve the BatteryLifePercent property and convert it to a percent.
  3.             Get
  4.                 If SystemInformation.PowerStatus.BatteryLifePercent.ToString = "1" Then
  5.                     Return "100%"
  6.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.99" Then
  7.                     Return "99%"
  8.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.98" Then
  9.                     Return "98%"
  10.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.97" Then
  11.                     Return "97%"
  12.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.96" Then
  13.                     Return "96%"
  14.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.95" Then
  15.                     Return "95%"
  16.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.94" Then
  17.                     Return "94%"
  18.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.93" Then
  19.                     Return "93%"
  20.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.92" Then
  21.                     Return "92%"
  22.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.91" Then
  23.                     Return "91%"
  24.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.9" Then
  25.                     Return "90%"
  26.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.89" Then
  27.                     Return "89%"
  28.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.88" Then
  29.                     Return "88%"
  30.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.87" Then
  31.                     Return "87%"
  32.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.86" Then
  33.                     Return "86%"
  34.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.85" Then
  35.                     Return "85%"
  36.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.84" Then
  37.                     Return "84%"
  38.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.83" Then
  39.                     Return "83%"
  40.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.82" Then
  41.                     Return "82%"
  42.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.81" Then
  43.                     Return "81%"
  44.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.8" Then
  45.                     Return "80%"
  46.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.79" Then
  47.                     Return "79%"
  48.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.78" Then
  49.                     Return "78%"
  50.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.77" Then
  51.                     Return "77%"
  52.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.76" Then
  53.                     Return "76%"
  54.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.75" Then
  55.                     Return "75%"
  56.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.74" Then
  57.                     Return "74%"
  58.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.73" Then
  59.                     Return "73%"
  60.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.72" Then
  61.                     Return "72%"
  62.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.71" Then
  63.                     Return "71%"
  64.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.7" Then
  65.                     Return "70%"
  66.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.69" Then
  67.                     Return "69%"
  68.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.68" Then
  69.                     Return "68%"
  70.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.67" Then
  71.                     Return "67%"
  72.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.66" Then
  73.                     Return "66%"
  74.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.65" Then
  75.                     Return "65%"
  76.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.64" Then
  77.                     Return "64%"
  78.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.63" Then
  79.                     Return "63%"
  80.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.62" Then
  81.                     Return "62%"
  82.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.61" Then
  83.                     Return "61%"
  84.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.6" Then
  85.                     Return "60%"
  86.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.59" Then
  87.                     Return "59%"
  88.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.58" Then
  89.                     Return "58%"
  90.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.57" Then
  91.                     Return "57%"
  92.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.56" Then
  93.                     Return "56%"
  94.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.55" Then
  95.                     Return "55%"
  96.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.54" Then
  97.                     Return "54%"
  98.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.53" Then
  99.                     Return "53%"
  100.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.52" Then
  101.                     Return "52%"
  102.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.51" Then
  103.                     Return "51%"
  104.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.5" Then
  105.                     Return "50%"
  106.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.49" Then
  107.                     Return "49%"
  108.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.48" Then
  109.                     Return "48%"
  110.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.47" Then
  111.                     Return "47%"
  112.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.46" Then
  113.                     Return "46%"
  114.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.45" Then
  115.                     Return "45%"
  116.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.44" Then
  117.                     Return "44%"
  118.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.43" Then
  119.                     Return "43%"
  120.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.42" Then
  121.                     Return "42%"
  122.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.41" Then
  123.                     Return "41%"
  124.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.4" Then
  125.                     Return "40%"
  126.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.39" Then
  127.                     Return "39%"
  128.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.38" Then
  129.                     Return "38%"
  130.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.37" Then
  131.                     Return "37%"
  132.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.36" Then
  133.                     Return "36%"
  134.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.35" Then
  135.                     Return "35%"
  136.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.34" Then
  137.                     Return "34%"
  138.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.33" Then
  139.                     Return "33%"
  140.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.32" Then
  141.                     Return "32%"
  142.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.31" Then
  143.                     Return "31%"
  144.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.3" Then
  145.                     Return "30%"
  146.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.29" Then
  147.                     Return "29%"
  148.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.28" Then
  149.                     Return "28%"
  150.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.27" Then
  151.                     Return "27%"
  152.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.26" Then
  153.                     Return "26%"
  154.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.25" Then
  155.                     Return "25%"
  156.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.24" Then
  157.                     Return "24%"
  158.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.23" Then
  159.                     Return "23%"
  160.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.22" Then
  161.                     Return "22%"
  162.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.21" Then
  163.                     Return "21%"
  164.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.2" Then
  165.                     Return "20%"
  166.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.19" Then
  167.                     Return "19%"
  168.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.18" Then
  169.                     Return "18%"
  170.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.17" Then
  171.                     Return "17%"
  172.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.16" Then
  173.                     Return "16%"
  174.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.15" Then
  175.                     Return "15%"
  176.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.14" Then
  177.                     Return "14%"
  178.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.13" Then
  179.                     Return "13%"
  180.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.12" Then
  181.                     Return "12%"
  182.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.11" Then
  183.                     Return "11%"
  184.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.1" Then
  185.                     Return "10%"
  186.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.09" Then
  187.                     Return "9%"
  188.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.08" Then
  189.                     Return "8%"
  190.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.07" Then
  191.                     Return "7%"
  192.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.06" Then
  193.                     Return "6%"
  194.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.05" Then
  195.                     Return "5%"
  196.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.04" Then
  197.                     Return "4%"
  198.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.03" Then
  199.                     Return "3%"
  200.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.02" Then
  201.                     Return "2%"
  202.                 ElseIf SystemInformation.PowerStatus.BatteryLifePercent.ToString = "0.01" Then
  203.                     Return "1%"
  204.                 Else
  205.                     Return "NA"
  206.                 End If
  207.             End Get
  208.         End Property
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!