Skip to content

Commit

Permalink
I must commit this. New pre report
Browse files Browse the repository at this point in the history
  • Loading branch information
@eloaders
eloaders committed Dec 1, 2013
1 parent 658c8cd commit 09a8cfc
Show file tree
Hide file tree
Showing 2 changed files with 89 additions and 57 deletions.
8 changes: 4 additions & 4 deletions src/i-nex/.settings
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,6 @@ SearchComment=False
SearchString=True

[OpenFile]
Active=1
File[1]=".src/Finfosys.form"
File[2]=".src/Global.class:88.35"
File[3]=".src/About.form"
Expand All @@ -33,7 +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"
File[12]=".src/Reportm.module:88.46"
Active=12
File[12]=".src/Reportm.module:61.12"
File[13]=".src/FReport_Gen.form"
File[14]=".src/FReport_Gen.class:49.13"
File[15]=".src/Start_App_Args.form"
Expand All @@ -57,8 +57,8 @@ File[32]="logo/fb.png"
File[33]=".src/FCPU.module:3.4"
File[34]=".src/FUdisks.form"
File[35]=".src/FUdisks.class:242.28"
File[36]=".src/FCpudb.module:4.19"
File[37]=".src/JSON.module:18.2"
File[36]=".src/FCpudb.module:2.0"
File[37]=".src/JSON.module:108.2"
File[38]=".src/Settings.class:464.34"
File[39]=".src/Main.module:7.29"
File[40]=".src/_Settings_Keys.class:50.0"
Expand Down
138 changes: 85 additions & 53 deletions src/i-nex/.src/Reportm.module
View file
Original file line number Diff line number Diff line change
@@ -1,63 +1,95 @@
' Gambas module file

