dan/Cosmos
1
0
Fork 0
mirror of https://github.com/danbulant/Cosmos synced 2026-05-27 22:12:25 +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$
Public Class Kernel
Inherits Cosmos.System.Kernel
Public Class Kernel
Inherits Cosmos.System.Kernel
Protected Overrides Sub BeforeRun()
Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
End Sub
Protected Overrides Sub BeforeRun()
Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
End Sub
Protected Overrides Sub Run()
Console.Write("Input: ")
Console.ReadLine()
Console.Write("Text typed: ")
End Sub
Protected Overrides Sub Run()
Console.Write("Input: ")
Dim input = Console.ReadLine()
Console.Write("Text typed: ")
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'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<DefineConstants>DEBUG,TRACE</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x86</PlatformTarget>
<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$
Public Class Kernel
Inherits Cosmos.System.Kernel
Public Class Kernel
Inherits Cosmos.System.Kernel
Protected Overrides Sub BeforeRun()
Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
End Sub
Protected Overrides Sub BeforeRun()
Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
End Sub
Protected Overrides Sub Run()
Console.Write("Input: ")
Console.ReadLine()
Console.Write("Text typed: ")
End Sub
Protected Overrides Sub Run()
Console.Write("Input: ")
Dim input = Console.ReadLine()
Console.Write("Text typed: ")
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'">
<DebugSymbols>true</DebugSymbols>
<OutputPath>bin\Debug\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<DefineConstants>DEBUG,TRACE</DefineConstants>
<DebugType>full</DebugType>
<PlatformTarget>x86</PlatformTarget>
<ErrorReport>prompt</ErrorReport>