79 lines
2.0 KiB
Plaintext
79 lines
2.0 KiB
Plaintext
' Gambas module file
|
|
|
|
Public NOSDRAMDIMMSDAD As New String[]
|
|
Public MODULE_TYPE As New String[]
|
|
Public MODULE_MANUFACTURER As New String[]
|
|
Public DRAM_MANUFACTURER As New String[]
|
|
Public ASM_SERIALNUMBER As New String[]
|
|
Public PART_NUMBER As New String[]
|
|
Public RAM_SIZE As New String[]
|
|
Public MAX_MODULE_SPEED As New String[]
|
|
Public FUN_MEM_TYPE As New String[]
|
|
Public tCL_tRCD_tRDP_tRAS As New String[]
|
|
Public SDRAM_DEVICE_TYPE As New String[]
|
|
'DRAM Manufacturer
|
|
Public Sub _inits()
|
|
Dim DECODE_DIMMS As Stream
|
|
Dim sLine As String
|
|
Dim sIcon As String
|
|
Dim iPos As Integer
|
|
Dim Character As Integer
|
|
Dim sKey As String
|
|
Dim sVal As String
|
|
DECODE_DIMMS = Exec ["i-nex-dimms"] For Read
|
|
For Each sLine In DECODE_DIMMS.Lines
|
|
sLine = Trim(sLine)
|
|
If Not sLine Then Continue
|
|
|
|
iPos = InStr(sLine, ":")
|
|
If iPos = 0 Then Continue
|
|
|
|
sKey = Trim(Left$(sLine, iPos - 1))
|
|
sVal = Trim(Mid$(sLine, iPos + 1))
|
|
|
|
Select Case sKey
|
|
Case Like "*Module Manufacturer*"
|
|
MODULE_MANUFACTURER.Add(sVal)
|
|
Case Like "*DRAM Manufacturer*"
|
|
DRAM_MANUFACTURER.Add(sVal)
|
|
Case Like "*Assembly Serial Number*"
|
|
ASM_SERIALNUMBER.Add(sVal)
|
|
Case Like "*Part Number*"
|
|
PART_NUMBER.Add(sVal)
|
|
Case Like "*Module Type*"
|
|
MODULE_TYPE.Add(sVal)
|
|
Case Like "*Decoding EEPROM*"
|
|
NOSDRAMDIMMSDAD.Add(Right(sVal, 6))
|
|
Case Like "*Size*"
|
|
RAM_SIZE.Add(sVal)
|
|
Case Like "*Maximum module speed*"
|
|
MAX_MODULE_SPEED.Add(sVal)
|
|
Case Like "*Fundamental Memory type*"
|
|
FUN_MEM_TYPE.Add(sVal)
|
|
Case Like "*Module Type*"
|
|
MODULE_TYPE.Add(sVal)
|
|
Case Like "*tCL-tRCD-tRP-tRAS*"
|
|
tCL_tRCD_tRDP_tRAS.Add(sVal)
|
|
Case Like "*SDRAM Device Type*"
|
|
SDRAM_DEVICE_TYPE.Add(sVal)
|
|
Case Like "**"
|
|
|
|
Case Like "**"
|
|
|
|
Case Like "**"
|
|
|
|
Case Like "**"
|
|
|
|
Case Like "**"
|
|
|
|
Case Like "**"
|
|
|
|
End Select
|
|
'Print sVal
|
|
Next
|
|
Finfosys.ComboBox10.List = NOSDRAMDIMMSDAD
|
|
Finfosys.ComboBox10.Index = 0
|
|
|
|
|
|
End
|