'
' Public i As Integer
' Public database As Collection
' Public Sub _inits()
' Dim buffer, cpucache As String
' Dim processorscount, za, z As Integer
' buffer = File.Load("Database/db")
' database = JSON.Decode(buffer)
' cpucache = Finfosys.Label14.Text
' cpucache = Replace(Replace(Replace(Replace(Replace(Replace(Replace(cpucache, "Intel", ""), " ", "*"), "R", ""), "CPU", ""), "TM", ""), ")", ""), "(", "")
' cpucache = Replace(Replace(Replace(Replace(Replace(cpucache, "AMD", ""), "Core", ""), "Dual", ""), "Processor", ""), "tm", "")
'
' For z = 0 To database["DATABASE"].Count - 1
' If database["DATABASE"][z]["PROCESSOR_MODEL_NAME"] Like "*" & cpucache & "*" Then
' Finfosys.Label103.Text = " Integrated GPU: " & database["DATABASE"][z]["PROCESSOR_INTEGRATEDGRAPHIC"]
' Finfosys.Label104.Text = " TDP: " & database["DATABASE"][z]["PROCESSOR_TDP"]
' Finfosys.Label110.Text = " PPS: " & database["DATABASE"][z]["PROCESSOR_PROCESS_SIZE"]
' Finfosys.PictureBox3.Picture = Picture["Database/Logos/" & database["DATABASE"][z]["PROCESSOR_SOCKET_IMAGE"] & ""]
' Finfosys.Label111.Text = " Socket: " & database["DATABASE"][z]["PROCESSOR_SOCKET"]
' Finfosys.Label112.Text = " Transistors: " & database["DATABASE"][z]["PROCESSOR_TRANSISTORS"]
' Finfosys.Label113.Text = " Die size: " & database["DATABASE"][z]["PROCESSOR_DIE_SIZE"]
' Finfosys.Label114.Text = " Package: " & database["DATABASE"][z]["PROCESSOR_PACKAGE"]
' Finfosys.Label115.Text = " Tcasemax: " & database["DATABASE"][z]["PROCESSOR_TCASEMAX"]
' Finfosys.Label116.Text = " Turboclock: " & database["DATABASE"][z]["PROCESSOR_TURBOCLOCK"]
' Finfosys.Label117.Text = " Multiplier: " & database["DATABASE"][z]["PROCESSOR_MULTIPLIER"]
' Finfosys.Label118.Text = " Voltage: " & database["DATABASE"][z]["PROCESSOR_VOLTAGE"]
' Finfosys.Label119.Text = " Codename: " & database["DATABASE"][z]["PROCESSOR_CODENAME"]
' Finfosys.Label120.Text = " Part: " & database["DATABASE"][z]["PROCESSOR_PART"]
' Finfosys.Label121.Text = " Memory support: " & database["DATABASE"][z]["PROCESSOR_MEMORYSUPPORT"]
' 'Finfosys.PictureBox3.Picture = Picture["Database/Logos/81.gif"]
' i = z
' Break
' Endif
' Next
' Debug "Current position of processor = " & cpucache & " is = " & z & ""
' End
Public repobase As Collection
Public Sub _generate(cpu As Boolean, mobo As Boolean, graphic As Boolean, sound As Boolean, save_dir As String)
Dim repbuffer As String
Dim i As Float
Dim isnd As Float
repbuffer = File.Load("Reports/Modules/cpu.inex")
repobase = JSON.Decode(repbuffer)
'Print repobase["REPORT"][0]["Reports"][0]["Command"]
If cpu = True Then
TextInfo("Generate information about Processor")
PBV(0.3)
Wait 0.1
TextInfo("Generate information about Processor")
PBV(0.5)
Shell "cat /proc/cpuinfo >>" & save_dir & ""
TextInfo("Generate information about Processor")
PBV(0.7)
Wait 0.1
TextInfo("Generate information about Processor")
PBV(0.9)
Shell "" & repobase["REPORT"][0]["Reports"][0]["Command"] & " >>" & save_dir & "" Wait
Endif
If mobo = True Then
Shell "echo '======================Motherboard / Bios=====================' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information")
PBV(0.1)
Shell "echo '___ Motherboard ___' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information...")
PBV(0.2)
Shell "echo 'Manufacturer: " & Finfosys.TextBox23.Text & "' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ...")
PBV(0.3)
Shell "echo 'Model: " & Finfosys.TextBox24.Text & "' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ... ...")
PBV(0.4)
Shell "echo '______ Bios ______' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ... ... ...")
PBV(0.5)
Shell "echo 'Manufacturer: " & Finfosys.TextBox25.Text & "' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ... ... ...")
PBV(0.6)
Shell "echo 'Date: " & Finfosys.TextBox27.Text & "' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ... ... ... ...")
PBV(0.7)
Shell "echo 'Version: " & Finfosys.TextBox26.Text & "' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ... ... ... ...")
PBV(0.8)
Shell "echo '====================Motherboard / Bios End===================' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ... ... ... ... ...")
PBV(0.9)
Shell "echo '' >>" & save_dir & ""
Wait 0.1
TextInfo("Generate Motherboard / Bios information... ... ... ... ... ... Done")
PBV(1)
If mobo = True Then
For i = 0 To repobase["REPORT"][1]["Reports"].Count - 1
Print (repobase["REPORT"][1]["Reports"][i]["Command"])
Next
' Shell "echo '======================Motherboard / Bios=====================' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information")
' PBV(0.1)
' Shell "echo '___ Motherboard ___' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information...")
' PBV(0.2)
' Shell "echo 'Manufacturer: " & Finfosys.TextBox23.Text & "' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ...")
' PBV(0.3)
' Shell "echo 'Model: " & Finfosys.TextBox24.Text & "' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ... ...")
' PBV(0.4)
' Shell "echo '______ Bios ______' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ... ... ...")
' PBV(0.5)
' Shell "echo 'Manufacturer: " & Finfosys.TextBox25.Text & "' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ... ... ...")
' PBV(0.6)
' Shell "echo 'Date: " & Finfosys.TextBox27.Text & "' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ... ... ... ...")
' PBV(0.7)
' Shell "echo 'Version: " & Finfosys.TextBox26.Text & "' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ... ... ... ...")
' PBV(0.8)
' Shell "echo '====================Motherboard / Bios End===================' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ... ... ... ... ...")
' PBV(0.9)
' Shell "echo '' >>" & save_dir & ""
' Wait 0.1
' TextInfo("Generate Motherboard / Bios information... ... ... ... ... ... Done")
' PBV(1)
Endif
If graphic = True Then
Shell "echo '=========================Graphic Tab=========================' >>" & save_dir & ""
Expand Down

0 comments on commit 09a8cfc

Please sign in to comment.