Resource-Aware Mobile Devices
by Hari Gopal 


Listing One

(a) Visual Basic

Imports Infosys.PervasiveIT.ResourceMonitor
 ...
Try
Dim objBattery As New CBatteryInfo
Dim retVal As Integer
retVal = objBattery.acPwrStatus
If (retVal = 1) Then
    MessageBox.Show("Online", "AC Power Status")
ElseIf (retVal = 0) Then
    MessageBox.Show("Offline", "AC Power Status")
Else
    MessageBox.Show("Unknown", "AC Power Status")
    End If
Catch ex As Exception
      MessageBox.Show ("Exception caught ")
End Try
 ...

(b) C#

using Infosys.PervasiveIT.ResourceMonitor;
 ...
try
{
CBatteryInfo objBattery = new CBatteryInfo();
int retVal = objBattery.acPwrStatus;
if (retVal == 1) 
    MessageBox.Show("Online", "AC Power Status");
else if(retVal == 0) 
    MessageBox.Show("Offline", "AC Power Status");
else
    MessageBox.Show("Unknown", "AC Power Status");  
}catch(System.Exception exception)
{ 
MessageBox.Show("Exception caught ");
}
 ..


Listing Two

(a) Visual Basic

Imports Infosys.PervasiveIT.ResourceMonitor
 ...
Try
Dim objMemory As New CMemoryInfo
Dim retVal As Long
retVal = objMemory.MemoryUsed
MessageBox.Show(retVal.ToString() + " Bytes", "Memory Used")
Catch ex As Exception
      MessageBox.Show("Exception caught ")
End Try
 ..

(b) C#

using Infosys.PervasiveIT.ResourceMonitor;
 ...
try
{
CMemoryInfo objMemory = new CMemoryInfo();
long retVal = objMemory.MemoryUsed;
MessageBox.Show(retVal.ToString() + " Bytes", "Memory Used");
}catch(System.Exception exception)
{
   MessageBox.Show("Exception caught ");
}
 ..

Listing Three

(a) Visual Basic 

Imports Infosys.PervasiveIT.ResourceMonitor
 ...
Try
Dim objNetwork As New CNetworkInfo
Dim retVal As String
retVal = objNetwork.IPAddress
MessageBox.Show(retVal, "IP Address")
Catch ex As Exception
    MessageBox.Show("Exception caught ")
End Try
 ..

(c) C#

using Infosys.PervasiveIT.ResourceMonitor;
 ...
try
{
CNetworkInfo objNetwork = new CNetworkInfo();
string retVal = objNetwork.IPAddress();
MessageBox.Show(retVal , "IP Address"); 
}catch(System.Exception exception)
{
    MessageBox.Show("Exception caught ");
}
 ..




1


