mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 04:12:13 +00:00
Add VB.NET implementation
This commit is contained in:
neoprincie
parent
f80413c2fd
commit
677aa91797
402
vbnet/.gitignore
vendored
Normal file
402
vbnet/.gitignore
vendored
Normal file
@ -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/
|
||||||
22
vbnet/GildedRose-Refactoring-Kata.sln
Normal file
22
vbnet/GildedRose-Refactoring-Kata.sln
Normal file
@ -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
|
||||||
20
vbnet/GildedRoseKata.Tests/GildedRoseKata.Tests.vbproj
Normal file
20
vbnet/GildedRoseKata.Tests/GildedRoseKata.Tests.vbproj
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
<Project Sdk="Microsoft.NET.Sdk">
|
||||||
|
|
||||||
|
<PropertyGroup>
|
||||||
|
<TargetFramework>net6.0</TargetFramework>
|
||||||
|
|
||||||
|
<IsPackable>false</IsPackable>
|
||||||
|
</PropertyGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.11.0" />
|
||||||
|
<PackageReference Include="NUnit" Version="3.13.2" />
|
||||||
|
<PackageReference Include="NUnit3TestAdapter" Version="4.0.0" />
|
||||||
|
<PackageReference Include="coverlet.collector" Version="3.1.0" />
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<ProjectReference Include="..\GildedRoseKata\GildedRoseKata.vbproj" />
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
</Project>
|
||||||
19
vbnet/GildedRoseKata.Tests/GildedRoseTests.vb
Normal file
19
vbnet/GildedRoseKata.Tests/GildedRoseTests.vb
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
Imports NUnit.Framework
|
||||||
|
|
||||||
|
Namespace GildedRoseKata.Tests
|
||||||
|
Public Class GildedRoseTests
|
||||||
|
<Test>
|
||||||
|
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
|
||||||
73
vbnet/GildedRoseKata/GildedRose.vb
Normal file
73
vbnet/GildedRoseKata/GildedRose.vb
Normal file
@ -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
|
||||||
9
vbnet/GildedRoseKata/GildedRoseKata.vbproj
Normal file
9
vbnet/GildedRoseKata/GildedRoseKata.vbproj
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
<Project Sdk="Microsoft.NET.Sdk">
|
||||||
|
|
||||||
|
<PropertyGroup>
|
||||||
|
<OutputType>Exe</OutputType>
|
||||||
|
<RootNamespace>GildedRoseKata</RootNamespace>
|
||||||
|
<TargetFramework>net6.0</TargetFramework>
|
||||||
|
</PropertyGroup>
|
||||||
|
|
||||||
|
</Project>
|
||||||
9
vbnet/GildedRoseKata/Item.vb
Normal file
9
vbnet/GildedRoseKata/Item.vb
Normal file
@ -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
|
||||||
67
vbnet/GildedRoseKata/Program.vb
Normal file
67
vbnet/GildedRoseKata/Program.vb
Normal file
@ -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
|
||||||
Loading…
Reference in New Issue
Block a user