Fix Reportm.module For i = 0 To Finfosys.ComboBox1.Count - 1

Add send to Progressbar %

src/i-nex/.lang/.pot

@@ -18,7 +18,7 @@ msgstr ""
 msgid "About"
 msgstr ""
 
-#: About.form:45 FReport_Gen.form:63 Finfosys.form:1829
+#: About.form:45 FReport_Gen.form:64 Finfosys.form:1829
 msgid "Close"
 msgstr ""
 
@@ -114,26 +114,30 @@ msgstr ""
 msgid "I-Nex Home page"
 msgstr ""
 
-#: FReport_Gen.form:16
+#: FReport_Gen.form:17
 msgid "Generate report"
 msgstr ""
 
-#: FReport_Gen.form:22
+#: FReport_Gen.form:23
 msgid "CPU Tab"
 msgstr ""
 
-#: FReport_Gen.form:27
+#: FReport_Gen.form:28
 msgid "Motherboard / Bios Tab"
 msgstr ""
 
-#: FReport_Gen.form:36
+#: FReport_Gen.form:37
 msgid "Graphics Tab"
 msgstr ""
 
-#: FReport_Gen.form:54
+#: FReport_Gen.form:55
 msgid "Generate"
 msgstr ""
 
+#: FReport_Gen.form:71
+msgid "Sound Tab"
+msgstr ""
+
 #: Finfosys.form:268
 msgid "CPU"
 msgstr ""

src/i-nex/.lang/FReport_Gen.pot

@@ -14,27 +14,31 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
-#: FReport_Gen.form:16
+#: FReport_Gen.form:17
 msgid "Generate report"
 msgstr ""
 
-#: FReport_Gen.form:22
+#: FReport_Gen.form:23
 msgid "CPU Tab"
 msgstr ""
 
-#: FReport_Gen.form:27
+#: FReport_Gen.form:28
 msgid "Motherboard / Bios Tab"
 msgstr ""
 
-#: FReport_Gen.form:36
+#: FReport_Gen.form:37
 msgid "Graphics Tab"
 msgstr ""
 
-#: FReport_Gen.form:54
+#: FReport_Gen.form:55
 msgid "Generate"
 msgstr ""
 
-#: FReport_Gen.form:63
+#: FReport_Gen.form:64
 msgid "Close"
 msgstr ""
 
+#: FReport_Gen.form:71
+msgid "Sound Tab"
+msgstr ""
+

src/i-nex/.settings

@@ -16,7 +16,8 @@ SearchString=True
 
 [OpenFile]
 File[1]=".src/Finfosys.form"
-File[2]=".src/Finfosys.class:586.1"
+Active=2
+File[2]=".src/Finfosys.class:588.3"
 File[3]=".src/Global.class:50.56"
 File[4]=".src/About.form"
 File[5]=".src/About.class:63.30"
@@ -27,13 +28,12 @@ File[9]=".src/ScreenShot.form"
 File[10]=".src/ScreenShot.class:8.10"
 File[11]=".src/ScreenShotM.module:2.21"
 File[12]=".src/USB_Drives.module:28.30"
-File[13]=".src/Asound_Drives.module:13.0"
+File[13]=".src/Asound_Drives.module:36.32"
 File[14]=".src/HWmon_coretemp.module:3.18"
 File[15]=".src/Input_Devices.module:36.27"
-File[16]=".src/Reportm.module:97.76"
-Active=17
+File[16]=".src/Reportm.module:171.10"
 File[17]=".src/FReport_Gen.form"
-File[18]=".src/FReport_Gen.class:31.9"
+File[18]=".src/FReport_Gen.class:10.31"
 Count=18
 
 [Watches]

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

@@ -12,7 +12,7 @@ Public Sub Button1_Click()
   Message.Warning("Please select directory to save the report about your hardware")
  Else
  Shell "rm " & ButtonBox1.Text & ""
- Reportm._generate(CheckBox1.Value, CheckBox2.Value, CheckBox3.Value, ButtonBox1.Text)
+ Reportm._generate(CheckBox1.Value, CheckBox2.Value, CheckBox3.Value, CheckBox4.Value, ButtonBox1.Text)
  Me.Close
  Endif
 End
@@ -22,7 +22,7 @@ Public Sub ButtonBox1_Click()
  Dialog.Filter = ["*.txt", "Text files"]
  Dialog.SaveFile
  ButtonBox1.Text = Dialog.Path
