TheProgrammingZone
Login:
Name:
Pass:
 
Home
 
 TheProgrammingZone's front page. All the latest programming and game development news, as well as this week's feature game project!
Articles
 
Visual Basic
VB.Net
C/C++
C#
Java
PHP
Other
Assembly aritcles
Source Code
 
Visual Basic
VB.Net
C/C++
C#
Java
PHP
Assembly
Game Projects
 
 Game projects under development by members of the TheProgrammingZone Community. Show them your support, and check out their games!
Message Board
 A forum to interact with your fellow programmers.
Links
 
Visual Basic
VB.Net
C/C++
C#
Java
PHP
ASP
JavaScript
Assembly Links
Other
Products
 
TheProgrammingZone's products. Check out some of our in house products that we made.
Contact
 
You want to contact the guy behind TheProgrammingZone? Here's where to do it!

 
 


Obtaining Information About CPU - page 1


pages: prev | 1 | next
Option Explicit

Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo _
As SYSTEM_INFO)

Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type

Public Enum etProcessorType
PROCESSOR_INTEL_386 = 386
PROCESSOR_INTEL_486 = 486
PROCESSOR_INTEL_PENTIUM = 586
PROCESSOR_MIPS_R4000 = 4000
PROCESSOR_ALPHA_21064 = 21064
End Enum

Private tmpSystemInfo As SYSTEM_INFO
Private Sub Class_Initialize()
GetSystemInfo tmpSystemInfo
End Sub

Public Function ProcessorType() As etProcessorType
'See declarations for meaning of returned values
ProcessorType = tmpSystemInfo.dwProcessorType
End Function

Public Function NumberOrfProcessors() As Long
NumberOrfProcessors = tmpSystemInfo.dwNumberOrfProcessors
End Function

Public Function MaximumApplicationAddress() As Long
MaximumApplicationAddress = _
tmpSystemInfo.lpMaximumApplicationAddress
End Function

Public Function MinimumApplicationAddress() As Long
MinimumApplicationAddress = _
tmpSystemInfo.lpMinimumApplicationAddress
End Function

Public Function PageSize() As Long
PageSize = tmpSystemInfo.dwPageSize
End Function

Public Function OemID() As Long
OemID = tmpSystemInfo.dwOemID
End Function

Public Function Reserved() As Long
Reserved = tmpSystemInfo.dwReserved
End Function

Public Function AllocationGranularity() As Long
AllocationGranularity = _
tmpSystemInfo.dwAllocationGranularity
End Function

Public Function ActiveProcessorMask() As Long
ActiveProcessorMask = tmpSystemInfo.dwActiveProcessorMask
End Function



pages: prev | 1 | next
TheProgrammingZone 2024
Site Map