Some fixes of cpufreq

i-nex · Sep 19, 2016 · 0678fac · 0678fac
1 parent 0968501
commit 0678fac
Showing 1 changed file with 14 additions and 9 deletions.
diff --git a/I-Nex/i-nex/.src/Finfosys.class b/I-Nex/i-nex/.src/Finfosys.class
@@ -574,7 +574,7 @@ Public Sub Wykrywanie_procesorow()
   Try Label14.Tooltip = Replace(CPU_MODEL_NAME[CFloat(ComboBox1.Index)], "\n", "")
   Try Label71.Text = "Flags: " & FFlags.instructions
   Try Label13.Text = UCase$(Replace(Replace(Replace(CPU_VENDOR_ID[CFloat(ComboBox1.Index)], "Authentic", ""), "Genuine", ""), "\n", ""))
-  'Try Label12.Text = Replace(CPU_CPU_MHZ[CFloat(ComboBox1.Index)], "\n", "") & " MHz"
+  Try Label12.Text = Replace(CPU_CPU_MHZ[CFloat(ComboBox1.Index)], "\n", "") & " MHz"
   Try Label97.Text = "Family: " & Replace(CPU_FAMILYz[CFloat(ComboBox1.Index)], "\n", "")
   Try Label6.Text = "Model: " & Replace(CPU_MODEL[CFloat(ComboBox1.Index)], "\n", "")
   Try Label7.Text = "Stepping: " & Replace(CPU_STEPPING[CFloat(ComboBox1.Index)], "\n", "")
@@ -700,7 +700,7 @@ Public Sub Refresh_CPU_MHZ()
       CPU_CPU_MHZ.Add(sVal)
     End Select
   Next
-  Label12.text = CPU_CPU_MHZ[(Mid$(ComboBox1.Current.Text, 4))]
+  Try Label12.text = CPU_CPU_MHZ[(Mid$(ComboBox1.Current.Text, 4))]
 End
 
 
@@ -1049,7 +1049,12 @@ Public Sub Timer1_Timer()
   Try LCDLabel3.Visible = VCore.Visible
   'Fix me if english translation is wrong.
   MCPUSAGE.proc_stat()
-  Refresh_CPU_MHZ()
+  'Check if processor support cpufreq
+  'cpu0 is always exist in all computers
+  'don't need check current text of combobox
+  If Exist("/sys/devices/system/cpu/cpu0/cpufreq") = True Then
+   Refresh_CPU_MHZ()
+  Endif
 End
 
 Public Sub Button6_Click()
@@ -1143,10 +1148,10 @@ Public Sub TabStrip1_Click()
 TabPanel1_Click()
  If TabStrip1.Current.Text Like "*CPU*" Then
   ComboBox1.Visible = True
-  MenuButton1.Visible = True
+  'MenuButton1.Visible = True
  Else
   ComboBox1.Visible = False
-  MenuButton1.Visible = False
+  'MenuButton1.Visible = False
  Endif
  If TabStrip1.Current.Text Like "*GPU*" Then
   ComboBox8.Visible = True
@@ -1191,13 +1196,13 @@ Public Sub TabPanel1_Click()
 
  If TabPanel1.Current.Text = "CPUID" Then
   ComboBox1.Visible = False
-  MenuButton1.Visible = False
+  'MenuButton1.Visible = False
  Else If TabPanel1.Current.Text = "CPUINFO" Then
   ComboBox1.Visible = True
-  MenuButton1.Visible = True
+  'MenuButton1.Visible = True
  Else
   ComboBox1.Visible = False
-  MenuButton1.Visible = False
+  'MenuButton1.Visible = False
  Endif
 
 End
@@ -1261,7 +1266,7 @@ Public Sub MenuButton1_Click()
  Dim URL As String
  Inc Application.Busy
  VALIDATE._inits()
- URL = VALIDATE.SendReportToServer(User.Home & "/.i-nex/VALID", "Validate", "https://i-nex.pl/", Settings["Cerbero/USERNAME"], Settings["Cerbero/API"])
+ URL = VALIDATE.SendReportToServer(User.Home & "/.i-nex/VALID", "Validate", "http://127.0.0.1/", Settings["Cerbero/USERNAME"], Settings["Cerbero/API"])
  FCopyUrl.TextBox1.Text = URL
  FCopyUrl.Show
  Dec Application.Busy