- If Exist(Dialog.Path, True) Then
+ If Exist(ButtonBox1.Text, True) Then
  Shell "rm " & Dialog.Path & "" Wait
  Endif
 End

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

@@ -18,7 +18,7 @@
     Move(6,204,426,24)
   }
   { CheckBox3 CheckBox
-    Move(6,54,144,24)
+    Move(6,78,144,24)
     Text = ("Graphics Tab")
   }
   { ProgressBar1 ProgressBar
@@ -45,4 +45,8 @@
       Picture = Picture["icon:/16/quit"]
     }
   }
+  { CheckBox4 CheckBox
+    Move(6,54,420,24)
+    Text = ("Sound Tab")
+  }
 }

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

@@ -586,10 +586,4 @@ Public Sub Button12_Click()
 
  FReport_Gen.Show
 
-End
-
-Public Sub Button13_Click()
-
- ComboBox1.Insert("Procesor1")
-
-End
+End

src/i-nex/.src/Finfosys.form

@@ -272,10 +272,10 @@
     Text = ("Motherboard / Bios")
     Picture = Picture["icon:/16/hardware"]
     { Frame1 Frame
-      Move(6,150,462,144)
+      Move(6,162,462,144)
       Text = ("Bios")
       { HBox4 HBox
-        Move(6,18,450,24)
+        Move(6,30,450,24)
         { Label37 Label
           Move(0,0,60,24)
           Font = Font["Bold,10"]
@@ -288,7 +288,7 @@
         }
       }
       { HBox5 HBox
-        Move(6,78,450,24)
+        Move(6,90,450,24)
         { Label60 Label
           Move(0,0,30,24)
           Font = Font["Bold,10"]
@@ -301,7 +301,7 @@
         }
       }
       { HBox6 HBox
-        Move(6,48,450,24)
+        Move(6,60,450,24)
         { Label61 Label
           Move(18,6,54,24)
           Font = Font["Bold,10"]
@@ -315,10 +315,10 @@
       }
     }
     { Frame5 Frame
-      Move(6,6,462,133)
+      Move(6,6,462,144)
       Text = ("Motherboard")
       { HBox7 HBox
-        Move(6,18,450,24)
+        Move(6,30,450,24)
         { Label62 Label
           Move(0,0,48,24)
           Font = Font["Bold,10"]
@@ -327,14 +327,14 @@
         }
       }
       { HBox8 HBox
-        Move(6,42,450,24)
+        Move(6,54,450,24)
         { TextBox23 TextBox
           Move(0,0,144,24)
           Expand = True
         }
       }
       { HBox9 HBox
-        Move(6,66,450,24)
+        Move(6,78,450,24)
         { Label63 Label
           Move(0,12,144,24)
           Font = Font["Bold,10"]
@@ -344,7 +344,7 @@
         }
       }
       { HBox10 HBox
-        Move(6,90,450,24)
+        Move(6,102,450,24)
         { TextBox24 TextBox
           Move(0,0,144,24)
           Expand = True

src/i-nex/.src/Reportm.module

@@ -1,11 +1,11 @@
 ' Gambas module file
 
 ' 
-Public Sub _generate(cpu As Boolean, mobo As Boolean, graphic As Boolean, save_dir As String)
- Dim cpus As String
+Public Sub _generate(cpu As Boolean, mobo As Boolean, graphic As Boolean, sound As Boolean, save_dir As String)
  Dim i As Float
- For i = 0 To Finfosys.ComboBox1.Count - 1
+ Dim isnd As Float
   If cpu = True Then
+   For i = 0 To Finfosys.ComboBox1.Count - 1
   FReport_Gen.TextLabel1.Text = "Generate information about Procesor" & i
   Wait 0.1
   FReport_Gen.ProgressBar1.Value = 0.1
@@ -74,29 +74,106 @@ Public Sub _generate(cpu As Boolean, mobo As Boolean, graphic As Boolean, save_d
   Wait 0.1
   FReport_Gen.ProgressBar1.Value = 1
   Finfosys.ComboBox1.Text = "Procesor" & (Finfosys.ComboBox1.Count - 1)
- Endif
  Next
+ Endif
  If mobo = True Then
-  Shell "echo '======================Motherboard / Bios=====================' >>" & save_dir & "" Wait
-  Shell "echo '___ Motherboard ___' >>" & save_dir & "" Wait
-  Shell "echo 'Manufacturer: " & Finfosys.TextBox23.Text & "' >>" & save_dir & "" Wait
-  Shell "echo 'Model:        " & Finfosys.TextBox24.Text & "' >>" & save_dir & "" Wait
-  Shell "echo '______ Bios ______' >>" & save_dir & "" Wait
-  Shell "echo 'Manufacturer: " & Finfosys.TextBox25.Text & "' >>" & save_dir & "" Wait
-  Shell "echo 'Date:         " & Finfosys.TextBox27.Text & "' >>" & save_dir & "" Wait
-  Shell "echo 'Version:      " & Finfosys.TextBox26.Text & "' >>" & save_dir & "" Wait
-  Shell "echo '====================Motherboard / Bios End===================' >>" & save_dir & "" Wait
-  Shell "echo '' >>" & save_dir & "" Wait
+  Shell "echo '======================Motherboard / Bios=====================' >>" & save_dir & "" 
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.1
+  Shell "echo '___ Motherboard ___' >>" & save_dir & "" 
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.2
+  Shell "echo 'Manufacturer: " & Finfosys.TextBox23.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.3
+  Shell "echo 'Model:        " & Finfosys.TextBox24.Text & "' >>" & save_dir & "" 
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.4
+  Shell "echo '______ Bios ______' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.5
+  Shell "echo 'Manufacturer: " & Finfosys.TextBox25.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.6
+  Shell "echo 'Date:         " & Finfosys.TextBox27.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.7
+  Shell "echo 'Version:      " & Finfosys.TextBox26.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.8
+  Shell "echo '====================Motherboard / Bios End===================' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.9
+  Shell "echo '' >>" & save_dir & "" 
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 1
  Endif
  If graphic = True Then
-  Shell "echo '=========================Graphic Tab=========================' >>" & save_dir & "" Wait
-  Shell "echo 'Graphics card:      " & Finfosys.TextArea17.Text & "' >>" & save_dir & "" Wait
-  Shell "echo 'OpenGl Vendor:      " & Finfosys.TextBox21.Text & "' >>" & save_dir & "" Wait
-  Shell "echo 'OpenGl Renderer:    " & Finfosys.TextBox37.Text & "' >>" & save_dir & "" Wait
-  Shell "echo 'OpenGl Version:     " & Finfosys.TextBox38.Text & "' >>" & save_dir & "" Wait
-  Shell "echo 'Present resolution: " & Finfosys.TextBox39.Text & "' >>" & save_dir & "" Wait
-  Shell "echo '======================Graphic Tab End========================' >>" & save_dir & "" Wait
-  Shell "echo '' >>" & save_dir & "" Wait
+  Shell "echo '=========================Graphic Tab=========================' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.2
+  Shell "echo 'Graphics card:      " & Finfosys.TextArea17.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.3
+  Shell "echo 'OpenGl Vendor:      " & Finfosys.TextBox21.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.5
+  Shell "echo 'OpenGl Renderer:    " & Finfosys.TextBox37.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.6
+  Shell "echo 'OpenGl Version:     " & Finfosys.TextBox38.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.7
+  Shell "echo 'Present resolution: " & Finfosys.TextBox39.Text & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.8
+  Shell "echo '======================Graphic Tab End========================' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.9
+  Shell "echo '' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 1
+ Endif
+ If sound = True Then
+  For isnd = 0 To Finfosys.ComboBox6.Count - 1
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.5
+  Shell "echo '===================== Sound Tab " & Finfosys.ComboBox6.Text & " =======================' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.1
+  Shell "echo 'Version: " & Asound_Drives.Version & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.2
+  Shell "echo 'Id:      " & Asound_Drives.Id & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.3
+  Shell "echo 'Codec:   " & Asound_Drives.Codec & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.4
+  Shell "echo 'Modules: " & Asound_Drives.Modules & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.5
+  Shell "echo 'HWdep:   " & Asound_Drives.hwdep & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.6
+  Shell "echo 'PCM:     " & Asound_Drives.pcm & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.7
+  Shell "echo 'Cards:   " & Asound_Drives.sound_cards & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.8
+  Shell "echo 'Devices: " & Asound_Drives.Devices & "' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.9
+  Shell "echo '===================== Sound Tab " & Finfosys.ComboBox6.Text & " End ===================' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 0.95
+  Shell "echo '' >>" & save_dir & ""
+  Wait 0.1
+  FReport_Gen.ProgressBar1.Value = 1
+  Finfosys.ComboBox6.Text = "card" & (Finfosys.ComboBox6.Count - 1)
+  Wait 0.1
+  Next
  Endif
  'Motherboard
 End