Пример #1
0
        public FishBowl(FishWindow wndParent, IntPtr hBgd)
            : base(hBgd)
        {
            //changing these requires resetting the fishbowl
            _colorAgeGradient = 1;
            _FishInitPct      = 10;
            _SharkInitPct     = 10;

            CellWidth = CellHeight = 10;
            //these can be changed while running
            _SharkStarve     = 6;
            _FishBreedAge    = 3;
            _SharkBreedAge   = 5;
            _FishLifeLength  = 22;
            _SharkLifeLength = 33;

            _FishNumMovesPerYear  = 1;
            _SharkNumMovesPerYear = 1;

            _wndParent          = wndParent;
            _Instance           = this;
            _BgdBrush           = hBgd;
            _wndParent.Closing += (o, e) =>
            {
                _StopRequested = true;
            };
        }
Пример #2
0
        public FishWindow()
        {
            InitializeComponent();
            WindowState  = System.Windows.WindowState.Maximized;
            this.Loaded += (ol, el) =>
            {
                this.Top  = 0;
                this.Left = 0;
                try
                {
                    // Make a namespace referring to our namespace and assembly
                    // using the prefix "l:"
                    //xmlns:l=""clr-namespace:Fish;assembly=Fish"""
                    var nameSpace = this.GetType().Namespace;
                    var asm       = System.IO.Path.GetFileNameWithoutExtension(
                        Assembly.GetExecutingAssembly().Location);

                    var xmlns = string.Format(
                        @"xmlns:l=""clr-namespace:{0};assembly={1}""", nameSpace, asm);
                    //there are a lot of quotes (and braces) in XAML
                    //and the C# string requires quotes to be doubled
                    var strxaml =
                        @"<Grid
xmlns=""http://schemas.microsoft.com/winfx/2006/xaml/presentation""
xmlns:x=""http://schemas.microsoft.com/winfx/2006/xaml""
" + xmlns + // add our xaml namespace
                        @" Margin=""5,5,5,5"">
<Grid.RowDefinitions>
    <RowDefinition/>
    <RowDefinition Height=""25"" />
</Grid.RowDefinitions>
<DockPanel Grid.Row=""0"">
    <Grid>
        <Grid.ColumnDefinitions>
        <ColumnDefinition Width = ""70""/>
        <ColumnDefinition/>
        </Grid.ColumnDefinitions>
        <StackPanel Name=""inputPanel"" 
            Orientation=""Vertical"" 
            >
            <CheckBox Content=""_Running"" 
                IsChecked= ""{Binding Path=IsRunning}"" />
            <CheckBox Content=""_Circles"" 
                IsChecked= ""{Binding Path=UseCircles}"" />
            <CheckBox Content=""_Action1PerYear"" 
                IsChecked= ""{Binding Path=_OneActionPerYear}""
                ToolTip=""Can do only one of move AND eat AND give birth in same year?""
                />

            <CheckBox Content=""_Torus"" 
                IsChecked= ""{Binding Path=_Torus}""
                ToolTip=""The ocean wraps around the edges: the top and the bottom are neighbors""
                />

            <Label Content=""ColorGrad""/>
            <l:MyTextBox 
                Text =""{Binding Path=ColorAgeGradient}"" 
                ToolTip=""As an animcal gets older, darken the color 
(256 is max color). 0 makes it go much faster"" />
            <Label Content=""CellWidth""/>
            <l:MyTextBox 
                Text =""{Binding Path=CellWidth}"" 
                ToolTip=""Width of a cell"" />
            <Label Content=""CellHeight""/>
            <l:MyTextBox 
                Text =""{Binding Path=CellHeight}"" 
                ToolTip=""Height of a cell"" />

            <Label Content=""Starve""/>
            <l:MyTextBox 
                Text =""{Binding Path=_SharkStarve}"" 
                ToolTip=""How long a shark can go without eating"" />

            <Label Content=""FishBreed""/>
            <l:MyTextBox 
                Text =""{Binding Path=_FishBreedAge}"" 
                ToolTip=""How old a Fish has to be before it can give birth
(requires neighboring empty cell)"" />
            <Label Content=""SharkBreed""/>
            <l:MyTextBox 
                Text =""{Binding Path=_SharkBreedAge}"" 
                ToolTip=""How old a Shark has to be before it can give birth 
(requires neighboring empty cell)"" />
            <Label Content=""FishLifeLength""/>
            <l:MyTextBox 
                Text =""{Binding Path=_FishLifeLength}"" 
                ToolTip=""How old a Fish is before it dies of old age"" />
            <Label Content=""SharkLifeLength""/>
            <l:MyTextBox 
                Text =""{Binding Path=_SharkLifeLength}"" 
                ToolTip=""How old a Shark is before it dies of old age"" />
            <Label Content=""Rows""/>
            <TextBlock
                Text =""{Binding Path=nTotRows}"" 
                />
            <Label Content=""Cols""/>
            <TextBlock
                Text =""{Binding Path=nTotCols}"" 
                />
                

        </StackPanel>
        <UserControl Name=""MyUserControl"" Grid.Column=""1""></UserControl>
    </Grid>
</DockPanel>
<DockPanel Grid.Row=""1"">
    <TextBox 
        Name=""tbxStatus"" 
        HorizontalAlignment=""Left"" 
        Height=""23"" 
        Margin=""10,2,0,0"" 
        IsReadOnly=""True""
        TextWrapping=""Wrap"" 
        VerticalAlignment=""Top"" 
        Width=""420""/>
    <Slider 
        HorizontalAlignment=""Left"" 
        Minimum=""0""
        Maximum=""1000""
        Margin=""12,2,0,0"" 
        Value=""{Binding Path=_nDelay}""
        VerticalAlignment=""Top"" 
        ToolTip=""Change the delay""
        Width=""100""/>
    <Button 
        Name=""btnGraph"" 
        Content=""_Graph"" 
        HorizontalAlignment=""Left""
        Margin=""10,2,0,0"" 
        VerticalAlignment=""Top"" 
        ToolTip=""Write to Excel.Hit these keys 'Alt N, N, Enter'
Alt activates Menu
N(Insert) (N Line chart) Enter (choose default 2D line chart)""
        Width=""55""/>
    <Button 
        Name=""btnQuit"" 
        Content=""_Quit"" 
        HorizontalAlignment=""Left"" 
        Margin=""10,2,0,0"" 
        VerticalAlignment=""Top"" 
        Width=""55""/>

</DockPanel>
</Grid>
";
                    var bgdOcean = NativeMethods.CreateSolidBrush(
                        new IntPtr(0xffffff));
                    var fishBowl = new FishBowl(this, bgdOcean);

                    var strReader  = new System.IO.StringReader(strxaml);
                    var xamlreader = XmlReader.Create(strReader);
                    var grid       = (Grid)(XamlReader.Load(xamlreader));
                    grid.DataContext = fishBowl;

                    _tbxStatus = (TextBox)grid.FindName("tbxStatus");
                    var btnQuit = (Button)grid.FindName("btnQuit");
                    btnQuit.Click += (ob, eb) =>
                    {
                        App.Current.Shutdown();
                    };
                    var btnGraph = (Button)grid.FindName("btnGraph");
                    btnGraph.Click += (ob, eb) =>
                    {
                        var oldIsRunning = fishBowl.IsRunning;
                        try
                        {
                            fishBowl.IsRunning = false;
                            // write to Excel
                            // Hit these keys "Alt N, N, Enter"
                            //  Alt activates Menu
                            // N(Insert) (N Line chart) Enter (choose default 2D line chart)

                            var tempFileName = System.IO.Path.ChangeExtension(
                                System.IO.Path.GetTempFileName(),
                                "csv");
                            System.IO.File.WriteAllText(
                                tempFileName,
                                FishBowl._Instance._sbStatus.ToString());
                            System.Diagnostics.Process.Start(tempFileName);
                        }
                        catch (Exception)
                        {
                            // if file in use by Excel, just ignore
                        }
                        if (oldIsRunning)
                        {
                            fishBowl.IsRunning = true;
                        }
                    };
                    _tbxStatus = (TextBox)grid.FindName("tbxStatus");
                    var userCtrl = (UserControl)grid.FindName("MyUserControl");
                    userCtrl.Content  = fishBowl;
                    this.Content      = grid;
                    this.SizeChanged += (os, es) =>
                    {
                        fishBowl.OnSizeChanged();
                    };
                    btnQuit.ToolTip = @"Fish vs Sharks Program by Calvin Hsia
Per A.K. Dewdney article on Wator, December 1984 Scientific American
";
                }
                catch (Exception ex)
                {
                    this.Content = ex.ToString();
                }
            };
        }