Sync
This commit is contained in:
parent
6f050a029e
commit
776bba907c
3887 changed files with 59894 additions and 7280 deletions
|
|
@ -3,4 +3,5 @@ using namespace System::Windows::Forms;
|
|||
int main(array<System::String^> ^args)
|
||||
{
|
||||
MessageBox::Show("Goodbye, World!", "Rosetta Code");
|
||||
return 0;
|
||||
}
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
|
|
@ -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.
|
||||
|
|
@ -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>
|
||||
|
|
@ -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.
|
||||
|
|
@ -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 {
|
||||
|
|
|
|||
|
|
@ -0,0 +1,8 @@
|
|||
import swing._
|
||||
|
||||
object HelloDotNetWorld {
|
||||
def main(args: Array[String]) {
|
||||
System.Windows.Forms.MessageBox.Show
|
||||
("Hello, .net world!")
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue