Added v 1.3.1

Fixed a bone-headed bug with text labeling - always be careful when copy-pasting code trying to save time!!!!

TFLOPSCalc.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.29613.14
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TFLOPSCalc", "TFLOPSCalc\TFLOPSCalc.vbproj", "{6BA59B27-5355-4836-86F6-A8A431BB2B60}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{6BA59B27-5355-4836-86F6-A8A431BB2B60}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{6BA59B27-5355-4836-86F6-A8A431BB2B60}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{6BA59B27-5355-4836-86F6-A8A431BB2B60}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{6BA59B27-5355-4836-86F6-A8A431BB2B60}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {8229A6CD-4D49-495A-8CA9-D10DD55930C2}
+	EndGlobalSection
+EndGlobal

TFLOPSCalc/App.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
+    </startup>
+</configuration>

TFLOPSCalc/CalcCompute.vb

@@ -0,0 +1,88 @@
+Public Class CalcCompute
+
+    Private Shared shaderMultiplier As Integer = 0
+
+    Public Shared Function calculateCompute(ByVal uarch As uarches, ByVal computeUnits As Integer, ByVal clock As Integer, ByVal giga As Boolean) As Single
+        shaderMultiplier = getShadersForUarch(uarch)
+        Dim totalShaders As Integer = shaderMultiplier * computeUnits
+        If giga Then
+            Return (totalShaders * clock * 0.002)
+        Else
+            Return (totalShaders * clock * 0.000002)
+        End If
+
+    End Function
+
+    Public Shared Function findReqClock(ByVal uarch As uarches, ByVal computeUnits As Integer, ByVal compute As Single) As Integer
+        If computeUnits = 0 Then
+            computeUnits = 1
+        End If
+        Return Integer.Parse(Math.Ceiling(compute / (computeUnits * getShadersForUarch(uarch) * 2) * 1000000))
+    End Function
+
+    Public Shared Function findReqCUs(ByVal uarch As uarches, ByVal clock As Integer, ByVal compute As Single) As Integer
+        If clock = 0 Then
+            clock = 1
+        End If
+        Return Integer.Parse(Math.Ceiling(compute / ((clock / 1000) * 2 * getShadersForUarch(uarch)) * 1000))
+    End Function
+
+    Public Shared Function getShadersForUarch(ByVal uarch As uarches) As Integer
+        Select Case uarch
+            Case uarches.NvidiaFermi
+                Return 48
+            Case uarches.NvidiaKepler
+                Return 192
+            Case uarches.NvidiaMaxwell
+                Return 128
+            Case uarches.NvidiaPascal
+                Return 128
+            Case uarches.NvidiaTuring
+                Return 64
+            Case uarches.NvidiaAmpere
+                Return 64
+            Case uarches.AMDGCN1
+                Return 64
+            Case uarches.AMDGCN2
+                Return 64
+            Case uarches.AMDGCN3
+                Return 64
+            Case uarches.AMDGCN4
+                Return 64
+            Case uarches.AMDVega
+                Return 64
+            Case uarches.AMDRDNA1
+                Return 64
+            Case uarches.AMDRDNA2
+                Return 64
+            Case uarches.Intelgen8
+                Return 8
+            Case uarches.Intelgen9
+                Return 8
+            Case uarches.Intelgen11
+                Return 8
+            Case Else
+                Return 0
+        End Select
+    End Function
+
+    Public Enum uarches
+        NvidiaFermi
+        NvidiaKepler
+        NvidiaMaxwell
+        NvidiaPascal
+        NvidiaTuring
+        NvidiaAmpere
+        AMDGCN1
+        AMDGCN2
+        AMDGCN3
+        AMDGCN4
+        AMDVega
+        AMDRDNA1
+        AMDRDNA2
+        Intelgen8
+        Intelgen9
+        Intelgen11
+    End Enum
+
+End Class

TFLOPSCalc/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>true</MySubMain>
+  <MainForm>frmMain</MainForm>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

TFLOPSCalc/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("TFLOPSCalc")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("TFLOPSCalc")>
+<Assembly: AssemblyCopyright("Copyright ©  2020")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("a4718673-e204-452d-b6a4-faa486737511")>
+
+' Version information for an assembly consists of the following four values:
+'
+'      Major Version
+'      Minor Version
+'      Build Number
+'      Revision
+'
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>