Visual Basic

Mr. Wonderful wrote:

I am new in programming

Dim eIdle As Int64
Dim eKernel As Int64
Dim eUser As Int64
Dim sIdle As Int64
Dim sKernel As Int64
Dim sUser As Int64
Dim cIdle As Int64
Dim cKernel As Int64
Dim cUser As Int64
Dim systemTime As Int32
Dim totalCpuUsage As Single 'Long 'Int64

Public Declare Auto Function GetSystemTimes Lib "kernel32.dll" (ByRef idleTime As Int64, ByRef kernelTime As Int64, ByRef userTime As Int64) As Boolean
Dim updateSpeed As Integer = 500

Public Sub GetCPUUsage()

'Retrieve the Times values before starting the delay.
GetSystemTimes(sIdle, sKernel, sUser)

'The delay for how often to check and update the cpu usage values.
Threading.Thread.Sleep(updateSpeed)

'Retrieve the Times values after the Delay.
GetSystemTimes(eIdle, eKernel, eUser)

'Get the values calculated between the starting and ending Times values.
cIdle = (eIdle - sIdle)
cKernel = (eKernel - sKernel)
cUser = (eUser - sUser)

'Calculate the total system time. Which is Kernel and User time together.
systemTime = (cKernel + cUser)

'Simply check if the rounded option is true or not and display the usage value.
totalCpuUsage = (systemTime - cIdle) * (100) \ (systemTime)

'System.Windows.Forms.Application.DoEvents()
CPUUseLbl.Text = "CPU Usage: " & totalCpuUsage.ToString & "%"
Dim Ok As Integer = 0
        
End Sub

Dave Kreskowiak wrote:

That's a ton of work for something that's supplied by the PerformanceCounter class already...

Beginner_HC wrote:

Public Class Form1
Dim srcImage As New Bitmap("MyPicture.bmp", True)
Dim Graph As Graphics = Me.CreateGraphics
Dim desHdc As IntPtr = Graph.GetHdc()

Dim srcHdc As IntPtr = CreateCompatibleDC(IntPtr.Zero)
Dim hBitmapSrc As IntPtr = srcImage.GetHbitmap()

Private Sub CreateMagnifiedImage(ByVal MagFactor As Integer, ByVal srcBitmap As Bitmap) As Bitmap
    If srcBitmap IsNot Nothing Then
    Dim magSize As New Size(srcBitmap.Width * MagFactor, srcBitmap.Height * MagFactor)
    Dim magBitmap As New Bitmap(magSize.Width, magSize.Height)
 
    Dim g As Graphics = Graphics.FromImage(magBitmap)
    DrawMagnifiedImage(g, srcBitmap, magSize)
    g.Dispose()
    End If
End Sub
 
' This is the code Ive used before to magnifiy an image...
Private Sub DrawMagnifiedImage(ByVal gTarget As Graphics, ByVal srcBitmap As Bitmap, ByVal newSize As Size)
    Dim hBmp as IntPtr = srcBitmap.GetHbitmap()
    Dim hdcTarget As IntPtr = gTarget.GetHdc()
    Dim hdcSource As IntPtr = CreateCompatibleDC(hdcTarget)
    Dim hOrig As IntPtr = SelectObject(hdcSrc, hBmp)
    StretchBlt(hdcTarget, 0, 0, newSize.Width, newSize.Height, hdcSource, 0, 0, srcBitmap.Wdith, srcBitmap.Height, TernaryRasterOperations.SRCCOPY)
    SelectObject(hdcSource, hOrig)
    DeleteObject(hBmp)
    DeleteDC(hdcSource)
    gTarget.Release(hdcTarget)
End Sub