added VB FashionMnist sample

Author: lostmsu

FashionMnistClassification/FashionMnistClassification.cs

@@ -16,9 +16,9 @@ static void Main() {
             // requires Internet connection
             (dynamic train, dynamic test) = tf.keras.datasets.fashion_mnist.load_data();
             // will be able to do (trainImages, trainLabels) = train;
-            ndarray trainImages = train.Item1;
+            ndarray trainImages = train.Item1 / 255.0f;
             ndarray trainLabels = train.Item2;
-            ndarray testImages = test.Item1;
+            ndarray testImages = test.Item1 / 255.0f;
             ndarray testLabels = test.Item2;
 
             bool loaded = 60000 == trainImages.Length;

Gradient-Samples.sln

@@ -27,7 +27,9 @@ Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "BasicMathF", "FSharp\BasicM
 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}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "BasicMathVB", "VB\BasicMathVB\BasicMathVB.vbproj", "{453E1365-83C2-46B6-B8E0-728B778CA1A7}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "FashionMnistVB", "VB\FashionMnistVB\FashionMnistVB.vbproj", "{1077A08A-AB90-4286-BB0C-0F2E9D620595}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -67,13 +69,18 @@ Global
 		{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
+		{1077A08A-AB90-4286-BB0C-0F2E9D620595}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{1077A08A-AB90-4286-BB0C-0F2E9D620595}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{1077A08A-AB90-4286-BB0C-0F2E9D620595}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{1077A08A-AB90-4286-BB0C-0F2E9D620595}.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}
+		{1077A08A-AB90-4286-BB0C-0F2E9D620595} = {875975E4-796F-4181-BACE-7DC71CE35D1F}
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {052B6168-274F-43B0-B3F0-24F5C5D4BE58}

VB/FashionMnistVB/FashionMnist.vb

@@ -0,0 +1,42 @@
+Imports System
+Imports Gradient
+Imports SharPy.Runtime
+Imports tensorflow
+Imports tensorflow.keras
+Imports tensorflow.keras.layers
+Imports tensorflow.keras.optimizers
+
+Module Program
+    Sub Main()
+        GradientLog.OutputWriter = Console.Out
+        GradientSetup.UseEnvironmentFromVariable()
+
+        ' requires Internet connection
+        Dim data = tf.keras.datasets.fashion_mnist.load_data()
+        Dim train = data.Item1
+        Dim trainImages = train.Item1 / 255.0F
+        Dim trainLabels = train.Item2
+        Dim test = data.Item2
+        Dim testImages = test.Item1 / 255.0F
+        Dim testLabels = test.Item2
+
+        Dim shapeArgs = New PythonDict(Of String, Object) From {{"input_shape", (28, 28)}}
+        Dim model = New Sequential(New Layer() {
+            New Flatten(kwargs:=shapeArgs),
+            New Dense(units:=128, activation:=tf.nn.leaky_relu_fn),
+            New Dense(units:=10, activation:=tf.nn.softmax_fn)
+        })
+
+        model.compile(
+            optimizer:=New Adam(),
+            loss:="sparse_categorical_crossentropy",
+            metrics:=New Object() {"accuracy"})
+
+
+        model.fit(trainImages, trainLabels, epochs:=5)
+
+        Dim evaluationResult = model.evaluate(testImages, testLabels)
+        Dim accuracy = evaluationResult(1)
+        Console.WriteLine($"Test accuracy: {accuracy}")
+    End Sub
+End Module

VB/FashionMnistVB/FashionMnistVB.vbproj

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