added BasicMath sample for Visual Basic

Author: lostmsu

Gradient-Samples.sln

@@ -23,7 +23,11 @@ Project("{9A19103F-16F7-4668-BE54-9A1E7A4F7556}") = "LinearSVM", "LinearSVM\Line
 EndProject
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "FSharp", "FSharp", "{B18FC4F9-E13F-437F-A8DB-4783E9C0F356}"
 EndProject
-Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "BasicMathF", "FSharp\BasicMathF\BasicMathF.fsproj", "{CEF0739E-BD49-466E-9F8D-226C9C474DB4}"
+Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "BasicMathF", "FSharp\BasicMathF\BasicMathF.fsproj", "{CEF0739E-BD49-466E-9F8D-226C9C474DB4}"
+EndProject
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "VB", "VB", "{875975E4-796F-4181-BACE-7DC71CE35D1F}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BasicMathVB", "VB\BasicMathVB\BasicMathVB.vbproj", "{453E1365-83C2-46B6-B8E0-728B778CA1A7}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -59,12 +63,17 @@ Global
 		{CEF0739E-BD49-466E-9F8D-226C9C474DB4}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{CEF0739E-BD49-466E-9F8D-226C9C474DB4}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{CEF0739E-BD49-466E-9F8D-226C9C474DB4}.Release|Any CPU.Build.0 = Release|Any CPU
+		{453E1365-83C2-46B6-B8E0-728B778CA1A7}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{453E1365-83C2-46B6-B8E0-728B778CA1A7}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{453E1365-83C2-46B6-B8E0-728B778CA1A7}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{453E1365-83C2-46B6-B8E0-728B778CA1A7}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
 	EndGlobalSection
 	GlobalSection(NestedProjects) = preSolution
 		{CEF0739E-BD49-466E-9F8D-226C9C474DB4} = {B18FC4F9-E13F-437F-A8DB-4783E9C0F356}
+		{453E1365-83C2-46B6-B8E0-728B778CA1A7} = {875975E4-796F-4181-BACE-7DC71CE35D1F}
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {052B6168-274F-43B0-B3F0-24F5C5D4BE58}

VB/BasicMathVB/BasicMath.vb

@@ -0,0 +1,39 @@
+Imports Gradient
+Imports SharPy.Runtime
+Imports tensorflow
+Imports tensorflow.core.protobuf.config_pb2
+Imports tensorflow.summary
+
+Module Program
+    Sub Main(args As String())
+        GradientSetup.OptInToUsageDataCollection()
+        GradientSetup.UseEnvironmentFromVariable()
+
+        GradientLog.OutputWriter = Console.Out
+
+        Dim a = tf.constant(5.0, name:="a")
+        Dim b = tf.constant(10.0, name:="b")
+
+        Dim sum = tf.add(a, b, name:="sum")
+        Dim div = tf.div(a, b, name:="div")
+
+        ' ConfigProto here must be wrapped in () to tell Visual Basic,
+        ' that .ConfigProto() is not the same as .ConfigProto.
+        ' Alternatively, one can write .ConfigProto()()
+        Dim config = (config_pb2.ConfigProto)()
+        config.gpu_options.allow_growth = True
+        Session.NewDyn(config:=config).UseSelf(Sub(sess)
+                                                   With sess
+                                                       ' Visual Basic does not perform implicit conversion from Graph
+                                                       ' to ImplicitContainer(Of Graph) :(
+                                                       Dim writer = New FileWriter(".", New ImplicitContainer(Of Graph)(.graph))
+                                                       Console.WriteLine($"a = { .run(a) }")
+                                                       Console.WriteLine($"b = { .run(b) }")
+                                                       Console.WriteLine($"a + b = { .run(sum) }")
+                                                       Console.WriteLine($"a / b = { .run(div) }")
+                                                       writer.close()
+                                                       .close()
+                                                   End With
+                                               End Sub)
+    End Sub
+End Module

VB/BasicMathVB/BasicMathVB.vbproj

@@ -0,0 +1,13 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>BasicMathVB</RootNamespace>
+    <TargetFramework>netcoreapp2.2</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="Gradient" Version="0.1.10-tech-preview5.1.1" />
+  </ItemGroup>
+
+</Project>