This commit is contained in:
Ingy döt Net 2013-10-27 22:24:23 +00:00
parent 6f050a029e
commit 776bba907c
3887 changed files with 59894 additions and 7280 deletions

View file

@ -3,4 +3,5 @@ using namespace System::Windows::Forms;
int main(array<System::String^> ^args)
{
MessageBox::Show("Goodbye, World!", "Rosetta Code");
return 0;
}

View file

@ -0,0 +1,7 @@
CLASS-ID ProgramClass.
METHOD-ID Main STATIC.
PROCEDURE DIVISION.
INVOKE TYPE Application::EnableVisualStyles() *> Optional
INVOKE TYPE MessageBox::Show("Goodbye, World!")
END METHOD.
END CLASS.

View file

@ -0,0 +1,7 @@
CLASS-ID GoodbyeWorldWPF.Window IS PARTIAL
INHERITS TYPE System.Windows.Window.
METHOD-ID NEW.
PROCEDURE DIVISION.
INVOKE self::InitializeComponent()
END METHOD.
END CLASS.

View file

@ -0,0 +1,6 @@
<Window x:Class="COBOL_WPF.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Hello world/Graphical">
<TextBox>Hello, World!</TextBox>
</Window>

View file

@ -0,0 +1,19 @@
program-id. ghello.
data division.
working-storage section.
01 var pic x(1).
01 lynz pic 9(3).
01 colz pic 9(3).
01 msg pic x(15) value "Goodbye, world!".
procedure division.
accept lynz from lines end-accept
divide lynz by 2 giving lynz.
accept colz from columns end-accept
divide colz by 2 giving colz.
subtract 7 from colz giving colz.
display msg
at line number lynz
column number colz
end-display
accept var end-accept
stop run.

View file

@ -2,8 +2,6 @@ import swing._
object GoodbyeWorld extends SimpleSwingApplication {
Dialog.showMessage(message = "Goodbye, World!")
def top = new MainFrame {
title = "Goodbye, World!"
contents = new FlowPanel {

View file

@ -0,0 +1,8 @@
import swing._
object HelloDotNetWorld {
def main(args: Array[String]) {
System.Windows.Forms.MessageBox.Show
("Hello, .net world!")
}
}