Add Drives report module and Fix bug for Processor0,1,2.. report and …

…sd[a-z]

src/i-nex/.settings

@@ -1,6 +1,3 @@
-[Bookmarks]
-FReport_Gen=[]
-
 [Breakpoints]
 Count=0
 
@@ -35,9 +32,8 @@ File[8]=".src/ScreenShot.class:20.21"
 File[9]=".src/ScreenShotM.module:7.0"
 File[10]=".src/USB_Drives.module:13.0"
 File[11]=".src/Asound_Drives.module:34.12"
-Active=12
 File[12]=".src/FReport_Gen.form"
-File[13]=".src/FReport_Gen.class:66.0"
+File[13]=".src/FReport_Gen.class:62.0"
 File[14]=".src/Start_App_Args.form"
 File[15]=".src/Start_App_Args.class:26.17"
 File[16]=".src/ChkPrm.module:21.19"
@@ -49,7 +45,7 @@ File[21]=".src/net.module:104.1"
 File[22]="Data/report-ng.sh:27.44"
 File[23]=".src/Distribution_Detect.module:5.39"
 File[24]=".src/FFlags.module:90.19"
-File[25]=".src/Finfosys.class:17.35"
+File[25]=".src/Finfosys.class:542.2"
 File[26]=".src/FDF.form"
 File[27]=".src/FDF.class:28.69"
 File[28]=".src/FNET_R_T.form"
@@ -68,15 +64,17 @@ File[40]=".src/FDirDialog.form"
 File[41]=".src/FFileDialog.form"
 File[42]=".src/Dialog.class:0.0"
 File[43]=".src/Mdecode.module:7.0"
-File[44]=".src/Reports/MCPU_REPORT.module:25.4"
+Active=44
+File[44]=".src/Reports/MCPU_REPORT.module:8.9"
 File[45]=".src/Reports/MMOBO_REPORT.module:2.0"
 File[46]=".src/Reports/MGPU_REPORT.module:14.29"
 File[47]=".src/Reports/MSOUND_REPORT.module:3.164"
 File[48]=".src/Reports/MPastebinit.module:16.14"
 File[49]=".src/Reports/MSYSTEM_REPORT.module:30.0"
 File[50]=".src/Reports/MKERNEL_REPORT.module:16.11"
 File[51]=".src/Reports/MInclude.module:0.0"
-Count=51
+File[52]=".src/Reports/MDRIVES_REPORT.module:55.33"
+Count=52
 
 [Watches]
 Count=0

src/i-nex/.src/FReport_Gen.class

@@ -60,11 +60,15 @@ If CheckBox12.Value = True Then
  Object.Call(MKERNEL_REPORT, "_inits")
 Endif
 
+If CheckBox14.value = True Then
+ Object.Call(MDRIVES_REPORT, "_inits")
+Endif
+
 If CheckBox11.Value = True Then
  TextBox1.Text = MPastebinit.pastebin(True, ButtonBox1.Text, ComboBox1.Text)
 Endif
 
-If CheckBox13.value = True Then
+If CheckBox13.value = True And CheckBox11.Value = False Then
  Me.Close
  Finfosys.Show
 Endif

src/i-nex/.src/FReport_Gen.form

@@ -57,12 +57,16 @@
       Expand = True
       Text = ("Sound Tab")
     }
-    { CheckBox5 CheckBox
+    { CheckBox14 CheckBox
       Move(0,112,168,28)
+      Text = ("Drives Tab")
+    }
+    { CheckBox5 CheckBox
+      Move(0,140,168,28)
       Text = ("System Tab")
     }
     { CheckBox12 CheckBox
-      Move(0,140,168,28)
+      Move(0,168,168,28)
       Text = ("Kernel Tab")
     }
   }

src/i-nex/.src/Finfosys.class

@@ -540,7 +540,7 @@ Public Sub ComboBox7_Click()
 End
 
 Public Sub Button12_Click()
- Me.Hide
+ 'Me.Hide
  FReport_Gen.Show
 
 End

src/i-nex/.src/Reports/MCPU_REPORT.module

@@ -1,7 +1,9 @@
 ' Gambas module file
 
+Public Report As Collection
 Public DATA_RETURN As String
