diff --git a/vbnet/.gitignore b/vbnet/.gitignore new file mode 100644 index 00000000..8cfd7874 --- /dev/null +++ b/vbnet/.gitignore @@ -0,0 +1,402 @@ +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. +## +## Get latest from https://github.com/github/gitignore/blob/main/VisualStudio.gitignore + +# User-specific files +*.rsuser +*.suo +*.user +*.userosscache +*.sln.docstates + +# User-specific files (MonoDevelop/Xamarin Studio) +*.userprefs + +# Mono auto generated files +mono_crash.* + +# Build results +[Dd]ebug/ +[Dd]ebugPublic/ +[Rr]elease/ +[Rr]eleases/ +x64/ +x86/ +[Ww][Ii][Nn]32/ +[Aa][Rr][Mm]/ +[Aa][Rr][Mm]64/ +bld/ +[Bb]in/ +[Oo]bj/ +[Ll]og/ +[Ll]ogs/ + +# Visual Studio 2015/2017 cache/options directory +.vs/ +# Uncomment if you have tasks that create the project's static files in wwwroot +#wwwroot/ + +# Visual Studio 2017 auto generated files +Generated\ Files/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +# NUnit +*.VisualState.xml +TestResult.xml +nunit-*.xml + +# Build Results of an ATL Project +[Dd]ebugPS/ +[Rr]eleasePS/ +dlldata.c + +# Benchmark Results +BenchmarkDotNet.Artifacts/ + +# .NET Core +project.lock.json +project.fragment.lock.json +artifacts/ + +# ASP.NET Scaffolding +ScaffoldingReadMe.txt + +# StyleCop +StyleCopReport.xml + +# Files built by Visual Studio +*_i.c +*_p.c +*_h.h +*.ilk +*.meta +*.obj +*.iobj +*.pch +*.pdb +*.ipdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*_wpftmp.csproj +*.log +*.tlog +*.vspscc +*.vssscc +.builds +*.pidb +*.svclog +*.scc + +# Chutzpah Test files +_Chutzpah* + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opendb +*.opensdf +*.sdf +*.cachefile +*.VC.db +*.VC.VC.opendb + +# Visual Studio profiler +*.psess +*.vsp +*.vspx +*.sap + +# Visual Studio Trace Files +*.e2e + +# TFS 2012 Local Workspace +$tf/ + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper +*.DotSettings.user + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# AxoCover is a Code Coverage Tool +.axoCover/* +!.axoCover/settings.json + +# Coverlet is a free, cross platform Code Coverage Tool +coverage*.json +coverage*.xml +coverage*.info + +# Visual Studio code coverage results +*.coverage +*.coveragexml + +# NCrunch +_NCrunch_* +.*crunch*.local.xml +nCrunchTemp_* + +# MightyMoose +*.mm.* +AutoTest.Net/ + +# Web workbench (sass) +.sass-cache/ + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.[Pp]ublish.xml +*.azurePubxml +# Note: Comment the next line if you want to checkin your web deploy settings, +# but database connection strings (with potential passwords) will be unencrypted +*.pubxml +*.publishproj + +# Microsoft Azure Web App publish settings. Comment the next line if you want to +# checkin your Azure Web App publish settings, but sensitive information contained +# in these scripts will be unencrypted +PublishScripts/ + +# NuGet Packages +*.nupkg +# NuGet Symbol Packages +*.snupkg +# The packages folder can be ignored because of Package Restore +**/[Pp]ackages/* +# except build/, which is used as an MSBuild target. +!**/[Pp]ackages/build/ +# Uncomment if necessary however generally it will be regenerated when needed +#!**/[Pp]ackages/repositories.config +# NuGet v3's project.json files produces more ignorable files +*.nuget.props +*.nuget.targets + +# Microsoft Azure Build Output +csx/ +*.build.csdef + +# Microsoft Azure Emulator +ecf/ +rcf/ + +# Windows Store app package directories and files +AppPackages/ +BundleArtifacts/ +Package.StoreAssociation.xml +_pkginfo.txt +*.appx +*.appxbundle +*.appxupload + +# Visual Studio cache files +# files ending in .cache can be ignored +*.[Cc]ache +# but keep track of directories ending in .cache +!?*.[Cc]ache/ + +# Others +ClientBin/ +~$* +*~ +*.dbmdl +*.dbproj.schemaview +*.jfm +*.pfx +*.publishsettings +orleans.codegen.cs + +# Including strong name files can present a security risk +# (https://github.com/github/gitignore/pull/2483#issue-259490424) +#*.snk + +# Since there are multiple workflows, uncomment next line to ignore bower_components +# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) +#bower_components/ + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file +# to a newer Visual Studio version. Backup files are not needed, +# because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm +ServiceFabricBackup/ +*.rptproj.bak + +# SQL Server files +*.mdf +*.ldf +*.ndf + +# Business Intelligence projects +*.rdl.data +*.bim.layout +*.bim_*.settings +*.rptproj.rsuser +*- [Bb]ackup.rdl +*- [Bb]ackup ([0-9]).rdl +*- [Bb]ackup ([0-9][0-9]).rdl + +# Microsoft Fakes +FakesAssemblies/ + +# GhostDoc plugin setting file +*.GhostDoc.xml + +# Node.js Tools for Visual Studio +.ntvs_analysis.dat +node_modules/ + +# Visual Studio 6 build log +*.plg + +# Visual Studio 6 workspace options file +*.opt + +# Visual Studio 6 auto-generated workspace file (contains which files were open etc.) +*.vbw + +# Visual Studio 6 auto-generated project file (contains which files were open etc.) +*.vbp + +# Visual Studio 6 workspace and project file (working project files containing files to include in project) +*.dsw +*.dsp + +# Visual Studio 6 technical files +*.ncb +*.aps + +# Visual Studio LightSwitch build output +**/*.HTMLClient/GeneratedArtifacts +**/*.DesktopClient/GeneratedArtifacts +**/*.DesktopClient/ModelManifest.xml +**/*.Server/GeneratedArtifacts +**/*.Server/ModelManifest.xml +_Pvt_Extensions + +# Paket dependency manager +.paket/paket.exe +paket-files/ + +# FAKE - F# Make +.fake/ + +# CodeRush personal settings +.cr/personal + +# Python Tools for Visual Studio (PTVS) +__pycache__/ +*.pyc + +# Cake - Uncomment if you are using it +# tools/** +# !tools/packages.config + +# Tabs Studio +*.tss + +# Telerik's JustMock configuration file +*.jmconfig + +# BizTalk build output +*.btp.cs +*.btm.cs +*.odx.cs +*.xsd.cs + +# OpenCover UI analysis results +OpenCover/ + +# Azure Stream Analytics local run output +ASALocalRun/ + +# MSBuild Binary and Structured Log +*.binlog + +# NVidia Nsight GPU debugger configuration file +*.nvuser + +# MFractors (Xamarin productivity tool) working folder +.mfractor/ + +# Local History for Visual Studio +.localhistory/ + +# Visual Studio History (VSHistory) files +.vshistory/ + +# BeatPulse healthcheck temp database +healthchecksdb + +# Backup folder for Package Reference Convert tool in Visual Studio 2017 +MigrationBackup/ + +# Ionide (cross platform F# VS Code tools) working folder +.ionide/ + +# Fody - auto-generated XML schema +FodyWeavers.xsd + +# VS Code files for those working on multiple tools +.vscode/* +!.vscode/settings.json +!.vscode/tasks.json +!.vscode/launch.json +!.vscode/extensions.json +*.code-workspace + +# Local History for Visual Studio Code +.history/ + +# Windows Installer files from build outputs +*.cab +*.msi +*.msix +*.msm +*.msp + +# JetBrains Rider +*.sln.iml + +riderModule.iml +/_ReSharper.Caches/ +.idea/ \ No newline at end of file diff --git a/vbnet/GildedRose-Refactoring-Kata.sln b/vbnet/GildedRose-Refactoring-Kata.sln new file mode 100644 index 00000000..ddc4e9b0 --- /dev/null +++ b/vbnet/GildedRose-Refactoring-Kata.sln @@ -0,0 +1,22 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GildedRoseKata", "GildedRoseKata\GildedRoseKata.vbproj", "{FFC7A053-D8C3-4359-A440-08BED0B015F1}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "GildedRoseKata.Tests", "GildedRoseKata.Tests\GildedRoseKata.Tests.vbproj", "{95A14964-D7C9-413A-95F6-FF3A29851246}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {FFC7A053-D8C3-4359-A440-08BED0B015F1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {FFC7A053-D8C3-4359-A440-08BED0B015F1}.Debug|Any CPU.Build.0 = Debug|Any CPU + {FFC7A053-D8C3-4359-A440-08BED0B015F1}.Release|Any CPU.ActiveCfg = Release|Any CPU + {FFC7A053-D8C3-4359-A440-08BED0B015F1}.Release|Any CPU.Build.0 = Release|Any CPU + {95A14964-D7C9-413A-95F6-FF3A29851246}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {95A14964-D7C9-413A-95F6-FF3A29851246}.Debug|Any CPU.Build.0 = Debug|Any CPU + {95A14964-D7C9-413A-95F6-FF3A29851246}.Release|Any CPU.ActiveCfg = Release|Any CPU + {95A14964-D7C9-413A-95F6-FF3A29851246}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection +EndGlobal diff --git a/vbnet/GildedRoseKata.Tests/GildedRoseKata.Tests.vbproj b/vbnet/GildedRoseKata.Tests/GildedRoseKata.Tests.vbproj new file mode 100644 index 00000000..b32765ee --- /dev/null +++ b/vbnet/GildedRoseKata.Tests/GildedRoseKata.Tests.vbproj @@ -0,0 +1,20 @@ + + + + net6.0 + + false + + + + + + + + + + + + + + diff --git a/vbnet/GildedRoseKata.Tests/GildedRoseTests.vb b/vbnet/GildedRoseKata.Tests/GildedRoseTests.vb new file mode 100644 index 00000000..7dceda87 --- /dev/null +++ b/vbnet/GildedRoseKata.Tests/GildedRoseTests.vb @@ -0,0 +1,19 @@ +Imports NUnit.Framework + +Namespace GildedRoseKata.Tests + Public Class GildedRoseTests + + Public Sub foo() + Dim Items As IList(Of Item) = New List(Of Item) From { + New Item With { + .Name = "foo", + .SellIn = 0, + .Quality = 0 + } + } + Dim app = New GildedRose(Items) + app.UpdateQuality() + Assert.AreEqual("fixme", Items(0).Name) + End Sub + End Class +End Namespace \ No newline at end of file diff --git a/vbnet/GildedRoseKata/GildedRose.vb b/vbnet/GildedRoseKata/GildedRose.vb new file mode 100644 index 00000000..df9c24a4 --- /dev/null +++ b/vbnet/GildedRoseKata/GildedRose.vb @@ -0,0 +1,73 @@ +Imports System.Collections.Generic + +Public Class GildedRose + Private Items As IList(Of Item) + + Public Sub New(items As IList(Of Item)) + Me.Items = items + End Sub + + Public Sub UpdateQuality() + For i = 0 To Items.Count - 1 + + If Items(i).Name <> "Aged Brie" AndAlso Items(i).Name <> "Backstage passes to a TAFKAL80ETC concert" Then + + If Items(i).Quality > 0 Then + + If Items(i).Name <> "Sulfuras, Hand of Ragnaros" Then + Items(i).Quality = Items(i).Quality - 1 + End If + End If + Else + + If Items(i).Quality < 50 Then + Items(i).Quality = Items(i).Quality + 1 + + If Items(i).Name = "Backstage passes to a TAFKAL80ETC concert" Then + + If Items(i).SellIn < 11 Then + + If Items(i).Quality < 50 Then + Items(i).Quality = Items(i).Quality + 1 + End If + End If + + If Items(i).SellIn < 6 Then + + If Items(i).Quality < 50 Then + Items(i).Quality = Items(i).Quality + 1 + End If + End If + End If + End If + End If + + If Items(i).Name <> "Sulfuras, Hand of Ragnaros" Then + Items(i).SellIn = Items(i).SellIn - 1 + End If + + If Items(i).SellIn < 0 Then + + If Items(i).Name <> "Aged Brie" Then + + If Items(i).Name <> "Backstage passes to a TAFKAL80ETC concert" Then + + If Items(i).Quality > 0 Then + + If Items(i).Name <> "Sulfuras, Hand of Ragnaros" Then + Items(i).Quality = Items(i).Quality - 1 + End If + End If + Else + Items(i).Quality = Items(i).Quality - Items(i).Quality + End If + Else + + If Items(i).Quality < 50 Then + Items(i).Quality = Items(i).Quality + 1 + End If + End If + End If + Next + End Sub +End Class \ No newline at end of file diff --git a/vbnet/GildedRoseKata/GildedRoseKata.vbproj b/vbnet/GildedRoseKata/GildedRoseKata.vbproj new file mode 100644 index 00000000..dbcac0ea --- /dev/null +++ b/vbnet/GildedRoseKata/GildedRoseKata.vbproj @@ -0,0 +1,9 @@ + + + + Exe + GildedRoseKata + net6.0 + + + diff --git a/vbnet/GildedRoseKata/Item.vb b/vbnet/GildedRoseKata/Item.vb new file mode 100644 index 00000000..22dfa2b7 --- /dev/null +++ b/vbnet/GildedRoseKata/Item.vb @@ -0,0 +1,9 @@ +Public Class Item + Public Property Name As String + Public Property SellIn As Integer + Public Property Quality As Integer + + Public Overrides Function ToString() As String + Return Me.Name & ", " & Me.SellIn & ", " & Me.Quality + End Function +End Class diff --git a/vbnet/GildedRoseKata/Program.vb b/vbnet/GildedRoseKata/Program.vb new file mode 100644 index 00000000..3bad359b --- /dev/null +++ b/vbnet/GildedRoseKata/Program.vb @@ -0,0 +1,67 @@ +Imports System + +Module Program + Sub Main(args As String()) + Console.WriteLine("OMGHAI!") + Dim Items As IList(Of Item) = New List(Of Item) From { + New Item With { + .Name = "+5 Dexterity Vest", + .SellIn = 10, + .Quality = 20 + }, + New Item With { + .Name = "Aged Brie", + .SellIn = 2, + .Quality = 0 + }, + New Item With { + .Name = "Elixir of the Mongoose", + .SellIn = 5, + .Quality = 7 + }, + New Item With { + .Name = "Sulfuras, Hand of Ragnaros", + .SellIn = 0, + .Quality = 80 + }, + New Item With { + .Name = "Sulfuras, Hand of Ragnaros", + .SellIn = - 1, + .Quality = 80 + }, + New Item With { + .Name = "Backstage passes to a TAFKAL80ETC concert", + .SellIn = 15, + .Quality = 20 + }, + New Item With { + .Name = "Backstage passes to a TAFKAL80ETC concert", + .SellIn = 10, + .Quality = 49 + }, + New Item With { + .Name = "Backstage passes to a TAFKAL80ETC concert", + .SellIn = 5, + .Quality = 49 + }, + New Item With { + .Name = "Conjured Mana Cake", + .SellIn = 3, + .Quality = 6 + } + } + Dim app = New GildedRose(Items) + + For i = 0 To 31 - 1 + Console.WriteLine("-------- day " & i & " --------") + Console.WriteLine("name, sellIn, quality") + + For j = 0 To Items.Count - 1 + System.Console.WriteLine(Items(j)) + Next + + Console.WriteLine("") + app.UpdateQuality() + Next + End Sub +End Module