Added Visual Basic Programming Language

Author: Undalevein

visualbasic/.gitignore

@@ -0,0 +1,2 @@
+bin
+obj

visualbasic/Clockhands.vb

@@ -0,0 +1,12 @@
+Module Clockhands
+    Sub Main()
+        Dim t, h, m, s as Integer
+        For i = 0 To 10
+            t = (43200 * i + 21600) \ 11
+            h = t \ 3600
+            m = t \ 60 MOD 60
+            s = t MOD 60
+            Console.WriteLine("{0:D2}:{1:D2}:{2:D2}", If(h = 0, 12, h), m, s)
+        Next
+    End Sub
+End Module

visualbasic/Hello.vb

@@ -0,0 +1,5 @@
+Module Clockhands
+    Sub Main()
+        Console.WriteLine("Hello, World!")
+    End Sub
+End Module

visualbasic/README.md

@@ -0,0 +1,39 @@
+<img src="https://raw.githubusercontent.com/rtoal/polyglot/master/docs/resources/visualbasic-logo-64.png">
+
+# Visual Basic Explorations
+
+To build and run Visual Basic programs on your local machine, download and install the most recent language version from the [Dotnet installation  page](https://dotnet.microsoft.com/en-us/download) or use your favorite package manager.
+
+Programs in this folder have been tested using dotnet 9.0.203 and can be run from the command line like so:
+
+```
+cat Triple.vb > project/Program.vb && dotnet run --project project
+```
+
+```
+cat Triple.vb > project/Program.vb && dotnet run --project project I like carrots
+```
+
+```
+cat Triple.vb > project/Program.vb && dotnet run --project project < ../test/wnba_input
+```
+
+To run the tests on a Unix-like shell:
+
+```
+./test.sh
+```
+
+Run `test.ps1` in PowerShell.
+
+## About Visual Basic
+
+TODO
+
+## Visual Basic Resources
+
+Continue your study of Visual Basic with:
+
+- [Official Documentation](https://learn.microsoft.com/en-us/dotnet/visual-basic/)
+- [Tutorials Point for Visual Basic](https://www.tutorialspoint.com/vb.net/index.htm)
+- [Visual Basic at Rosetta Code](https://rosettacode.org/wiki/Category:Visual_Basic)

visualbasic/Triple.vb

@@ -0,0 +1,13 @@
+Module Triple
+    Sub Main()
+        For c = 1 To 40
+            For b = 1 To c
+                For a = 1 To b
+                    If (a ^ 2 + b ^ 2 = c ^ 2) Then
+                        Console.WriteLine("{0}, {1}, {2}", a, b, c)
+                    End If
+                Next
+            Next
+        Next
+    End Sub
+End Module

visualbasic/project/Program.vb

@@ -0,0 +1,13 @@
+Module Triple
+    Sub Main()
+        For c = 1 To 40
+            For b = 1 To c
+                For a = 1 To b
+                    If (a ^ 2 + b ^ 2 = c ^ 2) Then
+                        Console.WriteLine("{0}, {1}, {2}", a, b, c)
+                    End If
+                Next
+            Next
+        Next
+    End Sub
+End Module

visualbasic/project/visualbasic.vbproj

@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>visualbasic</RootNamespace>
+    <TargetFramework>net9.0</TargetFramework>
+  </PropertyGroup>
+
+</Project>

visualbasic/test.ps1

@@ -0,0 +1,37 @@
+function Assert-MatchTests {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $TestResult
+    )
+
+    if ($TestResult) {
+        Write-Error "Output does not match expected results."
+    }
+}
+
+function Initialize-File {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $FileName
+    )
+
+    Get-Content "$PSScriptRoot\$FileName" > "$PSScriptRoot\project\Program.vb"
+}
+
+# File path for the project folder.
+$project = "$PSScriptRoot\project"
+
+$Error.clear()
+    Initialize-File("Clockhands.vb") && dotnet run --project $project |
+        Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+        Assert-MatchTests &&
+    Initialize-File("Hello.vb") && dotnet run --project $project &&
+    Initialize-File("Triple.vb") && dotnet run --project $project |
+        Compare-Object (Get-Content "$PSScriptRoot\..\test\triple_expected") |
+        Assert-MatchTests &&
+ForEach-Object 'foo'
+
+if ($Error -or !$?) {
+    "*** VISUAL BASIC TESTS FAILED ***"
+}
+else {
+    "VISUAL BASIC TESTS PASSED"
+}