-Public Report As Collection = [("0"): ("========================================================================================================================="),
+Public Sub refresh()
+Report = [("0"): ("========================================================" & Finfosys.ComboBox1.Text & "================================================================="),
                                ("1"): (Finfosys.Label13.Text),
                                ("2"): (Finfosys.Label14.Text),
                                ("3"): (Finfosys.Label12.Text),
@@ -31,16 +33,24 @@ Public Report As Collection = [("0"): ("========================================
                                ("27"): (Finfosys.Label117.Text),
                                ("28"): (Finfosys.Label119.Text),
                                ("29"): (Finfosys.Label121.Text)]
+
+End
+
 Public Sub _inits()
- Dim All, All2 As Integer
+ Dim All, All2 As Float
+
  DATA_RETURN = Null
- For All2 = 0 To Finfosys.ComboBox1.Count - 1
+ refresh()
+
+ For All2 = 1 To Finfosys.ComboBox1.Count
+  Finfosys.ComboBox1.Index = All2
 
   For All = 0 To Report.Count
   FReport_Gen.ProgressBar1.Value = All / Report.Count
   DATA_RETURN = DATA_RETURN & "\n" & Report[All]
   Wait 0.01
   Next
+  refresh()
   Wait 0.01
   Finfosys.ComboBox1.Index = All2
  Next

src/i-nex/.src/Reports/MDRIVES_REPORT.module

@@ -0,0 +1,67 @@
+' Gambas module file
+
+Public Report As Collection
+Public DATA_RETURN As String
+Public Sub refresh()
+Report = [("0"): ("=======================================================" & Finfosys.ComboBox4.Text & "/" & Finfosys.ComboBox3.Text & "=================================================================="),
+                               ("1"): (Finfosys.Label17.Text),
+                               ("2"): (Finfosys.Label41.Text),
+                               ("3"): (Finfosys.Label16.Text),
+                               ("4"): (Finfosys.Label42.Text),
+                               ("5"): (Finfosys.Label26.Text),
+                               ("6"): (Finfosys.TextBox48.Text),
+                               ("7"): (Finfosys.Label27.Text),
+                               ("8"): (Finfosys.TextBox52.Text),
+                               ("9"): (Finfosys.Label40.Text),
+                               ("10"): (Finfosys.TextBox53.Text),
+                               ("11"): (Finfosys.Label38.Text),
+                               ("12"): (Finfosys.Label43.Text),
+                               ("13"): (Finfosys.Label39.Text),
+                               ("14"): (Finfosys.Label44.Text),
+                               ("15"): (Finfosys.Label46.Text),
+                               ("16"): (Finfosys.Label47.Text),
+                               ("17"): (Finfosys.Label45.Text),
+                               ("18"): (Finfosys.Label50.Text),
+                               ("19"): (Finfosys.Label52.Text),
+                               ("20"): (Finfosys.Label51.Text),
+                               ("21"): (Finfosys.Label53.Text),
+                               ("22"): (Finfosys.Label49.Text),
+                               ("23"): (Finfosys.Label55.Text),
+                               ("24"): (Finfosys.Label54.Text),
+                               ("25"): (Finfosys.Label56.Text),
+                               ("26"): (Finfosys.Label57.Text),
+                               ("27"): (Finfosys.Label58.Text),
+                               ("28"): (Finfosys.Label59.Text)]
+End
+
+Public Sub _inits()
+ Dim All, All2, repcount As Integer
+ DATA_RETURN = Null
+ refresh()
+
+ For All2 = 1 To Finfosys.ComboBox4.Count
+
+  refresh()
+
+  For All = 1 To Finfosys.ComboBox3.Count
+   refresh()
+
+   For repcount = 0 To Report.Count
+    FReport_Gen.ProgressBar1.Value = repcount / Report.Count
+    DATA_RETURN = DATA_RETURN & "\n" & Report[repcount]
+    Wait 0.01
+
+   refresh()
+   Next
+   Finfosys.ComboBox3.Index = All
+ Next
+
+  refresh()
+
+  Finfosys.ComboBox4.Index = All2
+
+ Next
+
+ Shell "echo '" & DATA_RETURN & "'>>" & FReport_Gen.ButtonBox1.Text & "" Wait
+
+End