Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Merge pull request #450 from fanoI/master
Fixed Template for Visual Basic kernel
  • Loading branch information
fanoI committed Aug 29, 2016
2 parents 1db5919 + 8140224 commit 9f2df6a
Show file tree
Hide file tree
Showing 4 changed files with 28 additions and 26 deletions.
Expand Up @@ -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
Expand Up @@ -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>
Expand Down
Expand Up @@ -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
Expand Up @@ -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>
Expand Down

0 comments on commit 9f2df6a

Please sign in to comment.