Skip to content

Commit

Permalink
Add to Drives Show USB Version, power, speed and graphic logo
Browse files Browse the repository at this point in the history
  • Loading branch information
@eloaders
eloaders committed Aug 7, 2014
1 parent d0d345f commit 9fdf09a
Show file tree
Hide file tree
Showing 6 changed files with 74 additions and 19 deletions.
59 changes: 40 additions & 19 deletions I-Nex/i-nex/.src/Disk_Drives.module
View file
Original file line number Diff line number Diff line change
Expand Up @@ -61,6 +61,11 @@ Public hw_sata_spd_limit As String
Public sata_spd As String
Public sata_spd_limit As String
Public SATA_PIC As Picture
Public USB_PIC As Picture
Public USB_SPEED As String
Public USB_VERSION As String
Public USB_BMAXPOWER As String

Function _inits()
Dim Avail_HDD As Integer
Logs("Add Drives to ComboBox", Logger.Info)
Expand Down Expand Up @@ -358,32 +363,43 @@ Public Sub disks()
CONNECTED_PORT = Null
Endif

' If Split(.Link, "/")[4] Like "*usb*" Then
' Print .Link
' Print File.Load("/sys/bus/usb/devices/" & Split(.Link, "/")[4] & "/" & Split(.Link, "/")[5] & "/version")
' Endif
If Split(.Link, "/")[4] Like "*usb*" Then
Try USB_SPEED = Replace(File.Load("/sys/bus/usb/devices/" & Split(.Link, "/")[4] & "/" & Split(.Link, "/")[5] & "/speed"), "\n", "")
Try USB_VERSION = Replace(File.Load("/sys/bus/usb/devices/" & Split(.Link, "/")[4] & "/" & Split(.Link, "/")[5] & "/version"), "\n", "")
Try USB_BMAXPOWER = Replace(File.Load("/sys/bus/usb/devices/" & Split(.Link, "/")[4] & "/" & Split(.Link, "/")[5] & "/bMaxPower"), "\n", "")
Endif

' For i3 = 0 To Dir("/sys/class/scsi_disk/").Count - 1
' If Split(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "/")[5] = Split(.Link, "/")[4] Then
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "allow_restart")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "app_tag_own")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "cache_type")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "FUA")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "manage_start_stop")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "max_medium_access_timeouts")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "max_write_same_blocks")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "protection_mode")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "protection_type")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "provisioning_mode")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "thin_provisioning")
' Endif
' Next
' For i3 = 0 To Dir("/sys/class/scsi_disk/").Count - 1
' If Split(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "/")[5] = Split(.Link, "/")[4] Then
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "allow_restart")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "app_tag_own")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "cache_type")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "FUA")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "manage_start_stop")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "max_medium_access_timeouts")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "max_write_same_blocks")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "protection_mode")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "protection_type")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "provisioning_mode")
' Print File.Load(Replace(Stat("/sys/class/scsi_disk/" & Dir("/sys/class/scsi_disk/")[i3]).Link, "../../", "/sys/") &/ "thin_provisioning")
' Endif
' Next

Endif
Next
End With
Next

Select Case USB_VERSION
Case Like "*1.1*"
USB_PIC = Picture.Load("Data/USB/usb1")
Case Like "*2.00*"
USB_PIC = Picture.Load("Data/USB/usb2")
Case Like "*3*"
USB_PIC = Picture.Load("Data/USB/usb3")
Case Like ""
USB_PIC = Null
End Select


Select Case sata_spd
Expand All @@ -401,9 +417,14 @@ Public Sub disks()
End

Function SETNULL()
USB_SPEED = Null
USB_VERSION = Null
USB_BMAXPOWER = Null

hw_sata_spd_limit = Null
sata_spd = Null
sata_spd_limit = Null

CONNECTED_PORT = Null
device_model = Null
device_vendor = Null
Expand Down
7 changes: 7 additions & 0 deletions I-Nex/i-nex/.src/Finfosys.class
View file
Original file line number Diff line number Diff line change
Expand Up @@ -912,10 +912,17 @@ Label134.Text = "Rq affinity: " & Disk_Drives.rq_affinity
Label253.Text = "SATA SPD Limit:" & Space$(2) & Disk_Drives.sata_spd_limit
Label253.Tooltip = "Maximum speed imposed by libata."

Label122.Text = "USB Speed:" & Space$(2) & Disk_Drives.USB_SPEED
Label254.Text = "USB Version:" & Space$(2) & Disk_Drives.USB_VERSION
Label255.Text = "USB Max Power:" & Space$(2) & Disk_Drives.USB_BMAXPOWER
PictureBox5.Picture = Disk_Drives.USB_PIC

PictureBox4.Picture = Disk_Drives.SATA_PIC
If Disk_Drives.sata_spd = Null Then
Panel1.Visible = False
Panel2.Visible = True
Else
Panel2.Visible = False
Panel1.Visible = True
Endif
End
Expand Down
27 changes: 27 additions & 0 deletions I-Nex/i-nex/.src/Finfosys.form
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1448,6 +1448,33 @@
Stretch = True
}
}
{ Panel2 Panel
Move(161,224,308,63)
{ PictureBox5 PictureBox
Move(182,0,126,63)
}
{ Label122 Label
Move(0,0,182,21)
Font = Font["8"]
Padding = 3
Text = ("Label122")
Border = Border.Raised
}
{ Label254 Label
Move(0,21,182,21)
Font = Font["8"]
Padding = 3
Text = ("Label254")
Border = Border.Raised
}
{ Label255 Label
Move(0,42,182,21)
Font = Font["8"]
Padding = 3
Text = ("Label255")
Border = Border.Raised
}
}
Index = 5
Text = "System"
Picture = Picture["AppIcons/Finfosys/applications-system.png"]
Expand Down
Binary file added I-Nex/i-nex/Data/USB/usb1
View file
Binary file not shown.
Binary file added I-Nex/i-nex/Data/USB/usb2
View file
Binary file not shown.
Binary file added I-Nex/i-nex/Data/USB/usb3
View file
Binary file not shown.

0 comments on commit 9fdf09a

Please sign in to comment.