dan/Cosmos
1
0
Fork 0
mirror of https://github.com/danbulant/Cosmos synced 2026-06-08 09:13:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #450 from fanoI/master

Browse source 
Fixed Template for Visual Basic kernel
This commit is contained in:
fanoI 2016-08-29 16:00:33 +02:00 committed by GitHub
commit 9f2df6a6ab
4 changed files with 28 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/Kernel.vb
View file

@ -4,19 +4,20 @@ Imports System.Text
Namespace $safeprojectname$ Namespace $safeprojectname$
Public Class Kernel Public Class Kernel
Inherits Cosmos.System.Kernel Inherits Cosmos.System.Kernel
Protected Overrides Sub BeforeRun() Protected Overrides Sub BeforeRun()
Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.") Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
End Sub End Sub
Protected Overrides Sub Run() Protected Overrides Sub Run()
Console.Write("Input: ") Console.Write("Input: ")
Console.ReadLine() Dim input = Console.ReadLine()
Console.Write("Text typed: ") Console.Write("Text typed: ")
End Sub Console.WriteLine(input)
End Sub
End Class End Class
End Namespace End Namespace

2
source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/VBProjKernel.vbproj
View file

@ -21,7 +21,7 @@
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
<DebugSymbols>true</DebugSymbols> <DebugSymbols>true</DebugSymbols>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants> <DefineConstants>DEBUG,TRACE</DefineConstants>
<DebugType>full</DebugType> <DebugType>full</DebugType>
<PlatformTarget>x86</PlatformTarget> <PlatformTarget>x86</PlatformTarget>
<ErrorReport>prompt</ErrorReport> <ErrorReport>prompt</ErrorReport>

25
source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/Kernel.vb
View file

@ -4,19 +4,20 @@ Imports System.Text
Namespace $safeprojectname$ Namespace $safeprojectname$
Public Class Kernel Public Class Kernel
Inherits Cosmos.System.Kernel Inherits Cosmos.System.Kernel
Protected Overrides Sub BeforeRun() Protected Overrides Sub BeforeRun()
Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.") Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
End Sub End Sub
Protected Overrides Sub Run() Protected Overrides Sub Run()
Console.Write("Input: ") Console.Write("Input: ")
Console.ReadLine() Dim input = Console.ReadLine()
Console.Write("Text typed: ") Console.Write("Text typed: ")
End Sub Console.WriteLine(input)
End Sub
End Class End Class
End Namespace End Namespace

2
source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/VBProjKernel.vbproj
View file

@ -21,7 +21,7 @@
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'"> <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
<DebugSymbols>true</DebugSymbols> <DebugSymbols>true</DebugSymbols>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants> <DefineConstants>DEBUG,TRACE</DefineConstants>
<DebugType>full</DebugType> <DebugType>full</DebugType>
<PlatformTarget>x86</PlatformTarget> <PlatformTarget>x86</PlatformTarget>
<ErrorReport>prompt</ErrorReport> <ErrorReport>prompt</ErrorReport>