From 2f72e3ebd081c86ef22dcb8ff38deadbe91083f2 Mon Sep 17 00:00:00 2001 From: Samson-Mano <60636238+Samson-Mano@users.noreply.github.com> Date: Wed, 8 Dec 2021 13:05:33 -0400 Subject: [PATCH] Add files via upload --- Backup/CBAnsDes.sln | 20 + Backup/CBAnsDes/CBAnsDes.vbproj | 262 +++ Backup/CBAnsDes/CBAnsDes.vbproj.user | 15 + Backup/CBAnsDes/CBAnsDes_TemporaryKey.pfx | Bin 0 -> 1676 bytes .../Child Windows/beamcreate.Designer.vb | 297 +++ Backup/CBAnsDes/Child Windows/beamcreate.resx | 129 ++ Backup/CBAnsDes/Child Windows/beamcreate.vb | 1434 ++++++++++++++ Backup/CBAnsDes/Classes/Member.vb | 240 +++ .../Dialog Windows/Endseditor.Designer.vb | 165 ++ .../CBAnsDes/Dialog Windows/Endseditor.resx | 149 ++ Backup/CBAnsDes/Dialog Windows/Endseditor.vb | 54 + .../GeneralInstruction.Designer.vb | 55 + .../Dialog Windows/GeneralInstruction.resx | 162 ++ .../Dialog Windows/GeneralInstruction.vb | 10 + .../Dialog Windows/LoadWindow.Designer.vb | 558 ++++++ .../CBAnsDes/Dialog Windows/LoadWindow.resx | 152 ++ Backup/CBAnsDes/Dialog Windows/LoadWindow.vb | 642 +++++++ .../Dialog Windows/Newapp.Designer.vb | 310 +++ Backup/CBAnsDes/Dialog Windows/Newapp.resx | 149 ++ Backup/CBAnsDes/Dialog Windows/Newapp.vb | 121 ++ .../Dialog Windows/addmember.Designer.vb | 167 ++ Backup/CBAnsDes/Dialog Windows/addmember.resx | 149 ++ Backup/CBAnsDes/Dialog Windows/addmember.vb | 108 ++ .../Dialog Windows/memDetails.Designer.vb | 60 + .../CBAnsDes/Dialog Windows/memDetails.resx | 149 ++ Backup/CBAnsDes/Dialog Windows/memDetails.vb | 7 + Backup/CBAnsDes/MDIMain.Designer.vb | 799 ++++++++ Backup/CBAnsDes/MDIMain.resx | 435 +++++ Backup/CBAnsDes/MDIMain.vb | 446 +++++ Backup/CBAnsDes/Modules/FEAnalyzer.vb | 1676 +++++++++++++++++ Backup/CBAnsDes/Modules/Indexes.vb | 23 + Backup/CBAnsDes/Modules/SizeController.vb | 30 + .../My Project/Application.Designer.vb | 38 + Backup/CBAnsDes/My Project/Application.myapp | 10 + Backup/CBAnsDes/My Project/AssemblyInfo.vb | 35 + .../CBAnsDes/My Project/Resources.Designer.vb | 154 ++ Backup/CBAnsDes/My Project/Resources.resx | 160 ++ .../CBAnsDes/My Project/Settings.Designer.vb | 73 + Backup/CBAnsDes/My Project/Settings.settings | 7 + Backup/CBAnsDes/My Project/app.manifest | 26 + .../CBAnsDes/Product Info/Aboutus.Designer.vb | 137 ++ Backup/CBAnsDes/Product Info/Aboutus.resx | 158 ++ Backup/CBAnsDes/Product Info/Aboutus.vb | 13 + Backup/CBAnsDes/Product Info/logo.Designer.vb | 131 ++ Backup/CBAnsDes/Product Info/logo.resx | 123 ++ Backup/CBAnsDes/Product Info/logo.vb | 19 + Backup/CBAnsDes/Resources/Logo.jpg | Bin 0 -> 31543 bytes Backup/CBAnsDes/Resources/Slope.png | Bin 0 -> 557 bytes Backup/CBAnsDes/Resources/addload.png | Bin 0 -> 442 bytes Backup/CBAnsDes/Resources/addmember.png | Bin 0 -> 470 bytes Backup/CBAnsDes/Resources/bend.png | Bin 0 -> 578 bytes Backup/CBAnsDes/Resources/bm.png | Bin 0 -> 534 bytes Backup/CBAnsDes/Resources/deletemember.png | Bin 0 -> 408 bytes Backup/CBAnsDes/Resources/editends.png | Bin 0 -> 750 bytes Backup/CBAnsDes/Resources/editmember.png | Bin 0 -> 588 bytes Backup/CBAnsDes/Resources/modifyload.png | Bin 0 -> 723 bytes Backup/CBAnsDes/Resources/removeload.png | Bin 0 -> 508 bytes Backup/CBAnsDes/Resources/removeloads.png | Bin 0 -> 576 bytes Backup/CBAnsDes/Resources/shear.png | Bin 0 -> 666 bytes Backup/CBAnsDes/Text Files/Reference.txt | 240 +++ Repository/conf/authz | 32 + Repository/conf/passwd | 8 + Repository/conf/svnserve.conf | 47 + Repository/db/current | 1 + Repository/db/format | 2 + Repository/db/fs-type | 1 + Repository/db/revprops/0/0 | 5 + Repository/db/revs/0/0 | 11 + Repository/db/txn-current | 1 + 69 files changed, 10405 insertions(+) create mode 100644 Backup/CBAnsDes.sln create mode 100644 Backup/CBAnsDes/CBAnsDes.vbproj create mode 100644 Backup/CBAnsDes/CBAnsDes.vbproj.user create mode 100644 Backup/CBAnsDes/CBAnsDes_TemporaryKey.pfx create mode 100644 Backup/CBAnsDes/Child Windows/beamcreate.Designer.vb create mode 100644 Backup/CBAnsDes/Child Windows/beamcreate.resx create mode 100644 Backup/CBAnsDes/Child Windows/beamcreate.vb create mode 100644 Backup/CBAnsDes/Classes/Member.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/Endseditor.Designer.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/Endseditor.resx create mode 100644 Backup/CBAnsDes/Dialog Windows/Endseditor.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/GeneralInstruction.Designer.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/GeneralInstruction.resx create mode 100644 Backup/CBAnsDes/Dialog Windows/GeneralInstruction.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/LoadWindow.Designer.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/LoadWindow.resx create mode 100644 Backup/CBAnsDes/Dialog Windows/LoadWindow.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/Newapp.Designer.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/Newapp.resx create mode 100644 Backup/CBAnsDes/Dialog Windows/Newapp.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/addmember.Designer.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/addmember.resx create mode 100644 Backup/CBAnsDes/Dialog Windows/addmember.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/memDetails.Designer.vb create mode 100644 Backup/CBAnsDes/Dialog Windows/memDetails.resx create mode 100644 Backup/CBAnsDes/Dialog Windows/memDetails.vb create mode 100644 Backup/CBAnsDes/MDIMain.Designer.vb create mode 100644 Backup/CBAnsDes/MDIMain.resx create mode 100644 Backup/CBAnsDes/MDIMain.vb create mode 100644 Backup/CBAnsDes/Modules/FEAnalyzer.vb create mode 100644 Backup/CBAnsDes/Modules/Indexes.vb create mode 100644 Backup/CBAnsDes/Modules/SizeController.vb create mode 100644 Backup/CBAnsDes/My Project/Application.Designer.vb create mode 100644 Backup/CBAnsDes/My Project/Application.myapp create mode 100644 Backup/CBAnsDes/My Project/AssemblyInfo.vb create mode 100644 Backup/CBAnsDes/My Project/Resources.Designer.vb create mode 100644 Backup/CBAnsDes/My Project/Resources.resx create mode 100644 Backup/CBAnsDes/My Project/Settings.Designer.vb create mode 100644 Backup/CBAnsDes/My Project/Settings.settings create mode 100644 Backup/CBAnsDes/My Project/app.manifest create mode 100644 Backup/CBAnsDes/Product Info/Aboutus.Designer.vb create mode 100644 Backup/CBAnsDes/Product Info/Aboutus.resx create mode 100644 Backup/CBAnsDes/Product Info/Aboutus.vb create mode 100644 Backup/CBAnsDes/Product Info/logo.Designer.vb create mode 100644 Backup/CBAnsDes/Product Info/logo.resx create mode 100644 Backup/CBAnsDes/Product Info/logo.vb create mode 100644 Backup/CBAnsDes/Resources/Logo.jpg create mode 100644 Backup/CBAnsDes/Resources/Slope.png create mode 100644 Backup/CBAnsDes/Resources/addload.png create mode 100644 Backup/CBAnsDes/Resources/addmember.png create mode 100644 Backup/CBAnsDes/Resources/bend.png create mode 100644 Backup/CBAnsDes/Resources/bm.png create mode 100644 Backup/CBAnsDes/Resources/deletemember.png create mode 100644 Backup/CBAnsDes/Resources/editends.png create mode 100644 Backup/CBAnsDes/Resources/editmember.png create mode 100644 Backup/CBAnsDes/Resources/modifyload.png create mode 100644 Backup/CBAnsDes/Resources/removeload.png create mode 100644 Backup/CBAnsDes/Resources/removeloads.png create mode 100644 Backup/CBAnsDes/Resources/shear.png create mode 100644 Backup/CBAnsDes/Text Files/Reference.txt create mode 100644 Repository/conf/authz create mode 100644 Repository/conf/passwd create mode 100644 Repository/conf/svnserve.conf create mode 100644 Repository/db/current create mode 100644 Repository/db/format create mode 100644 Repository/db/fs-type create mode 100644 Repository/db/revprops/0/0 create mode 100644 Repository/db/revs/0/0 create mode 100644 Repository/db/txn-current diff --git a/Backup/CBAnsDes.sln b/Backup/CBAnsDes.sln new file mode 100644 index 0000000..f8c9a0d --- /dev/null +++ b/Backup/CBAnsDes.sln @@ -0,0 +1,20 @@ + +Microsoft Visual Studio Solution File, Format Version 10.00 +# Visual Basic Express 2008 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CBAnsDes", "CBAnsDes\CBAnsDes.vbproj", "{D3EB070D-E715-4618-889F-8B4F971FFC4D}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {D3EB070D-E715-4618-889F-8B4F971FFC4D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {D3EB070D-E715-4618-889F-8B4F971FFC4D}.Debug|Any CPU.Build.0 = Debug|Any CPU + {D3EB070D-E715-4618-889F-8B4F971FFC4D}.Release|Any CPU.ActiveCfg = Release|Any CPU + {D3EB070D-E715-4618-889F-8B4F971FFC4D}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/Backup/CBAnsDes/CBAnsDes.vbproj b/Backup/CBAnsDes/CBAnsDes.vbproj new file mode 100644 index 0000000..d5505fa --- /dev/null +++ b/Backup/CBAnsDes/CBAnsDes.vbproj @@ -0,0 +1,262 @@ + + + + Debug + AnyCPU + 9.0.21022 + 2.0 + {D3EB070D-E715-4618-889F-8B4F971FFC4D} + WinExe + CBAnsDes.My.MyApplication + CBAnsDes + CBAnsDes + 512 + WindowsForms + v2.0 + On + Binary + Off + On + false + My Project\app.manifest + C19F05FED5FDBA8EB1176A0CC2655CAA3DF6F7CF + CBAnsDes_TemporaryKey.pfx + true + LocalIntranet + true + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + https://sites.google.com/site/samsoninfinite/home/beam-analyzer + Continuous Beam Analyzer + Samson Mano + www.innx-finite.com + false + 1 + 1.0.0.%2a + false + true + + + true + full + true + true + bin\Debug\ + CBAnsDes.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + pdbonly + false + true + true + bin\Release\ + CBAnsDes.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + + + + + + + + + + + + + + + + beamcreate.vb + + + Form + + + + addmember.vb + + + Form + + + Endseditor.vb + + + Form + + + GeneralInstruction.vb + + + Form + + + LoadWindow.vb + + + Form + + + memDetails.vb + + + Form + + + Newapp.vb + + + Form + + + + Aboutus.vb + + + Form + + + logo.vb + + + Form + + + MDIMain.vb + + + Form + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + beamcreate.vb + Designer + + + addmember.vb + Designer + + + Endseditor.vb + Designer + + + GeneralInstruction.vb + Designer + + + LoadWindow.vb + Designer + + + memDetails.vb + Designer + + + Newapp.vb + Designer + + + Aboutus.vb + Designer + + + logo.vb + Designer + + + MDIMain.vb + Designer + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + False + .NET Framework 2.0 %28x86%29 + true + + + False + .NET Framework 3.0 %28x86%29 + false + + + False + .NET Framework 3.5 + false + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/CBAnsDes.vbproj.user b/Backup/CBAnsDes/CBAnsDes.vbproj.user new file mode 100644 index 0000000..e50fd5e --- /dev/null +++ b/Backup/CBAnsDes/CBAnsDes.vbproj.user @@ -0,0 +1,15 @@ + + + publish\ + + + + + + + + + en-US + false + + \ No newline at end of file diff --git a/Backup/CBAnsDes/CBAnsDes_TemporaryKey.pfx b/Backup/CBAnsDes/CBAnsDes_TemporaryKey.pfx new file mode 100644 index 0000000000000000000000000000000000000000..d4e77c06e1325304a92bba49878375f102eb1998 GIT binary patch literal 1676 zcmY*YdpMM78-M1VgUsx(&E`C5mQ;q(49h5oa>$_=3AG#J&`_qYWio?R2_vG^Sgftd zp)d{QFk~q-(K6+b#wObOB&4@H95(5`!XKh?(FO35BQW&^oUZg;d3e0=vAMqIOQ zo?h~G`*a9;GS(8u4BE8syi@~h-so27u%2#s> z@`KX)SDPVEgR8ry3MLe_^hDP#FX4^L7>XSG@N|4=@hv>Qf<+p`+T;M=e zdVN{_`G7R1`DlFwBz)&HavoD%I&X7-SKiIa-s>l2?>=0*5yoa)T%lq2C!A9&(rt;A zhhM987$jzDKdagbSbYP=$Odt6v5~@a_}91iCRw%7W>lLud*H&Cx^!FnP)nwVk}zN3 zH>u0#6bPF`P7fuc1iT-tXVOLLS6ip0%{~u(6!(GR0 zot%o?tLQ~>w5xweZL^%PqrRUQ{>koyY4;Dz&9+c1EBHua`Qgg$*$wQMKR?J0*Odr! z=dAXR#iKNsAS=D?mKMvwwamB2}wR=e4a0{WLcO|aLd}vb#pOtn`5~w(`JIPy;D(TYMwHM0~ zSQmJT6f70nw^cCZcAcr-Le@2*9$g}#3CyQ9u73aFL8)s4@b)uLhauv~Y|L+r!p>L9 zgRefa$HLFV=B;9zMoKkq43}7N#uxA#-neQswRI?Jo**8bTvLMFX!0afcryS|`Q~Dd zzb&Pr1vwvEDsa!!sCq_!nS4MlUu-QnJB2RSs7yGR@8&T+qjJ~2t|NZ`XFj2?5p7x_ zI6KfV{-6YpV?LWD_i%e9_PkS`tH;Rh*mHV#dne4bJJ!-J%h&9R?cMF`;-+x)#K1jB ze-qyvi+8w@$D>aejWx@Re!rx|UN^g;Goc44u@B0Yc_97Qk+PwIp z=N>eLZ%ORKD-`2cCkVGvXTB=>p8tgMiruJ zUV?Pn8D8z6?&?4{Y>8rFG3|m8*1gOlp4*bfs54Zr7qRx)mVe7VKYN0*Z#bn`KlZhm zXP-(Yz4 literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Child Windows/beamcreate.Designer.vb b/Backup/CBAnsDes/Child Windows/beamcreate.Designer.vb new file mode 100644 index 0000000..73bb2f1 --- /dev/null +++ b/Backup/CBAnsDes/Child Windows/beamcreate.Designer.vb @@ -0,0 +1,297 @@ + _ +Partial Class beamcreate + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Me.coverpic = New System.Windows.Forms.Panel + Me.respic = New System.Windows.Forms.Panel + Me.mainpic = New System.Windows.Forms.Panel + Me.HScrollBar1 = New System.Windows.Forms.HScrollBar + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.AddMemberToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.EditEndsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator + Me.EditMemebrToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.RemoveMemberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.AddLoadToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.RemoveLoadsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.AddMemberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.EditEndsToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.EditLoadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.RemoveLoadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.BendingMomentToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ShearForceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.DeflectionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.SlopeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.coverpic.SuspendLayout() + Me.mainpic.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.ContextMenuStrip2.SuspendLayout() + Me.ContextMenuStrip3.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'coverpic + ' + Me.coverpic.BackColor = System.Drawing.Color.WhiteSmoke + Me.coverpic.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.coverpic.Controls.Add(Me.respic) + Me.coverpic.Controls.Add(Me.mainpic) + Me.coverpic.Dock = System.Windows.Forms.DockStyle.Fill + Me.coverpic.Location = New System.Drawing.Point(0, 0) + Me.coverpic.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.coverpic.Name = "coverpic" + Me.coverpic.Size = New System.Drawing.Size(988, 535) + Me.coverpic.TabIndex = 0 + ' + 'respic + ' + Me.respic.BackColor = System.Drawing.Color.WhiteSmoke + Me.respic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.respic.Location = New System.Drawing.Point(148, 431) + Me.respic.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.respic.Name = "respic" + Me.respic.Size = New System.Drawing.Size(219, 54) + Me.respic.TabIndex = 1 + ' + 'mainpic + ' + Me.mainpic.BackColor = System.Drawing.Color.WhiteSmoke + Me.mainpic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.mainpic.Controls.Add(Me.PictureBox1) + Me.mainpic.Location = New System.Drawing.Point(12, 14) + Me.mainpic.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.mainpic.Name = "mainpic" + Me.mainpic.Size = New System.Drawing.Size(878, 409) + Me.mainpic.TabIndex = 0 + ' + 'HScrollBar1 + ' + Me.HScrollBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.HScrollBar1.Location = New System.Drawing.Point(1, 508) + Me.HScrollBar1.Name = "HScrollBar1" + Me.HScrollBar1.Size = New System.Drawing.Size(959, 20) + Me.HScrollBar1.TabIndex = 1 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.VScrollBar1.Location = New System.Drawing.Point(957, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 508) + Me.VScrollBar1.TabIndex = 2 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddMemberToolStripMenuItem1, Me.EditEndsToolStripMenuItem, Me.ToolStripSeparator9, Me.EditMemebrToolStripMenuItem, Me.RemoveMemberToolStripMenuItem, Me.AddLoadToolStripMenuItem1, Me.RemoveLoadsToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(193, 154) + ' + 'AddMemberToolStripMenuItem1 + ' + Me.AddMemberToolStripMenuItem1.Image = Global.CBAnsDes.My.Resources.Resources.addmember + Me.AddMemberToolStripMenuItem1.Name = "AddMemberToolStripMenuItem1" + Me.AddMemberToolStripMenuItem1.Size = New System.Drawing.Size(192, 24) + Me.AddMemberToolStripMenuItem1.Text = "Add Member" + ' + 'EditEndsToolStripMenuItem + ' + Me.EditEndsToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.editends + Me.EditEndsToolStripMenuItem.Name = "EditEndsToolStripMenuItem" + Me.EditEndsToolStripMenuItem.Size = New System.Drawing.Size(192, 24) + Me.EditEndsToolStripMenuItem.Text = "Edit Ends" + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(189, 6) + ' + 'EditMemebrToolStripMenuItem + ' + Me.EditMemebrToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.editmember + Me.EditMemebrToolStripMenuItem.Name = "EditMemebrToolStripMenuItem" + Me.EditMemebrToolStripMenuItem.Size = New System.Drawing.Size(192, 24) + Me.EditMemebrToolStripMenuItem.Text = "Edit Memebr" + ' + 'RemoveMemberToolStripMenuItem + ' + Me.RemoveMemberToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.deletemember + Me.RemoveMemberToolStripMenuItem.Name = "RemoveMemberToolStripMenuItem" + Me.RemoveMemberToolStripMenuItem.Size = New System.Drawing.Size(192, 24) + Me.RemoveMemberToolStripMenuItem.Text = "Remove Member" + ' + 'AddLoadToolStripMenuItem1 + ' + Me.AddLoadToolStripMenuItem1.Image = Global.CBAnsDes.My.Resources.Resources.addload + Me.AddLoadToolStripMenuItem1.Name = "AddLoadToolStripMenuItem1" + Me.AddLoadToolStripMenuItem1.Size = New System.Drawing.Size(192, 24) + Me.AddLoadToolStripMenuItem1.Text = "Add Load" + ' + 'RemoveLoadsToolStripMenuItem + ' + Me.RemoveLoadsToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.removeloads + Me.RemoveLoadsToolStripMenuItem.Name = "RemoveLoadsToolStripMenuItem" + Me.RemoveLoadsToolStripMenuItem.Size = New System.Drawing.Size(192, 24) + Me.RemoveLoadsToolStripMenuItem.Text = "Remove Loads" + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddMemberToolStripMenuItem, Me.EditEndsToolStripMenuItem1, Me.ToolStripSeparator1, Me.EditLoadToolStripMenuItem, Me.RemoveLoadToolStripMenuItem}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip2" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(170, 106) + ' + 'AddMemberToolStripMenuItem + ' + Me.AddMemberToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.addmember + Me.AddMemberToolStripMenuItem.Name = "AddMemberToolStripMenuItem" + Me.AddMemberToolStripMenuItem.Size = New System.Drawing.Size(169, 24) + Me.AddMemberToolStripMenuItem.Text = "Add Member" + ' + 'EditEndsToolStripMenuItem1 + ' + Me.EditEndsToolStripMenuItem1.Image = Global.CBAnsDes.My.Resources.Resources.editends + Me.EditEndsToolStripMenuItem1.Name = "EditEndsToolStripMenuItem1" + Me.EditEndsToolStripMenuItem1.Size = New System.Drawing.Size(169, 24) + Me.EditEndsToolStripMenuItem1.Text = "Edit Ends" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(166, 6) + ' + 'EditLoadToolStripMenuItem + ' + Me.EditLoadToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.modifyload + Me.EditLoadToolStripMenuItem.Name = "EditLoadToolStripMenuItem" + Me.EditLoadToolStripMenuItem.Size = New System.Drawing.Size(169, 24) + Me.EditLoadToolStripMenuItem.Text = "Edit Load" + ' + 'RemoveLoadToolStripMenuItem + ' + Me.RemoveLoadToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.removeload + Me.RemoveLoadToolStripMenuItem.Name = "RemoveLoadToolStripMenuItem" + Me.RemoveLoadToolStripMenuItem.Size = New System.Drawing.Size(169, 24) + Me.RemoveLoadToolStripMenuItem.Text = "Remove Load" + ' + 'ContextMenuStrip3 + ' + Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BendingMomentToolStripMenuItem, Me.ShearForceToolStripMenuItem, Me.DeflectionToolStripMenuItem, Me.SlopeToolStripMenuItem}) + Me.ContextMenuStrip3.Name = "ContextMenuStrip3" + Me.ContextMenuStrip3.Size = New System.Drawing.Size(194, 100) + ' + 'BendingMomentToolStripMenuItem + ' + Me.BendingMomentToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.bm + Me.BendingMomentToolStripMenuItem.Name = "BendingMomentToolStripMenuItem" + Me.BendingMomentToolStripMenuItem.Size = New System.Drawing.Size(193, 24) + Me.BendingMomentToolStripMenuItem.Text = "Bending Moment" + ' + 'ShearForceToolStripMenuItem + ' + Me.ShearForceToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.shear + Me.ShearForceToolStripMenuItem.Name = "ShearForceToolStripMenuItem" + Me.ShearForceToolStripMenuItem.Size = New System.Drawing.Size(193, 24) + Me.ShearForceToolStripMenuItem.Text = "Shear Force" + ' + 'DeflectionToolStripMenuItem + ' + Me.DeflectionToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.bend + Me.DeflectionToolStripMenuItem.Name = "DeflectionToolStripMenuItem" + Me.DeflectionToolStripMenuItem.Size = New System.Drawing.Size(193, 24) + Me.DeflectionToolStripMenuItem.Text = "Deflection" + ' + 'SlopeToolStripMenuItem + ' + Me.SlopeToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.Slope + Me.SlopeToolStripMenuItem.Name = "SlopeToolStripMenuItem" + Me.SlopeToolStripMenuItem.Size = New System.Drawing.Size(193, 24) + Me.SlopeToolStripMenuItem.Text = "Slope" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.Transparent + Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PictureBox1.Enabled = False + Me.PictureBox1.Location = New System.Drawing.Point(0, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(876, 407) + Me.PictureBox1.TabIndex = 0 + Me.PictureBox1.TabStop = False + ' + 'beamcreate + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.ClientSize = New System.Drawing.Size(988, 535) + Me.Controls.Add(Me.VScrollBar1) + Me.Controls.Add(Me.HScrollBar1) + Me.Controls.Add(Me.coverpic) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None + Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.MinimumSize = New System.Drawing.Size(533, 369) + Me.Name = "beamcreate" + Me.Opacity = 0.9 + Me.Text = "beamcreate" + Me.coverpic.ResumeLayout(False) + Me.mainpic.ResumeLayout(False) + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ContextMenuStrip2.ResumeLayout(False) + Me.ContextMenuStrip3.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents coverpic As System.Windows.Forms.Panel + Friend WithEvents HScrollBar1 As System.Windows.Forms.HScrollBar + Friend WithEvents mainpic As System.Windows.Forms.Panel + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents AddMemberToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents EditEndsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents EditMemebrToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents RemoveMemberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AddLoadToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents RemoveLoadsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents EditLoadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents RemoveLoadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents respic As System.Windows.Forms.Panel + Friend WithEvents AddMemberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents EditEndsToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ContextMenuStrip3 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents BendingMomentToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShearForceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DeflectionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SlopeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox +End Class diff --git a/Backup/CBAnsDes/Child Windows/beamcreate.resx b/Backup/CBAnsDes/Child Windows/beamcreate.resx new file mode 100644 index 0000000..9516c5a --- /dev/null +++ b/Backup/CBAnsDes/Child Windows/beamcreate.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 174, 17 + + + 320, 17 + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Child Windows/beamcreate.vb b/Backup/CBAnsDes/Child Windows/beamcreate.vb new file mode 100644 index 0000000..61d2c75 --- /dev/null +++ b/Backup/CBAnsDes/Child Windows/beamcreate.vb @@ -0,0 +1,1434 @@ +Public Class beamcreate + Private ht As Single + Private totL As Single + Private _selPL As Member.P + Private _selUL As Member.U + Private _selML As Member.M + Private _tipe As Integer + + Public Property tipe() As Integer + Get + Return _tipe + End Get + Set(ByVal value As Integer) + _tipe = value + End Set + End Property + + Public Property selPL() As Member.P + Get + Return _selPL + End Get + Set(ByVal value As Member.P) + _selPL = value + End Set + End Property + + Public Property selUL() As Member.U + Get + Return _selUL + End Get + Set(ByVal value As Member.U) + _selUL = value + End Set + End Property + + Public Property selML() As Member.M + Get + Return _selML + End Get + Set(ByVal value As Member.M) + _selML = value + End Set + End Property + + Public Property MEheight() As Single + Get + Return ht + End Get + Set(ByVal value As Single) + ht = value + End Set + End Property + + Public Property Tlength() As Single + Get + Return totL + End Get + Set(ByVal value As Single) + totL = value + End Set + End Property + + Private Sub beamcreate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Try + mainpic.Width = 1600 + mainpic.Height = 1600 + respic.Width = 1600 + respic.Height = 1600 + VScrollBar1.Maximum = (1600 - coverpic.Height) / 2 + HScrollBar1.Maximum = (1600 - coverpic.Width) / 2 + 'VScrollBar1.Minimum = 100 + 'HScrollBar1.Minimum = 50 + VScrollBar1.Value = VScrollBar1.Maximum / 2 + HScrollBar1.Value = HScrollBar1.Maximum / 2 + MDIMain.SFlabel.Visible = False + MDIMain.BMlabel.Visible = False + MDIMain.Xlabel.Visible = False + AddHandler Me.SizeChanged, AddressOf sizemonitor + sizemonitor() + Catch ex As Exception + MsgBox("Samson Mano is an Idiot") + End Try + + End Sub + +#Region "Mainpic Events" +#Region "Mainpic Paint Events" + + Private Sub mainpic_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles mainpic.Paint + e.Graphics.ScaleTransform(Zm, Zm) + '---Grids + For i = 0 To 1600 Step 100 + e.Graphics.DrawLine(Pens.Beige, i, 0, i, ht) + e.Graphics.DrawLine(Pens.Beige, 0, i, 1600, i) + 'e.Graphics.DrawString(i, Font, Brushes.Brown, i, ht * (8 / 10)) + Next + paintBeam(e) + paintEnds(e) + paintSupport(e) + paintload(e) + End Sub + + Private Sub paintBeam(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim BeamPen As New System.Drawing.Pen(Color.Blue, 2) + Dim dimpen As New System.Drawing.Pen(Color.CadetBlue, 1.5) + Dim linGrBrush As System.Drawing.Drawing2D.LinearGradientBrush + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + + For Each itm In mem + TotLength = TotLength + itm.spanlength + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + e.Graphics.DrawLine(BeamPen, StDist, ht / 2, StDist + ScaTotLength, ht / 2) + e.Graphics.DrawLine(Pens.CadetBlue, StDist, (ht / 2 + 100), StDist, (ht / 2 + 140)) + + 'e.Graphics.DrawRectangle(Pens.DarkBlue, StDist - 2, (ht / 2) - 2, 4, 4) + 'e.Graphics.FillRectangle(Brushes.DarkBlue, StDist - 2, (ht / 2) - 2, 4, 4) + + Dim Idist As Single = StDist + Dim dist As Single = 0 + For Each itm In mem + dist = dist + itm.spanlength + e.Graphics.DrawLine(Pens.CadetBlue, StDist + (dist * (ScaTotLength / TotLength)), (ht / 2 + 100), StDist + (dist * (ScaTotLength / TotLength)), (ht / 2 + 140)) + 'e.Graphics.DrawRectangle(Pens.DarkBlue, (StDist + (dist * (ScaTotLength / TotLength))) - 2, (ht / 2) - 2, 4, 4) + 'e.Graphics.FillRectangle(Brushes.DarkBlue, (StDist + (dist * (ScaTotLength / TotLength))) - 2, (ht / 2) - 2, 4, 4) + + '---Dimension Line + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(Idist, (ht / 2 + 120)), New Point(StDist + (dist * (ScaTotLength / TotLength)), (ht / 2 + 120)), Color.CadetBlue, Color.Azure) + linGrBrush.SetSigmaBellShape(0.5, 1) + dimpen.Brush = linGrBrush + dimpen.CustomStartCap = adcap + dimpen.CustomEndCap = adcap + e.Graphics.DrawLine(dimpen, Idist, (ht / 2 + 120), StDist + (dist * (ScaTotLength / TotLength)), (ht / 2 + 120)) + Dim R As New System.Drawing.Rectangle((Idist) * Zm, ((ht / 2) - 100) * Zm, ((StDist + (dist * (ScaTotLength / TotLength))) - Idist) * Zm, 140 * Zm) + mem(mem.IndexOf(itm)).rect = R + e.Graphics.DrawString(itm.spanlength, Font, Brushes.DodgerBlue, ((StDist + (dist * (ScaTotLength / TotLength))) + Idist) / 2, (ht / 2 + 115)) + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(Idist, (ht / 2 - 3)), New Point(StDist + (dist * (ScaTotLength / TotLength)), (ht / 2 + 3)), Color.LightBlue, Color.Aqua) + linGrBrush.SetSigmaBellShape(0.5, 0.2) + If selline = mem.IndexOf(itm) Or Tselline = mem.IndexOf(itm) Then + e.Graphics.DrawRectangle(Pens.WhiteSmoke, (Idist), ((ht / 2) - 3), ((StDist + (dist * (ScaTotLength / TotLength))) - Idist), 6) + e.Graphics.FillRectangle(linGrBrush, (Idist), ((ht / 2) - 3), ((StDist + (dist * (ScaTotLength / TotLength))) - Idist), 6) + e.Graphics.DrawLine(BeamPen, (Idist), ht / 2, StDist + (dist * (ScaTotLength / TotLength)), ht / 2) + End If + Idist = StDist + (dist * (ScaTotLength / TotLength)) + Next + End Sub + + Private Sub paintEnds(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + Dim dofpen As New System.Drawing.Pen(Color.Firebrick, 2) + Dim linGrBrush As System.Drawing.Drawing2D.LinearGradientBrush + + For Each itm In mem + TotLength = TotLength + itm.spanlength + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + '----Ends + If ends = 1 Then 'Fixed-Fixed + '---end1 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist - 15, ht / 2), New Point(StDist - 32, ht / 2), Color.Beige, Color.Firebrick) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist - 15, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist - 15, ht / 2 - 35, 15, 70) + '---end2 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist + ScaTotLength, ht / 2), New Point(StDist + ScaTotLength + 15, ht / 2), Color.Beige, Color.Firebrick) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist + ScaTotLength, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist + ScaTotLength, ht / 2 - 35, 15, 70) + ElseIf ends = 2 Then 'Fixed-Free + '---end1 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist - 15, ht / 2), New Point(StDist - 32, ht / 2), Color.Beige, Color.Firebrick) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist - 15, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist - 15, ht / 2 - 35, 15, 70) + + ElseIf ends = 3 Then 'Pinned-Pinned + '---end1 + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 25, StDist + 8, ht / 2 + 25) + '---end2 + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 25, (StDist + ScaTotLength) + 8, ht / 2 + 25) + 'ElseIf ends = 4 Then 'Free-Free + '---- + ElseIf ends = 5 Then 'Fixed-Pinned + '---end1 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist - 15, ht / 2), New Point(StDist - 32, ht / 2), Color.Beige, Color.Firebrick) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist - 15, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist - 15, ht / 2 - 35, 15, 70) + '---end2 + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 25, (StDist + ScaTotLength) + 8, ht / 2 + 25) + ElseIf ends = 6 Then + '---end1 + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 25, StDist + 8, ht / 2 + 25) + End If + End Sub + + Private Sub paintSupport(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim dofpen As New System.Drawing.Pen(Color.Firebrick, 2) + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + + For Each itm In mem + TotLength = TotLength + itm.spanlength + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + Dim dist As Single + For Each itm In mem + dist = dist + itm.spanlength + If mem.IndexOf(itm) = (mem.Count - 1) Then + Exit Sub + End If + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 3, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 3, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 25, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 25) + Next + End Sub + + Private Sub paintload(ByVal e As System.Windows.Forms.PaintEventArgs) + 'Dim linGrBrush As System.Drawing.Drawing2D.LinearGradientBrush + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + Dim maxload As Single = 0 + '----Finding Maximum Load + For Each itm In mem + TotLength = TotLength + itm.spanlength + '----Point Load + For Each Pitm In itm.Pload + If Pitm.pload > maxload Then + maxload = Pitm.pload + End If + Next + '----UVL + For Each Uitm In itm.Uload + If Uitm.uload1 > maxload Then + maxload = Uitm.uload1 + End If + If Uitm.uload2 > maxload Then + maxload = Uitm.uload2 + End If + Next + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + Dim intSTdist As Single = StDist + Dim dist As Single = 0 + + Dim loadpen As System.Drawing.Pen + Dim adcap As System.Drawing.Drawing2D.AdjustableArrowCap + + For Each itm In mem + dist = dist + itm.spanlength + '----UVL + loadpen = New System.Drawing.Pen(Color.DeepPink, 1) + adcap = New System.Drawing.Drawing2D.AdjustableArrowCap(2, 4) + loadpen.CustomStartCap = adcap + Dim j As Integer = itm.Uload.Count - 1 + For i = 0 To j + Dim toSX1 As Single + Dim toSX2 As Single + Dim toSY1 As Single + Dim toSY2 As Single + toSX1 = intSTdist + (itm.Uload(i).udist1 * (ScaTotLength / TotLength)) + toSX2 = intSTdist + (itm.Uload(i).udist2 * (ScaTotLength / TotLength)) + toSY1 = itm.Uload(i).uload1 * (100 / maxload) + toSY2 = itm.Uload(i).uload2 * (100 / maxload) + + If (itm.Uload(i).udist1 = selUL.udist1) And (itm.Uload(i).uload1 = selUL.uload1) And (itm.Uload(i).udist2 = selUL.udist2) And (itm.Uload(i).uload2 = selUL.uload2) Then + loadpen = New System.Drawing.Pen(Color.LightPink, 2) + + e.Graphics.DrawLine(loadpen, toSX1, ht / 2 - 5, toSX1, (ht / 2) - toSY1) + e.Graphics.DrawString(itm.Uload(i).uload1, Font, loadpen.Brush, toSX1, ((ht / 2) - 20) - toSY1) + End If + loadpen = New System.Drawing.Pen(Color.DeepPink, 1) + loadpen.CustomStartCap = adcap + e.Graphics.DrawLine(loadpen, toSX1, (ht / 2), toSX1, (ht / 2) - toSY1) + e.Graphics.DrawString(itm.Uload(i).uload1, Font, loadpen.Brush, toSX1, ((ht / 2) - 20) - toSY1) + + If toSY1 >= toSY2 Then + Dim temp As Member.U + temp.uload1 = itm.Uload(i).uload1 + temp.uload2 = itm.Uload(i).uload2 + temp.udist1 = itm.Uload(i).udist1 + temp.udist2 = itm.Uload(i).udist2 + Dim R As New System.Drawing.Rectangle((toSX1) * Zm, ((ht / 2) - toSY1) * Zm, (toSX2 - toSX1) * Zm, toSY1 * Zm) + temp.rect = R + Dim ind As Integer = i + mem(mem.IndexOf(itm)).Uload.Insert(ind, temp) + mem(mem.IndexOf(itm)).Uload.RemoveAt(ind + 1) + Else + Dim temp As Member.U + temp.uload1 = itm.Uload(i).uload1 + temp.uload2 = itm.Uload(i).uload2 + temp.udist1 = itm.Uload(i).udist1 + temp.udist2 = itm.Uload(i).udist2 + Dim R As New System.Drawing.Rectangle((toSX1) * Zm, ((ht / 2) - toSY2) * Zm, (toSX2 - toSX1) * Zm, toSY2 * Zm) + temp.rect = R + Dim ind As Integer = i + mem(mem.IndexOf(itm)).Uload.Insert(ind, temp) + mem(mem.IndexOf(itm)).Uload.RemoveAt(ind + 1) + End If + + If (itm.Uload(i).udist1 = selUL.udist1) And (itm.Uload(i).uload1 = selUL.uload1) And (itm.Uload(i).udist2 = selUL.udist2) And (itm.Uload(i).uload2 = selUL.uload2) Then + If toSY2 = toSY1 Then + For k = toSX1 To toSX2 Step 10 + loadpen = New System.Drawing.Pen(Color.LightPink, 3) + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1)) + loadpen = New System.Drawing.Pen(Color.DeepPink, 1) + loadpen.CustomStartCap = adcap + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1)) + Next + ElseIf toSY2 > toSY1 Then + For k = toSX1 To toSX2 Step 10 + loadpen = New System.Drawing.Pen(Color.LightPink, 3) + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1 + (((toSY2 - toSY1) / (toSX2 - toSX1)) * (k - toSX1)))) + loadpen = New System.Drawing.Pen(Color.DeepPink, 1) + loadpen.CustomStartCap = adcap + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1 + (((toSY2 - toSY1) / (toSX2 - toSX1)) * (k - toSX1)))) + Next + Else + For k = toSX1 To toSX2 Step 10 + loadpen = New System.Drawing.Pen(Color.LightPink, 3) + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY2 + (((toSY1 - toSY2) / (toSX2 - toSX1)) * (toSX2 - k)))) + loadpen = New System.Drawing.Pen(Color.DeepPink, 1) + loadpen.CustomStartCap = adcap + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY2 + (((toSY1 - toSY2) / (toSX2 - toSX1)) * (toSX2 - k)))) + Next + End If + Else + loadpen = New System.Drawing.Pen(Color.DeepPink, 1) + loadpen.CustomStartCap = adcap + If toSY2 = toSY1 Then + For k = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1)) + Next + ElseIf toSY2 > toSY1 Then + For k = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1 + (((toSY2 - toSY1) / (toSX2 - toSX1)) * (k - toSX1)))) + Next + Else + For k = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY2 + (((toSY1 - toSY2) / (toSX2 - toSX1)) * (toSX2 - k)))) + Next + End If + End If + + + If (itm.Uload(i).udist1 = selUL.udist1) And (itm.Uload(i).uload1 = selUL.uload1) And (itm.Uload(i).udist2 = selUL.udist2) And (itm.Uload(i).uload2 = selUL.uload2) Then + loadpen = New System.Drawing.Pen(Color.LightPink, 2) + e.Graphics.DrawLine(loadpen, toSX2, ht / 2 - 5, toSX2, (ht / 2) - toSY2) + End If + loadpen = New System.Drawing.Pen(Color.DeepPink, 1) + loadpen.CustomStartCap = adcap + e.Graphics.DrawLine(loadpen, toSX2, (ht / 2), toSX2, (ht / 2) - toSY2) + e.Graphics.DrawString(itm.Uload(i).uload2, Font, loadpen.Brush, toSX2, ((ht / 2) - 20) - toSY2) + Next + '----Point Load + j = itm.Pload.Count - 1 + For i = 0 To j + Dim toSX As Single + Dim toSY As Single + toSX = intSTdist + (itm.Pload(i).pdist * (ScaTotLength / TotLength)) + toSY = itm.Pload(i).pload * (100 / maxload) + + Dim temp As Member.P + temp.pload = itm.Pload(i).pload + temp.pdist = itm.Pload(i).pdist + Dim R As New System.Drawing.Rectangle((toSX - 4) * Zm, ((ht / 2) - toSY) * Zm, (8) * Zm, toSY * Zm) + temp.rect = R + Dim ind As Integer = i + mem(mem.IndexOf(itm)).Pload.Insert(ind, temp) + mem(mem.IndexOf(itm)).Pload.RemoveAt(ind + 1) + + If (itm.Pload(i).pdist = selPL.pdist) And (itm.Pload(i).pload = selPL.pload) Then + loadpen = New System.Drawing.Pen(Color.LightGreen, 4) + + e.Graphics.DrawLine(loadpen, toSX, ht / 2 - 5, toSX, (ht / 2) - toSY) + e.Graphics.DrawString(itm.Pload(i).pload, Font, loadpen.Brush, toSX, ((ht / 2) - 20) - toSY) + End If + loadpen = New System.Drawing.Pen(Color.Green, 2) + adcap = New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + loadpen.CustomStartCap = adcap + + e.Graphics.DrawLine(loadpen, toSX, ht / 2, toSX, (ht / 2) - toSY) + e.Graphics.DrawString(itm.Pload(i).pload, Font, loadpen.Brush, toSX, ((ht / 2) - 20) - toSY) + + Next + '----Moment + loadpen = New System.Drawing.Pen(Color.Orange, 2) + adcap = New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + j = itm.Mload.Count - 1 + For i = 0 To j + Dim toSX As Single + toSX = intSTdist + (itm.Mload(i).mdist * (ScaTotLength / TotLength)) + + If (itm.Mload(i).mdist = selML.mdist) And (itm.Mload(i).mload = selML.mload) Then + loadpen = New System.Drawing.Pen(Color.Yellow, 4) + e.Graphics.DrawArc(loadpen, toSX - 30, ((ht / 2) - 30), 60, 60, 270, 180) + End If + loadpen = New System.Drawing.Pen(Color.Orange, 2) + If itm.Mload(i).mload > 0 Then + loadpen.CustomStartCap = adcap + Else + loadpen.CustomEndCap = adcap + End If + + Dim temp As Member.M + temp.mload = itm.Mload(i).mload + temp.mdist = itm.Mload(i).mdist + Dim R As New System.Drawing.Rectangle((toSX) * Zm, ((ht / 2) - 30) * Zm, (30) * Zm, (60) * Zm) + temp.rect = R + Dim ind As Integer = i + mem(mem.IndexOf(itm)).Mload.Insert(ind, temp) + mem(mem.IndexOf(itm)).Mload.RemoveAt(ind + 1) + + e.Graphics.DrawArc(loadpen, toSX - 30, ((ht / 2) - 30), 60, 60, 270, 180) + e.Graphics.DrawString(Math.Abs(itm.Mload(i).mload), Font, loadpen.Brush, toSX, ((ht / 2) - 50)) + Next + intSTdist = StDist + (dist * (ScaTotLength / TotLength)) + Next + '--Check For Load Selection + 'For Each itm In mem + ' For Each Pitm In itm.Pload + ' e.Graphics.DrawRectangle(Pens.DarkRed, Pitm.rect) + ' Next + ' For Each uitm In itm.Uload + ' e.Graphics.DrawRectangle(Pens.DarkRed, uitm.rect) + ' Next + ' For Each mitm In itm.Mload + ' e.Graphics.DrawRectangle(Pens.DarkRed, mitm.rect) + ' Next + 'Next + End Sub + +#End Region + +#Region "Mainpic mouse click events" + Private Sub mainpic_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainpic.MouseClick + '--Null selected load + Dim ptm As New Member.P + Dim utm As New Member.U + Dim mtm As New Member.M + selPL = ptm + selUL = utm + selML = mtm + '---Line Select + If e.Y > (ht / 2 - 5) * Zm Then + Lselline = -1 + If e.Button = Windows.Forms.MouseButtons.Left Then + For Each itm In mem + If itm.rect.Contains(e.X, e.Y) Then + selline = (mem.IndexOf(itm)) + toolstrip1Mod() + mainpic.Refresh() + Exit Sub + End If + Next + ElseIf e.Button = Windows.Forms.MouseButtons.Right Then + For Each itm In mem + If itm.rect.Contains(e.X, e.Y) Then + selline = (mem.IndexOf(itm)) + End If + Next + If selline = -1 Then + AddMemberToolStripMenuItem1.Enabled = True + EditEndsToolStripMenuItem.Enabled = True + EditMemebrToolStripMenuItem.Enabled = False + RemoveMemberToolStripMenuItem.Enabled = False + AddLoadToolStripMenuItem1.Enabled = False + RemoveLoadsToolStripMenuItem.Enabled = False + Else + AddMemberToolStripMenuItem1.Enabled = False + EditEndsToolStripMenuItem.Enabled = False + EditMemebrToolStripMenuItem.Enabled = True + RemoveMemberToolStripMenuItem.Enabled = True + AddLoadToolStripMenuItem1.Enabled = True + RemoveLoadsToolStripMenuItem.Enabled = True + End If + ContextMenuStrip1.Show(mainpic.PointToScreen(e.Location)) + If selline <> -1 Then + mainpic.Refresh() + Exit Sub + End If + End If + Else + selline = -1 + Tselline = -1 + '--Load Selection Procedure + If e.Button = Windows.Forms.MouseButtons.Left Then + For Each itm In mem + If itm.rect.Contains(e.X, e.Y) Then + Lselline = mem.IndexOf(itm) + For Each pitm In itm.Pload + If pitm.rect.Contains(e.X, e.Y) Then + Dim uutm As New Member.U + Dim mmtm As New Member.M + selUL = uutm + selML = mmtm + selPL = pitm + tipe = 1 + toolstrip1Mod() + mainpic.Refresh() + Exit Sub + End If + Next + For Each mitm In itm.Mload + If mitm.rect.Contains(e.X, e.Y) Then + Dim pptm As New Member.P + Dim uutm As New Member.U + selPL = pptm + selUL = uutm + selML = mitm + tipe = 3 + toolstrip1Mod() + mainpic.Refresh() + Exit Sub + End If + Next + For Each uitm In itm.Uload + If uitm.rect.Contains(e.X, e.Y) Then + Dim pptm As New Member.P + Dim mmtm As New Member.M + selPL = pptm + selML = mmtm + selUL = uitm + tipe = 2 + toolstrip1Mod() + mainpic.Refresh() + Exit Sub + End If + Next + selline = -1 + Lselline = -1 + End If + Next + ElseIf e.Button = Windows.Forms.MouseButtons.Right Then + For Each itm In mem + If itm.rect.Contains(e.X, e.Y) Then + Lselline = mem.IndexOf(itm) + For Each pitm In itm.Pload + If pitm.rect.Contains(e.X, e.Y) Then + selPL = pitm + tipe = 1 + GoTo r1 + End If + Next + For Each uitm In itm.Uload + If uitm.rect.Contains(e.X, e.Y) Then + selUL = uitm + tipe = 2 + GoTo r1 + End If + Next + For Each mitm In itm.Mload + If mitm.rect.Contains(e.X, e.Y) Then + selML = mitm + tipe = 3 + GoTo r1 + End If + Next + Lselline = -1 + selline = -1 + Continue For +r1: + mainpic.Refresh() + AddMemberToolStripMenuItem.Enabled = False + EditEndsToolStripMenuItem1.Enabled = False + RemoveLoadToolStripMenuItem.Enabled = True + EditLoadToolStripMenuItem.Enabled = True + ContextMenuStrip2.Show(mainpic.PointToScreen(e.Location)) + Exit Sub + End If + Next + mainpic.Refresh() + AddMemberToolStripMenuItem.Enabled = True + EditEndsToolStripMenuItem1.Enabled = True + RemoveLoadToolStripMenuItem.Enabled = False + EditLoadToolStripMenuItem.Enabled = False + ContextMenuStrip2.Show(mainpic.PointToScreen(e.Location)) + End If + End If + selline = -1 + toolstrip1Mod() + mainpic.Refresh() + End Sub + + Private Sub mainpic_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainpic.MouseDown + If e.Y > (ht / 2 - 5) * Zm Then + Tselline = -1 + selline = -1 + If e.Button = Windows.Forms.MouseButtons.Left Then + For Each itm In mem + If itm.rect.Contains(e.X, e.Y) Then + Tselline = (mem.IndexOf(itm)) + mainpic.Refresh() + Exit Sub + End If + Next + Tselline = -1 + End If + End If + + End Sub + + Private Sub mainpic_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainpic.MouseUp + Try + If e.Y > (ht / 2 - 5) * Zm Then + If e.Button = Windows.Forms.MouseButtons.Left Then + For Each itm In mem + If itm.rect.Contains(e.X, e.Y) Then + If selline = Tselline Or Tselline = -1 Then + Exit Sub + End If + If Tselline > selline Then + mem.Insert(selline, mem(Tselline)) + mem.RemoveAt(Tselline + 1) + Else + mem.Insert(Tselline, mem(selline)) + mem.RemoveAt(selline + 1) + End If + Tselline = -1 + mainpic.Refresh() + Exit Sub + End If + Next + End If + End If + Catch ex As Exception + MsgBox("Error") + End Try + + End Sub + + Public Sub toolstrip1Mod() + If selline = -1 And Lselline = -1 Then + MDIMain.ToolStripButton1.Enabled = True + MDIMain.AddMemberToolStripMenuItem.Enabled = True + MDIMain.ToolStripButton2.Enabled = True + MDIMain.BeamEndsToolStripMenuItem.Enabled = True + MDIMain.ToolStripButton3.Enabled = False + MDIMain.editMemberToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton4.Enabled = False + MDIMain.RemoveMemberToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton5.Enabled = False + MDIMain.AddLoadToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton6.Enabled = False + MDIMain.RemoveLoadsToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton7.Enabled = False + MDIMain.ModifyLoadToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton8.Enabled = False + MDIMain.RemoveLoadToolStripMenuItem.Enabled = False + ElseIf Lselline = -1 Then + MDIMain.ToolStripButton1.Enabled = False + MDIMain.AddMemberToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton2.Enabled = False + MDIMain.BeamEndsToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton3.Enabled = True + MDIMain.editMemberToolStripMenuItem.Enabled = True + MDIMain.ToolStripButton4.Enabled = True + MDIMain.RemoveMemberToolStripMenuItem.Enabled = True + MDIMain.ToolStripButton5.Enabled = True + MDIMain.AddLoadToolStripMenuItem.Enabled = True + MDIMain.ToolStripButton6.Enabled = True + MDIMain.RemoveLoadsToolStripMenuItem.Enabled = True + MDIMain.ToolStripButton7.Enabled = False + MDIMain.ModifyLoadToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton8.Enabled = False + MDIMain.RemoveLoadToolStripMenuItem.Enabled = False + ElseIf Lselline <> -1 Then + MDIMain.ToolStripButton1.Enabled = False + MDIMain.AddMemberToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton2.Enabled = False + MDIMain.BeamEndsToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton3.Enabled = False + MDIMain.editMemberToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton4.Enabled = False + MDIMain.RemoveMemberToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton5.Enabled = False + MDIMain.AddLoadToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton6.Enabled = False + MDIMain.RemoveLoadsToolStripMenuItem.Enabled = False + MDIMain.ToolStripButton7.Enabled = True + MDIMain.ModifyLoadToolStripMenuItem.Enabled = True + MDIMain.ToolStripButton8.Enabled = True + MDIMain.RemoveLoadToolStripMenuItem.Enabled = True + End If + End Sub +#End Region + +#Region "Mainpic Zoom events" + Private Sub mainpic_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles mainpic.MouseEnter + mainpic.Focus() + End Sub + + Private Sub mainpic_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mainpic.MouseLeave + MDIMain.ToolStrip1.Focus() + End Sub + + Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll + mainpic.Left = -(HScrollBar1.Value) + respic.Left = -(HScrollBar1.Value) + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + mainpic.Top = -(VScrollBar1.Value) + respic.Top = -(VScrollBar1.Value) + End Sub + + Private Sub mainpic_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles mainpic.MouseWheel + mainpic.SuspendLayout() + Dim xw, yw As Single + xw = e.X / Zm + yw = e.Y / Zm + If e.Delta > 0 Then + If Zm < 10 Then + Zm = Zm + 0.25 + End If + Else + If Zm > 1 Then + Zm = Zm - 0.25 + End If + End If + mainpic.Refresh() + If e.X <> xw * Zm Then + mainpic.Width = 1600 * Zm + mainpic.Height = ht * Zm + HScrollBar1.Maximum = (1600 * Zm) - coverpic.Width + VScrollBar1.Maximum = (1600 * Zm) - coverpic.Height + + xw = -(mainpic.Left - ((xw * Zm) - e.X)) + yw = -(mainpic.Top - ((yw * Zm) - e.Y)) + + If xw <= HScrollBar1.Minimum Then + mainpic.Left = -1 + HScrollBar1.Value = 50 + ElseIf xw >= HScrollBar1.Maximum Then + mainpic.Left = -HScrollBar1.Maximum + HScrollBar1.Value = HScrollBar1.Maximum + Else + mainpic.Left = -xw + HScrollBar1.Value = xw + End If + mainpic.Refresh() + If yw <= VScrollBar1.Minimum Then + mainpic.Top = -1 + VScrollBar1.Value = 100 + ElseIf yw >= VScrollBar1.Maximum Then + mainpic.Top = -VScrollBar1.Maximum + VScrollBar1.Value = VScrollBar1.Maximum + Else + mainpic.Top = -yw + VScrollBar1.Value = yw + End If + + ' mainpic.Top = -(((ht * Zm) - ht) / 2) + mainpic.Invalidate() + + mainpic.ResumeLayout() + mainpic.Refresh() + MDIMain.ToolStripLabel1.Text = (Zm * 100) & "%" + MDIMain.ToolStripLabel2.Text = (Zm * 100) & "%" + End If + End Sub +#End Region + +#Region "Context menu strip1 Events" + + Private Sub AddMemberToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddMemberToolStripMenuItem1.Click + Dim a As New addmember + a.Text = "Add Member" + a.ShowDialog() + End Sub + + Private Sub EditEndsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditEndsToolStripMenuItem.Click + Dim a As New Ends_Editor + a.ShowDialog() + End Sub + + Private Sub EditMemebrToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditMemebrToolStripMenuItem.Click + Dim a As New addmember + a.TextBox1.Text = mem(selline).spanlength + a.TextBox2.Text = mem(selline).Emodulus + a.TextBox3.Text = mem(selline).Inertia + a.TextBox6.Text = mem(selline).g + a.Text = "Modify Member" + a.ShowDialog() + End Sub + + Private Sub RemoveMemberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveMemberToolStripMenuItem.Click + If ends = 4 And mem.Count = 3 Then + Exit Sub + ElseIf ends = 6 And mem.Count = 2 Then + Exit Sub + End If + If mem.Count <> 1 Then + mem.RemoveAt(selline) + selline = -1 + toolstrip1Mod() + mainpic.Refresh() + End If + End Sub + + Private Sub AddLoadToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddLoadToolStripMenuItem1.Click + Dim a As New LoadWindow(mem(selline).spanlength, selline) + a.ShowDialog() + End Sub + + Private Sub RemoveLoadsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveLoadsToolStripMenuItem.Click + '--ALL Loads Are Removed + mem(selline).Pload.Clear() + mem(selline).Uload.Clear() + mem(selline).Mload.Clear() + + mainpic.Refresh() + End Sub + + Private Sub EditLoadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditLoadToolStripMenuItem.Click + If tipe = 1 Then + Dim a As New LoadWindow(mem(Lselline).spanlength, Lselline, selPL) + a.ShowDialog() + ElseIf tipe = 2 Then + Dim a As New LoadWindow(mem(Lselline).spanlength, Lselline, selUL) + a.ShowDialog() + ElseIf tipe = 3 Then + Dim a As New LoadWindow(mem(Lselline).spanlength, Lselline, selML) + a.ShowDialog() + End If + mainpic.Refresh() + End Sub + + Private Sub RemoveLoadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveLoadToolStripMenuItem.Click + '--Single Load is removed + If tipe = 1 Then + mem(Lselline).Pload.Remove(selPL) + ElseIf tipe = 2 Then + mem(Lselline).Uload.Remove(selUL) + ElseIf tipe = 3 Then + mem(Lselline).Mload.Remove(selML) + End If + '--Null selected load + Dim ptm As New Member.P + Dim utm As New Member.U + Dim mtm As New Member.M + selPL = ptm + selUL = utm + selML = mtm + selline = -1 + Lselline = -1 + toolstrip1Mod() + mainpic.Refresh() + End Sub + + Private Sub AddMemberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddMemberToolStripMenuItem.Click + Dim a As New addmember + a.Text = "Add Member" + a.ShowDialog() + End Sub + + Private Sub EditEndsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditEndsToolStripMenuItem1.Click + Dim a As New Ends_Editor + a.ShowDialog() + End Sub + +#End Region +#End Region + +#Region "Respic Events" +#Region "Respic Paint Events" + Private Sub respic_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles respic.Paint + e.Graphics.ScaleTransform(Zm, Zm) + '---Grids + For i = 0 To 1600 Step 100 + e.Graphics.DrawLine(Pens.Beige, i, 0, i, ht) + e.Graphics.DrawLine(Pens.Beige, 0, i, 1600, i) + 'e.Graphics.DrawString(i, Font, Brushes.Brown, i, ht * (8 / 10)) + Next + rpaintBeam(e) + rpaintEnds(e) + rpaintSupport(e) + rpaintload(e) + + If MDIMain.ShearForceDiagramToolStripMenuItem.Checked = True Then + rShearPaint(e) + ElseIf MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = True Then + rMomentPaint(e) + ElseIf MDIMain.DeflectionToolStripMenuItem.Checked = True Then + rDeflectionPaint(e) + ElseIf MDIMain.SlopeToolStripMenuItem.Checked = True Then + rSlopePaint(e) + End If + End Sub + + Private Sub rpaintBeam(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim BeamPen As New System.Drawing.Pen(Color.LightGray, 2) + Dim dimpen As New System.Drawing.Pen(Color.LightGray, 1.5) + Dim linGrBrush As System.Drawing.Drawing2D.LinearGradientBrush + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + + For Each itm In mem + TotLength = TotLength + itm.spanlength + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + e.Graphics.DrawLine(BeamPen, StDist, ht / 2, StDist + ScaTotLength, ht / 2) + e.Graphics.DrawLine(Pens.LightGray, StDist, (ht / 2 + 100), StDist, (ht / 2 + 140)) + Dim Idist As Single = StDist + Dim dist As Single = 0 + For Each itm In mem + dist = dist + itm.spanlength + '---Dimension Line + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(Idist, (ht / 2 + 120)), New Point(StDist + (dist * (ScaTotLength / TotLength)), (ht / 2 + 120)), Color.LightGray, Color.WhiteSmoke) + linGrBrush.SetSigmaBellShape(0.5, 1) + dimpen.Brush = linGrBrush + dimpen.CustomStartCap = adcap + dimpen.CustomEndCap = adcap + e.Graphics.DrawLine(dimpen, Idist, (ht / 2 + 120), StDist + (dist * (ScaTotLength / TotLength)), (ht / 2 + 120)) + e.Graphics.DrawString(itm.spanlength, Font, Brushes.LightGray, ((StDist + (dist * (ScaTotLength / TotLength))) + Idist) / 2, (ht / 2 + 115)) + Idist = StDist + (dist * (ScaTotLength / TotLength)) + Next + End Sub + + Private Sub rpaintEnds(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + Dim dofpen As New System.Drawing.Pen(Color.LightGray, 2) + Dim linGrBrush As System.Drawing.Drawing2D.LinearGradientBrush + + For Each itm In mem + TotLength = TotLength + itm.spanlength + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + '----Ends + If ends = 1 Then 'Fixed-Fixed + '---end1 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist - 15, ht / 2), New Point(StDist - 32, ht / 2), Color.WhiteSmoke, Color.LightGray) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist - 15, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist - 15, ht / 2 - 35, 15, 70) + '---end2 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist + ScaTotLength, ht / 2), New Point(StDist + ScaTotLength + 15, ht / 2), Color.WhiteSmoke, Color.LightGray) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist + ScaTotLength, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist + ScaTotLength, ht / 2 - 35, 15, 70) + ElseIf ends = 2 Then 'Fixed-Free + '---end1 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist - 15, ht / 2), New Point(StDist - 32, ht / 2), Color.WhiteSmoke, Color.LightGray) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist - 15, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist - 15, ht / 2 - 35, 15, 70) + + ElseIf ends = 3 Then 'Pinned-Pinned + '---end1 + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 25, StDist + 8, ht / 2 + 25) + '---end2 + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 25, (StDist + ScaTotLength) + 8, ht / 2 + 25) + 'ElseIf ends = 4 Then 'Free-Free + '---- + ElseIf ends = 5 Then 'Fixed-Pinned + '---end1 + linGrBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Point(StDist - 15, ht / 2), New Point(StDist - 32, ht / 2), Color.WhiteSmoke, Color.LightGray) + e.Graphics.DrawRectangle(Pens.WhiteSmoke, StDist - 15, ht / 2 - 35, 15, 70) + e.Graphics.FillRectangle(linGrBrush, StDist - 15, ht / 2 - 35, 15, 70) + '---end2 + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 3, (StDist + ScaTotLength) + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) + 8, ht / 2 + 19, (StDist + ScaTotLength), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength), ht / 2 + 19, (StDist + ScaTotLength) + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, (StDist + ScaTotLength) - 8, ht / 2 + 25, (StDist + ScaTotLength) + 8, ht / 2 + 25) + ElseIf ends = 6 Then + '---end1 + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 3, StDist + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist + 8, ht / 2 + 19, StDist, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, StDist, ht / 2 + 19, StDist + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, StDist - 8, ht / 2 + 25, StDist + 8, ht / 2 + 25) + End If + End Sub + + Private Sub rpaintSupport(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim dofpen As New System.Drawing.Pen(Color.LightGray, 2) + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + + For Each itm In mem + TotLength = TotLength + itm.spanlength + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + Dim dist As Single + For Each itm In mem + dist = dist + itm.spanlength + If mem.IndexOf(itm) = (mem.Count - 1) Then + Exit Sub + End If + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 3, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 3, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 19) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 19) + + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 25) + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))), ht / 2 + 19, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 25) + + e.Graphics.DrawLine(dofpen, (StDist + (dist * (ScaTotLength / TotLength))) - 8, ht / 2 + 25, (StDist + (dist * (ScaTotLength / TotLength))) + 8, ht / 2 + 25) + Next + End Sub + + Private Sub rpaintload(ByVal e As System.Windows.Forms.PaintEventArgs) + 'Dim linGrBrush As System.Drawing.Drawing2D.LinearGradientBrush + Dim StDist As Single + Dim ScaTotLength As Single + Dim TotLength As Single = 0 + Dim maxload As Single = 0 + '----Finding Maximum Load + For Each itm In mem + TotLength = TotLength + itm.spanlength + '----Point Load + For Each Pitm In itm.Pload + If Pitm.pload > maxload Then + maxload = Pitm.pload + End If + Next + '----UVL + For Each Uitm In itm.Uload + If Uitm.uload1 > maxload Then + maxload = Uitm.uload1 + End If + If Uitm.uload2 > maxload Then + maxload = Uitm.uload2 + End If + Next + Next + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + + Dim intSTdist As Single = StDist + Dim dist As Single = 0 + + Dim loadpen As System.Drawing.Pen + Dim adcap As System.Drawing.Drawing2D.AdjustableArrowCap + + For Each itm In mem + dist = dist + itm.spanlength + '----UVL + loadpen = New System.Drawing.Pen(Color.LightGray, 1) + adcap = New System.Drawing.Drawing2D.AdjustableArrowCap(2, 4) + loadpen.CustomStartCap = adcap + Dim j As Integer = itm.Uload.Count - 1 + For i = 0 To j + Dim toSX1 As Single + Dim toSX2 As Single + Dim toSY1 As Single + Dim toSY2 As Single + toSX1 = intSTdist + (itm.Uload(i).udist1 * (ScaTotLength / TotLength)) + toSX2 = intSTdist + (itm.Uload(i).udist2 * (ScaTotLength / TotLength)) + toSY1 = itm.Uload(i).uload1 * (100 / maxload) + toSY2 = itm.Uload(i).uload2 * (100 / maxload) + + e.Graphics.DrawLine(loadpen, toSX1, (ht / 2), toSX1, (ht / 2) - toSY1) + e.Graphics.DrawString(itm.Uload(i).uload1, Font, loadpen.Brush, toSX1, ((ht / 2) - 20) - toSY1) + If toSY2 = toSY1 Then + For k = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1)) + Next + ElseIf toSY2 > toSY1 Then + For k = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY1 + (((toSY2 - toSY1) / (toSX2 - toSX1)) * (k - toSX1)))) + Next + Else + For k = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, k, (ht / 2), k, (ht / 2) - (toSY2 + (((toSY1 - toSY2) / (toSX2 - toSX1)) * (toSX2 - k)))) + Next + End If + e.Graphics.DrawLine(loadpen, toSX2, (ht / 2), toSX2, (ht / 2) - toSY2) + e.Graphics.DrawString(itm.Uload(i).uload2, Font, loadpen.Brush, toSX2, ((ht / 2) - 20) - toSY2) + Next + '----Point Load + j = itm.Pload.Count - 1 + loadpen = New System.Drawing.Pen(Color.LightGray, 2) + adcap = New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + loadpen.CustomStartCap = adcap + For i = 0 To j + Dim toSX As Single + Dim toSY As Single + toSX = intSTdist + (itm.Pload(i).pdist * (ScaTotLength / TotLength)) + toSY = itm.Pload(i).pload * (100 / maxload) + + e.Graphics.DrawLine(loadpen, toSX, ht / 2, toSX, (ht / 2) - toSY) + e.Graphics.DrawString(itm.Pload(i).pload, Font, loadpen.Brush, toSX, ((ht / 2) - 20) - toSY) + + Next + '----Moment + loadpen = New System.Drawing.Pen(Color.LightGray, 2) + adcap = New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + j = itm.Mload.Count - 1 + For i = 0 To j + Dim toSX As Single + toSX = intSTdist + (itm.Mload(i).mdist * (ScaTotLength / TotLength)) + If itm.Mload(i).mload > 0 Then + loadpen.CustomStartCap = adcap + Else + loadpen.CustomEndCap = adcap + End If + e.Graphics.DrawArc(loadpen, toSX - 30, ((ht / 2) - 30), 60, 60, 270, 180) + e.Graphics.DrawString(Math.Abs(itm.Mload(i).mload), Font, loadpen.Brush, toSX, ((ht / 2) - 50)) + Next + intSTdist = StDist + (dist * (ScaTotLength / TotLength)) + Next + '--Check For Load Selection + 'For Each itm In mem + ' For Each Pitm In itm.Pload + ' e.Graphics.DrawRectangle(Pens.DarkRed, Pitm.rect) + ' Next + ' For Each uitm In itm.Uload + ' e.Graphics.DrawRectangle(Pens.DarkRed, uitm.rect) + ' Next + ' For Each mitm In itm.Mload + ' e.Graphics.DrawRectangle(Pens.DarkRed, mitm.rect) + ' Next + 'Next + End Sub + + Private Sub rShearPaint(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim PP As New System.Drawing.Pen(Color.CornflowerBlue, 3) + Dim fnt As New Font("Verdana", 14) + e.Graphics.DrawString("Shear Force Diagram", fnt, Brushes.CornflowerBlue, (1600 / 2 - coverpic.Width / 2) + 100, ht / 2 - 260) + e.Graphics.DrawLine(PP, CInt(SFpts(0).X), CInt(Me.MEheight / 2), SFpts(0).X, SFpts(0).Y) + e.Graphics.DrawLines(PP, SFpts) + fnt = New Font("Verdana", 10, FontStyle.Bold) + Dim i As Integer = 0 + For Each pt In SFmaxs + e.Graphics.DrawString(Math.Round(SF(SFMc(i)), 3), fnt, Brushes.CornflowerBlue, pt.X, pt.Y) + i = i + 1 + Next + End Sub + + Private Sub rMomentPaint(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim PP As New System.Drawing.Pen(Color.Crimson, 3) + Dim fnt As Font + fnt = New Font("Verdana", 14) + e.Graphics.DrawString("Bending Moment Diagram", fnt, Brushes.Crimson, (1600 / 2 - coverpic.Width / 2) + 100, ht / 2 - 260) + e.Graphics.DrawLine(PP, CInt(BMpts(0).X), CInt(Me.MEheight / 2), BMpts(0).X, BMpts(0).Y) + e.Graphics.DrawLines(PP, BMpts) + fnt = New Font("Verdana", 10, FontStyle.Bold) + Dim i As Integer = 0 + For Each pt In BMmaxs + e.Graphics.DrawString(Math.Round(BM(BMMc(i)), 3), fnt, Brushes.Crimson, pt.X, pt.Y) + i = i + 1 + Next + End Sub + + Private Sub rDeflectionPaint(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim PP As New System.Drawing.Pen(Color.DarkGreen, 3) + Dim fnt As Font + fnt = New Font("Verdana", 14) + e.Graphics.DrawString("Displacement Diagram", fnt, Brushes.DarkGreen, (1600 / 2 - coverpic.Width / 2) + 100, ht / 2 - 260) + e.Graphics.DrawLines(PP, DEpts) + fnt = New Font("Verdana", 10, FontStyle.Bold) + Dim i As Integer = 0 + For Each pt In DEmaxs + e.Graphics.DrawString(Math.Round(DE(DEMc(i)), 8), fnt, Brushes.DarkGreen, pt.X, pt.Y) + i = i + 1 + Next + End Sub + + Private Sub rSlopePaint(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim PP As New System.Drawing.Pen(Color.DeepPink, 3) + Dim fnt As Font + fnt = New Font("Verdana", 14) + e.Graphics.DrawString("Slope Diagram", fnt, Brushes.DeepPink, (1600 / 2 - coverpic.Width / 2) + 100, ht / 2 - 260) + e.Graphics.DrawLines(PP, SLpts) + fnt = New Font("Verdana", 10, FontStyle.Bold) + Dim i As Integer = 0 + For Each pt In SLmaxs + e.Graphics.DrawString(Math.Round(SL(SLMc(i)), 8), fnt, Brushes.DeepPink, pt.X, pt.Y) + i = i + 1 + Next + End Sub +#End Region + +#Region "Respic Zoom events" + Private Sub respic_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles respic.MouseEnter + respic.Focus() + End Sub + + Private Sub respic_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles respic.MouseLeave + MDIMain.ToolStrip1.Focus() + End Sub + + Private Sub respic_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles respic.MouseWheel + Dim xw, yw As Single + xw = e.X / Zm + yw = e.Y / Zm + If e.Delta > 0 Then + If Zm < 10 Then + Zm = Zm + 0.25 + End If + Else + If Zm > 1 Then + Zm = Zm - 0.25 + End If + End If + If e.X <> xw * Zm Then + respic.Width = 1600 * Zm + respic.Height = ht * Zm + HScrollBar1.Maximum = (1600 * Zm) - coverpic.Width + VScrollBar1.Maximum = (1600 * Zm) - coverpic.Height + + xw = -(respic.Left - ((xw * Zm) - e.X)) + yw = -(respic.Top - ((yw * Zm) - e.Y)) + + If xw <= HScrollBar1.Minimum Then + respic.Left = -1 + HScrollBar1.Value = 50 + ElseIf xw >= HScrollBar1.Maximum Then + respic.Left = -HScrollBar1.Maximum + HScrollBar1.Value = HScrollBar1.Maximum + Else + respic.Left = -xw + HScrollBar1.Value = xw + End If + + If yw <= VScrollBar1.Minimum Then + respic.Top = -1 + VScrollBar1.Value = 100 + ElseIf yw >= VScrollBar1.Maximum Then + respic.Top = -VScrollBar1.Maximum + VScrollBar1.Value = VScrollBar1.Maximum + Else + respic.Top = -yw + VScrollBar1.Value = yw + End If + + ' mainpic.Top = -(((ht * Zm) - ht) / 2) + respic.Refresh() + MDIMain.ToolStripLabel1.Text = (Zm * 100) & "%" + MDIMain.ToolStripLabel2.Text = (Zm * 100) & "%" + End If + End Sub +#End Region + +#Region "Respic Mouse Move Events" + + Private Sub respic_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles respic.MouseMove + Dim StDist As Single + Dim ScaTotLength As Single + + StDist = (1600 / 2 - coverpic.Width / 2) + 100 + ScaTotLength = coverpic.Width - 200 + MDIMain.SFlabel.Visible = False + MDIMain.BMlabel.Visible = False + MDIMain.DELabel.Visible = False + MDIMain.SLLabel.Visible = False + MDIMain.Xlabel.Visible = False + If MDIMain.ShearForceDiagramToolStripMenuItem.Checked = True Then + If ((e.X / Zm) > StDist And (e.X / Zm) < StDist + ScaTotLength) And ((e.Y / Zm) > ht / 2 - 40 And (e.Y / Zm) < ht / 2 + 40) Then + Dim i As Integer = (e.X / Zm) - StDist + MDIMain.SFlabel.Text = Math.Round(SF(i), 4) + MDIMain.SFlabel.Visible = True + MDIMain.Xlabel.Text = Math.Round(((totL / (coverpic.Width - 200)) * i), 3) & " ---> " + MDIMain.Xlabel.Visible = True + End If + ElseIf MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = True Then + If ((e.X / Zm) > StDist And (e.X / Zm) < StDist + ScaTotLength) And ((e.Y / Zm) > ht / 2 - 40 And (e.Y / Zm) < ht / 2 + 40) Then + Dim i As Integer = (e.X / Zm) - StDist + MDIMain.BMlabel.Text = Math.Round(BM(i), 4) + MDIMain.BMlabel.Visible = True + MDIMain.Xlabel.Text = Math.Round(((totL / (coverpic.Width - 200)) * i), 3) & " ---> " + MDIMain.Xlabel.Visible = True + End If + ElseIf MDIMain.DeflectionToolStripMenuItem.Checked = True Then + If ((e.X / Zm) > StDist And (e.X / Zm) < StDist + ScaTotLength) And ((e.Y / Zm) > ht / 2 - 40 And (e.Y / Zm) < ht / 2 + 40) Then + Dim i As Integer = (e.X / Zm) - StDist + MDIMain.DELabel.Text = Math.Round(DE(i), 8) + MDIMain.DELabel.Visible = True + MDIMain.Xlabel.Text = Math.Round(((totL / (coverpic.Width - 200)) * i), 3) & " ---> " + MDIMain.Xlabel.Visible = True + End If + ElseIf MDIMain.SlopeToolStripMenuItem.Checked = True Then + If ((e.X / Zm) > StDist And (e.X / Zm) < StDist + ScaTotLength) And ((e.Y / Zm) > ht / 2 - 40 And (e.Y / Zm) < ht / 2 + 40) Then + Dim i As Integer = (e.X / Zm) - StDist + MDIMain.SLLabel.Text = Math.Round(SL(i), 8) + MDIMain.SLLabel.Visible = True + MDIMain.Xlabel.Text = Math.Round(((totL / (coverpic.Width - 200)) * i), 3) & " ---> " + MDIMain.Xlabel.Visible = True + End If + End If + End Sub +#End Region + +#Region "Respic Mouse Click Events" + Private Sub respic_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles respic.MouseClick + If e.Button = Windows.Forms.MouseButtons.Right Then + ContextMenuStrip3.Show(respic.PointToScreen(e.Location)) + End If + End Sub +#End Region + +#Region "Context Menu 3 Events" + Private Sub BendingMomentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BendingMomentToolStripMenuItem.Click + ' MDIMain.BendingMomentDiagramToolStripMenuItem_Click(sender, e) + If MDIMain.ShearForceDiagramToolStripMenuItem.Checked = True Or MDIMain.DeflectionToolStripMenuItem.Checked = True Or MDIMain.SlopeToolStripMenuItem.Checked = True Then + MDIMain.ShearForceDiagramToolStripMenuItem.Checked = False + MDIMain.DeflectionToolStripMenuItem.Checked = False + MDIMain.SlopeToolStripMenuItem.Checked = False + MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = True + respic.Refresh() + End If + End Sub + + Private Sub ShearForceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShearForceToolStripMenuItem.Click + ' MDIMain.ShearForceDiagramToolStripMenuItem_Click(sender, e) + If MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = True Or MDIMain.DeflectionToolStripMenuItem.Checked = True Or MDIMain.SlopeToolStripMenuItem.Checked = True Then + MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = False + MDIMain.DeflectionToolStripMenuItem.Checked = False + MDIMain.SlopeToolStripMenuItem.Checked = False + MDIMain.ShearForceDiagramToolStripMenuItem.Checked = True + respic.Refresh() + End If + End Sub + + Private Sub DeflectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeflectionToolStripMenuItem.Click + ' MDIMain.DeflectionToolStripMenuItem_Click(sender, e) + If MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = True Or MDIMain.ShearForceDiagramToolStripMenuItem.Checked = True Or MDIMain.SlopeToolStripMenuItem.Checked = False Then + MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = False + MDIMain.ShearForceDiagramToolStripMenuItem.Checked = False + MDIMain.SlopeToolStripMenuItem.Checked = False + MDIMain.DeflectionToolStripMenuItem.Checked = True + respic.Refresh() + End If + End Sub + + Private Sub SlopeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlopeToolStripMenuItem.Click + ' MDIMain.SlopeToolStripMenuItem_Click(sender, e) + If MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = True Or MDIMain.ShearForceDiagramToolStripMenuItem.Checked = True Or MDIMain.DeflectionToolStripMenuItem.Checked = True Then + MDIMain.BendingMomentDiagramToolStripMenuItem.Checked = False + MDIMain.ShearForceDiagramToolStripMenuItem.Checked = False + MDIMain.DeflectionToolStripMenuItem.Checked = False + MDIMain.SlopeToolStripMenuItem.Checked = True + respic.Refresh() + End If + End Sub +#End Region +#End Region + + + +End Class \ No newline at end of file diff --git a/Backup/CBAnsDes/Classes/Member.vb b/Backup/CBAnsDes/Classes/Member.vb new file mode 100644 index 0000000..4a37225 --- /dev/null +++ b/Backup/CBAnsDes/Classes/Member.vb @@ -0,0 +1,240 @@ + + _ +Public Class Member + Private _E As Single + Private _I As Single + Private _g As Single + Private _spanlength As Single + Private _rect As System.Drawing.Rectangle + _ + Public Structure P + Private _pload As Single + Private _pdist As Single + Private _rect As System.Drawing.Rectangle + Public Property pload() As Single + Get + Return _pload + End Get + Set(ByVal value As Single) + _pload = value + End Set + End Property + Public Property pdist() As Single + Get + Return _pdist + End Get + Set(ByVal value As Single) + _pdist = value + End Set + End Property + Public Property rect() As System.Drawing.Rectangle + Get + Return _rect + End Get + Set(ByVal value As System.Drawing.Rectangle) + _rect = value + End Set + End Property + End Structure + _ + Public Structure U + Private _uload1 As Single + Private _uload2 As Single + Private _udist1 As Single + Private _udist2 As Single + Private _rect As System.Drawing.Rectangle + Public Property uload1() As Single + Get + Return _uload1 + End Get + Set(ByVal value As Single) + _uload1 = value + End Set + End Property + Public Property uload2() As Single + Get + Return _uload2 + End Get + Set(ByVal value As Single) + _uload2 = value + End Set + End Property + Public Property udist1() As Single + Get + Return _udist1 + End Get + Set(ByVal value As Single) + _udist1 = value + End Set + End Property + Public Property udist2() As Single + Get + Return _udist2 + End Get + Set(ByVal value As Single) + _udist2 = value + End Set + End Property + Public Property rect() As System.Drawing.Rectangle + Get + Return _rect + End Get + Set(ByVal value As System.Drawing.Rectangle) + _rect = value + End Set + End Property + End Structure + _ + Public Structure M + Private _mload As Single + Private _mdist As Single + Private _rect As System.Drawing.Rectangle + Public Property mload() As Single + Get + Return _mload + End Get + Set(ByVal value As Single) + _mload = value + End Set + End Property + Public Property mdist() As Single + Get + Return _mdist + End Get + Set(ByVal value As Single) + _mdist = value + End Set + End Property + Public Property rect() As System.Drawing.Rectangle + Get + Return _rect + End Get + Set(ByVal value As System.Drawing.Rectangle) + _rect = value + End Set + End Property + End Structure + + Private _pload As New List(Of P) + Private _uload As New List(Of U) + Private _mload As New List(Of M) + + Public DOF(0 To 3) As Boolean + Public FER(0 To 3) As Single + Public stiff(0 To 3, 0 To 3) As Single + Public RES(0 To 3) As Single + Public DISP(0 To 3) As Single + + Private _Fshear As List(Of Single) + Private _Bmoment As List(Of Single) + Private _VDeflection As List(Of Single) + Private _slope As List(Of Single) + + Public Property spanlength() As Single + Get + Return _spanlength + End Get + Set(ByVal value As Single) + _spanlength = value + End Set + End Property + + Public Property Emodulus() As Single + Get + Return _E + End Get + Set(ByVal value As Single) + _E = value + End Set + End Property + + Public Property Inertia() As Single + Get + Return _I + End Get + Set(ByVal value As Single) + _I = value + End Set + End Property + + Public Property g() As Single + Get + Return _g + End Get + Set(ByVal value As Single) + _g = value + End Set + End Property + + Public Property rect() As System.Drawing.Rectangle + Get + Return _rect + End Get + Set(ByVal value As System.Drawing.Rectangle) + _rect = value + End Set + End Property + + Public Property Pload() As List(Of P) + Get + Return _pload + End Get + Set(ByVal value As List(Of P)) + _pload = value + End Set + End Property + + Public Property Uload() As List(Of U) + Get + Return _uload + End Get + Set(ByVal value As List(Of U)) + _uload = value + End Set + End Property + + Public Property Mload() As List(Of M) + Get + Return _mload + End Get + Set(ByVal value As List(Of M)) + _mload = value + End Set + End Property + + Public Property Fshear() As List(Of Single) + Get + Return _Fshear + End Get + Set(ByVal value As List(Of Single)) + _Fshear = value + End Set + End Property + + Public Property Bmoment() As List(Of Single) + Get + Return _Bmoment + End Get + Set(ByVal value As List(Of Single)) + _Bmoment = value + End Set + End Property + + Public Property VDeflection() As List(Of Single) + Get + Return _VDeflection + End Get + Set(ByVal value As List(Of Single)) + _VDeflection = value + End Set + End Property + + Public Property Slope() As List(Of Single) + Get + Return _slope + End Get + Set(ByVal value As List(Of Single)) + _slope = value + End Set + End Property +End Class diff --git a/Backup/CBAnsDes/Dialog Windows/Endseditor.Designer.vb b/Backup/CBAnsDes/Dialog Windows/Endseditor.Designer.vb new file mode 100644 index 0000000..e1f700d --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/Endseditor.Designer.vb @@ -0,0 +1,165 @@ + _ +Partial Class Ends_Editor + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Ends_Editor)) + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.RadioButton6 = New System.Windows.Forms.RadioButton + Me.RadioButton5 = New System.Windows.Forms.RadioButton + Me.RadioButton4 = New System.Windows.Forms.RadioButton + Me.RadioButton3 = New System.Windows.Forms.RadioButton + Me.RadioButton2 = New System.Windows.Forms.RadioButton + Me.RadioButton1 = New System.Windows.Forms.RadioButton + Me.Button_ok = New System.Windows.Forms.Button + Me.Button_cancel = New System.Windows.Forms.Button + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.RadioButton6) + Me.GroupBox1.Controls.Add(Me.RadioButton5) + Me.GroupBox1.Controls.Add(Me.RadioButton4) + Me.GroupBox1.Controls.Add(Me.RadioButton3) + Me.GroupBox1.Controls.Add(Me.RadioButton2) + Me.GroupBox1.Controls.Add(Me.RadioButton1) + Me.GroupBox1.Location = New System.Drawing.Point(12, 12) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(245, 123) + Me.GroupBox1.TabIndex = 4 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "End Condition" + ' + 'RadioButton6 + ' + Me.RadioButton6.AutoSize = True + Me.RadioButton6.Location = New System.Drawing.Point(131, 51) + Me.RadioButton6.Name = "RadioButton6" + Me.RadioButton6.Size = New System.Drawing.Size(82, 17) + Me.RadioButton6.TabIndex = 5 + Me.RadioButton6.TabStop = True + Me.RadioButton6.Text = "Pinned-Free" + Me.RadioButton6.UseVisualStyleBackColor = True + ' + 'RadioButton5 + ' + Me.RadioButton5.AutoSize = True + Me.RadioButton5.Location = New System.Drawing.Point(21, 83) + Me.RadioButton5.Name = "RadioButton5" + Me.RadioButton5.Size = New System.Drawing.Size(92, 17) + Me.RadioButton5.TabIndex = 4 + Me.RadioButton5.TabStop = True + Me.RadioButton5.Text = "Fixed - Pinned" + Me.RadioButton5.UseVisualStyleBackColor = True + ' + 'RadioButton4 + ' + Me.RadioButton4.AutoSize = True + Me.RadioButton4.Location = New System.Drawing.Point(131, 83) + Me.RadioButton4.Name = "RadioButton4" + Me.RadioButton4.Size = New System.Drawing.Size(76, 17) + Me.RadioButton4.TabIndex = 3 + Me.RadioButton4.Text = "Free - Free" + Me.RadioButton4.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(131, 18) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(100, 17) + Me.RadioButton3.TabIndex = 2 + Me.RadioButton3.Text = "Pinned - Pinned" + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Location = New System.Drawing.Point(21, 51) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(80, 17) + Me.RadioButton2.TabIndex = 1 + Me.RadioButton2.Text = "Fixed - Free" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Checked = True + Me.RadioButton1.Location = New System.Drawing.Point(21, 19) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(84, 17) + Me.RadioButton1.TabIndex = 0 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "Fixed - Fixed" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'Button_ok + ' + Me.Button_ok.Location = New System.Drawing.Point(33, 169) + Me.Button_ok.Name = "Button_ok" + Me.Button_ok.Size = New System.Drawing.Size(75, 23) + Me.Button_ok.TabIndex = 5 + Me.Button_ok.Text = "Ok" + Me.Button_ok.UseVisualStyleBackColor = True + ' + 'Button_cancel + ' + Me.Button_cancel.Location = New System.Drawing.Point(144, 169) + Me.Button_cancel.Name = "Button_cancel" + Me.Button_cancel.Size = New System.Drawing.Size(75, 23) + Me.Button_cancel.TabIndex = 6 + Me.Button_cancel.Text = "Cancel" + Me.Button_cancel.UseVisualStyleBackColor = True + ' + 'Ends_Editor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(266, 204) + Me.Controls.Add(Me.Button_cancel) + Me.Controls.Add(Me.Button_ok) + Me.Controls.Add(Me.GroupBox1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "Ends_Editor" + Me.Opacity = 0.7 + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Ends Editor" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + + Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton + Friend WithEvents Button_ok As System.Windows.Forms.Button + Friend WithEvents Button_cancel As System.Windows.Forms.Button +End Class diff --git a/Backup/CBAnsDes/Dialog Windows/Endseditor.resx b/Backup/CBAnsDes/Dialog Windows/Endseditor.resx new file mode 100644 index 0000000..7df02fc --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/Endseditor.resx @@ -0,0 +1,149 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/Endseditor.vb b/Backup/CBAnsDes/Dialog Windows/Endseditor.vb new file mode 100644 index 0000000..0b2c500 --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/Endseditor.vb @@ -0,0 +1,54 @@ +Public Class Ends_Editor + Dim t As New ToolTip + Public Sub New() + + ' This call is required by the Windows Form Designer. + InitializeComponent() + + ' Add any initialization after the InitializeComponent() call. + + End Sub + + '---Check Option Free - Free + Private Sub Ends_Editor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + If mem.Count < 3 Then + RadioButton4.Enabled = False + End If + If mem.Count < 2 Then + RadioButton6.Enabled = False + End If + End Sub + + Private Sub Button_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ok.Click + + Me.Close() + + If RadioButton1.Checked = True Then + ends = 1 'Fixed-Fixed + ElseIf RadioButton2.Checked = True Then + ends = 2 'Fixed-Free + ElseIf RadioButton3.Checked = True Then + ends = 3 'Pinned-Pinned + ElseIf RadioButton4.Checked = True Then + If mem.Count < 3 Then + Exit Sub + End If + ends = 4 'Free-Free + ElseIf RadioButton5.Checked = True Then + ends = 5 'Fixed-Pinned + ElseIf RadioButton6.Checked = True Then 'pinned-free + If mem.Count < 2 Then + Exit Sub + End If + ends = 6 + End If + MDIMain.Focus() + beamcreate.mainpic.Refresh() + End Sub + + Private Sub Button_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_cancel.Click + Me.Close() + MDIMain.Focus() + beamcreate.mainpic.Refresh() + End Sub +End Class \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.Designer.vb b/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.Designer.vb new file mode 100644 index 0000000..d0f207b --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.Designer.vb @@ -0,0 +1,55 @@ + _ +Partial Class GeneralInstruction + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(GeneralInstruction)) + Me.RichTextBox1 = New System.Windows.Forms.RichTextBox + Me.SuspendLayout() + ' + 'RichTextBox1 + ' + Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichTextBox1.Location = New System.Drawing.Point(0, 0) + Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.RichTextBox1.Name = "RichTextBox1" + Me.RichTextBox1.Size = New System.Drawing.Size(654, 320) + Me.RichTextBox1.TabIndex = 0 + Me.RichTextBox1.Text = resources.GetString("RichTextBox1.Text") + ' + 'GeneralInstruction + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(11.0!, 20.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(654, 320) + Me.Controls.Add(Me.RichTextBox1) + Me.Font = New System.Drawing.Font("Verdana", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "GeneralInstruction" + Me.ShowInTaskbar = False + Me.Text = "General Instruction" + Me.ResumeLayout(False) + + End Sub + Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox +End Class diff --git a/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.resx b/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.resx new file mode 100644 index 0000000..c990a66 --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.resx @@ -0,0 +1,162 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ------------------------------------------------------------------------------ +------------------------ General Instruction -------------------------------- +------------------------------------------------------------------------------ +1. Click on the member to select the member for adding load +2. Click on the load to select the load for editing the load or removing the load +3. Click and drag the member to change the location of the member +4. Scroll to zoom +5. If u still have doubt sort it urself or send me a mail <sam@innx-finite.com> +6. Visit www.innx-finite.com for more support and free software products +________________________________________________________ + + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.vb b/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.vb new file mode 100644 index 0000000..22bbeab --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/GeneralInstruction.vb @@ -0,0 +1,10 @@ +Public Class GeneralInstruction + + Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged + + End Sub + + Private Sub GeneralInstruction_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + End Sub +End Class \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/LoadWindow.Designer.vb b/Backup/CBAnsDes/Dialog Windows/LoadWindow.Designer.vb new file mode 100644 index 0000000..694551c --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/LoadWindow.Designer.vb @@ -0,0 +1,558 @@ + _ +Partial Class LoadWindow + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(LoadWindow)) + Me.TabControl1 = New System.Windows.Forms.TabControl + Me.TabPage1 = New System.Windows.Forms.TabPage + Me.Label12 = New System.Windows.Forms.Label + Me.Button7 = New System.Windows.Forms.Button + Me.Button8 = New System.Windows.Forms.Button + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.TrackBar1 = New System.Windows.Forms.TrackBar + Me.Label5 = New System.Windows.Forms.Label + Me.Label4 = New System.Windows.Forms.Label + Me.Label1 = New System.Windows.Forms.Label + Me.TabPage2 = New System.Windows.Forms.TabPage + Me.Label14 = New System.Windows.Forms.Label + Me.Label13 = New System.Windows.Forms.Label + Me.Button4 = New System.Windows.Forms.Button + Me.Button2 = New System.Windows.Forms.Button + Me.TextBox4 = New System.Windows.Forms.TextBox + Me.TrackBar4 = New System.Windows.Forms.TrackBar + Me.Label10 = New System.Windows.Forms.Label + Me.Label11 = New System.Windows.Forms.Label + Me.TextBox3 = New System.Windows.Forms.TextBox + Me.TrackBar3 = New System.Windows.Forms.TrackBar + Me.Label8 = New System.Windows.Forms.Label + Me.Label9 = New System.Windows.Forms.Label + Me.Label2 = New System.Windows.Forms.Label + Me.TabPage3 = New System.Windows.Forms.TabPage + Me.Label15 = New System.Windows.Forms.Label + Me.Button3 = New System.Windows.Forms.Button + Me.Button9 = New System.Windows.Forms.Button + Me.RadioButton2 = New System.Windows.Forms.RadioButton + Me.RadioButton1 = New System.Windows.Forms.RadioButton + Me.TextBox2 = New System.Windows.Forms.TextBox + Me.TrackBar2 = New System.Windows.Forms.TrackBar + Me.Label6 = New System.Windows.Forms.Label + Me.Label7 = New System.Windows.Forms.Label + Me.Label3 = New System.Windows.Forms.Label + Me.Panel1 = New System.Windows.Forms.Panel + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip + Me.EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.UndoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage2.SuspendLayout() + CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage3.SuspendLayout() + CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TabControl1.Location = New System.Drawing.Point(3, 204) + Me.TabControl1.Margin = New System.Windows.Forms.Padding(4) + Me.TabControl1.Multiline = True + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(463, 225) + Me.TabControl1.TabIndex = 0 + ' + 'TabPage1 + ' + Me.TabPage1.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TabPage1.Controls.Add(Me.Label12) + Me.TabPage1.Controls.Add(Me.Button7) + Me.TabPage1.Controls.Add(Me.Button8) + Me.TabPage1.Controls.Add(Me.TextBox1) + Me.TabPage1.Controls.Add(Me.TrackBar1) + Me.TabPage1.Controls.Add(Me.Label5) + Me.TabPage1.Controls.Add(Me.Label4) + Me.TabPage1.Controls.Add(Me.Label1) + Me.TabPage1.ForeColor = System.Drawing.Color.Green + Me.TabPage1.Location = New System.Drawing.Point(4, 26) + Me.TabPage1.Margin = New System.Windows.Forms.Padding(4) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(4) + Me.TabPage1.Size = New System.Drawing.Size(455, 195) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Point Load" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(350, 52) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(17, 17) + Me.Label12.TabIndex = 21 + Me.Label12.Text = "0" + ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(373, 160) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(75, 23) + Me.Button7.TabIndex = 19 + Me.Button7.Text = "Modify" + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(289, 160) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(75, 23) + Me.Button8.TabIndex = 18 + Me.Button8.Text = "ADD" + Me.Button8.UseVisualStyleBackColor = True + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(86, 101) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(54, 24) + Me.TextBox1.TabIndex = 6 + ' + 'TrackBar1 + ' + Me.TrackBar1.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TrackBar1.Location = New System.Drawing.Point(84, 42) + Me.TrackBar1.Name = "TrackBar1" + Me.TrackBar1.Size = New System.Drawing.Size(260, 56) + Me.TrackBar1.TabIndex = 3 + Me.TrackBar1.TickStyle = System.Windows.Forms.TickStyle.TopLeft + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(7, 104) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(76, 17) + Me.Label5.TabIndex = 2 + Me.Label5.Text = "Intensity:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(10, 52) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(73, 17) + Me.Label4.TabIndex = 1 + Me.Label4.Text = "Location:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Verdana", 11.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(7, 4) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 23) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Point Load" + ' + 'TabPage2 + ' + Me.TabPage2.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TabPage2.Controls.Add(Me.Label14) + Me.TabPage2.Controls.Add(Me.Label13) + Me.TabPage2.Controls.Add(Me.Button4) + Me.TabPage2.Controls.Add(Me.Button2) + Me.TabPage2.Controls.Add(Me.TextBox4) + Me.TabPage2.Controls.Add(Me.TrackBar4) + Me.TabPage2.Controls.Add(Me.Label10) + Me.TabPage2.Controls.Add(Me.Label11) + Me.TabPage2.Controls.Add(Me.TextBox3) + Me.TabPage2.Controls.Add(Me.TrackBar3) + Me.TabPage2.Controls.Add(Me.Label8) + Me.TabPage2.Controls.Add(Me.Label9) + Me.TabPage2.Controls.Add(Me.Label2) + Me.TabPage2.ForeColor = System.Drawing.Color.DeepPink + Me.TabPage2.Location = New System.Drawing.Point(4, 26) + Me.TabPage2.Margin = New System.Windows.Forms.Padding(4) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(4) + Me.TabPage2.Size = New System.Drawing.Size(455, 195) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "UVL" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(350, 125) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(17, 17) + Me.Label14.TabIndex = 19 + Me.Label14.Text = "0" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(350, 51) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(17, 17) + Me.Label13.TabIndex = 18 + Me.Label13.Text = "0" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(373, 158) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(75, 23) + Me.Button4.TabIndex = 16 + Me.Button4.Text = "Modify" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(289, 158) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 15 + Me.Button2.Text = "ADD" + Me.Button2.UseVisualStyleBackColor = True + ' + 'TextBox4 + ' + Me.TextBox4.Location = New System.Drawing.Point(97, 156) + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Size = New System.Drawing.Size(54, 24) + Me.TextBox4.TabIndex = 14 + ' + 'TrackBar4 + ' + Me.TrackBar4.Location = New System.Drawing.Point(86, 115) + Me.TrackBar4.Name = "TrackBar4" + Me.TrackBar4.Size = New System.Drawing.Size(258, 56) + Me.TrackBar4.TabIndex = 13 + Me.TrackBar4.TickStyle = System.Windows.Forms.TickStyle.TopLeft + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(9, 163) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(85, 17) + Me.Label10.TabIndex = 12 + Me.Label10.Text = "EIntensity:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(12, 125) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(82, 17) + Me.Label11.TabIndex = 11 + Me.Label11.Text = "ELocation:" + ' + 'TextBox3 + ' + Me.TextBox3.Location = New System.Drawing.Point(95, 86) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(54, 24) + Me.TextBox3.TabIndex = 10 + ' + 'TrackBar3 + ' + Me.TrackBar3.Location = New System.Drawing.Point(84, 41) + Me.TrackBar3.Name = "TrackBar3" + Me.TrackBar3.Size = New System.Drawing.Size(260, 56) + Me.TrackBar3.TabIndex = 9 + Me.TrackBar3.TickStyle = System.Windows.Forms.TickStyle.TopLeft + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(7, 89) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(86, 17) + Me.Label8.TabIndex = 8 + Me.Label8.Text = "SIntensity:" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(10, 51) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(83, 17) + Me.Label9.TabIndex = 7 + Me.Label9.Text = "SLocation:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Verdana", 12.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(7, 4) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(250, 25) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Uniformly Varying Load" + ' + 'TabPage3 + ' + Me.TabPage3.BackColor = System.Drawing.SystemColors.ButtonFace + Me.TabPage3.Controls.Add(Me.Label15) + Me.TabPage3.Controls.Add(Me.Button3) + Me.TabPage3.Controls.Add(Me.Button9) + Me.TabPage3.Controls.Add(Me.RadioButton2) + Me.TabPage3.Controls.Add(Me.RadioButton1) + Me.TabPage3.Controls.Add(Me.TextBox2) + Me.TabPage3.Controls.Add(Me.TrackBar2) + Me.TabPage3.Controls.Add(Me.Label6) + Me.TabPage3.Controls.Add(Me.Label7) + Me.TabPage3.Controls.Add(Me.Label3) + Me.TabPage3.ForeColor = System.Drawing.Color.Orange + Me.TabPage3.Location = New System.Drawing.Point(4, 26) + Me.TabPage3.Margin = New System.Windows.Forms.Padding(4) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(4) + Me.TabPage3.Size = New System.Drawing.Size(455, 195) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "Moment" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(352, 55) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(17, 17) + Me.Label15.TabIndex = 21 + Me.Label15.Text = "0" + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(373, 160) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 23) + Me.Button3.TabIndex = 19 + Me.Button3.Text = "Modify" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(292, 160) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(75, 23) + Me.Button9.TabIndex = 18 + Me.Button9.Text = "ADD" + Me.Button9.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Location = New System.Drawing.Point(338, 112) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(100, 21) + Me.RadioButton2.TabIndex = 13 + Me.RadioButton2.Text = "ClockWise" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Checked = True + Me.RadioButton1.Location = New System.Drawing.Point(187, 112) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(140, 21) + Me.RadioButton1.TabIndex = 12 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "Anti -ClockWise" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'TextBox2 + ' + Me.TextBox2.Location = New System.Drawing.Point(88, 108) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(54, 24) + Me.TextBox2.TabIndex = 10 + ' + 'TrackBar2 + ' + Me.TrackBar2.Location = New System.Drawing.Point(86, 45) + Me.TrackBar2.Name = "TrackBar2" + Me.TrackBar2.Size = New System.Drawing.Size(260, 56) + Me.TrackBar2.TabIndex = 9 + Me.TrackBar2.TickStyle = System.Windows.Forms.TickStyle.TopLeft + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(9, 111) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(76, 17) + Me.Label6.TabIndex = 8 + Me.Label6.Text = "Intensity:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(12, 55) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(73, 17) + Me.Label7.TabIndex = 7 + Me.Label7.Text = "Location:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Verdana", 11.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(7, 4) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(86, 23) + Me.Label3.TabIndex = 0 + Me.Label3.Text = "Moment" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Controls.Add(Me.MenuStrip1) + Me.Panel1.Location = New System.Drawing.Point(3, 3) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(460, 200) + Me.Panel1.TabIndex = 1 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.Transparent + Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PictureBox1.Enabled = False + Me.PictureBox1.Location = New System.Drawing.Point(0, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(456, 196) + Me.PictureBox1.TabIndex = 1 + Me.PictureBox1.TabStop = False + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EditToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 172) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(456, 24) + Me.MenuStrip1.TabIndex = 0 + Me.MenuStrip1.Text = "MenuStrip1" + Me.MenuStrip1.Visible = False + ' + 'EditToolStripMenuItem + ' + Me.EditToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UndoToolStripMenuItem}) + Me.EditToolStripMenuItem.Name = "EditToolStripMenuItem" + Me.EditToolStripMenuItem.Size = New System.Drawing.Size(47, 20) + Me.EditToolStripMenuItem.Text = "Edit" + ' + 'UndoToolStripMenuItem + ' + Me.UndoToolStripMenuItem.Name = "UndoToolStripMenuItem" + Me.UndoToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Z), System.Windows.Forms.Keys) + Me.UndoToolStripMenuItem.Size = New System.Drawing.Size(165, 24) + Me.UndoToolStripMenuItem.Text = "Undo" + ' + 'LoadWindow + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(10.0!, 18.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(469, 429) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.TabControl1) + Me.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Margin = New System.Windows.Forms.Padding(4) + Me.MaximizeBox = False + Me.Name = "LoadWindow" + Me.Opacity = 0.92 + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "LoadWindow" + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents TrackBar1 As System.Windows.Forms.TrackBar + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents TextBox2 As System.Windows.Forms.TextBox + Friend WithEvents TrackBar2 As System.Windows.Forms.TrackBar + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents TextBox4 As System.Windows.Forms.TextBox + Friend WithEvents TrackBar4 As System.Windows.Forms.TrackBar + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents TextBox3 As System.Windows.Forms.TextBox + Friend WithEvents TrackBar3 As System.Windows.Forms.TrackBar + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip + Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents UndoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox +End Class diff --git a/Backup/CBAnsDes/Dialog Windows/LoadWindow.resx b/Backup/CBAnsDes/Dialog Windows/LoadWindow.resx new file mode 100644 index 0000000..0ef83ac --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/LoadWindow.resx @@ -0,0 +1,152 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/LoadWindow.vb b/Backup/CBAnsDes/Dialog Windows/LoadWindow.vb new file mode 100644 index 0000000..3fecaa0 --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/LoadWindow.vb @@ -0,0 +1,642 @@ +Public Class LoadWindow + Private _Clength As Single + Private _maxload As Single + Private _Curline As Integer + Private _CurP As Member.P + Private _CurU As Member.U + Private _CurM As Member.M + Dim H As New List(Of History) + Dim t As System.EventArgs + Dim ob As System.Object + + Private Class History + Public Sub New(ByVal p As Member.P) + pl = p + End Sub + Public Sub New(ByVal u As Member.U) + ul = u + End Sub + Public Sub New(ByVal m As Member.M) + ml = m + End Sub + Private _pl As Member.P + Private _ul As Member.U + Private _ml As Member.M + + Public Property pl() As Member.P + Get + Return _pl + End Get + Set(ByVal value As Member.P) + _pl = value + End Set + End Property + Public Property ul() As Member.U + Get + Return _ul + End Get + Set(ByVal value As Member.U) + _ul = value + End Set + End Property + Public Property ml() As Member.M + Get + Return _ml + End Get + Set(ByVal value As Member.M) + _ml = value + End Set + End Property + End Class + + Public Property maxload() As Single + Get + Return _maxload + End Get + Set(ByVal value As Single) + _maxload = value + End Set + End Property + + Public Property Clength() As Single + Get + Return _Clength + End Get + Set(ByVal value As Single) + _Clength = value + End Set + End Property + + Public Property Curline() As Integer + Get + Return _Curline + End Get + Set(ByVal value As Integer) + _Curline = value + End Set + End Property + + Public Sub New(ByVal L As Single, ByVal C As Integer, ByVal CL As Member.P) + + ' This call is required by the Windows Form Designer. + InitializeComponent() + _Clength = L + _Curline = C + _CurP = CL + Me.Text = "Modify Point Load Window" + Dim GGload As Single = 0 + '----Point Load + For Each Pitm In mem(C).Pload + If GGload < Pitm.pload Then + GGload = Pitm.pload + End If + Next + '----UVL + For Each Uitm In mem(C).Uload + If GGload < Uitm.uload1 Then + GGload = Uitm.uload1 + End If + If GGload < Uitm.uload2 Then + GGload = Uitm.uload2 + End If + Next + If GGload < 10 Then + GGload = 10 + End If + maxload = GGload + + TabControl1.TabPages.Remove(TabPage2) + TabControl1.TabPages.Remove(TabPage3) + Button8.Enabled = False + + TrackBar1.Maximum = mem(Curline).spanlength * 100 + TrackBar1.Value = CL.pdist * 100 + TrackBar1_Scroll(ob, t) + TextBox1.Text = CL.pload + ' Add any initialization after the InitializeComponent() call. + Panel1.Refresh() + End Sub + + Public Sub New(ByVal L As Single, ByVal C As Integer, ByVal CL As Member.U) + + ' This call is required by the Windows Form Designer. + InitializeComponent() + _Clength = L + _Curline = C + _CurU = CL + Me.Text = "Modify UVL Window" + Dim GGload As Single = 0 + '----Point Load + For Each Pitm In mem(C).Pload + If GGload < Pitm.pload Then + GGload = Pitm.pload + End If + Next + '----UVL + For Each Uitm In mem(C).Uload + If GGload < Uitm.uload1 Then + GGload = Uitm.uload1 + End If + If GGload < Uitm.uload2 Then + GGload = Uitm.uload2 + End If + Next + If GGload < 10 Then + GGload = 10 + End If + maxload = GGload + + TabControl1.TabPages.Remove(TabPage1) + TabControl1.TabPages.Remove(TabPage3) + Button2.Enabled = False + + TrackBar3.Maximum = mem(Curline).spanlength * 100 + TrackBar4.Maximum = mem(Curline).spanlength * 100 + TrackBar3.Value = CL.udist1 * 100 + TrackBar4.Value = CL.udist2 * 100 + TrackBar3_Scroll(ob, t) + TrackBar4_Scroll(ob, t) + TextBox3.Text = CL.uload1 + TextBox4.Text = CL.uload2 + ' Add any initialization after the InitializeComponent() call. + Panel1.Refresh() + End Sub + + Public Sub New(ByVal L As Single, ByVal C As Integer, ByVal CL As Member.M) + + ' This call is required by the Windows Form Designer. + InitializeComponent() + _Clength = L + _Curline = C + _CurM = CL + Me.Text = "Modify Moment Window" + Dim GGload As Single = 0 + '----Point Load + For Each Pitm In mem(C).Pload + If GGload < Pitm.pload Then + GGload = Pitm.pload + End If + Next + '----UVL + For Each Uitm In mem(C).Uload + If GGload < Uitm.uload1 Then + GGload = Uitm.uload1 + End If + If GGload < Uitm.uload2 Then + GGload = Uitm.uload2 + End If + Next + If GGload < 10 Then + GGload = 10 + End If + maxload = GGload + + TabControl1.TabPages.Remove(TabPage1) + TabControl1.TabPages.Remove(TabPage2) + Button9.Enabled = False + + TrackBar2.Maximum = mem(Curline).spanlength * 100 + TrackBar2.Value = CL.mdist * 100 + TrackBar2_Scroll(ob, t) + TextBox2.Text = CL.mload + ' Add any initialization after the InitializeComponent() call. + Panel1.Refresh() + End Sub + + Public Sub New(ByVal L As Single, ByVal C As Integer) + + ' This call is required by the Windows Form Designer. + InitializeComponent() + _Clength = L + _Curline = C + Me.Text = "Add Load Window" + Dim GGload As Single = 0 + '----Point Load + For Each Pitm In mem(C).Pload + If GGload < Pitm.pload Then + GGload = Pitm.pload + End If + Next + '----UVL + For Each Uitm In mem(C).Uload + If GGload < Uitm.uload1 Then + GGload = Uitm.uload1 + End If + If GGload < Uitm.uload2 Then + GGload = Uitm.uload2 + End If + Next + If GGload < 10 Then + GGload = 10 + End If + + Button3.Enabled = False + Button4.Enabled = False + Button7.Enabled = False + maxload = GGload + ' Add any initialization after the InitializeComponent() call. + TrackBar1.Maximum = Clength * 100 + TrackBar2.Maximum = Clength * 100 + TrackBar3.Maximum = Clength * 100 + TrackBar4.Maximum = Clength * 100 + TrackBar4.Value = Clength * 100 + TextBox1.Text = 10 + TextBox2.Text = 10 + TextBox3.Text = 10 + TextBox4.Text = 10 + End Sub + +#Region "Track Bar Zone" + + Private Sub LoadWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + Label14.Text = TrackBar4.Value / 100 + AddHandler TabControl1.SelectedIndexChanged, AddressOf MAXl + AddHandler TabControl1.SelectedIndexChanged, AddressOf Panel1.Refresh + AddHandler Me.Button3.Click, AddressOf beamcreate.mainpic.Refresh + AddHandler Me.Button4.Click, AddressOf beamcreate.mainpic.Refresh + AddHandler Me.Button7.Click, AddressOf beamcreate.mainpic.Refresh + End Sub + + Private Sub MAXl() + Dim GGload As Single = 0 + '----Point Load + For Each Pitm In mem(Curline).Pload + If GGload < Pitm.pload Then + GGload = Pitm.pload + End If + Next + '----UVL + For Each Uitm In mem(Curline).Uload + If GGload < Uitm.uload1 Then + GGload = Uitm.uload1 + End If + If GGload < Uitm.uload2 Then + GGload = Uitm.uload2 + End If + Next + If TabControl1.SelectedTab.Contains(Label1) Then + If GGload < Val(TextBox1.Text) Then + GGload = Val(TextBox1.Text) + End If + ElseIf TabControl1.SelectedTab.Contains(Label2) Then + If GGload < Val(TextBox3.Text) Then + GGload = Val(TextBox3.Text) + End If + If GGload < Val(TextBox4.Text) Then + GGload = Val(TextBox4.Text) + End If + End If + maxload = GGload + Panel1.Refresh() + End Sub + +#End Region + +#Region "Panel1 Events" + Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint + paintBeam(e) + paintTl(e) + paintOl(e) + End Sub + + Private Sub paintBeam(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim BeamPen As New System.Drawing.Pen(Color.Blue, 2) + Dim dimpen As New System.Drawing.Pen(Color.CadetBlue, 1.5) + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + + dimpen.CustomStartCap = adcap + dimpen.CustomEndCap = adcap + e.Graphics.DrawLine(BeamPen, 30, 130, 430, 130) + e.Graphics.DrawLine(dimpen, 30, 150, 430, 150) + e.Graphics.DrawString(_Clength, Font, dimpen.Brush, 230, 148) + End Sub + + Private Sub paintTl(ByVal e As System.Windows.Forms.PaintEventArgs) + If TabControl1.SelectedTab.Contains(Label1) Then + paintPointload(e) + ElseIf TabControl1.SelectedTab.Contains(Label2) Then + paintUVL(e) + ElseIf TabControl1.SelectedTab.Contains(Label3) Then + paintMoment(e) + End If + End Sub + + Private Sub paintOl(ByVal e As System.Windows.Forms.PaintEventArgs) + puload(e) + pmload(e) + ppload(e) + End Sub + +#Region "Paint Point load" + Private Sub paintPointload(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim loadpen As New System.Drawing.Pen(Color.Green, 2) + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + Dim toSX As Single + Dim toSY As Single + loadpen.DashStyle = Drawing2D.DashStyle.Dash + loadpen.CustomStartCap = adcap + toSX = 30 + (Val(Label12.Text) * (400 / Clength)) + toSY = Val(TextBox1.Text) * (90 / maxload) + + e.Graphics.DrawLine(loadpen, toSX, 130, toSX, 130 - toSY) + e.Graphics.DrawString(Val(TextBox1.Text), Font, loadpen.Brush, toSX, 110 - toSY) + + End Sub + + Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll + Label12.Text = TrackBar1.Value / 100 + Panel1.Refresh() + End Sub + + Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged + If Val(TextBox1.Text) <= 0 Then + TextBox1.Text = 10 + End If + MAXl() + Panel1.Refresh() + End Sub + + Private Sub ppload(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim loadpen As New System.Drawing.Pen(Color.Green, 2) + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + Dim toSX As Single + Dim toSY As Single + + loadpen.CustomStartCap = adcap + For Each itm In mem(Curline).Pload + toSX = 30 + (itm.pdist * (400 / Clength)) + toSY = itm.pload * (90 / maxload) + + e.Graphics.DrawLine(loadpen, toSX, 130, toSX, 130 - toSY) + e.Graphics.DrawString(itm.pload, Font, loadpen.Brush, toSX, 110 - toSY) + Next + End Sub +#End Region + +#Region "Paint UVL" + + Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll + If TrackBar3.Value >= TrackBar4.Value Then + TrackBar3.Value = TrackBar4.Value - 1 + End If + Label13.Text = (TrackBar3.Value / 100) + Panel1.Refresh() + End Sub + + Private Sub TrackBar4_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar4.Scroll + If TrackBar4.Value <= TrackBar3.Value Then + TrackBar4.Value = TrackBar3.Value + 1 + End If + Label14.Text = TrackBar4.Value / 100 + Panel1.Refresh() + End Sub + + Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged + If Val(TextBox3.Text) <= 0 Then + TextBox3.Text = 10 + End If + MAXl() + Panel1.Refresh() + End Sub + + Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged + If Val(TextBox4.Text) <= 0 Then + TextBox4.Text = 10 + End If + MAXl() + Panel1.Refresh() + End Sub + + Private Sub paintUVL(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim loadpen As New System.Drawing.Pen(Color.DeepPink, 1) + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(2, 4) + Dim toSX1, toSX2 As Single + Dim toSY1, toSY2 As Single + loadpen.DashStyle = Drawing2D.DashStyle.Dash + loadpen.CustomStartCap = adcap + toSX1 = 30 + (Val(Label13.Text) * (400 / Clength)) + toSX2 = 30 + (Val(Label14.Text) * (400 / Clength)) + toSY1 = Val(TextBox3.Text) * (90 / maxload) + toSY2 = Val(TextBox4.Text) * (90 / maxload) + + e.Graphics.DrawLine(loadpen, toSX1, 130, toSX1, 130 - toSY1) + e.Graphics.DrawString(Val(TextBox3.Text), Font, loadpen.Brush, toSX1, 110 - toSY1) + + If toSY2 = toSY1 Then + For i = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, i, 130, i, 130 - (toSY1)) + Next + ElseIf toSY2 > toSY1 Then + For i = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, i, 130, i, 130 - (toSY1 + (((toSY2 - toSY1) / (toSX2 - toSX1)) * (i - toSX1)))) + Next + Else + For i = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, i, 130, i, 130 - (toSY2 + (((toSY1 - toSY2) / (toSX2 - toSX1)) * (toSX2 - i)))) + Next + End If + e.Graphics.DrawLine(loadpen, toSX2, 130, toSX2, 130 - toSY2) + e.Graphics.DrawString(Val(TextBox4.Text), Font, loadpen.Brush, toSX2, 110 - toSY2) + End Sub + + Private Sub puload(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim loadpen As New System.Drawing.Pen(Color.DeepPink, 1) + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(2, 4) + Dim toSX1, toSX2 As Single + Dim toSY1, toSY2 As Single + + loadpen.CustomStartCap = adcap + For Each itm In mem(Curline).Uload + toSX1 = 30 + (itm.udist1 * (400 / Clength)) + toSX2 = 30 + (itm.udist2 * (400 / Clength)) + toSY1 = itm.uload1 * (90 / maxload) + toSY2 = itm.uload2 * (90 / maxload) + + e.Graphics.DrawLine(loadpen, toSX1, 130, toSX1, 130 - toSY1) + e.Graphics.DrawString(itm.uload1, Font, loadpen.Brush, toSX1, 110 - toSY1) + + If toSY2 = toSY1 Then + For i = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, i, 130, i, 130 - (toSY1)) + Next + ElseIf toSY2 > toSY1 Then + For i = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, i, 130, i, 130 - (toSY1 + (((toSY2 - toSY1) / (toSX2 - toSX1)) * (i - toSX1)))) + Next + Else + For i = toSX1 To toSX2 Step 10 + e.Graphics.DrawLine(loadpen, i, 130, i, 130 - (toSY2 + (((toSY1 - toSY2) / (toSX2 - toSX1)) * (toSX2 - i)))) + Next + End If + e.Graphics.DrawLine(loadpen, toSX2, 130, toSX2, 130 - toSY2) + e.Graphics.DrawString(itm.uload2, Font, loadpen.Brush, toSX2, 110 - toSY2) + Next + End Sub +#End Region + +#Region "Paint Moment" + Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll + Label15.Text = TrackBar2.Value / 100 + Panel1.Refresh() + End Sub + + Private Sub paintMoment(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim loadpen As New System.Drawing.Pen(Color.Orange, 2) + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + Dim toSX As Single + loadpen.DashStyle = Drawing2D.DashStyle.Dash + If RadioButton1.Checked = True Then + loadpen.CustomStartCap = adcap + Else + loadpen.CustomEndCap = adcap + End If + + toSX = 30 + (Val(Label15.Text) * (400 / Clength)) + e.Graphics.DrawArc(loadpen, toSX - 15, 115, 30, 30, 270, 180) + e.Graphics.DrawString(Val(TextBox2.Text), Font, loadpen.Brush, toSX, 80) + End Sub + + Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged + Panel1.Refresh() + End Sub + + Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged + Panel1.Refresh() + End Sub + + Private Sub pmload(ByVal e As System.Windows.Forms.PaintEventArgs) + Dim loadpen As New System.Drawing.Pen(Color.Orange, 2) + Dim adcap As New System.Drawing.Drawing2D.AdjustableArrowCap(3, 5) + Dim toSX As Single + + For Each itm In mem(Curline).Mload + If itm.mload > 0 Then + loadpen.CustomStartCap = adcap + Else + loadpen.CustomEndCap = adcap + End If + toSX = 30 + (itm.mdist * (400 / Clength)) + e.Graphics.DrawArc(loadpen, toSX - 15, 115, 30, 30, 270, 180) + e.Graphics.DrawString(Math.Abs(itm.mload), Font, loadpen.Brush, toSX, 80) + Next + End Sub +#End Region +#End Region + +#Region "ADD Events" + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + '--Point Load ADD + Dim temp As Member.P + temp.pload = Val(TextBox1.Text) + temp.pdist = Val(Label12.Text) + + '----chk for conflict + For Each itm In mem(Curline).Pload + If itm.pdist = temp.pdist Then + Exit Sub + End If + Next + mem(Curline).Pload.Add(temp) + Panel1.Refresh() + beamcreate.mainpic.Refresh() + Dim tempH As New History(mem(Curline).Pload(mem(Curline).Pload.Count - 1)) + H.Add(tempH) + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + '--UVL ADD + Dim temp As Member.U + temp.uload1 = Val(TextBox3.Text) + temp.uload2 = Val(TextBox4.Text) + temp.udist1 = Val(Label13.Text) + temp.udist2 = Val(Label14.Text) + '----chk for conflict + For Each itm In mem(Curline).Uload + If itm.udist1 = temp.udist1 And itm.udist2 = temp.udist2 Then + Exit Sub + End If + Next + mem(Curline).Uload.Add(temp) + Panel1.Refresh() + beamcreate.mainpic.Refresh() + Dim tempH As New History(mem(Curline).Uload(mem(Curline).Uload.Count - 1)) + H.Add(tempH) + End Sub + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + '--Moment ADD + Dim temp As Member.M + If RadioButton1.Checked = True Then '---- Clockwise + temp.mload = Val(TextBox2.Text) + Else '---- Anti clockwise + temp.mload = -1 * Val(TextBox2.Text) + End If + + temp.mdist = Val(Label15.Text) + '----chk for conflict + For Each itm In mem(Curline).Mload + If itm.mdist = temp.mdist Then + Exit Sub + End If + Next + mem(Curline).Mload.Add(temp) + Panel1.Refresh() + beamcreate.mainpic.Refresh() + Dim tempH As New History(mem(Curline).Mload(mem(Curline).Mload.Count - 1)) + H.Add(tempH) + End Sub +#End Region + +#Region "Modify Events" + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + '--Point Load MODIFY + Dim temp As Member.P + temp.pload = Val(TextBox1.Text) + temp.pdist = Val(Label12.Text) + mem(Curline).Pload.Insert(mem(Curline).Pload.IndexOf(_CurP), temp) + mem(Curline).Pload.Remove(_CurP) + Me.Close() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + '--UVL MODIFY + Dim temp As Member.U + temp.uload1 = Val(TextBox3.Text) + temp.uload2 = Val(TextBox4.Text) + temp.udist1 = Val(Label13.Text) + temp.udist2 = Val(Label14.Text) + mem(Curline).Uload.Insert(mem(Curline).Uload.IndexOf(_CurU), temp) + mem(Curline).Uload.Remove(_CurU) + Me.Close() + End Sub + + Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + '--Moment MODIFY + Dim temp As Member.M + If RadioButton1.Checked = True Then '---- Clockwise + temp.mload = Val(TextBox2.Text) + Else '---- Anti clockwise + temp.mload = -1 * Val(TextBox2.Text) + End If + temp.mdist = Val(Label15.Text) + mem(Curline).Mload.Insert(mem(Curline).Mload.IndexOf(_CurM), temp) + mem(Curline).Mload.Remove(_CurM) + Me.Close() + End Sub + +#End Region + + Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click + If H.Count <> 0 Then + mem(Curline).Pload.Remove(H(H.Count - 1).pl) + mem(Curline).Uload.Remove(H(H.Count - 1).ul) + mem(Curline).Mload.Remove(H(H.Count - 1).ml) + + H.RemoveAt(H.Count - 1) + Panel1.Refresh() + beamcreate.mainpic.Refresh() + End If + Panel1.Refresh() + End Sub +End Class \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/Newapp.Designer.vb b/Backup/CBAnsDes/Dialog Windows/Newapp.Designer.vb new file mode 100644 index 0000000..71240cd --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/Newapp.Designer.vb @@ -0,0 +1,310 @@ + _ +Partial Class Newapp + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Newapp)) + Me.Label1 = New System.Windows.Forms.Label + Me.Label2 = New System.Windows.Forms.Label + Me.Label3 = New System.Windows.Forms.Label + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.RadioButton6 = New System.Windows.Forms.RadioButton + Me.RadioButton5 = New System.Windows.Forms.RadioButton + Me.RadioButton4 = New System.Windows.Forms.RadioButton + Me.RadioButton3 = New System.Windows.Forms.RadioButton + Me.RadioButton2 = New System.Windows.Forms.RadioButton + Me.RadioButton1 = New System.Windows.Forms.RadioButton + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.TextBox2 = New System.Windows.Forms.TextBox + Me.TextBox3 = New System.Windows.Forms.TextBox + Me.Label5 = New System.Windows.Forms.Label + Me.Label6 = New System.Windows.Forms.Label + Me.TextBox4 = New System.Windows.Forms.TextBox + Me.TextBox5 = New System.Windows.Forms.TextBox + Me.Label4 = New System.Windows.Forms.Label + Me.TextBox6 = New System.Windows.Forms.TextBox + Me.Button_Ok = New System.Windows.Forms.Button + Me.Button_cancel = New System.Windows.Forms.Button + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(38, 15) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(84, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Name Of Work :" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(38, 41) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(114, 13) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Total Length of beam :" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(39, 69) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(73, 13) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "No., of Span :" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.RadioButton6) + Me.GroupBox1.Controls.Add(Me.RadioButton5) + Me.GroupBox1.Controls.Add(Me.RadioButton4) + Me.GroupBox1.Controls.Add(Me.RadioButton3) + Me.GroupBox1.Controls.Add(Me.RadioButton2) + Me.GroupBox1.Controls.Add(Me.RadioButton1) + Me.GroupBox1.Location = New System.Drawing.Point(40, 185) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(245, 123) + Me.GroupBox1.TabIndex = 3 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "End Condition" + ' + 'RadioButton6 + ' + Me.RadioButton6.AutoSize = True + Me.RadioButton6.Location = New System.Drawing.Point(131, 51) + Me.RadioButton6.Name = "RadioButton6" + Me.RadioButton6.Size = New System.Drawing.Size(88, 17) + Me.RadioButton6.TabIndex = 5 + Me.RadioButton6.TabStop = True + Me.RadioButton6.Text = "Pinned - Free" + Me.RadioButton6.UseVisualStyleBackColor = True + ' + 'RadioButton5 + ' + Me.RadioButton5.AutoSize = True + Me.RadioButton5.Location = New System.Drawing.Point(21, 85) + Me.RadioButton5.Name = "RadioButton5" + Me.RadioButton5.Size = New System.Drawing.Size(92, 17) + Me.RadioButton5.TabIndex = 4 + Me.RadioButton5.TabStop = True + Me.RadioButton5.Text = "Fixed - Pinned" + Me.RadioButton5.UseVisualStyleBackColor = True + ' + 'RadioButton4 + ' + Me.RadioButton4.AutoSize = True + Me.RadioButton4.Location = New System.Drawing.Point(131, 85) + Me.RadioButton4.Name = "RadioButton4" + Me.RadioButton4.Size = New System.Drawing.Size(76, 17) + Me.RadioButton4.TabIndex = 3 + Me.RadioButton4.Text = "Free - Free" + Me.RadioButton4.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(131, 18) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(100, 17) + Me.RadioButton3.TabIndex = 2 + Me.RadioButton3.Text = "Pinned - Pinned" + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Location = New System.Drawing.Point(21, 51) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(80, 17) + Me.RadioButton2.TabIndex = 1 + Me.RadioButton2.Text = "Fixed - Free" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Checked = True + Me.RadioButton1.Location = New System.Drawing.Point(21, 19) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(84, 17) + Me.RadioButton1.TabIndex = 0 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "Fixed - Fixed" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(178, 12) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(70, 20) + Me.TextBox1.TabIndex = 5 + Me.TextBox1.Text = "Beam1" + ' + 'TextBox2 + ' + Me.TextBox2.Location = New System.Drawing.Point(179, 39) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(69, 20) + Me.TextBox2.TabIndex = 6 + Me.TextBox2.Text = "10" + ' + 'TextBox3 + ' + Me.TextBox3.Location = New System.Drawing.Point(178, 67) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(70, 20) + Me.TextBox3.TabIndex = 7 + Me.TextBox3.Text = "1" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(38, 97) + Me.Label5.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(119, 13) + Me.Label5.TabIndex = 9 + Me.Label5.Text = "Modulus of Elasticity E :" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(38, 122) + Me.Label6.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(101, 13) + Me.Label6.TabIndex = 10 + Me.Label6.Text = "Moment of Inertia I :" + ' + 'TextBox4 + ' + Me.TextBox4.Location = New System.Drawing.Point(178, 94) + Me.TextBox4.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Size = New System.Drawing.Size(70, 20) + Me.TextBox4.TabIndex = 11 + Me.TextBox4.Text = "20000" + ' + 'TextBox5 + ' + Me.TextBox5.Location = New System.Drawing.Point(178, 119) + Me.TextBox5.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Size = New System.Drawing.Size(71, 20) + Me.TextBox5.TabIndex = 12 + Me.TextBox5.Text = "1" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(9, 150) + Me.Label4.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(161, 13) + Me.Label4.TabIndex = 13 + Me.Label4.Text = "Shear deformation g = (EI/ksAG)" + ' + 'TextBox6 + ' + Me.TextBox6.Location = New System.Drawing.Point(179, 148) + Me.TextBox6.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Size = New System.Drawing.Size(69, 20) + Me.TextBox6.TabIndex = 14 + Me.TextBox6.Text = "0" + ' + 'Button_Ok + ' + Me.Button_Ok.Location = New System.Drawing.Point(37, 328) + Me.Button_Ok.Name = "Button_Ok" + Me.Button_Ok.Size = New System.Drawing.Size(75, 23) + Me.Button_Ok.TabIndex = 15 + Me.Button_Ok.Text = "Ok" + Me.Button_Ok.UseVisualStyleBackColor = True + ' + 'Button_cancel + ' + Me.Button_cancel.Location = New System.Drawing.Point(184, 328) + Me.Button_cancel.Name = "Button_cancel" + Me.Button_cancel.Size = New System.Drawing.Size(75, 23) + Me.Button_cancel.TabIndex = 16 + Me.Button_cancel.Text = "Cancel" + Me.Button_cancel.UseVisualStyleBackColor = True + ' + 'Newapp + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(316, 363) + Me.Controls.Add(Me.Button_cancel) + Me.Controls.Add(Me.Button_Ok) + Me.Controls.Add(Me.TextBox6) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.TextBox5) + Me.Controls.Add(Me.TextBox4) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.TextBox3) + Me.Controls.Add(Me.TextBox2) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "Newapp" + Me.Opacity = 0.7 + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "New" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + + Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents TextBox2 As System.Windows.Forms.TextBox + Friend WithEvents TextBox3 As System.Windows.Forms.TextBox + Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents TextBox4 As System.Windows.Forms.TextBox + Friend WithEvents TextBox5 As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents TextBox6 As System.Windows.Forms.TextBox + Friend WithEvents Button_Ok As System.Windows.Forms.Button + Friend WithEvents Button_cancel As System.Windows.Forms.Button +End Class diff --git a/Backup/CBAnsDes/Dialog Windows/Newapp.resx b/Backup/CBAnsDes/Dialog Windows/Newapp.resx new file mode 100644 index 0000000..7df02fc --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/Newapp.resx @@ -0,0 +1,149 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/Newapp.vb b/Backup/CBAnsDes/Dialog Windows/Newapp.vb new file mode 100644 index 0000000..98d3d83 --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/Newapp.vb @@ -0,0 +1,121 @@ +Public Class Newapp + Dim t As New ToolTip + Private _F As Boolean + + Public Property F() As Boolean + Get + Return _F + End Get + Set(ByVal value As Boolean) + _F = value + End Set + End Property + + + Public Sub New(ByVal FL As Boolean) + + ' This call is required by the Windows Form Designer. + InitializeComponent() + _F = FL + ' Add any initialization after the InitializeComponent() call. + + End Sub + + Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged + If Val(TextBox2.Text) = 0 Then + TextBox2.Text = 10 + End If + End Sub + + Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged + If Val(TextBox3.Text) = 0 Then + TextBox3.Text = 1 + End If + If TextBox3.Text.Contains(".") Then + TextBox3.Text = 1 + End If + End Sub + + Private Sub Newapp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + End Sub + + '---Check Option Free - Free + Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged + If Val(TextBox3.Text) < 3 Then + RadioButton1.Checked = True + End If + End Sub + + Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged + If TextBox1.Text = "" Then + TextBox1.Text = "Beam1" + End If + End Sub + + '---Check Option Pinned - Free + Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged + If Val(TextBox3.Text) < 2 Then + RadioButton1.Checked = True + End If + End Sub + + Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged + If IsNumeric(TextBox4.Text) Then + + Else + TextBox4.Text = "" + End If + End Sub + + Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged + If IsNumeric(TextBox5.Text) Then + + Else + TextBox5.Text = "" + End If + End Sub + + Private Sub Button_Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Ok.Click + If Val(TextBox2.Text) < 0.1 Then + TextBox2.Text = 10 + MsgBox("Sorry Length limited to 0.1 units") + Exit Sub + End If + + Dim nos As Integer + nos = Val(TextBox3.Text) + For i = 0 To (nos - 1) + Dim TEMPmem As New Member + TEMPmem.spanlength = Val(TextBox2.Text) / Val(TextBox3.Text) + TEMPmem.Emodulus = Val(TextBox4.Text) + TEMPmem.Inertia = Val(TextBox5.Text) + TEMPmem.g = Val(TextBox6.Text) + mem.Add(TEMPmem) + Next + If RadioButton1.Checked = True Then + ends = 1 'Fixed-Fixed + ElseIf RadioButton2.Checked = True Then + ends = 2 'Fixed-Free + ElseIf RadioButton3.Checked = True Then + ends = 3 'Pinned-Pinned + ElseIf RadioButton4.Checked = True Then + ends = 4 'Free-Free + ElseIf RadioButton5.Checked = True Then + ends = 5 'Fixed-Pinned + ElseIf RadioButton6.Checked = True Then + ends = 6 'pinned-pinned + End If + + _F = True + Me.Close() + MDIMain.Focus() + beamcreate.mainpic.Refresh() + End Sub + + Private Sub Button_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_cancel.Click + _F = False + Me.Close() + beamcreate.mainpic.Refresh() + End Sub +End Class \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/addmember.Designer.vb b/Backup/CBAnsDes/Dialog Windows/addmember.Designer.vb new file mode 100644 index 0000000..c9a4192 --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/addmember.Designer.vb @@ -0,0 +1,167 @@ + _ +Partial Class addmember + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(addmember)) + Me.Label1 = New System.Windows.Forms.Label + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.TextBox3 = New System.Windows.Forms.TextBox + Me.TextBox2 = New System.Windows.Forms.TextBox + Me.Label6 = New System.Windows.Forms.Label + Me.Label5 = New System.Windows.Forms.Label + Me.TextBox6 = New System.Windows.Forms.TextBox + Me.Label4 = New System.Windows.Forms.Label + Me.Button_ok = New System.Windows.Forms.Button + Me.Button_cancel = New System.Windows.Forms.Button + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(10, 16) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(74, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Span Length :" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(173, 14) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(70, 20) + Me.TextBox1.TabIndex = 1 + Me.TextBox1.Text = "4" + ' + 'TextBox3 + ' + Me.TextBox3.Location = New System.Drawing.Point(173, 63) + Me.TextBox3.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(71, 20) + Me.TextBox3.TabIndex = 16 + Me.TextBox3.Text = "1" + ' + 'TextBox2 + ' + Me.TextBox2.Location = New System.Drawing.Point(173, 37) + Me.TextBox2.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(70, 20) + Me.TextBox2.TabIndex = 15 + Me.TextBox2.Text = "20000" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(9, 65) + Me.Label6.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(101, 13) + Me.Label6.TabIndex = 14 + Me.Label6.Text = "Moment of Inertia I :" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(9, 40) + Me.Label5.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(119, 13) + Me.Label5.TabIndex = 13 + Me.Label5.Text = "Modulus of Elasticity E :" + ' + 'TextBox6 + ' + Me.TextBox6.Location = New System.Drawing.Point(173, 89) + Me.TextBox6.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) + Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Size = New System.Drawing.Size(69, 20) + Me.TextBox6.TabIndex = 18 + Me.TextBox6.Text = "0" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(9, 92) + Me.Label4.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(161, 13) + Me.Label4.TabIndex = 17 + Me.Label4.Text = "Shear deformation g = (EI/ksAG)" + ' + 'Button_ok + ' + Me.Button_ok.Location = New System.Drawing.Point(35, 141) + Me.Button_ok.Name = "Button_ok" + Me.Button_ok.Size = New System.Drawing.Size(75, 23) + Me.Button_ok.TabIndex = 19 + Me.Button_ok.Text = "Ok" + Me.Button_ok.UseVisualStyleBackColor = True + ' + 'Button_cancel + ' + Me.Button_cancel.Location = New System.Drawing.Point(167, 141) + Me.Button_cancel.Name = "Button_cancel" + Me.Button_cancel.Size = New System.Drawing.Size(75, 23) + Me.Button_cancel.TabIndex = 20 + Me.Button_cancel.Text = "Cancel" + Me.Button_cancel.UseVisualStyleBackColor = True + ' + 'addmember + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(268, 176) + Me.Controls.Add(Me.Button_cancel) + Me.Controls.Add(Me.Button_ok) + Me.Controls.Add(Me.TextBox6) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.TextBox3) + Me.Controls.Add(Me.TextBox2) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "addmember" + Me.Opacity = 0.7 + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Add member" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + + Friend WithEvents TextBox3 As System.Windows.Forms.TextBox + Friend WithEvents TextBox2 As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents TextBox6 As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Button_ok As System.Windows.Forms.Button + Friend WithEvents Button_cancel As System.Windows.Forms.Button +End Class diff --git a/Backup/CBAnsDes/Dialog Windows/addmember.resx b/Backup/CBAnsDes/Dialog Windows/addmember.resx new file mode 100644 index 0000000..7df02fc --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/addmember.resx @@ -0,0 +1,149 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/addmember.vb b/Backup/CBAnsDes/Dialog Windows/addmember.vb new file mode 100644 index 0000000..7036e0e --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/addmember.vb @@ -0,0 +1,108 @@ +Public Class addmember + Dim t As New ToolTip + + Public Sub New() + + ' This call is required by the Windows Form Designer. + InitializeComponent() + + ' Add any initialization after the InitializeComponent() call. + If Me.Text = "Modify Member" Then + + End If + End Sub + + Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged + If Val(TextBox1.Text) = 0 Or Val(TextBox1.Text) < 0 Then + TextBox1.Text = 4 + End If + End Sub + + + Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged + If IsNumeric(TextBox2.Text) Then + + Else + TextBox2.Text = "" + End If + End Sub + + Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged + If IsNumeric(TextBox3.Text) Then + + Else + TextBox3.Text = "" + End If + End Sub + + Private Sub Button_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ok.Click + If Val(TextBox1.Text) < 0.1 Then + TextBox1.Text = 10 + MsgBox("Sorry Length limited to 0.1 units") + Exit Sub + End If + + If Me.Text = "Add Member" Then + Dim TEMPmem As New Member + TEMPmem.spanlength = Val(TextBox1.Text) + TEMPmem.Emodulus = Val(TextBox2.Text) + TEMPmem.Inertia = Val(TextBox3.Text) + TEMPmem.g = Val(TextBox6.Text) + mem.Add(TEMPmem) + Me.Close() + beamcreate.mainpic.Refresh() + ElseIf Me.Text = "Modify Member" Then + mem(selline).spanlength = Val(TextBox1.Text) + mem(selline).Emodulus = Val(TextBox2.Text) + mem(selline).Inertia = Val(TextBox3.Text) + mem(selline).g = Val(TextBox6.Text) + Dim rp As New List(Of Integer) + '---point load out of span + For Each pitm In mem(selline).Pload + If pitm.pdist > mem(selline).spanlength Then + rp.Add(mem(selline).Pload.IndexOf(pitm)) + End If + Next + rp.Reverse() + If rp.Count <> 0 Then + For Each i In rp + mem(selline).Pload.RemoveAt(i) + Next + End If + rp.Clear() + '---UVL out of span + For Each uitm In mem(selline).Uload + If uitm.udist2 > mem(selline).spanlength Then + rp.Add(mem(selline).Uload.IndexOf(uitm)) + End If + Next + rp.Reverse() + If rp.Count <> 0 Then + For Each i In rp + mem(selline).Uload.RemoveAt(i) + Next + End If + rp.Clear() + '---Moment out of span + For Each mitm In mem(selline).Mload + If mitm.mdist > mem(selline).spanlength Then + rp.Add(mem(selline).Mload.IndexOf(mitm)) + End If + Next + rp.Reverse() + If rp.Count <> 0 Then + For Each i In rp + mem(selline).Mload.RemoveAt(i) + Next + End If + rp.Clear() + Me.Close() + beamcreate.mainpic.Refresh() + End If + End Sub + + Private Sub Button_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_cancel.Click + Me.Close() + beamcreate.mainpic.Refresh() + End Sub +End Class \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/memDetails.Designer.vb b/Backup/CBAnsDes/Dialog Windows/memDetails.Designer.vb new file mode 100644 index 0000000..ca6960e --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/memDetails.Designer.vb @@ -0,0 +1,60 @@ + _ +Partial Class memDetails + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(memDetails)) + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.SuspendLayout() + ' + 'TextBox1 + ' + Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBox1.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.ForeColor = System.Drawing.Color.DarkGreen + Me.TextBox1.Location = New System.Drawing.Point(0, 0) + Me.TextBox1.Margin = New System.Windows.Forms.Padding(4) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.TextBox1.Size = New System.Drawing.Size(920, 537) + Me.TextBox1.TabIndex = 0 + Me.TextBox1.Text = "-------------------------------------------------" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.TextBox1.WordWrap = False + ' + 'memDetails + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(920, 537) + Me.Controls.Add(Me.TextBox1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Margin = New System.Windows.Forms.Padding(4) + Me.Name = "memDetails" + Me.ShowInTaskbar = False + Me.Text = "Matrix Details" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox +End Class diff --git a/Backup/CBAnsDes/Dialog Windows/memDetails.resx b/Backup/CBAnsDes/Dialog Windows/memDetails.resx new file mode 100644 index 0000000..7df02fc --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/memDetails.resx @@ -0,0 +1,149 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Dialog Windows/memDetails.vb b/Backup/CBAnsDes/Dialog Windows/memDetails.vb new file mode 100644 index 0000000..c824bd9 --- /dev/null +++ b/Backup/CBAnsDes/Dialog Windows/memDetails.vb @@ -0,0 +1,7 @@ +Public Class memDetails + Public text1 As String + Private Sub memDetails_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + TextBox1.Text = text1 + TextBox1.SelectedText = "" + End Sub +End Class \ No newline at end of file diff --git a/Backup/CBAnsDes/MDIMain.Designer.vb b/Backup/CBAnsDes/MDIMain.Designer.vb new file mode 100644 index 0000000..8640416 --- /dev/null +++ b/Backup/CBAnsDes/MDIMain.Designer.vb @@ -0,0 +1,799 @@ + _ +Partial Class MDIMain + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MDIMain)) + Me.MenuStrip = New System.Windows.Forms.MenuStrip + Me.FileMenu = New System.Windows.Forms.ToolStripMenuItem + Me.NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator + Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.EditMenu = New System.Windows.Forms.ToolStripMenuItem + Me.AddMemberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.BeamEndsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator + Me.editMemberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.RemoveMemberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.AddLoadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.RemoveLoadsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator + Me.ModifyLoadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.RemoveLoadToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ViewMenu = New System.Windows.Forms.ToolStripMenuItem + Me.ToolBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.StatusBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ResultToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ShearForceDiagramToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.BendingMomentDiagramToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.DeflectionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.SlopeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ComputeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.CreateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.AnalyzeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.DesignToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolsMenu = New System.Windows.Forms.ToolStripMenuItem + Me.memdetailsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator + Me.CalculatorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.HelpMenu = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator + Me.GeneralInstructionToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStrip = New System.Windows.Forms.ToolStrip + Me.NewToolStripButton = New System.Windows.Forms.ToolStripButton + Me.OpenToolStripButton = New System.Windows.Forms.ToolStripButton + Me.SaveToolStripButton = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.StatusStrip = New System.Windows.Forms.StatusStrip + Me.ToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel + Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator + Me.Xlabel = New System.Windows.Forms.ToolStripLabel + Me.SFlabel = New System.Windows.Forms.ToolStripLabel + Me.BMlabel = New System.Windows.Forms.ToolStripLabel + Me.DELabel = New System.Windows.Forms.ToolStripLabel + Me.SLLabel = New System.Windows.Forms.ToolStripLabel + Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument + Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog + Me.MenuStrip.SuspendLayout() + Me.ToolStrip.SuspendLayout() + Me.StatusStrip.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.SuspendLayout() + ' + 'MenuStrip + ' + Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FileMenu, Me.EditMenu, Me.ViewMenu, Me.ComputeToolStripMenuItem, Me.ToolsMenu, Me.HelpMenu}) + Me.MenuStrip.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip.Name = "MenuStrip" + Me.MenuStrip.Size = New System.Drawing.Size(792, 24) + Me.MenuStrip.TabIndex = 5 + Me.MenuStrip.Text = "MenuStrip" + ' + 'FileMenu + ' + Me.FileMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripMenuItem, Me.OpenToolStripMenuItem, Me.ToolStripSeparator3, Me.SaveToolStripMenuItem, Me.ToolStripSeparator4, Me.ToolStripSeparator5, Me.ExitToolStripMenuItem}) + Me.FileMenu.ImageTransparentColor = System.Drawing.SystemColors.ActiveBorder + Me.FileMenu.Name = "FileMenu" + Me.FileMenu.Size = New System.Drawing.Size(37, 20) + Me.FileMenu.Text = "&File" + ' + 'NewToolStripMenuItem + ' + Me.NewToolStripMenuItem.Image = CType(resources.GetObject("NewToolStripMenuItem.Image"), System.Drawing.Image) + Me.NewToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black + Me.NewToolStripMenuItem.Name = "NewToolStripMenuItem" + Me.NewToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) + Me.NewToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.NewToolStripMenuItem.Text = "&New" + ' + 'OpenToolStripMenuItem + ' + Me.OpenToolStripMenuItem.Image = CType(resources.GetObject("OpenToolStripMenuItem.Image"), System.Drawing.Image) + Me.OpenToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black + Me.OpenToolStripMenuItem.Name = "OpenToolStripMenuItem" + Me.OpenToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) + Me.OpenToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.OpenToolStripMenuItem.Text = "&Open" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(143, 6) + ' + 'SaveToolStripMenuItem + ' + Me.SaveToolStripMenuItem.Image = CType(resources.GetObject("SaveToolStripMenuItem.Image"), System.Drawing.Image) + Me.SaveToolStripMenuItem.ImageTransparentColor = System.Drawing.Color.Black + Me.SaveToolStripMenuItem.Name = "SaveToolStripMenuItem" + Me.SaveToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) + Me.SaveToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.SaveToolStripMenuItem.Text = "&Save" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(143, 6) + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(143, 6) + ' + 'ExitToolStripMenuItem + ' + Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" + Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(146, 22) + Me.ExitToolStripMenuItem.Text = "E&xit" + ' + 'EditMenu + ' + Me.EditMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AddMemberToolStripMenuItem, Me.BeamEndsToolStripMenuItem, Me.ToolStripSeparator10, Me.editMemberToolStripMenuItem, Me.RemoveMemberToolStripMenuItem, Me.AddLoadToolStripMenuItem, Me.RemoveLoadsToolStripMenuItem, Me.ToolStripSeparator6, Me.ModifyLoadToolStripMenuItem, Me.RemoveLoadToolStripMenuItem}) + Me.EditMenu.Name = "EditMenu" + Me.EditMenu.Size = New System.Drawing.Size(39, 20) + Me.EditMenu.Text = "&Edit" + ' + 'AddMemberToolStripMenuItem + ' + Me.AddMemberToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.addmember + Me.AddMemberToolStripMenuItem.Name = "AddMemberToolStripMenuItem" + Me.AddMemberToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.AddMemberToolStripMenuItem.Text = "Add Member" + ' + 'BeamEndsToolStripMenuItem + ' + Me.BeamEndsToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.editends + Me.BeamEndsToolStripMenuItem.Name = "BeamEndsToolStripMenuItem" + Me.BeamEndsToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.BeamEndsToolStripMenuItem.Text = "Beam Ends" + ' + 'ToolStripSeparator10 + ' + Me.ToolStripSeparator10.Name = "ToolStripSeparator10" + Me.ToolStripSeparator10.Size = New System.Drawing.Size(159, 6) + ' + 'editMemberToolStripMenuItem + ' + Me.editMemberToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.editmember + Me.editMemberToolStripMenuItem.Name = "editMemberToolStripMenuItem" + Me.editMemberToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.editMemberToolStripMenuItem.Text = "Edit Member" + ' + 'RemoveMemberToolStripMenuItem + ' + Me.RemoveMemberToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.deletemember + Me.RemoveMemberToolStripMenuItem.Name = "RemoveMemberToolStripMenuItem" + Me.RemoveMemberToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.RemoveMemberToolStripMenuItem.Text = "RemoveMember" + ' + 'AddLoadToolStripMenuItem + ' + Me.AddLoadToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.addload + Me.AddLoadToolStripMenuItem.Name = "AddLoadToolStripMenuItem" + Me.AddLoadToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.AddLoadToolStripMenuItem.Text = "Add Load" + ' + 'RemoveLoadsToolStripMenuItem + ' + Me.RemoveLoadsToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.removeloads + Me.RemoveLoadsToolStripMenuItem.Name = "RemoveLoadsToolStripMenuItem" + Me.RemoveLoadsToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.RemoveLoadsToolStripMenuItem.Text = "Remove Loads" + ' + 'ToolStripSeparator6 + ' + Me.ToolStripSeparator6.Name = "ToolStripSeparator6" + Me.ToolStripSeparator6.Size = New System.Drawing.Size(159, 6) + ' + 'ModifyLoadToolStripMenuItem + ' + Me.ModifyLoadToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.modifyload + Me.ModifyLoadToolStripMenuItem.Name = "ModifyLoadToolStripMenuItem" + Me.ModifyLoadToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.ModifyLoadToolStripMenuItem.Text = "Modify Load" + ' + 'RemoveLoadToolStripMenuItem + ' + Me.RemoveLoadToolStripMenuItem.Image = Global.CBAnsDes.My.Resources.Resources.removeload + Me.RemoveLoadToolStripMenuItem.Name = "RemoveLoadToolStripMenuItem" + Me.RemoveLoadToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.RemoveLoadToolStripMenuItem.Text = "Remove Load" + ' + 'ViewMenu + ' + Me.ViewMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolBarToolStripMenuItem, Me.StatusBarToolStripMenuItem, Me.ResultToolStripMenuItem}) + Me.ViewMenu.Name = "ViewMenu" + Me.ViewMenu.Size = New System.Drawing.Size(44, 20) + Me.ViewMenu.Text = "&View" + ' + 'ToolBarToolStripMenuItem + ' + Me.ToolBarToolStripMenuItem.Checked = True + Me.ToolBarToolStripMenuItem.CheckOnClick = True + Me.ToolBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolBarToolStripMenuItem.Name = "ToolBarToolStripMenuItem" + Me.ToolBarToolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.ToolBarToolStripMenuItem.Text = "&Toolbar" + ' + 'StatusBarToolStripMenuItem + ' + Me.StatusBarToolStripMenuItem.Checked = True + Me.StatusBarToolStripMenuItem.CheckOnClick = True + Me.StatusBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked + Me.StatusBarToolStripMenuItem.Name = "StatusBarToolStripMenuItem" + Me.StatusBarToolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.StatusBarToolStripMenuItem.Text = "&Status Bar" + ' + 'ResultToolStripMenuItem + ' + Me.ResultToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShearForceDiagramToolStripMenuItem, Me.BendingMomentDiagramToolStripMenuItem, Me.DeflectionToolStripMenuItem, Me.SlopeToolStripMenuItem}) + Me.ResultToolStripMenuItem.Name = "ResultToolStripMenuItem" + Me.ResultToolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.ResultToolStripMenuItem.Text = "Result" + ' + 'ShearForceDiagramToolStripMenuItem + ' + Me.ShearForceDiagramToolStripMenuItem.CheckOnClick = True + Me.ShearForceDiagramToolStripMenuItem.Name = "ShearForceDiagramToolStripMenuItem" + Me.ShearForceDiagramToolStripMenuItem.Size = New System.Drawing.Size(215, 22) + Me.ShearForceDiagramToolStripMenuItem.Text = "Shear Force Diagram" + ' + 'BendingMomentDiagramToolStripMenuItem + ' + Me.BendingMomentDiagramToolStripMenuItem.Checked = True + Me.BendingMomentDiagramToolStripMenuItem.CheckOnClick = True + Me.BendingMomentDiagramToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked + Me.BendingMomentDiagramToolStripMenuItem.Name = "BendingMomentDiagramToolStripMenuItem" + Me.BendingMomentDiagramToolStripMenuItem.Size = New System.Drawing.Size(215, 22) + Me.BendingMomentDiagramToolStripMenuItem.Text = "Bending Moment Diagram" + ' + 'DeflectionToolStripMenuItem + ' + Me.DeflectionToolStripMenuItem.CheckOnClick = True + Me.DeflectionToolStripMenuItem.Name = "DeflectionToolStripMenuItem" + Me.DeflectionToolStripMenuItem.Size = New System.Drawing.Size(215, 22) + Me.DeflectionToolStripMenuItem.Text = "Deflection" + ' + 'SlopeToolStripMenuItem + ' + Me.SlopeToolStripMenuItem.Name = "SlopeToolStripMenuItem" + Me.SlopeToolStripMenuItem.Size = New System.Drawing.Size(215, 22) + Me.SlopeToolStripMenuItem.Text = "Slope" + ' + 'ComputeToolStripMenuItem + ' + Me.ComputeToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CreateToolStripMenuItem, Me.AnalyzeToolStripMenuItem, Me.DesignToolStripMenuItem}) + Me.ComputeToolStripMenuItem.Name = "ComputeToolStripMenuItem" + Me.ComputeToolStripMenuItem.Size = New System.Drawing.Size(69, 20) + Me.ComputeToolStripMenuItem.Text = "Compute" + ' + 'CreateToolStripMenuItem + ' + Me.CreateToolStripMenuItem.CheckOnClick = True + Me.CreateToolStripMenuItem.Name = "CreateToolStripMenuItem" + Me.CreateToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F7 + Me.CreateToolStripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.CreateToolStripMenuItem.Text = "Create" + ' + 'AnalyzeToolStripMenuItem + ' + Me.AnalyzeToolStripMenuItem.CheckOnClick = True + Me.AnalyzeToolStripMenuItem.Name = "AnalyzeToolStripMenuItem" + Me.AnalyzeToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F5 + Me.AnalyzeToolStripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.AnalyzeToolStripMenuItem.Text = "Analyze" + ' + 'DesignToolStripMenuItem + ' + Me.DesignToolStripMenuItem.Enabled = False + Me.DesignToolStripMenuItem.Name = "DesignToolStripMenuItem" + Me.DesignToolStripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.DesignToolStripMenuItem.Text = "Design" + ' + 'ToolsMenu + ' + Me.ToolsMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.memdetailsToolStripMenuItem, Me.ToolStripSeparator11, Me.CalculatorToolStripMenuItem}) + Me.ToolsMenu.Name = "ToolsMenu" + Me.ToolsMenu.Size = New System.Drawing.Size(48, 20) + Me.ToolsMenu.Text = "&Tools" + ' + 'memdetailsToolStripMenuItem + ' + Me.memdetailsToolStripMenuItem.Name = "memdetailsToolStripMenuItem" + Me.memdetailsToolStripMenuItem.Size = New System.Drawing.Size(145, 22) + Me.memdetailsToolStripMenuItem.Text = "&Matrix Details" + ' + 'ToolStripSeparator11 + ' + Me.ToolStripSeparator11.Name = "ToolStripSeparator11" + Me.ToolStripSeparator11.Size = New System.Drawing.Size(142, 6) + ' + 'CalculatorToolStripMenuItem + ' + Me.CalculatorToolStripMenuItem.Name = "CalculatorToolStripMenuItem" + Me.CalculatorToolStripMenuItem.Size = New System.Drawing.Size(145, 22) + Me.CalculatorToolStripMenuItem.Text = "Calculator" + ' + 'HelpMenu + ' + Me.HelpMenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator8, Me.GeneralInstructionToolStripMenuItem, Me.ToolStripSeparator1, Me.AboutToolStripMenuItem}) + Me.HelpMenu.Name = "HelpMenu" + Me.HelpMenu.Size = New System.Drawing.Size(44, 20) + Me.HelpMenu.Text = "&Help" + ' + 'ToolStripSeparator8 + ' + Me.ToolStripSeparator8.Name = "ToolStripSeparator8" + Me.ToolStripSeparator8.Size = New System.Drawing.Size(171, 6) + ' + 'GeneralInstructionToolStripMenuItem + ' + Me.GeneralInstructionToolStripMenuItem.Name = "GeneralInstructionToolStripMenuItem" + Me.GeneralInstructionToolStripMenuItem.Size = New System.Drawing.Size(174, 22) + Me.GeneralInstructionToolStripMenuItem.Text = "General Instruction" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(171, 6) + ' + 'AboutToolStripMenuItem + ' + Me.AboutToolStripMenuItem.Name = "AboutToolStripMenuItem" + Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(174, 22) + Me.AboutToolStripMenuItem.Text = "&About ..." + ' + 'ToolStrip + ' + Me.ToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NewToolStripButton, Me.OpenToolStripButton, Me.SaveToolStripButton, Me.ToolStripSeparator2}) + Me.ToolStrip.Location = New System.Drawing.Point(0, 24) + Me.ToolStrip.Name = "ToolStrip" + Me.ToolStrip.Size = New System.Drawing.Size(792, 25) + Me.ToolStrip.TabIndex = 6 + Me.ToolStrip.Text = "ToolStrip" + ' + 'NewToolStripButton + ' + Me.NewToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.NewToolStripButton.Image = CType(resources.GetObject("NewToolStripButton.Image"), System.Drawing.Image) + Me.NewToolStripButton.ImageTransparentColor = System.Drawing.Color.Black + Me.NewToolStripButton.Name = "NewToolStripButton" + Me.NewToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.NewToolStripButton.Text = "New" + ' + 'OpenToolStripButton + ' + Me.OpenToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.OpenToolStripButton.Image = CType(resources.GetObject("OpenToolStripButton.Image"), System.Drawing.Image) + Me.OpenToolStripButton.ImageTransparentColor = System.Drawing.Color.Black + Me.OpenToolStripButton.Name = "OpenToolStripButton" + Me.OpenToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.OpenToolStripButton.Text = "Open" + ' + 'SaveToolStripButton + ' + Me.SaveToolStripButton.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.SaveToolStripButton.Image = CType(resources.GetObject("SaveToolStripButton.Image"), System.Drawing.Image) + Me.SaveToolStripButton.ImageTransparentColor = System.Drawing.Color.Black + Me.SaveToolStripButton.Name = "SaveToolStripButton" + Me.SaveToolStripButton.Size = New System.Drawing.Size(23, 22) + Me.SaveToolStripButton.Text = "Save" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'StatusStrip + ' + Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel}) + Me.StatusStrip.Location = New System.Drawing.Point(0, 544) + Me.StatusStrip.Name = "StatusStrip" + Me.StatusStrip.Size = New System.Drawing.Size(792, 22) + Me.StatusStrip.TabIndex = 7 + Me.StatusStrip.Text = "StatusStrip" + ' + 'ToolStripStatusLabel + ' + Me.ToolStripStatusLabel.Name = "ToolStripStatusLabel" + Me.ToolStripStatusLabel.Size = New System.Drawing.Size(180, 17) + Me.ToolStripStatusLabel.Text = "Click on the beam & loads to edit.." + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator7, Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator9, Me.ToolStripButton7, Me.ToolStripButton8}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 499) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(792, 45) + Me.ToolStrip1.TabIndex = 9 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.AutoSize = False + Me.ToolStripLabel1.ForeColor = System.Drawing.Color.Maroon + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(48, 36) + Me.ToolStripLabel1.Text = "100%" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.CBAnsDes.My.Resources.Resources.addmember + Me.ToolStripButton1.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton1.Text = "Add Member" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.CBAnsDes.My.Resources.Resources.editends + Me.ToolStripButton2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton2.Text = "Edit Ends" + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 45) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = Global.CBAnsDes.My.Resources.Resources.editmember + Me.ToolStripButton3.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton3.Text = "Edit Member" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = Global.CBAnsDes.My.Resources.Resources.deletemember + Me.ToolStripButton4.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton4.Text = "Delete Member" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = Global.CBAnsDes.My.Resources.Resources.addload + Me.ToolStripButton5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton5.Text = "Add Load" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton6.Image = Global.CBAnsDes.My.Resources.Resources.removeloads + Me.ToolStripButton6.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton6.Text = "Remove Loads" + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 45) + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton7.Image = Global.CBAnsDes.My.Resources.Resources.modifyload + Me.ToolStripButton7.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton7.Text = "Modify Load" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton8.Image = Global.CBAnsDes.My.Resources.Resources.removeload + Me.ToolStripButton8.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton8.Text = "Remove Load" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.AutoSize = False + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.ToolStripButton10, Me.ToolStripButton9, Me.ToolStripButton11, Me.ToolStripButton12, Me.ToolStripSeparator12, Me.ToolStripSeparator13, Me.Xlabel, Me.SFlabel, Me.BMlabel, Me.DELabel, Me.SLLabel}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 454) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(792, 45) + Me.ToolStrip2.TabIndex = 11 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.AutoSize = False + Me.ToolStripLabel2.ForeColor = System.Drawing.Color.Maroon + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(48, 36) + Me.ToolStripLabel2.Text = "100%" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.AutoSize = False + Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton10.Image = Global.CBAnsDes.My.Resources.Resources.bm + Me.ToolStripButton10.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton10.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton10.Text = "Bending Moment diagram" + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.AutoSize = False + Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton9.Image = Global.CBAnsDes.My.Resources.Resources.shear + Me.ToolStripButton9.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton9.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton9.Text = "Shear Force Diagram" + ' + 'ToolStripButton11 + ' + Me.ToolStripButton11.AutoSize = False + Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton11.Image = Global.CBAnsDes.My.Resources.Resources.bend + Me.ToolStripButton11.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton11.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton11.Name = "ToolStripButton11" + Me.ToolStripButton11.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton11.Text = "Deflection" + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.AutoSize = False + Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton12.Image = Global.CBAnsDes.My.Resources.Resources.Slope + Me.ToolStripButton12.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton12.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.Size = New System.Drawing.Size(40, 42) + Me.ToolStripButton12.Text = "Slope" + ' + 'ToolStripSeparator12 + ' + Me.ToolStripSeparator12.Name = "ToolStripSeparator12" + Me.ToolStripSeparator12.Size = New System.Drawing.Size(6, 45) + ' + 'ToolStripSeparator13 + ' + Me.ToolStripSeparator13.Name = "ToolStripSeparator13" + Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 45) + ' + 'Xlabel + ' + Me.Xlabel.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Xlabel.ForeColor = System.Drawing.Color.DimGray + Me.Xlabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Xlabel.Name = "Xlabel" + Me.Xlabel.Size = New System.Drawing.Size(97, 42) + Me.Xlabel.Text = "X - Dist --->" + Me.Xlabel.Visible = False + ' + 'SFlabel + ' + Me.SFlabel.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SFlabel.ForeColor = System.Drawing.Color.CornflowerBlue + Me.SFlabel.Name = "SFlabel" + Me.SFlabel.Size = New System.Drawing.Size(95, 42) + Me.SFlabel.Text = "Shear Value" + Me.SFlabel.Visible = False + ' + 'BMlabel + ' + Me.BMlabel.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BMlabel.ForeColor = System.Drawing.Color.Crimson + Me.BMlabel.Name = "BMlabel" + Me.BMlabel.Size = New System.Drawing.Size(74, 42) + Me.BMlabel.Text = "BM value" + Me.BMlabel.Visible = False + ' + 'DELabel + ' + Me.DELabel.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DELabel.ForeColor = System.Drawing.Color.Green + Me.DELabel.Name = "DELabel" + Me.DELabel.Size = New System.Drawing.Size(115, 42) + Me.DELabel.Text = "Deflection Value" + Me.DELabel.Visible = False + ' + 'SLLabel + ' + Me.SLLabel.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SLLabel.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.SLLabel.Name = "SLLabel" + Me.SLLabel.Size = New System.Drawing.Size(85, 42) + Me.SLLabel.Text = "Slope Value" + Me.SLLabel.Visible = False + ' + 'PrintDocument1 + ' + ' + 'PrintPreviewDialog1 + ' + Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0) + Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0) + Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300) + Me.PrintPreviewDialog1.Enabled = True + Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon) + Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1" + Me.PrintPreviewDialog1.Visible = False + ' + 'MDIMain + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(792, 566) + Me.Controls.Add(Me.ToolStrip2) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.ToolStrip) + Me.Controls.Add(Me.MenuStrip) + Me.Controls.Add(Me.StatusStrip) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.IsMdiContainer = True + Me.MainMenuStrip = Me.MenuStrip + Me.MaximumSize = New System.Drawing.Size(1500, 1279) + Me.MinimumSize = New System.Drawing.Size(800, 590) + Me.Name = "MDIMain" + Me.Text = "Continuous Beam Analyzer ----- Developed by Samson Mano " + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.MenuStrip.ResumeLayout(False) + Me.MenuStrip.PerformLayout() + Me.ToolStrip.ResumeLayout(False) + Me.ToolStrip.PerformLayout() + Me.StatusStrip.ResumeLayout(False) + Me.StatusStrip.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents HelpMenu As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents memdetailsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolTip As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripStatusLabel As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents StatusStrip As System.Windows.Forms.StatusStrip + Friend WithEvents ToolStrip As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ExitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FileMenu As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip + Friend WithEvents EditMenu As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ViewMenu As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StatusBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolsMenu As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BeamEndsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AddMemberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents editMemberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents AddLoadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ComputeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AnalyzeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CreateToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DesignToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents RemoveMemberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents RemoveLoadsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ModifyLoadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents RemoveLoadToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ResultToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ShearForceDiagramToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BendingMomentDiagramToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton9 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton10 As System.Windows.Forms.ToolStripButton + Friend WithEvents DeflectionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton11 As System.Windows.Forms.ToolStripButton + Friend WithEvents NewToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents OpenToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents SaveToolStripButton As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents CalculatorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Xlabel As System.Windows.Forms.ToolStripLabel + Friend WithEvents SFlabel As System.Windows.Forms.ToolStripLabel + Friend WithEvents BMlabel As System.Windows.Forms.ToolStripLabel + Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument + Friend WithEvents PrintPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog + Friend WithEvents ToolStripButton12 As System.Windows.Forms.ToolStripButton + Friend WithEvents SlopeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DELabel As System.Windows.Forms.ToolStripLabel + Friend WithEvents SLLabel As System.Windows.Forms.ToolStripLabel + Friend WithEvents GeneralInstructionToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + +End Class diff --git a/Backup/CBAnsDes/MDIMain.resx b/Backup/CBAnsDes/MDIMain.resx new file mode 100644 index 0000000..40dd505 --- /dev/null +++ b/Backup/CBAnsDes/MDIMain.resx @@ -0,0 +1,435 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 228, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPrZDJasJQGIXzUvoO9TX0jcQuSulCLUUECwot + KtrSAbQWRDTg0CLBCY1xqmkcYo7c8ItJYy9Z+MHhLu453+IXzkbypY6/SeRriKXLiKaKZqh6Gjb4j+v4 + M7y+AF9y/yRS3UkomkbmvcaXxLMVqjsJhh/N8SE0sXP38El1J1t9Z0oOIprYiSQLVLdjGAZUbYOhopoC + z4X/tOAm8UoTO+uNjslcgzSY8wVXsTxNjug7Awt1jb68RFOa8AWXtxmaHdFWW8jTX7R7M1RbMl/APq2w + w81+VugMF6i3FZTEgXuB9XBfnSkqjRHeyl33AuvhxO8xitU+ch+SOwF7eeEK2Keb0OQcCMIe3/X1lqrb + NIsAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJYSURBVDhPvZFbSBNQHIf30ENPFmlRCEWWhD0MA0Oqh5Ck + m6KUZoWRJpS3LhiKbVPbvE53c+pKh7lN19RptTIMK4RCkQgtdZSYmgVFpZgZKnn7GptokkEP0R9+L+ec + 7zs/zhH8l8kpMSPTWriSbyJPZ0WiNDK/9XcTnawjLF7lhC6IKsh0yFKyDUQllyCoN2tYLo218j/ekiAp + JTxRRWh8oUvQ22VkcrTOmR8jFqaHDFhNKmzm7GUlYQlqQuO0BMcWI6irVDMxUr0Env1UyrQ9ieqKfKrK + cjGUZKIvzOC6UkyxPHWptMaoYOKLcQGec8D0isEeu2x+E9wsl/P9o34BbqpXOPPAWkCDRc6dqlyshiws + ehkm3VVuaNMoU4vRKUQuWZU+l7F3Rc7aAy1SbNVqZgdkMJi9NG8da/0S6EmGV4l01kZwKSYEgUGXxbe+ + fHiv5G6NiraHStehX6u/jIL2cGZag5h8FMCbSiHnTx9wCcq1Ur6+ljHYmo7NomSuXwrdcS6wM8YBnmCm + LYTJ5v2MNe5huH4HsnhvTgZ6uN6iVJ3OcJeIW2YFHU8dTXqSHIKz0HGKuWdHmHpyiPGmvYzY/Phc40N7 + zmoig7zw2+bmEugKxHQ3Z3DbXAB9GfDCUff5MaZaghl/HMBogz9DViEfjFuxK92Rxm7Bd7vn4k8U5aVS + Z8rHfi+Bdo1gIW3KFTTLV3I/cxW1aWsxpHpy7fImIg9vxt9346JAk52CRnqOPFE0kovHnQ9zJiKQowd3 + sW+3kJ1Cb3y8PNm4wYN1a9xY7z5f/d+MQPATMS7uX9kMtOAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIvSURBVDhPrZLdS9NRGMd//0L33QRddFtTYzgXq8GvXENZ + Ngwrwl5+kWZpukwTFSvTqPkG2QqXTlqtJuGkIl/AFCkRZSpZmrmiJQ41xSaCwdfznP3yuIouogeem8P5 + fM55XqT/Es+fhUHpa11Ci3cRD93zaGoM4a5jGnW1X2C/FcD18kmUloyjsOAt8nJHcP6cHyouSQR2dQK1 + NSv4WyyvrMKU2oVDqU95qrgkeZ8scEFlxTf16u9BcGh+GbssL6DRKLAe9AiB+8EcF5SWfFWvR8dP+GNw + ATFmHwouTeGApVkInA0zXHDR9kFFRGyEhydC2CZ7kZM9huQkpxDU3w5yQdbZERWLxK9wnz+IzQY3FGUA + ZrNDCGqqP3OBcmpARf8Md/Z/wqb4Rhw+8gqJiXVCcKNyCh3tYKMEjh1/A+vRXt5tahjVTN+mlyNwN1Ks + LyHLdiG4UjaBNh/YDgDNrh9s7t9Rfm2WN5UaRjVnZvjX4f3JrTAaK4TgcuEYPI+A+85VtjhhmNKyo9KS + bkPamaIInMTgfR4YDGVCYMsbZTBQXRXmLxNE5zE6GYPvZzA6OQsl9yr2mFo4rNvtgl5fJAS0lo47WP82 + CQg+nX8T7wJzCEwv4kKxHbEGF4ObEJtwD7r4fCHIzBhidS9xeKvRgy07ZDxu64GvvQ8d3f3ofT2IvWYr + NPoGxDF4u7YeWm1OtODkiR6+nrRhtCQ0ZxoVdZsaRjXTq5QE74zLEoJ/D0laA2xoOmtG+TV7AAAAAElF + TkSuQmCC + + + + 127, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPrZDJasJQGIXzUvoO9TX0jcQuSulCLUUECwot + KtrSAbQWRDTg0CLBCY1xqmkcYo7c8ItJYy9Z+MHhLu453+IXzkbypY6/SeRriKXLiKaKZqh6Gjb4j+v4 + M7y+AF9y/yRS3UkomkbmvcaXxLMVqjsJhh/N8SE0sXP38El1J1t9Z0oOIprYiSQLVLdjGAZUbYOhopoC + z4X/tOAm8UoTO+uNjslcgzSY8wVXsTxNjug7Awt1jb68RFOa8AWXtxmaHdFWW8jTX7R7M1RbMl/APq2w + w81+VugMF6i3FZTEgXuB9XBfnSkqjRHeyl33AuvhxO8xitU+ch+SOwF7eeEK2Keb0OQcCMIe3/X1lqrb + NIsAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJYSURBVDhPvZFbSBNQHIf30ENPFmlRCEWWhD0MA0Oqh5Ck + m6KUZoWRJpS3LhiKbVPbvE53c+pKh7lN19RptTIMK4RCkQgtdZSYmgVFpZgZKnn7GptokkEP0R9+L+ec + 7zs/zhH8l8kpMSPTWriSbyJPZ0WiNDK/9XcTnawjLF7lhC6IKsh0yFKyDUQllyCoN2tYLo218j/ekiAp + JTxRRWh8oUvQ22VkcrTOmR8jFqaHDFhNKmzm7GUlYQlqQuO0BMcWI6irVDMxUr0Env1UyrQ9ieqKfKrK + cjGUZKIvzOC6UkyxPHWptMaoYOKLcQGec8D0isEeu2x+E9wsl/P9o34BbqpXOPPAWkCDRc6dqlyshiws + ehkm3VVuaNMoU4vRKUQuWZU+l7F3Rc7aAy1SbNVqZgdkMJi9NG8da/0S6EmGV4l01kZwKSYEgUGXxbe+ + fHiv5G6NiraHStehX6u/jIL2cGZag5h8FMCbSiHnTx9wCcq1Ur6+ljHYmo7NomSuXwrdcS6wM8YBnmCm + LYTJ5v2MNe5huH4HsnhvTgZ6uN6iVJ3OcJeIW2YFHU8dTXqSHIKz0HGKuWdHmHpyiPGmvYzY/Phc40N7 + zmoig7zw2+bmEugKxHQ3Z3DbXAB9GfDCUff5MaZaghl/HMBogz9DViEfjFuxK92Rxm7Bd7vn4k8U5aVS + Z8rHfi+Bdo1gIW3KFTTLV3I/cxW1aWsxpHpy7fImIg9vxt9346JAk52CRnqOPFE0kovHnQ9zJiKQowd3 + sW+3kJ1Cb3y8PNm4wYN1a9xY7z5f/d+MQPATMS7uX9kMtOAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIvSURBVDhPrZLdS9NRGMd//0L33QRddFtTYzgXq8GvXENZ + Ngwrwl5+kWZpukwTFSvTqPkG2QqXTlqtJuGkIl/AFCkRZSpZmrmiJQ41xSaCwdfznP3yuIouogeem8P5 + fM55XqT/Es+fhUHpa11Ci3cRD93zaGoM4a5jGnW1X2C/FcD18kmUloyjsOAt8nJHcP6cHyouSQR2dQK1 + NSv4WyyvrMKU2oVDqU95qrgkeZ8scEFlxTf16u9BcGh+GbssL6DRKLAe9AiB+8EcF5SWfFWvR8dP+GNw + ATFmHwouTeGApVkInA0zXHDR9kFFRGyEhydC2CZ7kZM9huQkpxDU3w5yQdbZERWLxK9wnz+IzQY3FGUA + ZrNDCGqqP3OBcmpARf8Md/Z/wqb4Rhw+8gqJiXVCcKNyCh3tYKMEjh1/A+vRXt5tahjVTN+mlyNwN1Ks + LyHLdiG4UjaBNh/YDgDNrh9s7t9Rfm2WN5UaRjVnZvjX4f3JrTAaK4TgcuEYPI+A+85VtjhhmNKyo9KS + bkPamaIInMTgfR4YDGVCYMsbZTBQXRXmLxNE5zE6GYPvZzA6OQsl9yr2mFo4rNvtgl5fJAS0lo47WP82 + CQg+nX8T7wJzCEwv4kKxHbEGF4ObEJtwD7r4fCHIzBhidS9xeKvRgy07ZDxu64GvvQ8d3f3ofT2IvWYr + NPoGxDF4u7YeWm1OtODkiR6+nrRhtCQ0ZxoVdZsaRjXTq5QE74zLEoJ/D0laA2xoOmtG+TV7AAAAAElF + TkSuQmCC + + + + 17, 17 + + + 336, 17 + + + 428, 17 + + + 530, 17 + + + 637, 17 + + + 777, 17 + + + + AAABAAYAICAQAAAAAADoAgAAZgAAABAQEAAAAAAAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA + CABoBQAAHg0AACAgAAABACAAqBAAAIYSAAAQEAAAAQAgAGgEAAAuIwAAKAAAACAAAABAAAAAAQAEAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA + /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIoiI + iIiIiIiIiIiIiIiIiIiCIigiIiIozMzMzMzMyCIogiIoIiIiKM7m5ubm5sgiKIIiKCIiIijObm5ubm7I + IiiCIigiIiIozubm5ubmyCIogiIoIiIiKM5ubm5ubsgiKIIiKCIiIijO5ubm5ubIIiiIiIiIiIiIzm5u + bm5uyCIogRERERERGM7u7u7u7sgiKIHZWVlZWRjMzMzMzMzIIiiB1ZWVlZUYiIiIiIiIiIiIgdlZWVlZ + GDMzMzMzMzMzOIHVlZWVlRg/uLi4uLi4uDiB2VlZWVkYP7uLi4uLi4s4gdWVlZWVGD+4uLi4uLi4OIHZ + WVlZWRg/u4uLi4uLiziB1ZWVlZUYP7i4uLi4uLg4gdlZWVlZGD+7i4uLi4uLOIHVlZWVlRg/uLi4uLi4 + uDiB3d3d3d0YP7uLi4uLi4s4gRERERERGD+4uLi4uLi4OIiIiIiIiIg/u4uLi4uLiziCIiIiIiIoP7i4 + uLi4uLg4giIiIiIiKD+7i4uLi4uLOIIiIiIiIig/uLi4uLi4uDiCIiIiIiIoP7u7u7u7u7s4giIiIiIi + KD//////////OIIiIiIiIigzMzMzMzMzMziIiIiIiIiIiIiIiIiIiIiIIiIiIiIiIiIiIiIiIiIiIv// + ////////AAAAAHv4AA57+AAOe/gADnv4AA57+AAOe/gADgAAAA4AAAAOAAAADgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH/4AAB/+AAAf/gAAH/4AAB/+AAAf/gAAAAA + AAD/////KAAAABAAAAAgAAAAAQAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAACA + gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAiIiIiIiIiIoiI + iIiIiIiIgigijMzMyCiCKCKM5mbIKIiIiIzu7sgogRERjMzMyCiB2ZGIiIiIiIHZkYMzMzM4gdmRg/u7 + uziB3dGD+7u7OIEREYP7u7s4iIiIg/u7uziCIiKD+7u7OIIiIoP///84giIigzMzMziIiIiIiIiIiP// + KCIAACjObALm5mwCIigAAoiIAAKIzgAAbm4AACIoAAAREQAAGM4AAO7uAAAiKHwAWVl8ABjMfADMzAAA + IigoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA + AACAAIAAgIAAAICAgADA3MAA8MqmAKo/KgD/PyoAAF8qAFVfKgCqXyoA/18qAAB/KgBVfyoAqn8qAP9/ + KgAAnyoAVZ8qAKqfKgD/nyoAAL8qAFW/KgCqvyoA/78qAADfKgBV3yoAqt8qAP/fKgAA/yoAVf8qAKr/ + KgD//yoAAABVAFUAVQCqAFUA/wBVAAAfVQBVH1UAqh9VAP8fVQAAP1UAVT9VAKo/VQD/P1UAAF9VAFVf + VQCqX1UA/19VAAB/VQBVf1UAqn9VAP9/VQAAn1UAVZ9VAKqfVQD/n1UAAL9VAFW/VQCqv1UA/79VAADf + VQBV31UAqt9VAP/fVQAA/1UAVf9VAKr/VQD//1UAAAB/AFUAfwCqAH8A/wB/AAAffwBVH38Aqh9/AP8f + fwAAP38AVT9/AKo/fwD/P38AAF9/AFVffwCqX38A/19/AAB/fwBVf38Aqn9/AP9/fwAAn38AVZ9/AKqf + fwD/n38AAL9/AFW/fwCqv38A/79/AADffwBV338Aqt9/AP/ffwAA/38AVf9/AKr/fwD//38AAACqAFUA + qgCqAKoA/wCqAAAfqgBVH6oAqh+qAP8fqgAAP6oAVT+qAKo/qgD/P6oAAF+qAFVfqgCqX6oA/1+qAAB/ + qgBVf6oAqn+qAP9/qgAAn6oAVZ+qAKqfqgD/n6oAAL+qAFW/qgCqv6oA/7+qAADfqgBV36oAqt+qAP/f + qgAA/6oAVf+qAKr/qgD//6oAAADUAFUA1ACqANQA/wDUAAAf1ABVH9QAqh/UAP8f1AAAP9QAVT/UAKo/ + 1AD/P9QAAF/UAFVf1ACqX9QA/1/UAAB/1ABVf9QAqn/UAP9/1AAAn9QAVZ/UAKqf1AD/n9QAAL/UAFW/ + 1ACqv9QA/7/UAADf1ABV39QAqt/UAP/f1AAA/9QAVf/UAKr/1AD//9QAVQD/AKoA/wAAH/8AVR//AKof + /wD/H/8AAD//AFU//wCqP/8A/z//AABf/wBVX/8Aql//AP9f/wAAf/8AVX//AKp//wD/f/8AAJ//AFWf + /wCqn/8A/5//AAC//wBVv/8Aqr//AP+//wAA3/8AVd//AKrf/wD/3/8AVf//AKr//wD/zMwA/8z/AP// + MwD//2YA//+ZAP//zAAAfwAAVX8AAKp/AAD/fwAAAJ8AAFWfAACqnwAA/58AAAC/AABVvwAAqr8AAP+/ + AAAA3wAAVd8AAKrfAAD/3wAAVf8AAKr/AAAAACoAVQAqAKoAKgD/ACoAAB8qAFUfKgCqHyoA/x8qAAA/ + KgBVPyoA8Pv/AKSgoACAgIAAAAD/AAD/AAAA//8A/wAAAAAAAAD//wAA////AP39/f39/f39/f39/f39 + /f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39 + /f39/f39/f39/f39/f39/f39/f39/f39qoYIqoYIhqoIqgiqCaoIqgiqhqqGhoYIhoYIqv39/f0I/f39 + /ar9/f39/YY2Ng4yDg4ODgoOCgoKCgqG/f39/Yb9/f39CP39/f39qjY7Ozs3Nzc3NjMSMjIOCqr9/f39 + qv39/f2G/f39/f0IN19fOzs3Nzc3NjcODg4KCP39/f0I/f39/ar9/f39/ao6X19fXzs7Ozc3NzY3NgqG + /f39/Yb9/f39CP39/f39hl9jY19jX187Ozs7Nzc3Dqr9/f39qv39/f2G/f39/f0IOodjh19jX19fXztf + OzcOCP39/f0ICAmqCAiqCKoICapfCYdjh2ODY19fXzs7Ow6q/f39/QhITEwoSCUoKSQoqmMJCYcJCWNj + Y2NfY19fNgj9/f39qkyZmZmYmJRwlCmqX19fXl9fX186WzY3Njc2gv39/f0JcJ2dmZmZlJmUJAmqCaoJ + hggIqggICKoIqggI/f39/YZwnp2dnZmZmJVMqnx8fHx8fFR8VHhUVFRUVKr9/f39CHChoZ2dnZ2ZmUwJ + fKSkxqSkxqSkpKSkpKBUCP39/f2qcKLDoqGdnZ2ZTKp8ysakxqSkxqSkxqSkpFSq/f39/QiUpqbDoqHE + nZ1Mq3ykqMakyqSkxqSkpKSkVAj9/f39hpTIyKbHoqGhoXAIfMrLpMqkxqSkxqTGpKRUqv39/f0IlMym + yKbIpcShcAh8y6jKpMqkxsqkpKSkxlQI/f39/aqUzMzMyKbIpqJwqnzLy8qpxsqkpMakxqSkeAj9/f39 + CJSUlJSUlJSUlJQJgMupy8qpysqkyqSkxqRUqv39/f2GCKoIqgiqCKoIhgigrcvPqcuoy8qkxsqkxnyG + /f39/ar9/f39/f39/f39qnzPz6nLy8uoyqnKpKTKVAj9/f39CP39/f39/f39/f0IfNDPz8+py8upyqjG + yqR8hv39/f2G/f39/f39/f39/Qik0K7P0M+ty8vLy6jKpXyq/f39/ar9/f39/f39/f39CHzQ09Ctz8/P + qcupy6jKeAj9/f39CP39/f39/f39/f2qoNPQ0NPQ0M/Qz8vLy6l8CP39/f2G/f39/f39/f39/QmkfKR8 + oHx8fHx8fHx8fHyG/f39/aoIqgiqCKoIqgiqCKoIqgiqCKoIqgiqCKoIqgj9/f39/f39/f39/f39/f39 + /f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f39/f3///////////// + ///AAAAD3vgAA974AAPe+AAD3vgAA974AAPe+AADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA9/4AAPf+AAD3/gAA9/4AAPf+AAD3/gAA8AAAAP//////////ygA + AAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAA + gACAgAAAgICAAMDcwADwyqYAqj8qAP8/KgAAXyoAVV8qAKpfKgD/XyoAAH8qAFV/KgCqfyoA/38qAACf + KgBVnyoAqp8qAP+fKgAAvyoAVb8qAKq/KgD/vyoAAN8qAFXfKgCq3yoA/98qAAD/KgBV/yoAqv8qAP// + KgAAAFUAVQBVAKoAVQD/AFUAAB9VAFUfVQCqH1UA/x9VAAA/VQBVP1UAqj9VAP8/VQAAX1UAVV9VAKpf + VQD/X1UAAH9VAFV/VQCqf1UA/39VAACfVQBVn1UAqp9VAP+fVQAAv1UAVb9VAKq/VQD/v1UAAN9VAFXf + VQCq31UA/99VAAD/VQBV/1UAqv9VAP//VQAAAH8AVQB/AKoAfwD/AH8AAB9/AFUffwCqH38A/x9/AAA/ + fwBVP38Aqj9/AP8/fwAAX38AVV9/AKpffwD/X38AAH9/AFV/fwCqf38A/39/AACffwBVn38Aqp9/AP+f + fwAAv38AVb9/AKq/fwD/v38AAN9/AFXffwCq338A/99/AAD/fwBV/38Aqv9/AP//fwAAAKoAVQCqAKoA + qgD/AKoAAB+qAFUfqgCqH6oA/x+qAAA/qgBVP6oAqj+qAP8/qgAAX6oAVV+qAKpfqgD/X6oAAH+qAFV/ + qgCqf6oA/3+qAACfqgBVn6oAqp+qAP+fqgAAv6oAVb+qAKq/qgD/v6oAAN+qAFXfqgCq36oA/9+qAAD/ + qgBV/6oAqv+qAP//qgAAANQAVQDUAKoA1AD/ANQAAB/UAFUf1ACqH9QA/x/UAAA/1ABVP9QAqj/UAP8/ + 1AAAX9QAVV/UAKpf1AD/X9QAAH/UAFV/1ACqf9QA/3/UAACf1ABVn9QAqp/UAP+f1AAAv9QAVb/UAKq/ + 1AD/v9QAAN/UAFXf1ACq39QA/9/UAAD/1ABV/9QAqv/UAP//1ABVAP8AqgD/AAAf/wBVH/8Aqh//AP8f + /wAAP/8AVT//AKo//wD/P/8AAF//AFVf/wCqX/8A/1//AAB//wBVf/8Aqn//AP9//wAAn/8AVZ//AKqf + /wD/n/8AAL//AFW//wCqv/8A/7//AADf/wBV3/8Aqt//AP/f/wBV//8Aqv//AP/MzAD/zP8A//8zAP// + ZgD//5kA///MAAB/AABVfwAAqn8AAP9/AAAAnwAAVZ8AAKqfAAD/nwAAAL8AAFW/AACqvwAA/78AAADf + AABV3wAAqt8AAP/fAABV/wAAqv8AAAAAKgBVACoAqgAqAP8AKgAAHyoAVR8qAKofKgD/HyoAAD8qAFU/ + KgDw+/8ApKCgAICAgAAAAP8AAP8AAAD//wD/AAAAAAAAAP//AAD///8A/f39/f39/f39/f39/f39/f0I + hgiqCKoICKoICKaGCP39qv39hv2GNg4ODjII/ar9/Yb9/ar9qjdjXzsOCP2G/f0IhquGCAleCWNfNob9 + qv39qkxMTEgIX19fX18I/Qj9/QhwnZlMqoYIqggIqgiG/f2qcKadcAl8fFQDVFQDqv39CHDMpnCqfMvL + ysrKVAj9/QiUlHBwCYDPy8/LylSG/f2GqoYIqgig0M/Py8t8qv39CP39/f2GpNDQ0M/PfAn9/ar9/f39 + qqT20NDQ0Hyq/f2G/f39/QmkpKSloKR8CP39CKoIhgiqCIYIqgiGCKr9/f39/f39/f39/f39/f39/f// + hv2AAf0ItAX9/bQFX2OABWNfgAU7O4ABNzeAAf39gAGq/YAB/YaAAf39vAE6h7wBX2O8AV9fgAE7N/// + /f0oAAAAIAAAAEAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADCv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/ + wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/ + wf/Cv8H/AAAAAAAAAAAAAAAAAAAAAMK/wf8AAAAAAAAAAAAAAAAAAAAAwr/B/wAAAAAAAAAAAAAAAAAA + AAAAAAAAwr/B/7Z3Sf+zckT/rm0//6toO/+nYjb/pF4y/6BZLv+dVCr/mlEn/5dNI/+VSiH/kkce/5FE + HP+RRBz/kUUb/8K/wf8AAAAAAAAAAAAAAAAAAAAAwr/B/wAAAAAAAAAAAAAAAAAAAADCv8H/AAAAAAAA + AAAAAAAAAAAAAAAAAADCv8H/v4JS//+aZv//lWD/+5Bc//WLV//uh1P/54FO/997S//Wdkb/zXBD/8Vr + QP+9Zj3/tGI5/65dN/+RRRz/wr/B/wAAAAAAAAAAAAAAAAAAAADCv8H/AAAAAAAAAAAAAAAAAAAAAMK/ + wf8AAAAAAAAAAAAAAAAAAAAAAAAAAMK/wf/GjFv//6Rz//+fbf//m2f//5Zh//yRXf/3jVj/8IhV/+mD + UP/hfUz/2HhI/9ByRP/HbED/v2c9/5VJIf/Cv8H/AAAAAAAAAAAAAAAAAAAAAMK/wf8AAAAAAAAAAAAA + AAAAAAAAwr/B/wAAAAAAAAAAAAAAAAAAAAAAAAAAwr/B/86WZP//r4L//6p7//+mdf//oW7//5xo//+X + Yv/9kl7/+I5a//KJVf/rhFH/4n5N/9t4SP/Sc0X/mlEm/8K/wf8AAAAAAAAAAAAAAAAAAAAAwr/B/wAA + AAAAAAAAAAAAAAAAAADCv8H/AAAAAAAAAAAAAAAAAAAAAAAAAADCv8H/1J9s//+4kf//tIv//6+E//+r + ff//p3f//6Jw//+eav//mWT//pRf//qQWv/0i1b/7IVS/+V/Tv+gWC7/wr/B/wAAAAAAAAAAAAAAAAAA + AADCv8H/AAAAAAAAAAAAAAAAAAAAAMK/wf8AAAAAAAAAAAAAAAAAAAAAAAAAAMK/wf/apnP//7+d//+7 + mP//uJL//7WM//+whv//rH///6d4//+jcf//n2v//5ll//+VYP/6kVv/9YxY/6diN//Cv8H/AAAAAAAA + AAAAAAAAAAAAAMK/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/96t + eP//wqL//8Gi//+/nv//vJn//7mT//+2jv//sYj//66A//+pev//pHP//6Bt//+bZ///l2L/r20//8K/ + wf8AAAAAAAAAAAAAAAAAAAAAwr/B/xYXev8XF3b/GBVx/xkUbf8ZFGr/GhNm/xoSY/8bEV//HBFd/xwQ + W//Cv8H/4K96///Cov//wqL//8Ki///Cov//wJ///72b//+6lf//t4///7KJ//+ugv//qnv//6V0//+h + bv+3d0n/wr/B/wAAAAAAAAAAAAAAAAAAAADCv8H/FRqE/0dN1v8/RNL/Nz3Q/y40zv8nLcz/ISfK/xwh + yf8WHMf/GxJh/8K/wf/gr3r/4K96/+Cvev/gr3r/3614/9yqdf/apnL/16Nw/9Sea//Rmmj/zZZk/8qR + X//GjFz/w4dW/7+CUv/Cv8H/AAAAAAAAAAAAAAAAAAAAAMK/wf8SHZD/WF3a/05U1/9FS9X/PUPS/zU7 + 0P8uM83/JyzL/yAmyf8aFGn/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/ + wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf8AAAAAAAAAAAAAAAAAAAAAwr/B/xAfnP9obt7/YGTc/1Zb + 2f9NU9f/RUrU/ztB0v80OdD/LDHO/xgWcv/Cv8H/Dn+n/w18pP8MeqH/DHie/wt1m/8Kc5j/CXGV/wlv + k/8JbJD/CGqN/wdpi/8HZ4j/BmWH/wZkhf8GYoP/wr/B/wAAAAAAAAAAAAAAAAAAAADCv8H/DiKp/3l+ + 4/9vdeH/Zmze/11i2/9UWtn/S1HW/0NI1P86P9H/Fhh9/8K/wf8Ogar/Barp/wGo6P8Apef/AKPm/wCi + 5P8An+L/AJ7h/wCd3/8AnN7/AJnc/wCY2/8AmNn/AJbX/wZjhP/Cv8H/AAAAAAAAAAAAAAAAAAAAAMK/ + wf8MJbX/iI7n/4CF5v93fOP/bnPg/2Vr3f9bYdv/UljY/0lP1v8UGoj/wr/B/w+Erf8Lrur/Bqvq/wOo + 6f8Apuf/AKTm/wCi5f8AoOT/AJ/i/wCd4f8AnN//AJrd/wCZ2/8AmNr/BmWH/8K/wf8AAAAAAAAAAAAA + AAAAAAAAwr/B/wkowP+WnOz/jpTq/4aL6P9+hOX/dXri/2xx4P9jaN3/WV/b/xEek//Cv8H/EIaw/xay + 7P8Or+z/Cavr/wWq6v8Bp+j/AKbn/wCj5f8AoeT/AJ/j/wCe4f8AnOD/AJve/wCa3f8HZ4n/wr/B/wAA + AAAAAAAAAAAAAAAAAADCv8H/CCrK/6Ko7/+coe7/lZrr/42T6f+Fiub/fIHl/3N54v9rcN//ECGg/8K/ + wf8QiLP/I7nu/xq07f8Ssez/C63r/war6v8Cqen/AKbo/wCk5v8AouX/AKHk/wCf4f8AneH/AJzf/who + i//Cv8H/AAAAAAAAAAAAAAAAAAAAAMK/wf8GLNP/q7Hy/6as8P+hpu//mp/u/5OY6/+LkOj/g4nm/3qA + 5P8NI6z/wr/B/xCKtv8xvvD/J7rv/x627f8Vsuz/Dq/s/wmr6/8Equn/Aafo/wCl5/8Ao+X/AKHk/wCf + 4v8AnuH/CGqO/8K/wf8AAAAAAAAAAAAAAAAAAAAAwr/B/wUu2/+vtPP/r7Tz/6qv8v+mq/D/oKXv/5me + 7f+Sl+v/io/p/wsmt//Cv8H/Eo24/0HF8f82wfD/LLzv/yK47v8atO3/EbHs/wut6/8Gq+r/A6np/wCm + 6P8Apeb/AKLl/wCh5P8IbJD/wr/B/wAAAAAAAAAAAAAAAAAAAADCv8H/BC/h/wQv3/8FL9z/BS3Z/wYt + 1v8GLNL/ByvP/wgqy/8IKcb/CSnC/8K/wf8Sjrv/Uszy/0fH8f87w/H/Mb7v/ye67/8et+7/FbPt/w6v + 6/8IrOv/BKnp/wGo6P8Apef/AKPl/wluk//Cv8H/AAAAAAAAAAAAAAAAAAAAAMK/wf/Cv8H/wr/B/8K/ + wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/xKRvf9j0/P/WM/z/0zK8f9BxfH/N8Hw/yy8 + 7/8iuO7/GbTt/xGx7P8Lruv/Bqrq/wOo6f8Apuf/CnGV/8K/wf8AAAAAAAAAAAAAAAAAAAAAwr/B/wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCv8H/E5LA/3Ta8/9q1fP/XtHz/1LM + 8v9Hx/H/O8Pw/zG+7/8nu+//Hrbt/xay7f8Or+v/CKzq/wSq6f8Kc5j/wr/B/wAAAAAAAAAAAAAAAAAA + AADCv8H/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMK/wf8UlMH/hOD1/3rc + 9f9v2PP/ZNTy/1jO8v9NyvH/Qsbx/zbB8P8svO//I7ju/xm07f8SsOz/C67r/wt2m//Cv8H/AAAAAAAA + AAAAAAAAAAAAAMK/wf8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwr/B/xSW + w/+T5vb/iuL1/3/e9P912vT/adbz/13R8/9SzPL/R8jx/zzD8P8xvvD/J7rv/x627v8Vsuz/C3ie/8K/ + wf8AAAAAAAAAAAAAAAAAAAAAwr/B/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AADCv8H/FJbG/57r9/+X6Pb/juT1/4Th9f963fX/b9j0/2PT8/9Yz/L/TMrx/0HF8f83wO//LLzv/yK4 + 7v8MeqH/wr/B/wAAAAAAAAAAAAAAAAAAAADCv8H/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAMK/wf8VmMf/qO/3/6Lt9/+b6vb/kub2/4rj9f9/3vX/dNrz/2rV8/9d0fP/Uszy/0fI + 8f88w/D/Mr7v/w19pP/Cv8H/AAAAAAAAAAAAAAAAAAAAAMK/wf8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAwr/B/xWZyP8UmMf/FZfF/xSVw/8TlML/E5K//xOQvf8Sjrv/EYy4/xGK + tv8QiLL/D4Ww/w+Erf8Pgar/Dn+n/8K/wf8AAAAAAAAAAAAAAAAAAAAAwr/B/8K/wf/Cv8H/wr/B/8K/ + wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/ + wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/8K/wf/Cv8H/wr/B/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /////////////8AAAAPe+AAD3vgAA974AAPe+AAD3vgAA974AAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAD3/gAA9/4AAPf+AAD3/gAA9/4AAPf+AADwAAAA/// + ////////KAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwMDA/8DA + wP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP8AAAAAAAAAAMDA + wP8AAAAAAAAAAMDAwP8AAAAAwMDA/8F2R/+9bj//umc6/7diNf+3YjX/wMDA/wAAAADAwMD/AAAAAAAA + AADAwMD/AAAAAAAAAADAwMD/AAAAAMDAwP/RkmD//7aP//+ldP/8kl3/vW0//8DAwP8AAAAAwMDA/wAA + AAAAAAAAwMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/3ap2///Cov//to7//6V0/8uJWP/AwMD/AAAAAMDA + wP8AAAAAAAAAAMDAwP8THI7/FBqF/xYYfP8XFnP/wMDA/+Cvev/gr3r/4K96/92qdv/ao3D/wMDA/wAA + AADAwMD/AAAAAAAAAADAwMD/ECCd/2Fn3P8zOc//FRmC/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DA + wP/AwMD/wMDA/wAAAAAAAAAAwMDA/w0krP+Pler/YWbd/xIcj//AwMD/DHmf/wpzmP8Ib5L/B2uO/wdq + jf8Gao3/B2qN/8DAwP8AAAAAAAAAAMDAwP8KJrv/r7Tz/5CU6v8PIJ//wMDA/w+Dq/87y/z/Kcb8/xrD + /P8QwPv/EMD7/wdqjf/AwMD/AAAAAAAAAADAwMD/CCrI/woowP8LJrf/DSSu/8DAwP8Sjbj/Zdb9/0/Q + /P88y/v/Kcf7/xrC+/8IbZD/wMDA/wAAAAAAAAAAwMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/FpfG/43h + /f962/3/Zdb8/0/Q/P87zPz/CXSZ/8DAwP8AAAAAAAAAAMDAwP8AAAAAAAAAAAAAAAAAAAAAwMDA/xif + z/+u6f7/n+X9/47h/f953P3/ZNb9/w19pP/AwMD/AAAAAAAAAADAwMD/AAAAAAAAAAAAAAAAAAAAAMDA + wP8apNX/uez+/7ns/v+u6f7/oOX9/43h/f8Rh7H/wMDA/wAAAAAAAAAAwMDA/wAAAAAAAAAAAAAAAAAA + AADAwMD/GqTV/xqk1f8apNX/GaHR/xecy/8WmMb/FJK+/8DAwP8AAAAAAAAAAMDAwP/AwMD/wMDA/8DA + wP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/wMDA/8DAwP/AwMD/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//wAAgAEAALQF + wf+0BQAAgAUAAIAFAACAAQAAgAHB/4ABAACAAQAAgAEAALwBAAC8AQAAvAHB/4ABbP///5H/ + + + + 51 + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/MDIMain.vb b/Backup/CBAnsDes/MDIMain.vb new file mode 100644 index 0000000..0292a60 --- /dev/null +++ b/Backup/CBAnsDes/MDIMain.vb @@ -0,0 +1,446 @@ +Imports System.Windows.Forms +Imports System.IO +Imports System.Collections.Specialized +Imports System.Runtime.Serialization.Formatters.Binary +Public Class MDIMain + +#Region "New Menu" + + Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click + Dim msgrslt As String + If mem.Count <> 0 Then + CreateToolStripMenuItem_Click(sender, e) + msgrslt = MessageBox.Show("Do you want to save your Job ?", "Samson Mano", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + If msgrslt = Windows.Forms.DialogResult.Yes Then + SaveAsToolStripMenuItem_Click(sender, e) + ElseIf msgrslt = Windows.Forms.DialogResult.No Then + GoTo x1 + Else + beamcreate.mainpic.Refresh() + Exit Sub + End If + + End If +x1: + mem.Clear() + Dim Frm As New Newapp(False) + Frm.ShowInTaskbar = False + Frm.ShowDialog() + + If Frm.F <> True Then + ToolStrip1.Visible = False + EditMenu.Enabled = False + ComputeToolStripMenuItem.Enabled = False + ViewMenu.Enabled = False + ToolsMenu.Enabled = False + beamcreate.Visible = False + beamcreate.mainpic.Refresh() + Exit Sub + End If + + ' Make it a child of this MDI form before showing it. + beamcreate.MdiParent = Me + beamcreate.Text = Frm.TextBox1.Text + beamcreate.Dock = DockStyle.Fill + beamcreate.Show() + + ToolStrip1.Visible = True + ToolStripButton1.Enabled = True + AddMemberToolStripMenuItem.Enabled = True + ToolStripButton2.Enabled = True + BeamEndsToolStripMenuItem.Enabled = True + ToolStripButton3.Enabled = False + editMemberToolStripMenuItem.Enabled = False + ToolStripButton4.Enabled = False + RemoveMemberToolStripMenuItem.Enabled = False + ToolStripButton5.Enabled = False + AddLoadToolStripMenuItem.Enabled = False + ToolStripButton6.Enabled = False + RemoveLoadsToolStripMenuItem.Enabled = False + ToolStripButton7.Enabled = False + ModifyLoadToolStripMenuItem.Enabled = False + ToolStripButton8.Enabled = False + RemoveLoadToolStripMenuItem.Enabled = False + + EditMenu.Enabled = True + ComputeToolStripMenuItem.Enabled = True + ViewMenu.Enabled = True + ToolsMenu.Enabled = True + CreateToolStripMenuItem_Click(sender, e) + CreateToolStripMenuItem.Checked = True + beamcreate.mainpic.Refresh() + Me.WindowState = FormWindowState.Maximized + End Sub + + Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click + Dim msgrslt As String + CreateToolStripMenuItem_Click(sender, e) + CreateToolStripMenuItem.Checked = True + If mem.Count <> 0 Then + msgrslt = MessageBox.Show("Do you want to save your Job ?", "Samson Mano", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) + If msgrslt = Windows.Forms.DialogResult.Yes Then + SaveAsToolStripMenuItem_Click(sender, e) + ElseIf msgrslt = Windows.Forms.DialogResult.No Then + GoTo x1 + Else + beamcreate.mainpic.Refresh() + Exit Sub + End If + Else +x1: + mem.Clear() + beamcreate.mainpic.Refresh() + + beamcreate.Visible = False + ToolStrip1.Visible = False + ToolStrip2.Visible = False + EditMenu.Enabled = False + ComputeToolStripMenuItem.Enabled = False + ViewMenu.Enabled = False + ToolsMenu.Enabled = False + + Dim ofd = New OpenFileDialog() + ofd.DefaultExt = ".cbf" + ofd.Filter = "Samson Mano's continuous beam Object Files (*.cbf)|*.cbf" + ofd.ShowDialog() + If File.Exists(ofd.FileName) Then + Dim cbobject As New List(Of Object) + Dim gsf As Stream = File.OpenRead(ofd.FileName) + Dim deserializer As New BinaryFormatter + Try + cbobject = CType(deserializer.Deserialize(gsf), Object) + Catch ex As Exception + MessageBox.Show("Unable to Open !!!", "Samson Mano", MessageBoxButtons.OK, MessageBoxIcon.Error) + Exit Sub + End Try + Dim instance1 As List(Of Member) = cbobject(0) + mem = instance1 + Dim instance2 As Integer = cbobject(1) + ends = instance2 + '----Call For ALL + beamcreate.MdiParent = Me + beamcreate.Text = ofd.FileName + beamcreate.Dock = DockStyle.Fill + beamcreate.Show() + + ToolStrip1.Visible = True + ToolStripButton1.Enabled = True + AddMemberToolStripMenuItem.Enabled = True + ToolStripButton2.Enabled = True + BeamEndsToolStripMenuItem.Enabled = True + ToolStripButton3.Enabled = False + editMemberToolStripMenuItem.Enabled = False + ToolStripButton4.Enabled = False + RemoveMemberToolStripMenuItem.Enabled = False + ToolStripButton5.Enabled = False + AddLoadToolStripMenuItem.Enabled = False + ToolStripButton6.Enabled = False + RemoveLoadsToolStripMenuItem.Enabled = False + ToolStripButton7.Enabled = False + ModifyLoadToolStripMenuItem.Enabled = False + ToolStripButton8.Enabled = False + RemoveLoadToolStripMenuItem.Enabled = False + + EditMenu.Enabled = True + ComputeToolStripMenuItem.Enabled = True + ViewMenu.Enabled = True + ToolsMenu.Enabled = True + CreateToolStripMenuItem_Click(sender, e) + CreateToolStripMenuItem.Checked = True + beamcreate.mainpic.Refresh() + Me.WindowState = FormWindowState.Maximized + gsf.Close() + Else + 'MessageBox.Show("File does not exist!") + End If + beamcreate.mainpic.Refresh() + End If + End Sub + + Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveToolStripMenuItem.Click, SaveToolStripButton.Click + + If mem.Count <> 0 Then + CreateToolStripMenuItem_Click(sender, e) + CreateToolStripMenuItem.Checked = True + Dim sfd = New SaveFileDialog + sfd.DefaultExt = ".cbf" + sfd.Filter = "Samson Mano's continuous beam Object Files (*.cbf)|*.cbf" + sfd.ShowDialog() + + If sfd.FileName <> "" Then + Dim cbobject As New List(Of Object) + + cbobject.Add(mem) + cbobject.Add(ends) + Dim psf As Stream = File.Create(sfd.FileName) + Dim serializer As New BinaryFormatter + serializer.Serialize(psf, cbobject) + psf.Close() + End If + End If + End Sub + + Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click + Me.Close() + End Sub + +#End Region + +#Region "Edit Menu" + +#End Region + +#Region "View Menu" + Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click + Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked + End Sub + + Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click + Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked + End Sub +#End Region + +#Region "Toolstrip1" + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddMemberToolStripMenuItem.Click, ToolStripButton1.Click + '--Add Member + Dim a As New addmember + a.Text = "Add Member" + a.ShowDialog() + End Sub + + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeamEndsToolStripMenuItem.Click, ToolStripButton2.Click + '--Edit Ends + Dim a As New Ends_Editor + a.ShowDialog() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles editMemberToolStripMenuItem.Click, ToolStripButton3.Click + '--Edit Member + Dim a As New addmember + a.Text = "Modify Member" + a.TextBox1.Text = mem(selline).spanlength + a.TextBox2.Text = mem(selline).Emodulus + a.TextBox3.Text = mem(selline).Inertia + a.TextBox6.Text = mem(selline).g + a.ShowDialog() + End Sub + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveMemberToolStripMenuItem.Click, ToolStripButton4.Click + '--Remove Member + If ends = 4 And mem.Count = 3 Then + Exit Sub + ElseIf ends = 6 And mem.Count = 2 Then + Exit Sub + End If + If mem.Count <> 1 Then + mem.RemoveAt(selline) + selline = -1 + beamcreate.toolstrip1Mod() + beamcreate.mainpic.Refresh() + End If + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddLoadToolStripMenuItem.Click, ToolStripButton5.Click + '--Add Loads + Dim a As New LoadWindow(mem(selline).spanlength, selline) + a.ShowDialog() + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveLoadsToolStripMenuItem.Click, ToolStripButton6.Click + '--Remove Loads + mem(selline).Pload.Clear() + mem(selline).Uload.Clear() + mem(selline).Mload.Clear() + beamcreate.mainpic.Refresh() + End Sub + + Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModifyLoadToolStripMenuItem.Click, ToolStripButton7.Click + '--Edit Load + If beamcreate.tipe = 1 Then + Dim a As New LoadWindow(mem(Lselline).spanlength, Lselline, beamcreate.selPL) + a.ShowDialog() + ElseIf beamcreate.tipe = 2 Then + Dim a As New LoadWindow(mem(Lselline).spanlength, Lselline, beamcreate.selUL) + a.ShowDialog() + ElseIf beamcreate.tipe = 3 Then + Dim a As New LoadWindow(mem(Lselline).spanlength, Lselline, beamcreate.selML) + a.ShowDialog() + End If + beamcreate.mainpic.Refresh() + End Sub + + Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveLoadToolStripMenuItem.Click, ToolStripButton8.Click + '--Single Load is removed + If beamcreate.tipe = 1 Then + mem(Lselline).Pload.Remove(beamcreate.selPL) + ElseIf beamcreate.tipe = 2 Then + mem(Lselline).Uload.Remove(beamcreate.selUL) + ElseIf beamcreate.tipe = 3 Then + mem(Lselline).Mload.Remove(beamcreate.selML) + End If + '--Null selected load + Dim ptm As New Member.P + Dim utm As New Member.U + Dim mtm As New Member.M + beamcreate.selPL = ptm + beamcreate.selUL = utm + beamcreate.selML = mtm + selline = -1 + Lselline = -1 + beamcreate.toolstrip1Mod() + beamcreate.mainpic.Refresh() + End Sub +#End Region + +#Region "Compute Menu" + Private Sub CreateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateToolStripMenuItem.Click + AnalyzeToolStripMenuItem.Checked = False + CreateToolStripMenuItem.Checked = True + DesignToolStripMenuItem.Checked = False + beamcreate.mainpic.Visible = True + beamcreate.respic.Visible = False + DesignToolStripMenuItem.Visible = False + ResultToolStripMenuItem.Visible = False + EditMenu.Enabled = True + ToolStrip1.Visible = True + ToolStrip2.Visible = False + beamcreate.mainpic.Refresh() + beamcreate.respic.Refresh() + ToolStripLabel1.Text = "100%" + ToolStripLabel2.Text = "100%" + End Sub + + Private Sub AnalyzeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnalyzeToolStripMenuItem.Click + For Each m In mem + If m.Pload.Count <> 0 Or m.Uload.Count <> 0 Or m.Mload.Count <> 0 Then + '------Analysis Part + 'Try + Call TESLA() + 'Catch ex As Exception + ' MsgBox("Error Analysis ..... " & vbNewLine & "Please Report Bug" & vbNewLine & "..................................................", MsgBoxStyle.OkOnly, "Bug") + ' CreateToolStripMenuItem_Click(sender, e) + ' Exit Sub + 'End Try + + DesignToolStripMenuItem.Checked = False + AnalyzeToolStripMenuItem.Checked = True + CreateToolStripMenuItem.Checked = False + beamcreate.mainpic.Visible = False + beamcreate.respic.Visible = True + DesignToolStripMenuItem.Visible = True + ResultToolStripMenuItem.Visible = True + ToolStrip1.Visible = False + ToolStrip2.Visible = True + EditMenu.Enabled = False + beamcreate.mainpic.Refresh() + beamcreate.respic.Refresh() + ToolStripLabel1.Text = 100% + ToolStripLabel2.Text = 100% + + BendingMomentDiagramToolStripMenuItem_Click(sender, e) + Exit Sub + Else + Continue For + End If + Next + MsgBox("No valid Load type is found !!!!!!!!", MsgBoxStyle.OkOnly, "No Load") + CreateToolStripMenuItem_Click(sender, e) + End Sub + + Private Sub DesignToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesignToolStripMenuItem.Click + CreateToolStripMenuItem.Checked = False + AnalyzeToolStripMenuItem.Checked = False + End Sub + + Private Sub ShearForceDiagramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShearForceDiagramToolStripMenuItem.Click, ToolStripButton9.Click + If BendingMomentDiagramToolStripMenuItem.Checked = True Or DeflectionToolStripMenuItem.Checked = True Or SlopeToolStripMenuItem.Checked = True Then + BendingMomentDiagramToolStripMenuItem.Checked = False + DeflectionToolStripMenuItem.Checked = False + SlopeToolStripMenuItem.Checked = False + ShearForceDiagramToolStripMenuItem.Checked = True + beamcreate.respic.Refresh() + End If + End Sub + + Private Sub BendingMomentDiagramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BendingMomentDiagramToolStripMenuItem.Click, ToolStripButton10.Click + If ShearForceDiagramToolStripMenuItem.Checked = True Or DeflectionToolStripMenuItem.Checked = True Or SlopeToolStripMenuItem.Checked = True Then + ShearForceDiagramToolStripMenuItem.Checked = False + DeflectionToolStripMenuItem.Checked = False + BendingMomentDiagramToolStripMenuItem.Checked = True + SlopeToolStripMenuItem.Checked = False + beamcreate.respic.Refresh() + End If + End Sub + + Private Sub DeflectionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeflectionToolStripMenuItem.Click, ToolStripButton11.Click + If BendingMomentDiagramToolStripMenuItem.Checked = True Or ShearForceDiagramToolStripMenuItem.Checked = True Or SlopeToolStripMenuItem.Checked = True Then + BendingMomentDiagramToolStripMenuItem.Checked = False + ShearForceDiagramToolStripMenuItem.Checked = False + DeflectionToolStripMenuItem.Checked = True + SlopeToolStripMenuItem.Checked = False + beamcreate.respic.Refresh() + End If + End Sub + Private Sub SlopeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlopeToolStripMenuItem.Click, ToolStripButton12.Click + If BendingMomentDiagramToolStripMenuItem.Checked = True Or ShearForceDiagramToolStripMenuItem.Checked = True Or DeflectionToolStripMenuItem.Checked = True Then + BendingMomentDiagramToolStripMenuItem.Checked = False + ShearForceDiagramToolStripMenuItem.Checked = False + DeflectionToolStripMenuItem.Checked = False + SlopeToolStripMenuItem.Checked = True + beamcreate.respic.Refresh() + End If + End Sub +#End Region + + + Private Sub MDIMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + ToolStrip1.Visible = False + ToolStrip2.Visible = False + EditMenu.Enabled = False + ComputeToolStripMenuItem.Enabled = False + ViewMenu.Enabled = False + ToolsMenu.Enabled = False + '---Scene + 'Me.Visible = False + 'logo.ShowDialog() + 'Me.Visible = True + End Sub + + Private Sub GeneralInstructionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GeneralInstructionToolStripMenuItem.Click + GeneralInstruction.ShowDialog() + End Sub + + Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click + Aboutus.ShowDialog() + End Sub + + Private Sub memdetailsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles memdetailsToolStripMenuItem.Click + TESLA(True) + End Sub + + Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click + Dim p As New Process() + p.StartInfo.FileName = "calc.exe" + p.Start() + End Sub + + Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + 'PrintDocument1.DefaultPageSettings.PaperSource.Kind = "Custom" + + + + 'PrintDocument1.DefaultPageSettings.PaperSize.Height = 21 'PrintDocument1.DefaultPageSettings.PaperSize.Width = 10 PrintPreviewDialog1.Document = PrintDocument1 + + + + PrintPreviewDialog1.ShowDialog() + + + End Sub + + Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage + + + End Sub + +End Class diff --git a/Backup/CBAnsDes/Modules/FEAnalyzer.vb b/Backup/CBAnsDes/Modules/FEAnalyzer.vb new file mode 100644 index 0000000..446d6fa --- /dev/null +++ b/Backup/CBAnsDes/Modules/FEAnalyzer.vb @@ -0,0 +1,1676 @@ +Module FEAnalyzer + Dim Tmem As List(Of Member) + + Public Sub TESLA(Optional ByVal c As Boolean = False) + Dim _NoofDivision As Integer = 2 + Tmem = New List(Of Member) + FixTempMem(Tmem, _NoofDivision) + + '------Main Variables + Dim str As String = "" + Dim b, i As String + Dim GSM(Tmem.Count * 2 + 1, Tmem.Count * 2 + 1) As Double + Dim DOFM(Tmem.Count * 2 + 1) As Integer + Dim FERM(Tmem.Count * 2 + 1) As Double + Dim Cbound As Integer + Dim totlength As Double + Dim ScaTotLength As Integer = beamcreate.coverpic.Width - 200 + For Each itm In Tmem + totlength = totlength + itm.spanlength + Next + + For Each itm In Tmem + Call FixFER(itm) + Call GStiffness(itm, GSM) + Next + Call FixDM(DOFM) + Call FixFM(FERM) + + + '-------------For Check----------------- + str = str & vbNewLine + str = str & "----> Degree Of Freedom <----" & vbNewLine & vbNewLine + + For Each itm In Tmem + i = (Tmem.IndexOf(itm) + 1) + b = itm.DOF(0) * -1 + str = str & "Member " & i & ": " & b & vbTab + b = itm.DOF(1) * -1 + str = str & b & vbTab + b = itm.DOF(2) * -1 + str = str & b & vbTab + b = itm.DOF(3) * -1 + str = str & b & vbTab & vbNewLine + Next + str = str & vbNewLine & vbNewLine + str = str & "----> Fixed End Moment <----" & vbNewLine & vbNewLine + + For Each itm In Tmem + i = (Tmem.IndexOf(itm) + 1) + b = Math.Round(itm.FER(0), 2) + str = str & "Member " & i & ": " & b & vbTab + b = Math.Round(itm.FER(1), 2) + str = str & b & vbTab + b = Math.Round(itm.FER(2), 2) + str = str & b & vbTab + b = Math.Round(itm.FER(3), 2) + str = str & b & vbTab & vbNewLine + Next + str = str & vbNewLine & vbNewLine + str = str & "----> Global Stiffnessmatrix <----" & vbNewLine & vbNewLine + + For p = 0 To ((Tmem.Count * 2) + 1) + str = str & "|" + For t = 0 To ((Tmem.Count * 2) + 1) + b = Math.Round(GSM(p, t), 2) + str = str & vbTab & b + Next + str = str & vbTab & "|" & vbNewLine + Next + str = str & vbNewLine & vbNewLine + str = str & "----> Load Matrix <----" & vbTab & vbTab & "----> DOF Matrix <----" & vbNewLine & vbNewLine + For p = 0 To ((Tmem.Count * 2) + 1) + str = str & "|" + b = Math.Round(FERM(p), 2) + str = str & vbTab & b & vbTab & "|" + str = str & vbTab & vbTab & "|" + b = DOFM(p) * -1 + str = str & vbTab & b + str = str & vbTab & "|" & vbNewLine + Next + + '-------Curtailment Zone -------------- + '-------------------------------------- + Call Curtailment(GSM, DOFM, FERM, Cbound) + '-------------------------------------- + '-------------------------------------- + + str = str & vbNewLine & vbNewLine + str = str & "----> Global Stiffnessmatrix After Curtailment<----" & vbNewLine & vbNewLine + For p = 0 To (Cbound) - 1 + str = str & "|" + For t = 0 To (Cbound) - 1 + b = Math.Round(GSM(p, t), 2) + str = str & vbTab & b + Next + str = str & vbTab & "|" & vbNewLine + Next + str = str & vbNewLine & vbNewLine + str = str & "----> Load Matrix After Curtailment <----" & vbNewLine & vbNewLine + For p = 0 To (Cbound) - 1 + str = str & "|" + b = Math.Round(FERM(p), 2) + str = str & vbTab & b + str = str & vbTab & "|" & vbNewLine + Next + + '----------- Gauss Elimination Zone ------------- + '------------------------------------------------ + Dim RESM(Cbound - 1) As Double + Call Gauss(GSM, FERM, RESM, Cbound - 1) + '------------------------------------------------ + '------------------------------------------------ + + str = str & vbNewLine & vbNewLine + str = str & "----> Result Matrix <----" & vbNewLine & vbNewLine + For p = 0 To (Cbound) - 1 + str = str & "|" + b = Math.Round((RESM(p)), 4) + str = str & vbTab & b + str = str & vbTab & "|" & vbNewLine + Next + + '----------------- Welding Zone ---------------- + '----------------------------------------------- + ReDim GSM((Tmem.Count * 2) + 1, (Tmem.Count * 2) + 1) + ReDim DOFM((Tmem.Count * 2) + 1) + ReDim FERM((Tmem.Count * 2) + 1) + For Each itm In Tmem + Call FixFER(itm) + Call GStiffness(itm, GSM) + Next + Call FixDM(DOFM) + Call FixFM(FERM) + '-----------------Deflection & Rotation at Nodes - Result matrix RESM + Dim theta_delta_matrix((Tmem.Count * 2) + 1) As Double + + Call Welding(RESM, FERM, DOFM, theta_delta_matrix) + Call GMultiplier(GSM, RESM) + Call loadMINU(RESM, FERM, theta_delta_matrix) + '----------------------------------------------- + '----------------------------------------------- + + str = str & vbNewLine & vbNewLine + str = str & "----> Result Matrix after welding <----" & vbNewLine & vbNewLine + For p = 0 To ((Tmem.Count * 2) + 1) + str = str & "|" + b = Math.Round((RESM(p)), 2) + str = str & vbTab & b + str = str & vbTab & "|" & vbNewLine + Next + str = str & vbNewLine + str = str & "----> Reaction in Members <----" & vbNewLine & vbNewLine + str = str & " RA" & vbTab & "MA" & vbTab & "RB" & vbTab & "MB" & vbNewLine + For Each itm In Tmem + i = (Tmem.IndexOf(itm) + 1) + b = Math.Round(itm.RES(0), 2) + str = str & "Member " & i & ": " & b & vbTab + b = Math.Round(itm.RES(1), 2) + str = str & b & vbTab + b = Math.Round(itm.RES(2), 2) + str = str & b & vbTab + b = Math.Round(itm.RES(3), 2) + str = str & b & vbTab & vbNewLine + Next + + Dim _tempI As Integer = 0 + For Each E In mem + mem(mem.IndexOf(E)).RES(0) = Tmem(_tempI).RES(0) + mem(mem.IndexOf(E)).RES(1) = Tmem(_tempI).RES(1) + mem(mem.IndexOf(E)).RES(2) = Tmem((_tempI + _NoofDivision) - 1).RES(2) + mem(mem.IndexOf(E)).RES(3) = Tmem((_tempI + _NoofDivision) - 1).RES(3) + + mem(mem.IndexOf(E)).DISP(0) = Tmem(_tempI).DISP(0) + mem(mem.IndexOf(E)).DISP(1) = Tmem(_tempI).DISP(1) + mem(mem.IndexOf(E)).DISP(2) = Tmem((_tempI + _NoofDivision) - 1).DISP(2) + mem(mem.IndexOf(E)).DISP(3) = Tmem((_tempI + _NoofDivision) - 1).DISP(3) + _tempI = _tempI + _NoofDivision + Next + + str = str & vbNewLine + str = str & "----> Reaction in Compiled Members <----" & vbNewLine & vbNewLine + str = str & " RA" & vbTab & "MA" & vbTab & "RB" & vbTab & "MB" & vbNewLine + For Each itm In mem + i = (mem.IndexOf(itm) + 1) + b = Math.Round(itm.RES(0), 2) + str = str & "Member " & i & ": " & b & vbTab + b = Math.Round(itm.RES(1), 2) + str = str & b & vbTab + b = Math.Round(itm.RES(2), 2) + str = str & b & vbTab + b = Math.Round(itm.RES(3), 2) + str = str & b & vbTab & vbNewLine + Next + + + Dim EquilibriumMember As New Member + FixEquilibriumMember(EquilibriumMember) + + str = str & vbNewLine + str = str & "----> Equilibrium Member <----" & vbNewLine & vbNewLine + str = str & "Location" & vbTab & "Point Load" & vbNewLine + For Each P In EquilibriumMember.Pload + str = str & P.pdist & vbTab & P.pload & vbNewLine + Next + str = str & vbNewLine + str = str & "Location" & vbTab & "Moment" & vbNewLine + For Each M In EquilibriumMember.Mload + str = str & M.mdist & vbTab & M.mload & vbNewLine + Next + str = str & vbNewLine + str = str & "Location" & vbTab & "UVL" & vbNewLine + For Each U In EquilibriumMember.Uload + str = str & U.udist1 & vbTab & U.uload1 & vbNewLine + str = str & U.udist2 & vbTab & U.uload2 & vbNewLine + Next + str = str & vbNewLine + str = str & "Location" & vbTab & "UVL" & vbNewLine + + + '-------------- Member Details -------------- + '-------------------------------------------- + If c = True Then + Dim a As New memDetails + a.text1 = str + a.ShowDialog() + Exit Sub + End If + + Call CoordinateCalculator() + End Sub + +#Region "FEA Analysis" + Private Sub FixTempMem(ByRef Tmem As List(Of Member), ByVal _NoofDivision As Integer) + '----Temporary member disintegration for better results and non singular solutions for determinate beams + For Each itm In mem + Call FixDOF(itm) + Next + For Each itm In mem + 'If itm.Pload.Count = 0 And itm.Uload.Count = 0 And itm.Mload.Count = 0 Then + ' Tmem.Add(itm) + ' Continue For + 'End If + Dim _Division As Double = itm.spanlength / _NoofDivision + For K = 1 To _NoofDivision + Dim _disintegratedmember As New Member + _disintegratedmember.spanlength = _Division + _disintegratedmember.Emodulus = itm.Emodulus + _disintegratedmember.Inertia = itm.Inertia + '-----Adding Point Load comes under the disintegrated member + For Each Pl In itm.Pload + If Pl.pdist <= (K * _Division) And Pl.pdist > ((K - 1) * _Division) Then + Dim T_Pl As New Member.P + T_Pl.pload = Pl.pload + T_Pl.pdist = Pl.pdist - ((K - 1) * _Division) + _disintegratedmember.Pload.Add(T_Pl) + End If + Next + '-----Adding UVL comes under the disintegrated member + For Each Ul In itm.Uload + If Ul.udist2 <= (K * _Division) And Ul.udist1 > ((K - 1) * _Division) Then + '----Case 1: If the whole load lies inside the disintegration + Dim T_Ul As New Member.U + T_Ul.uload1 = Ul.uload1 + T_Ul.uload2 = Ul.uload2 + T_Ul.udist1 = Ul.udist1 - ((K - 1) * _Division) + T_Ul.udist2 = Ul.udist2 - ((K - 1) * _Division) + _disintegratedmember.Uload.Add(T_Ul) + ElseIf Ul.udist1 < (K * _Division) And Ul.udist1 > ((K - 1) * _Division) Then + '----Case 2: location 1 lies inside the disintegration + Dim T_Ul As New Member.U + T_Ul.uload1 = Ul.uload1 + If Ul.uload1 <= Ul.uload2 Then + T_Ul.uload2 = Ul.uload1 + _ + (((Ul.uload2 - Ul.uload1) / (Ul.udist2 - Ul.udist1)) * ((K * _Division) - Ul.udist1)) + Else + T_Ul.uload2 = Ul.uload2 + _ + (((Ul.uload1 - Ul.uload2) / (Ul.udist2 - Ul.udist1)) * (Ul.udist2 - (K * _Division))) + End If + T_Ul.udist1 = Ul.udist1 - ((K - 1) * _Division) + T_Ul.udist2 = _Division + _disintegratedmember.Uload.Add(T_Ul) + ElseIf Ul.udist2 < (K * _Division) And Ul.udist2 > ((K - 1) * _Division) Then + '----Case 3: location 2 lies inside the disintegration + Dim T_Ul As New Member.U + If Ul.uload1 <= Ul.uload2 Then + T_Ul.uload1 = Ul.uload1 + _ + (((Ul.uload2 - Ul.uload1) / (Ul.udist2 - Ul.udist1)) * (((K - 1) * _Division) - Ul.udist1)) + Else + T_Ul.uload1 = Ul.uload2 + _ + (((Ul.uload1 - Ul.uload2) / (Ul.udist2 - Ul.udist1)) * (Ul.udist2 - ((K - 1) * _Division))) + End If + T_Ul.uload2 = Ul.uload2 + T_Ul.udist1 = 0 + T_Ul.udist2 = Ul.udist2 - ((K - 1) * _Division) + _disintegratedmember.Uload.Add(T_Ul) + ElseIf Ul.udist2 >= (K * _Division) And Ul.udist1 <= ((K - 1) * _Division) Then + '----Case 4: disintegration lies inside the load + Dim T_Ul As New Member.U + If Ul.uload1 <= Ul.uload2 Then + T_Ul.uload1 = Ul.uload1 + _ + (((Ul.uload2 - Ul.uload1) / (Ul.udist2 - Ul.udist1)) * (((K - 1) * _Division) - Ul.udist1)) + T_Ul.uload2 = Ul.uload1 + _ + (((Ul.uload2 - Ul.uload1) / (Ul.udist2 - Ul.udist1)) * ((K * _Division) - Ul.udist1)) + Else + T_Ul.uload1 = Ul.uload2 + _ + (((Ul.uload1 - Ul.uload2) / (Ul.udist2 - Ul.udist1)) * (Ul.udist2 - ((K - 1) * _Division))) + T_Ul.uload2 = Ul.uload2 + _ + (((Ul.uload1 - Ul.uload2) / (Ul.udist2 - Ul.udist1)) * (Ul.udist2 - (K * _Division))) + End If + T_Ul.udist1 = 0 + T_Ul.udist2 = _Division + _disintegratedmember.Uload.Add(T_Ul) + End If + Next + '-----Adding moment comes under the disintegrated member + For Each Ml In itm.Mload + If Ml.mdist <= (K * _Division) And Ml.mdist > ((K - 1) * _Division) Then + Dim T_Ml As New Member.M + T_Ml.mload = Ml.mload + T_Ml.mdist = Ml.mdist - ((K - 1) * _Division) + _disintegratedmember.Mload.Add(T_Ml) + End If + Next + '---Fixing Degree Of Freedom + If K = 1 Then + '----Left end + _disintegratedmember.DOF(0) = itm.DOF(0) + _disintegratedmember.DOF(1) = itm.DOF(1) + _disintegratedmember.DOF(2) = 1 + _disintegratedmember.DOF(3) = 1 + ElseIf K = _NoofDivision Then + '----Right end + _disintegratedmember.DOF(0) = 1 + _disintegratedmember.DOF(1) = 1 + _disintegratedmember.DOF(2) = itm.DOF(2) + _disintegratedmember.DOF(3) = itm.DOF(3) + Else + '-----Inbetween disintegrated members are free to translate and rotate + _disintegratedmember.DOF(0) = 1 + _disintegratedmember.DOF(1) = 1 + _disintegratedmember.DOF(2) = 1 + _disintegratedmember.DOF(3) = 1 + End If + + Tmem.Add(_disintegratedmember) + Next + Next + End Sub + + Private Sub FixDOF(ByVal M As Member) + If mem.IndexOf(M) = 0 And mem.IndexOf(M) = mem.Count - 1 Then + Select Case ends + Case 1 'Fixed-Fixed + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 0 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 0 + Exit Sub + Case 2 'Fixed-Free + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 0 + mem(mem.IndexOf(M)).DOF(2) = 1 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 3 'Pinned-Pinned + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 4 'Free-Free + Exit Sub + Case 5 'Fixed-Pinned + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 0 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 6 'pinned-free + Exit Sub + End Select + ElseIf mem.IndexOf(M) = 0 Then + Select Case ends + Case 1 'Fixed-Fixed + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 0 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 2 'Fixed-Free + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 0 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 3 'Pinned-Pinned + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 4 'Free-Free + mem(mem.IndexOf(M)).DOF(0) = 1 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 5 'Fixed-Pinned + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 0 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 6 'pinned-free + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + End Select + ElseIf mem.IndexOf(M) = mem.Count - 1 Then + Select Case ends + Case 1 'Fixed-Fixed + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 0 + Exit Sub + Case 2 'Fixed-Free + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 1 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 3 'Pinned-Pinned + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 4 'Free-Free + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 1 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 5 'Fixed-Pinned + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + Case 6 'pinned-free + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 1 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + End Select + Else + mem(mem.IndexOf(M)).DOF(0) = 0 + mem(mem.IndexOf(M)).DOF(1) = 1 + mem(mem.IndexOf(M)).DOF(2) = 0 + mem(mem.IndexOf(M)).DOF(3) = 1 + Exit Sub + End If + + End Sub + +#Region " Fixed End Reaction - Force & Moment" + Private Sub FixFER(ByVal E As Member) + '<------Finding reaction---------> + Dim Fi, Mi, Fj, Mj As Double + FER_Total(Fi, Mi, Fj, Mj, E) + + Tmem(Tmem.IndexOf(E)).FER(0) = Fi 'Upward - ive + Tmem(Tmem.IndexOf(E)).FER(1) = Mi 'Anti clockwise - ive + Tmem(Tmem.IndexOf(E)).FER(2) = Fj 'downward + ive + Tmem(Tmem.IndexOf(E)).FER(3) = Mj ' clockwise + ive + End Sub + + Private Sub FER_Total(ByRef Fi As Double, ByRef Mi As Double, ByRef Fj As Double, ByRef Mj As Double, ByVal Fmem As Member) + Fi = 0 + Mi = 0 + Fj = 0 + Mj = 0 + Dim Tmi, Tmj, Tfi, Tfj As Double + Dim Length As Double = Fmem.spanlength + Dim K, a, b, c As Double + For Each PL In Fmem.Pload + K = PL.pload + a = PL.pdist + b = Length - PL.pdist + + Tmi = ((4 * deltaI_PointLoad(PL.pload, b, Length) - 2 * deltaJ_PointLoad(PL.pload, a, Length)) / Length) + Tmj = ((2 * deltaI_PointLoad(PL.pload, b, Length) - 4 * deltaJ_PointLoad(PL.pload, a, Length)) / Length) + Tfi = (((K * b) + Tmi + Tmj) / Length) + Tfj = (((K * a) - Tmi - Tmj) / Length) + + Mi = Mi + Tmi + Mj = Mj + Tmj + Fi = Fi + Tfi + Fj = Fj + Tfj + Next + For Each ML In Fmem.Mload + K = ML.mload + a = ML.mdist + b = Length - ML.mdist + + Tmi = ((4 * deltaI_Momentoad(ML.mload, b, Length) - 2 * deltaJ_Momentoad(ML.mload, a, Length)) / Length) + Tmj = ((2 * deltaI_Momentoad(ML.mload, b, Length) - 4 * deltaJ_Momentoad(ML.mload, a, Length)) / Length) + Tfi = (((K * b) + Tmi + Tmj) / Length) + Tfj = (((K * a) - Tmi - Tmj) / Length) + + Mi = Mi + ((((ML.mload) * b * ((3 * a) - Length)) / (Length ^ 2))) ' + Tmi + Mj = Mj + ((((ML.mload) * a * ((3 * b) - Length)) / (Length ^ 2))) ' + Tmj + Fi = Fi + (((6 * (ML.mload) * a * b) / (Length ^ 3))) ' + Tfi + Fj = Fj - (((6 * (ML.mload) * a * b) / (Length ^ 3))) '+ Tfj + Next + For Each UL In Fmem.Uload + If UL.uload1 = UL.uload2 Then + c = UL.udist2 - UL.udist1 + K = UL.uload1 * c + a = UL.udist1 + (c / 2) + b = Length - (UL.udist2 - (c / 2)) + + Tmi = ((4 * deltaI_UVLoadCase1(UL.uload1, a, b, c, Length) - 2 * deltaJ_UVLoadCase1(UL.uload1, a, b, c, Length)) / Length) + Tmj = ((2 * deltaI_UVLoadCase1(UL.uload1, a, b, c, Length) - 4 * deltaJ_UVLoadCase1(UL.uload1, a, b, c, Length)) / Length) + Tfi = (((K * b) + Tmi + Tmj) / Length) + Tfj = (((K * a) - Tmi - Tmj) / Length) + + Mi = Mi + Tmi + Mj = Mj + Tmj + Fi = Fi + Tfi + Fj = Fj + Tfj + ElseIf UL.uload2 > UL.uload1 Then + '---------For the smallest of load - ie., uniformly distributed + c = UL.udist2 - UL.udist1 + K = UL.uload1 * c + a = UL.udist1 + (c / 2) + b = Length - (UL.udist2 - (c / 2)) + + Tmi = ((4 * deltaI_UVLoadCase1(UL.uload1, a, b, c, Length) - 2 * deltaJ_UVLoadCase1(UL.uload1, a, b, c, Length)) / Length) + Tmj = ((2 * deltaI_UVLoadCase1(UL.uload1, a, b, c, Length) - 4 * deltaJ_UVLoadCase1(UL.uload1, a, b, c, Length)) / Length) + Tfi = (((K * b) + Tmi + Tmj) / Length) + Tfj = (((K * a) - Tmi - Tmj) / Length) + + Mi = Mi + Tmi + Mj = Mj + Tmj + Fi = Fi + Tfi + Fj = Fj + Tfj + + '---------For the varrying load + c = UL.udist2 - UL.udist1 + K = (UL.uload2 - UL.uload1) * (c / 2) + a = UL.udist1 + ((2 * c) / 3) + b = Length - (UL.udist2 - (c / 3)) + + Tmi = ((4 * deltaI_UVLoadCase2((UL.uload2 - UL.uload1), a, c, Length) - 2 * deltaJ_UVLoadCase2((UL.uload2 - UL.uload1), b, c, Length)) / Length) + Tmj = ((2 * deltaI_UVLoadCase2((UL.uload2 - UL.uload1), a, c, Length) - 4 * deltaJ_UVLoadCase2((UL.uload2 - UL.uload1), b, c, Length)) / Length) + Tfi = (((K * b) + Tmi + Tmj) / Length) + Tfj = (((K * a) - Tmi - Tmj) / Length) + + Mi = Mi + Tmi + Mj = Mj + Tmj + Fi = Fi + Tfi + Fj = Fj + Tfj + ElseIf UL.uload2 < UL.uload1 Then + '---------For the smallest of load - ie., uniformly distributed + c = UL.udist2 - UL.udist1 + K = UL.uload2 * c + a = UL.udist1 + (c / 2) + b = Length - (UL.udist2 - (c / 2)) + + Tmi = ((4 * deltaI_UVLoadCase1(UL.uload2, a, b, c, Length) - 2 * deltaJ_UVLoadCase1(UL.uload2, a, b, c, Length)) / Length) + Tmj = ((2 * deltaI_UVLoadCase1(UL.uload2, a, b, c, Length) - 4 * deltaJ_UVLoadCase1(UL.uload2, a, b, c, Length)) / Length) + Tfi = (((K * b) + Tmi + Tmj) / Length) + Tfj = (((K * a) - Tmi - Tmj) / Length) + + Mi = Mi + Tmi + Mj = Mj + Tmj + Fi = Fi + Tfi + Fj = Fj + Tfj + + '---------For the varrying load + c = UL.udist2 - UL.udist1 + K = (UL.uload1 - UL.uload2) * (c / 2) + a = UL.udist1 + (c / 3) + b = Length - (UL.udist2 - ((2 * c) / 3)) + + Tmi = ((4 * deltaI_UVLoadCase3((UL.uload1 - UL.uload2), a, c, Length) - 2 * deltaJ_UVLoadCase3((UL.uload1 - UL.uload2), b, c, Length)) / Length) + Tmj = ((2 * deltaI_UVLoadCase3((UL.uload1 - UL.uload2), a, c, Length) - 4 * deltaJ_UVLoadCase3((UL.uload1 - UL.uload2), b, c, Length)) / Length) + Tfi = (((K * b) + Tmi + Tmj) / Length) + Tfj = (((K * a) - Tmi - Tmj) / Length) + + Mi = Mi + Tmi + Mj = Mj + Tmj + Fi = Fi + Tfi + Fj = Fj + Tfj + End If + Next + End Sub + + Private Function deltaI_PointLoad(ByVal W As Double, ByVal b As Double, ByVal L As Double) As Double + Dim Di As Double + Di = (W * b * ((L ^ 2) - (b ^ 2))) / (6 * L) + Return Di + End Function + + Private Function deltaJ_PointLoad(ByVal W As Double, ByVal a As Double, ByVal L As Double) As Double + Dim Dj As Double + Dj = (W * a * ((L ^ 2) - (a ^ 2))) / (6 * L) + Return Dj + End Function + + Private Function deltaI_UVLoadCase1(ByVal W As Double, ByVal a As Double, ByVal b As Double, ByVal c As Double, ByVal L As Double) As Double + '-------- Uload1 = uload2 + Dim Di As Double + Di = (W * b * c * ((4 * a * (b + L)) - (c ^ 2))) / (24 * L) + Return Di + End Function + + Private Function deltaJ_UVLoadCase1(ByVal W As Double, ByVal a As Double, ByVal b As Double, ByVal c As Double, ByVal L As Double) As Double + '-------- Uload1 = uload2 + Dim Dj As Double + Dj = (W * a * c * ((4 * b * (a + L)) - (c ^ 2))) / (24 * L) + Return Dj + End Function + + Private Function deltaI_UVLoadCase2(ByVal W As Double, ByVal a As Double, ByVal c As Double, ByVal L As Double) As Double + '-------- Uload1 < uload2 + Dim Di, alpha, gamma As Double + alpha = a / L + gamma = c / L + Di = ((W * (L ^ 3) * gamma) * _ + ((270 * (alpha - (alpha ^ 3))) - ((gamma ^ 2) * ((45 * alpha) - (2 * gamma))))) / _ + (3240) + Return Di + End Function + + Private Function deltaJ_UVLoadCase2(ByVal W As Double, ByVal b As Double, ByVal c As Double, ByVal L As Double) As Double + '-------- Uload1 < uload2 + Dim Dj, beta, gamma As Double + beta = b / L + gamma = c / L + Dj = ((W * (L ^ 3) * gamma) * _ + ((270 * (beta - (beta ^ 3))) - ((gamma ^ 2) * ((45 * beta) + (2 * gamma))))) / _ + (3240) + Return Dj + End Function + + Private Function deltaI_UVLoadCase3(ByVal W As Double, ByVal a As Double, ByVal c As Double, ByVal L As Double) As Double + '-------- Uload1 > uload2 + Dim Di, alpha, gamma As Double + alpha = a / L + gamma = c / L + Di = ((W * (L ^ 3) * gamma) * _ + ((270 * (alpha - (alpha ^ 3))) - ((gamma ^ 2) * ((45 * alpha) + (2 * gamma))))) / _ + (3240) + Return Di + End Function + + Private Function deltaJ_UVLoadCase3(ByVal W As Double, ByVal b As Double, ByVal c As Double, ByVal L As Double) As Double + '-------- Uload1 > uload2 + Dim Dj, beta, gamma As Double + beta = b / L + gamma = c / L + Dj = ((W * (L ^ 3) * gamma) * _ + ((270 * (beta - (beta ^ 3))) - ((gamma ^ 2) * ((45 * beta) - (2 * gamma))))) / _ + (3240) + Return Dj + End Function + + Private Function deltaI_Momentoad(ByVal W As Double, ByVal b As Double, ByVal L As Double) As Double + Dim Di As Double + Di = ((W) * ((3 * (b ^ 2)) - (L ^ 2))) / (6 * L) + Return Di + End Function + + Private Function deltaJ_Momentoad(ByVal W As Double, ByVal a As Double, ByVal L As Double) As Double + Dim Dj As Double + Dj = ((W) * ((L ^ 2) - (3 * (a ^ 2)))) / (6 * L) + Return Dj + End Function +#End Region + + Private Sub GStiffness(ByVal M As Member, ByRef gm(,) As Double) + '-----------Stiffness matrix for Members -------------- + Dim c1 As Double = (M.Emodulus * M.Inertia) _ + / (M.spanlength * ((M.spanlength ^ 2) + (12 * M.g))) + + Tmem(Tmem.IndexOf(M)).stiff(0, 0) = 12 * c1 + Tmem(Tmem.IndexOf(M)).stiff(0, 1) = 6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(0, 2) = -12 * c1 + Tmem(Tmem.IndexOf(M)).stiff(0, 3) = 6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(1, 0) = 6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(1, 1) = ((4 * (M.spanlength ^ 2)) + (12 * M.g)) * c1 + Tmem(Tmem.IndexOf(M)).stiff(1, 2) = -6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(1, 3) = ((2 * (M.spanlength ^ 2)) - (12 * M.g)) * c1 + Tmem(Tmem.IndexOf(M)).stiff(2, 0) = -12 * c1 + Tmem(Tmem.IndexOf(M)).stiff(2, 1) = -6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(2, 2) = 12 * c1 + Tmem(Tmem.IndexOf(M)).stiff(2, 3) = -6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(3, 0) = 6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(3, 1) = ((2 * (M.spanlength ^ 2)) - (12 * M.g)) * c1 + Tmem(Tmem.IndexOf(M)).stiff(3, 2) = -6 * M.spanlength * c1 + Tmem(Tmem.IndexOf(M)).stiff(3, 3) = ((4 * (M.spanlength ^ 2)) + (12 * M.g)) * c1 + Dim d As Integer = Tmem.IndexOf(M) * 2 + For l = 0 To 3 + For k = 0 To 3 + gm((l + d), (k + d)) = (gm((l + d), (k + d)) + (Tmem(Tmem.IndexOf(M)).stiff(l, k))) + Next + Next + End Sub + + Private Sub FixDM(ByRef dm() As Integer) + For Each E In Tmem + dm(Tmem.IndexOf(E) * 2) = E.DOF(0) + dm((Tmem.IndexOf(E) * 2) + 1) = E.DOF(1) + dm((Tmem.IndexOf(E) * 2) + 2) = E.DOF(2) + dm((Tmem.IndexOf(E) * 2) + 3) = E.DOF(3) + Next + End Sub + + Private Sub FixFM(ByRef fm() As Double) + For Each E In Tmem + If Tmem.IndexOf(E) = 0 Then + fm(Tmem.IndexOf(E) * 2) = E.FER(0) + fm((Tmem.IndexOf(E) * 2) + 1) = E.FER(1) + fm((Tmem.IndexOf(E) * 2) + 2) = E.FER(2) + fm((Tmem.IndexOf(E) * 2) + 3) = E.FER(3) + Continue For + End If + fm(Tmem.IndexOf(E) * 2) = fm(Tmem.IndexOf(E) * 2) + E.FER(0) + fm((Tmem.IndexOf(E) * 2) + 1) = fm((Tmem.IndexOf(E) * 2) + 1) + E.FER(1) + fm((Tmem.IndexOf(E) * 2) + 2) = E.FER(2) + fm((Tmem.IndexOf(E) * 2) + 3) = E.FER(3) + Next + End Sub + + Private Sub Curtailment(ByRef gm(,) As Double, ByRef dofm() As Integer, ByRef ferm() As Double, ByRef cb As Integer) + Dim tgm(Tmem.Count * 2 + 1, Tmem.Count * 2 + 1) As Double + Dim tdofm(Tmem.Count * 2 + 1) As Integer + Dim tferm(Tmem.Count * 2 + 1) As Double + + Dim r, s As Integer + For p = 0 To (Tmem.Count * 2 + 1) + If dofm(p) = 0 Then + Continue For + Else + s = 0 + For t = 0 To (Tmem.Count * 2 + 1) + If dofm(t) = 0 Then + Continue For + Else + tferm(s) = ferm(t) + tdofm(s) = dofm(t) + tgm(r, s) = gm(p, t) + s = s + 1 + End If + Next + r = r + 1 + End If + Next + + ReDim gm(r - 1, r - 1) + ReDim dofm(r - 1) + ReDim ferm(r - 1) + + For p = 0 To r - 1 + dofm(p) = tdofm(p) + ferm(p) = tferm(p) + For t = 0 To r - 1 + gm(p, t) = tgm(p, t) + Next + Next + cb = r + End Sub + + Private Sub GElimination(ByRef A(,) As Double, ByRef B() As Double, ByRef re() As Double, ByVal cb As Integer) + '----Check For Double Span + If Tmem.Count - 1 <= 0 Then + Exit Sub + End If + + Dim Triangular_A(cb, cb + 1), line_1, temporary_1, multiplier_1, sum_1 As Double + Dim soln(cb) As Double 'Solution matrix + For n = 0 To cb + For m = 0 To cb + Triangular_A(m, n) = A(m, n) + Next + Next + + '.... substituting the force to triangularmatrics.... + For n = 0 To cb + Triangular_A(n, cb + 1) = B(n) + Next + + '...............soving the triangular matrics............. + For k = 0 To cb + '......Bring a non-zero element first by changes lines if necessary + If Triangular_A(k, k) = 0 Then + For n = k To cb + If Triangular_A(n, k) <> 0 Then line_1 = n : Exit For 'Finds line_1 with non-zero element + Next n + '..........Change line k with line_1 + For m = k To cb + temporary_1 = Triangular_A(k, m) + Triangular_A(k, m) = Triangular_A(line_1, m) + Triangular_A(line_1, m) = temporary_1 + Next m + End If + '....For other lines, make a zero element by using: + '.........Ai1=Aij-A11*(Aij/A11) + '.....and change all the line using the same formula for other elements + For n = k + 1 To cb + If Triangular_A(n, k) <> 0 Then 'if it is zero, stays as it is + multiplier_1 = Triangular_A(n, k) / Triangular_A(k, k) + For m = k To cb + 1 + Triangular_A(n, m) = Triangular_A(n, m) - Triangular_A(k, m) * multiplier_1 + Next m + End If + Next n + Next k + + + '..... calculating the dof value.......... + + 'First, calculate last xi (for i = System_DIM) + soln(cb) = Triangular_A(cb, cb + 1) / Triangular_A(cb, cb) + + '................ + For n = 0 To cb + sum_1 = 0 + For m = 0 To n + sum_1 = sum_1 + soln(cb + 1 - m) * Triangular_A(cb - n, cb - m) + Next m + soln(cb - n) = (Triangular_A(cb - n, cb + 1) - sum_1) / Triangular_A(cb - n, cb - n) + + Next n + + For n = 0 To cb + re(n) = soln(n + 1) + Next + End Sub + +#Region "Gauss Elimination Method" + '-----Redefined Gauss Elimination Procedure + Private Sub Gauss(ByVal A(,) As Double, ByVal B() As Double, ByRef X() As Double, ByVal Bound As Integer) + Dim Triangular_A(Bound, Bound + 1) As Double + Dim soln(Bound) As Double 'Solution matrix + For m = 0 To Bound + For n = 0 To Bound + Triangular_A(m, n) = A(m, n) + Next + Next + '.... substituting the force to triangularmatrics.... + For n = 0 To Bound + Triangular_A(n, Bound + 1) = B(n) + Next + ForwardSubstitution(Triangular_A, Bound) + ReverseElimination(Triangular_A, X, Bound) + End Sub + + + Private Sub ForwardSubstitution(ByRef _triang(,) As Double, ByVal bound As Integer) + 'Forward Elimination + 'Dim _fraction As Double + For k = 0 To bound - 1 + For i = k + 1 To bound + If _triang(k, k) = 0 Then + Continue For + End If + _triang(i, k) = _triang(i, k) / _triang(k, k) + For j = k + 1 To bound + 1 + _triang(i, j) = _triang(i, j) - (_triang(i, k) * _triang(k, j)) + Next + Next + Next + End Sub + + Private Sub ReverseElimination(ByRef _triang(,) As Double, ByRef X() As Double, ByVal bound As Integer) + 'Back Substitution + For i = 0 To bound + X(i) = _triang(i, bound + 1) + Next + + For i = bound To 0 Step -1 + For j = i + 1 To bound + X(i) = X(i) - (_triang(i, j) * X(j)) + Next + X(i) = X(i) / _triang(i, i) + Next + End Sub +#End Region + + Private Sub Welding(ByRef re() As Double, ByRef fer() As Double, ByRef dm() As Integer, ByRef Theta_Delta_matrix() As Double) + Dim tres(Tmem.Count * 2 + 1) As Double + Dim j As Integer + For i = 0 To (Tmem.Count * 2 + 1) + If dm(i) = 0 Then + Continue For + End If + tres(i) = tres(i) + re(j) + j = j + 1 + Next + ReDim re(Tmem.Count * 2 + 1) + ReDim Theta_Delta_matrix(Tmem.Count * 2 + 1) + For i = 0 To (Tmem.Count * 2 + 1) + re(i) = tres(i) + Theta_Delta_matrix(i) = tres(i) + Next + End Sub + + Private Sub GMultiplier(ByRef gm(,) As Double, ByRef re() As Double) + Dim teR(Tmem.Count * 2 + 1) As Double + For i = 0 To ((Tmem.Count * 2) + 1) + teR(i) = 0 + For j = 0 To ((Tmem.Count * 2) + 1) + teR(i) = teR(i) + (gm(i, j) * re(j)) + Next + Next + For i = 0 To (Tmem.Count * 2 + 1) + re(i) = teR(i) + Next + End Sub + + Private Sub loadMINU(ByRef re() As Double, ByRef lo() As Double, ByRef ThetaDelta() As Double) + For i = 0 To (Tmem.Count * 2 + 1) + re(i) = re(i) - lo(i) + Next + For Each E In Tmem + Tmem(Tmem.IndexOf(E)).RES(0) = re(Tmem.IndexOf(E) * 2) + Tmem(Tmem.IndexOf(E)).RES(1) = re((Tmem.IndexOf(E) * 2) + 1) + Tmem(Tmem.IndexOf(E)).RES(2) = re((Tmem.IndexOf(E) * 2) + 2) + Tmem(Tmem.IndexOf(E)).RES(3) = re((Tmem.IndexOf(E) * 2) + 3) + + Tmem(Tmem.IndexOf(E)).DISP(0) = ThetaDelta(Tmem.IndexOf(E) * 2) + Tmem(Tmem.IndexOf(E)).DISP(1) = ThetaDelta((Tmem.IndexOf(E) * 2) + 1) + Tmem(Tmem.IndexOf(E)).DISP(2) = ThetaDelta((Tmem.IndexOf(E) * 2) + 2) + Tmem(Tmem.IndexOf(E)).DISP(3) = ThetaDelta((Tmem.IndexOf(E) * 2) + 3) + Next + End Sub +#End Region + +#Region "Co-ordinate calculation" + Public Sub CoordinateCalculator() + '------- Normalized Equilibrium Member + Dim FRmem As New Member + + FixEquilibriumMember(FRmem) + + BeamCoords.Clear() + DX.Clear() + SF.Clear() + BM.Clear() + SL.Clear() + DE.Clear() + + '------- Shear Force & Bending moment Coordinate Fixing + FixDisintegration(FRmem) + For Each X In DX + BeamCoords.Add(((1600 / 2 - beamcreate.coverpic.Width / 2) + 100) + (((beamcreate.coverpic.Width - 200) / FRmem.spanlength) * X)) + SF.Add(Total_ShearForce_L(Math.Round(X, 2), FRmem)) + BM.Add(Total_BendingMoment_L(Math.Round(X, 2), FRmem)) + Next + FixShearForce_Coords(FRmem) + FixDisplacement_Slope_Deflection(FRmem) + FixBendingMoment_Coords() + FixSlopeDeflection_Coords() + End Sub + + Private Sub FixDisintegration(ByVal FRmem As Member) + Dim _dx As Double = FRmem.spanlength / (beamcreate.coverpic.Width - 200) + Dim _LoopV As Double = 0 + Dim TempDX As New List(Of Double) + For _LoopV = 0 To FRmem.spanlength Step _dx + TempDX.Add(_LoopV) + Next + For Each Pl In FRmem.Pload + If TempDX.Contains(Pl.pdist) = False Then + TempDX.Add(Pl.pdist) + End If + Next + For Each Ul In FRmem.Uload + If TempDX.Contains(Ul.udist1) = False Then + TempDX.Add(Ul.udist1) + End If + If TempDX.Contains(Ul.udist2) = False Then + TempDX.Add(Ul.udist2) + End If + Next + For Each Ml In FRmem.Mload + If TempDX.Contains(Ml.mdist) = False Then + TempDX.Add(Ml.mdist) + End If + Next + TempDX.Sort() + DX = TempDX + End Sub + + Private Sub FixEquilibriumMember(ByRef FRmem As Member) + Dim TempLength As Double = 0 + For Each E In mem + '-------Left End reaction + If Math.Round(E.RES(0), 2) <> 0 Then + Dim Reaction_PL_L As Member.P + Reaction_PL_L.pload = E.RES(0) + Reaction_PL_L.pdist = TempLength + FRmem.Pload.Add(Reaction_PL_L) + End If + '-------Left End moment + If Math.Round(E.RES(1), 2) <> 0 Then + Dim Reaction_ML_L As Member.M + Reaction_ML_L.mload = E.RES(1) + Reaction_ML_L.mdist = TempLength + FRmem.Mload.Add(Reaction_ML_L) + End If + For Each Pl In E.Pload + Dim TPl As New Member.P + TPl.pdist = TempLength + Pl.pdist + TPl.pload = Pl.pload + FRmem.Pload.Add(TPl) + Next + For Each Ul In E.Uload + Dim TUl As New Member.U + TUl.udist1 = TempLength + Ul.udist1 + TUl.udist2 = TempLength + Ul.udist2 + TUl.uload1 = Ul.uload1 + TUl.uload2 = Ul.uload2 + FRmem.Uload.Add(TUl) + Next + For Each Ml In E.Mload + Dim TMl As New Member.M + TMl.mdist = TempLength + Ml.mdist + TMl.mload = -Ml.mload '--Clockwise +ive + FRmem.Mload.Add(TMl) + Next + + If mem.IndexOf(E) = mem.Count - 1 Then + '-------Right End reaction + If Math.Round(E.RES(2), 2) <> 0 Then + Dim Reaction_PL_R As Member.P + Reaction_PL_R.pload = E.RES(2) + Reaction_PL_R.pdist = TempLength + E.spanlength + FRmem.Pload.Add(Reaction_PL_R) + End If + '-------Right End moment + If Math.Round(E.RES(3), 2) <> 0 Then + Dim Reaction_ML_R As Member.M + Reaction_ML_R.mload = E.RES(3) + Reaction_ML_R.mdist = TempLength + E.spanlength + FRmem.Mload.Add(Reaction_ML_R) + End If + End If + TempLength = TempLength + E.spanlength + Next + FRmem.spanlength = TempLength + beamcreate.Tlength = TempLength + End Sub + +#Region "Shear Force Calculator" + Private Function Total_ShearForce_L(ByVal _curDx As Double, ByVal Fmem As Member) As Double + '-----Function Returns Total Shear Force in a point from left to right + Dim SF_L As Double + SF_L = SF_PointLoad_L(_curDx, Fmem) + SF_UVL_L(_curDx, Fmem) + Return SF_L + End Function + + Private Function SF_PointLoad_L(ByVal _curDx As Double, ByVal Fmem As Member) As Double + '----Shear Force due to point load from left to right + Dim SF, T_SF As Double + For Each PL In Fmem.Pload + SF = 0 + If _curDx >= PL.pdist Then + SF = PL.pload + End If + T_SF = T_SF + SF + Next + Return T_SF + End Function + + Private Function SF_UVL_L(ByVal _curDx As Double, ByVal Fmem As Member) As Double + '----Shear force due to UVL from left to right + Dim _RectF, _TriF, _SecF, SF, T_SF As Double + For Each UL In Fmem.Uload + SF = 0 + If UL.uload1 <= UL.uload2 Then + If (_curDx >= UL.udist2) Then + _RectF = UL.uload1 * (UL.udist2 - UL.udist1) + _TriF = 0.5 * (UL.uload2 - UL.uload1) * (UL.udist2 - UL.udist1) + SF = _RectF + _TriF + ElseIf ((_curDx >= UL.udist1) And (_curDx < UL.udist2)) Then + _RectF = UL.uload1 * (_curDx - UL.udist1) + _SecF = ((UL.uload2 - UL.uload1) / (UL.udist2 - UL.udist1)) * _ + (_curDx - UL.udist1) + _TriF = 0.5 * _SecF * (_curDx - UL.udist1) + SF = _RectF + _TriF + End If + T_SF = T_SF + SF + Else + If (_curDx >= UL.udist2) Then + _RectF = UL.uload2 * (UL.udist2 - UL.udist1) + _TriF = 0.5 * (UL.uload1 - UL.uload2) * (UL.udist2 - UL.udist1) + SF = _RectF + _TriF + ElseIf ((_curDx >= UL.udist1) And (_curDx < UL.udist2)) Then + _SecF = UL.uload2 + _ + (((UL.uload1 - UL.uload2) / (UL.udist2 - UL.udist1)) * (UL.udist2 - _curDx)) + _RectF = _SecF * (_curDx - UL.udist1) + _TriF = 0.5 * (UL.uload1 - _SecF) * (_curDx - UL.udist1) + SF = _RectF + _TriF + End If + T_SF = T_SF + SF + End If + Next + Return T_SF + End Function + + Private Sub FixShearForce_Coords(ByVal Fmem As Member) + Call FixShearForce_CurveCoords(Fmem) + Call FixShearForce_ShowCoords(Fmem) + End Sub + + Private Sub FixShearForce_CurveCoords(ByVal Fmem As Member) + '-------Finding maximum shear force for scaling the shear curve + Dim maxV As Double = 0 + For Each SForce In SF + If Math.Abs(SForce) > maxV Then + maxV = Math.Abs(SForce) + End If + Next + ShearM = maxV + maxV = 180 / maxV + + '--------Fixing the curve coordinates + ReDim SFpts(SF.Count - 1) + Dim f As Integer = 0 + + For Each S In SF + SFpts(f).X = BeamCoords(f) + SFpts(f).Y = (S * maxV) + (beamcreate.MEheight / 2) + f = f + 1 + Next + End Sub + + Private Sub FixShearForce_ShowCoords(ByVal Fmem As Member) + Dim CDSindex As New List(Of Integer) + CaptureLoadLocations(CDSindex, Fmem) + SFMc.Clear() + ReDim SFmaxs(CDSindex.Count - 1) + Dim f As Integer = 0 + For Each CD In CDSindex + SFMc.Add(CD) + SFmaxs(f).X = SFpts(CD).X + SFmaxs(f).Y = SFpts(CD).Y + If(SFpts(CD).Y > (beamcreate.MEheight / 2), 15, -30) + f = f + 1 + Next + End Sub + + Private Sub CaptureLoadLocations(ByRef _CDIndex As List(Of Integer), ByVal Fmem As Member) + '------Capturing the shear force indexes for displaying + Dim _CDLoc As List(Of Double) + Dim _TemCDindex As New List(Of Integer) + Dim LoadLocation() As Double + Dim i As Integer = 0 + + If Fmem.Pload.Count <> 0 Then + i = i + (Fmem.Pload.Count) + End If + ReDim LoadLocation(i - 1) + '_______________________________________________________________________ + '------Capturing Point Load + i = 0 + For Each PL In Fmem.Pload + LoadLocation(i) = PL.pdist + i = i + 1 + Next + '------Checking for zero values and identical values and adding to list + '------Only for point loads --> coz need to capture left and right + _CDLoc = New List(Of Double) + For j = 0 To i - 1 + If _CDLoc.Contains(LoadLocation(j)) = False Then + _CDLoc.Add(LoadLocation(j)) + End If + Next + '------Capturing left and right index except for start and end location + For Each CDL In _CDLoc + If CDL = 0 Then + _TemCDindex.Add(FirstfromLeft_LoadLocation(CDL, Fmem)) + ElseIf CDL = Fmem.spanlength Then + _TemCDindex.Add(FirstfromRight_LoadLocation(CDL, Fmem)) + Else + _TemCDindex.Add(FirstfromLeft_LoadLocation(CDL, Fmem)) + _TemCDindex.Add(FirstfromRight_LoadLocation(CDL, Fmem)) + End If + Next + '_______________________________________________________________________ + '------Capturing UVL and Moment + i = 0 + If Fmem.Uload.Count <> 0 Then + i = i + ((Fmem.Uload.Count * 2)) + End If + If Fmem.Mload.Count <> 0 Then + i = i + (Fmem.Mload.Count) + End If + ReDim LoadLocation(i - 1) + i = 0 + For Each Ul In Fmem.Uload + LoadLocation(i) = Ul.udist1 + LoadLocation(i + 1) = Ul.udist2 + i = i + 2 + Next + For Each ML In Fmem.Mload + LoadLocation(i) = ML.mdist + i = i + 1 + Next + '------Checking for zero values and identical values and adding to list + '------for UVL & Moment --> need to either left or right + _CDLoc.Clear() + For j = 0 To i - 1 + If _CDLoc.Contains(LoadLocation(j)) = False Then + _CDLoc.Add(LoadLocation(j)) + End If + Next + '------Capturing left and right index except for start and end location + For Each CDL In _CDLoc + If CDL = 0 Then + _TemCDindex.Add(FirstfromLeft_LoadLocation(CDL, Fmem)) + ElseIf CDL = Fmem.spanlength Then + _TemCDindex.Add(FirstfromRight_LoadLocation(CDL, Fmem)) + Else + _TemCDindex.Add(FirstfromLeft_LoadLocation(CDL, Fmem)) + '_TemCDindex.Add(FirstRight_LoadLocation(CDL, Fmem)) + End If + Next + + '------Checking for identical values and adding to list + For Each _ind In _TemCDindex + If _CDIndex.Contains(_ind) = False Then + _CDIndex.Add(_ind) + End If + Next + End Sub + + Private Function FirstfromLeft_LoadLocation(ByVal Loc As Double, ByVal FRmem As Member) As Integer + Dim _dx As Double = FRmem.spanlength / (beamcreate.coverpic.Width - 200) + Dim J As Integer = 0 + For Each X In DX + If X = Loc Then + Return J + Exit Function + End If + J = J + 1 + Next + End Function + + Private Function FirstfromRight_LoadLocation(ByVal Loc As Double, ByVal FRmem As Member) As Integer + Dim _dx As Double = FRmem.spanlength / (beamcreate.coverpic.Width - 200) + Dim J As Integer = 0 + For Each X In DX + If X = Loc Then + Return J - 1 + Exit Function + End If + J = J + 1 + Next + End Function +#End Region + +#Region "Bending Moment Calculator" + Private Function Total_BendingMoment_L(ByVal _curDx As Double, ByVal Fmem As Member) As Double + '-----Function Returns Total Bending Moment in a point from left to right + Dim BM As Double + BM = BM_PointLoad_L(_curDx, Fmem) + _ + BM_UVL_L(_curDx, Fmem) + _ + BM_moment_L(_curDx, Fmem) + Return BM + End Function + + Private Function BM_PointLoad_L(ByVal _curDx As Double, ByVal Fmem As Member) As Double + '----Bending moment due to point load from left to right + Dim BM, T_BM As Double + For Each PL In Fmem.Pload + BM = 0 + If _curDx >= PL.pdist Then + BM = PL.pload * (_curDx - PL.pdist) + End If + T_BM = T_BM + BM + Next + Return T_BM + End Function + + Private Function BM_UVL_L(ByVal _curDx As Double, ByVal Fmem As Member) As Double + '----Bending moment due to UVL from left to right + Dim _RectF, _TriF, _SecF, BM, T_BM As Double + Dim _RectCentroid, _TriCentroid As Double + For Each UL In Fmem.Uload + BM = 0 + If UL.uload1 <= UL.uload2 Then + If (_curDx >= UL.udist2) Then + _RectF = UL.uload1 * (UL.udist2 - UL.udist1) + _TriF = 0.5 * (UL.uload2 - UL.uload1) * (UL.udist2 - UL.udist1) + _RectCentroid = _curDx - (UL.udist1 + ((UL.udist2 - UL.udist1) * (1 / 2))) + _TriCentroid = _curDx - (UL.udist1 + ((UL.udist2 - UL.udist1) * (2 / 3))) + BM = (_RectF * _RectCentroid) + _ + (_TriF * _TriCentroid) + ElseIf ((_curDx >= UL.udist1) And (_curDx < UL.udist2)) Then + _RectF = UL.uload1 * (_curDx - UL.udist1) + _SecF = ((UL.uload2 - UL.uload1) / (UL.udist2 - UL.udist1)) * _ + (_curDx - UL.udist1) + _TriF = 0.5 * _SecF * (_curDx - UL.udist1) + _RectCentroid = _curDx - (UL.udist1 + ((_curDx - UL.udist1) * (1 / 2))) + _TriCentroid = _curDx - (UL.udist1 + ((_curDx - UL.udist1) * (2 / 3))) + BM = (_RectF * _RectCentroid) + _ + (_TriF * _TriCentroid) + End If + T_BM = T_BM + BM + Else + If (_curDx >= UL.udist2) Then + _RectF = UL.uload2 * (UL.udist2 - UL.udist1) + _TriF = 0.5 * (UL.uload1 - UL.uload2) * (UL.udist2 - UL.udist1) + _RectCentroid = _curDx - (UL.udist1 + ((UL.udist2 - UL.udist1) * (1 / 2))) + _TriCentroid = _curDx - (UL.udist1 + ((UL.udist2 - UL.udist1) * (1 / 3))) + BM = (_RectF * _RectCentroid) + _ + (_TriF * _TriCentroid) + ElseIf ((_curDx >= UL.udist1) And (_curDx < UL.udist2)) Then + _SecF = UL.uload2 + _ + (((UL.uload1 - UL.uload2) / (UL.udist2 - UL.udist1)) * (UL.udist2 - _curDx)) + _RectF = _SecF * (_curDx - UL.udist1) + _TriF = 0.5 * (UL.uload1 - _SecF) * (_curDx - UL.udist1) + _RectCentroid = _curDx - (UL.udist1 + ((_curDx - UL.udist1) * (1 / 2))) + _TriCentroid = _curDx - (UL.udist1 + ((_curDx - UL.udist1) * (1 / 3))) + BM = (_RectF * _RectCentroid) + _ + (_TriF * _TriCentroid) + End If + T_BM = T_BM + BM + End If + Next + Return T_BM + End Function + + Private Function BM_moment_L(ByVal _curDx As Double, ByVal Fmem As Member) As Double + '----- Bending moment due to moment from left to right + Dim BM, T_BM As Double + For Each ML In Fmem.Mload + BM = 0 + If _curDx >= ML.mdist Then + BM = -ML.mload + End If + T_BM = T_BM + BM + Next + Return T_BM + End Function + + Private Sub FixBendingMoment_Coords() + FixBendingMoment_CurveCoords() + FixBendingMoment_ShowCoords() + End Sub + + Private Sub FixBendingMoment_CurveCoords() + '-------Finding maximum Bending Moment for scaling the shear curve + Dim maxV As Double = 0 + For Each Bmoment In BM + If Math.Abs(Bmoment) > maxV Then + maxV = Math.Abs(Bmoment) + End If + Next + MomentM = maxV + maxV = 180 / maxV + + '--------Fixing the curve coordinates + ReDim BMpts(BM.Count - 1) + Dim f As Integer = 0 + For Each B In BM + BMpts(f).X = BeamCoords(f) + BMpts(f).Y = (B * maxV) + (beamcreate.MEheight / 2) + f = f + 1 + Next + End Sub + + Private Sub FixBendingMoment_ShowCoords() + '------Capturing the Bending Moment indexes for displaying + Dim CDSindex As New List(Of Integer) + Dim S_sor As Double = 0 + For Each S In SF + If (S > 0 And S_sor < 0) Or (S < 0 And S_sor > 0) Then + If Math.Round(BM(SF.IndexOf(S)), 2) <> 0 Then + CDSindex.Add(SF.IndexOf(S)) + End If + End If + S_sor = S + Next + '------Capturing Moment Location + Dim L As Double = 0 + For Each E In mem + For Each M In E.Mload + Dim I As Integer = DX.IndexOf(L + M.mdist) + CDSindex.Add(I - 1) + CDSindex.Add(I + 1) + Next + L = L + E.spanlength + Next + + If mem(0).DOF(1) = 0 Then + CDSindex.Add(0) + End If + If mem(mem.Count - 1).DOF(3) = 0 Then + If Math.Round(BM(SF.Count - 1), 2) <> 0 Then + CDSindex.Add(SF.Count - 1) + ElseIf Math.Round(BM(SF.Count - 2), 2) <> 0 Then + CDSindex.Add(SF.Count - 2) + ElseIf Math.Round(BM(SF.Count - 3), 2) <> 0 Then + CDSindex.Add(SF.Count - 3) + ElseIf Math.Round(BM(SF.Count - 4), 2) <> 0 Then + CDSindex.Add(SF.Count - 4) + End If + End If + + BMMc.Clear() + ReDim BMmaxs(CDSindex.Count - 1) + Dim f As Integer = 0 + For Each CD In CDSindex + BMMc.Add(CD) + BMmaxs(f).X = BMpts(CD).X + BMmaxs(f).Y = BMpts(CD).Y + If(BMpts(CD).Y > (beamcreate.MEheight / 2), 15, -30) + f = f + 1 + Next + End Sub +#End Region + +#Region "Slope and deflection Calculator" + Private Function GaussQuadrature_3Point(ByVal b As Double, ByVal a As Double, ByVal FRmem As Member, ByVal _Curx As Double) + Dim delta As Double = (b - a) / 2 + Const C1 = 0.555555556 + Const C2 = 0.888888889 + Const C3 = 0.555555556 + + + Const X1 = -0.774596669 + Const X2 = 0.0 + Const X3 = 0.774596669 + + + Dim FX1 As Double = Total_BendingMoment_L(((delta * X1) + ((b + a) / 2)), FRmem) + Dim FX2 As Double = Total_BendingMoment_L(((delta * X2) + ((b + a) / 2)), FRmem) + Dim FX3 As Double = Total_BendingMoment_L(((delta * X3) + ((b + a) / 2)), FRmem) + + Dim Integration As Double + Integration = delta * ((C1 * FX1) + (C2 * FX2) + (C3 * FX3)) + Return Integration + End Function + + Private Sub FixDisplacement_Slope_Deflection(ByVal FRmem As Member) + DE.Clear() + SL.Clear() + + '------- Fixing the disintegration + Dim J As Integer = 0 + Dim _TDx(mem.Count - 1) As List(Of Double) + Dim TotLength As Double = 0 + For Each E In mem + J = 0 + _TDx(mem.IndexOf(E)) = New List(Of Double) + For Each X In DX + If X >= TotLength And X < (TotLength + E.spanlength) Then + _TDx(mem.IndexOf(E)).Add(X - TotLength) + J = J + 1 + End If + Next + TotLength = TotLength + E.spanlength + Next + + + '--------First Integration + Dim _FirstIntegration As New List(Of Double) + Dim LowerLimit As Double = 0 + Dim UpperLimit As Double = 0 + Dim CummulativeBM As Double = 0 + LowerLimit = DX(0) + UpperLimit = (DX(0) + DX(1)) / 2 + CummulativeBM = (GaussQuadrature_3Point(UpperLimit, LowerLimit, FRmem, DX(0))) + _FirstIntegration.Add(CummulativeBM) + For i = 1 To DX.Count - 2 + LowerLimit = (DX(i - 1) + DX(i)) / 2 + UpperLimit = (DX(i) + DX(i + 1)) / 2 + CummulativeBM = CummulativeBM + (GaussQuadrature_3Point(UpperLimit, LowerLimit, FRmem, DX(i))) + _FirstIntegration.Add(CummulativeBM) + Next + LowerLimit = (DX(DX.Count - 2) + DX(DX.Count - 1)) / 2 + UpperLimit = DX(DX.Count - 1) + CummulativeBM = (CummulativeBM + GaussQuadrature_3Point(UpperLimit, LowerLimit, FRmem, DX(DX.Count - 1))) + _FirstIntegration.Add(CummulativeBM) + + + '--------Second Integration + Dim _SecondIntegration As New List(Of Double) + LowerLimit = 0 + UpperLimit = 0 + Dim CummulativeSL As Double = 0 + LowerLimit = DX(0) + UpperLimit = (DX(0) + DX(1)) / 2 + CummulativeSL = (((UpperLimit - LowerLimit) / 2) * (_FirstIntegration(0))) + _SecondIntegration.Add(CummulativeSL) + For i = 1 To DX.Count - 2 + LowerLimit = (DX(i - 1) + DX(i)) / 2 + UpperLimit = (DX(i) + DX(i + 1)) / 2 + CummulativeSL = CummulativeSL + (((UpperLimit - LowerLimit) / 2) * (_FirstIntegration(i - 1) + _FirstIntegration(i + 1))) + _SecondIntegration.Add(CummulativeSL) + Next + LowerLimit = (DX(DX.Count - 2) + DX(DX.Count - 1)) / 2 + UpperLimit = DX(DX.Count - 1) + CummulativeSL = CummulativeSL + (((UpperLimit - LowerLimit) / 2) * (_FirstIntegration(DX.Count - 1))) + _SecondIntegration.Add(CummulativeSL) + + + '--------Finding Slope and deflection incorporating the integration constants + J = 0 + Dim c1 As Double + TotLength = 0 + Dim c3 As Double + For Each E In mem + c1 = c1 + (E.DISP(1)) + c3 = c3 + (E.DISP(0)) + For Each X In _TDx(mem.IndexOf(E)) + SL.Add(((_FirstIntegration(J) / (E.Inertia * E.Emodulus)) + c1)) + DE.Add(((_SecondIntegration(J) / (E.Inertia * E.Emodulus)) + (c1 * (TotLength + X)) + c3)) + J = J + 1 + Next + c1 = c1 - (E.DISP(3)) + c3 = c3 - (E.DISP(2)) + TotLength = TotLength + E.spanlength + Next + End Sub + + Private Function EI_member(ByVal X As Double) As Double + Dim XI As Double = 0 + Dim EI As Double + For Each E In mem + If X >= XI And X <= XI + E.spanlength Then + EI = E.spanlength * E.Inertia + Exit For + End If + XI = XI + E.spanlength + Next + Return EI + End Function + + Private Sub FixSlopeDeflection_Coords() + FixSlope_CurveCoords() + FixDeflection_CurveCoords() + FixSlope_ShowCoords() + FixDeflection_ShowCoords() + End Sub + + Private Sub FixSlope_CurveCoords() + '-------Finding maximum shear force for scaling the shear curve + Dim maxV As Double = 0 + For Each Slope In SL + If Math.Abs(Slope) > maxV Then + maxV = Math.Abs(Slope) + End If + Next + SlopeM = maxV + maxV = 180 / maxV + + '--------Fixing the curve coordinates + ReDim SLpts(SL.Count - 1) + Dim f As Integer = 0 + + For Each S In SL + SLpts(f).X = BeamCoords(f) + SLpts(f).Y = (S * maxV) + (beamcreate.MEheight / 2) + f = f + 1 + Next + End Sub + + Private Sub FixSlope_ShowCoords() + '------Capturing the Slope indexes for displaying + Dim CDSindex As New List(Of Integer) + Dim S_sor As Double = 0 + For Each B In BM + If (Math.Round(B, 3) > 0 And S_sor < 0) Or (Math.Round(B, 3) < 0 And S_sor > 0) Then + If Math.Round(SL(BM.IndexOf(B)), 8) <> 0 Then + CDSindex.Add(BM.IndexOf(B)) + End If + End If + S_sor = Math.Round(B, 3) + Next + 'If mem(0).DOF(1) = 0 Then + ' CDSindex.Add(0) + 'End If + 'If mem(mem.Count - 1).DOF(3) = 0 Then + ' If Math.Round(BM(SF.Count - 1), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 1) + ' ElseIf Math.Round(BM(SF.Count - 2), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 2) + ' ElseIf Math.Round(BM(SF.Count - 3), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 3) + ' ElseIf Math.Round(BM(SF.Count - 4), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 4) + ' End If + 'End If + + SLMc.Clear() + ReDim SLmaxs(CDSindex.Count - 1) + Dim f As Integer = 0 + For Each CD In CDSindex + SLMc.Add(CD) + SLmaxs(f).X = SLpts(CD).X + SLmaxs(f).Y = SLpts(CD).Y + If(SLpts(CD).Y > (beamcreate.MEheight / 2), 15, -30) + f = f + 1 + Next + End Sub + + Private Sub FixDeflection_CurveCoords() + '-------Finding maximum shear force for scaling the shear curve + Dim maxV As Double = 0 + For Each Deflection In DE + If Math.Abs(Deflection) > maxV Then + maxV = Math.Abs(Deflection) + End If + Next + DeflectionM = maxV + maxV = 180 / maxV + + '--------Fixing the curve coordinates + ReDim DEpts(DE.Count - 1) + Dim f As Integer = 0 + + For Each D In DE + DEpts(f).X = BeamCoords(f) + DEpts(f).Y = (D * maxV) + (beamcreate.MEheight / 2) + f = f + 1 + Next + End Sub + + Private Sub FixDeflection_ShowCoords() + '------Capturing the Slope indexes for displaying + Dim CDSindex As New List(Of Integer) + Dim S_sor As Double = 0 + For Each S In SL + If (Math.Round(S, 8) > 0 And S_sor < 0) Or (Math.Round(S, 8) < 0 And S_sor > 0) Then + If Math.Round(DE(SL.IndexOf(S)), 8) <> 0 Then + CDSindex.Add(SL.IndexOf(S)) + End If + End If + S_sor = Math.Round(S, 8) + Next + 'If mem(0).DOF(1) = 0 Then + ' CDSindex.Add(0) + 'End If + 'If mem(mem.Count - 1).DOF(3) = 0 Then + ' If Math.Round(BM(SF.Count - 1), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 1) + ' ElseIf Math.Round(BM(SF.Count - 2), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 2) + ' ElseIf Math.Round(BM(SF.Count - 3), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 3) + ' ElseIf Math.Round(BM(SF.Count - 4), 2) <> 0 Then + ' CDSindex.Add(SF.Count - 4) + ' End If + 'End If + + DEMc.Clear() + ReDim DEmaxs(CDSindex.Count - 1) + Dim f As Integer = 0 + For Each CD In CDSindex + DEMc.Add(CD) + DEmaxs(f).X = DEpts(CD).X + DEmaxs(f).Y = DEpts(CD).Y + If(DEpts(CD).Y > (beamcreate.MEheight / 2), 15, -30) + f = f + 1 + Next + End Sub +#End Region +#End Region +End Module diff --git a/Backup/CBAnsDes/Modules/Indexes.vb b/Backup/CBAnsDes/Modules/Indexes.vb new file mode 100644 index 0000000..dc17727 --- /dev/null +++ b/Backup/CBAnsDes/Modules/Indexes.vb @@ -0,0 +1,23 @@ +Module Indexes + Public mem As New List(Of Member) + Public ends As Integer + Public Zm As Double = 1 + Public selline As Integer = -1 + Public Tselline As Integer = -1 + Public Lselline As Integer = -1 + Public BeamCoords As New List(Of Double) + Public DX As New List(Of Double) + Public SF As New List(Of Double) + Public BM As New List(Of Double) + Public DE As New List(Of Double) + Public SL As New List(Of Double) + Public SFMc As New List(Of Integer) + Public BMMc As New List(Of Integer) + Public DEMc As New List(Of Integer) + Public SLMc As New List(Of Integer) + Public ShearM, MomentM, DeflectionM, SlopeM As Double + Public SFpts(SF.Count), SFmaxs(0) As System.Drawing.PointF + Public BMpts(SF.Count), BMmaxs(0) As System.Drawing.PointF + Public DEpts(SF.Count), DEmaxs(0) As System.Drawing.PointF + Public SLpts(SF.Count), SLmaxs(0) As System.Drawing.PointF +End Module diff --git a/Backup/CBAnsDes/Modules/SizeController.vb b/Backup/CBAnsDes/Modules/SizeController.vb new file mode 100644 index 0000000..7c0548e --- /dev/null +++ b/Backup/CBAnsDes/Modules/SizeController.vb @@ -0,0 +1,30 @@ +Module SizeController + Public Sub sizemonitor() + Dim ht As Single + Dim wd As Single + ht = beamcreate.coverpic.Height + wd = beamcreate.coverpic.Width + beamcreate.mainpic.Top = 0 + beamcreate.mainpic.Height = 1600 + beamcreate.respic.Top = 0 + beamcreate.respic.Height = 1600 + '----Hscrollbar1 + beamcreate.HScrollBar1.Maximum = (1600 - beamcreate.coverpic.Width) + beamcreate.HScrollBar1.Minimum = 50 + beamcreate.HScrollBar1.Value = beamcreate.HScrollBar1.Maximum / 2 + beamcreate.mainpic.Left = -(beamcreate.HScrollBar1.Value) + beamcreate.respic.Left = -(beamcreate.HScrollBar1.Value) + '----VscrollBar + beamcreate.VScrollBar1.Maximum = (1600 - ht) + beamcreate.VScrollBar1.Minimum = 100 + beamcreate.VScrollBar1.Value = beamcreate.VScrollBar1.Maximum / 2 + beamcreate.mainpic.Top = -(beamcreate.VScrollBar1.Value) + beamcreate.respic.Top = -(beamcreate.VScrollBar1.Value) + beamcreate.MEheight = 1600 + Zm = 1 + beamcreate.mainpic.Refresh() + If MDIMain.CreateToolStripMenuItem.Checked = False Then + Call CoordinateCalculator() + End If + End Sub +End Module diff --git a/Backup/CBAnsDes/My Project/Application.Designer.vb b/Backup/CBAnsDes/My Project/Application.Designer.vb new file mode 100644 index 0000000..741a6dc --- /dev/null +++ b/Backup/CBAnsDes/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.1433 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.CBAnsDes.MDIMain + End Sub + End Class +End Namespace diff --git a/Backup/CBAnsDes/My Project/Application.myapp b/Backup/CBAnsDes/My Project/Application.myapp new file mode 100644 index 0000000..03bfba9 --- /dev/null +++ b/Backup/CBAnsDes/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + MDIMain + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/Backup/CBAnsDes/My Project/AssemblyInfo.vb b/Backup/CBAnsDes/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..2d6af22 --- /dev/null +++ b/Backup/CBAnsDes/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + diff --git a/Backup/CBAnsDes/My Project/Resources.Designer.vb b/Backup/CBAnsDes/My Project/Resources.Designer.vb new file mode 100644 index 0000000..22a9b0f --- /dev/null +++ b/Backup/CBAnsDes/My Project/Resources.Designer.vb @@ -0,0 +1,154 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.3074 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("CBAnsDes.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + Friend ReadOnly Property addload() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("addload", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property addmember() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("addmember", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property bend() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bend", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property bm() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bm", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property deletemember() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("deletemember", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property editends() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("editends", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property editmember() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("editmember", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property Logo() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Logo", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property modifyload() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("modifyload", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property removeload() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("removeload", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property removeloads() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("removeloads", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property shear() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("shear", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + Friend ReadOnly Property Slope() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Slope", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/Backup/CBAnsDes/My Project/Resources.resx b/Backup/CBAnsDes/My Project/Resources.resx new file mode 100644 index 0000000..01fa36d --- /dev/null +++ b/Backup/CBAnsDes/My Project/Resources.resx @@ -0,0 +1,160 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\addmember.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\removeload.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\deletemember.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\editmember.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\removeloads.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\addload.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\shear.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bm.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\modifyload.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\editends.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bend.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Slope.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/Backup/CBAnsDes/My Project/Settings.Designer.vb b/Backup/CBAnsDes/My Project/Settings.Designer.vb new file mode 100644 index 0000000..7967dc6 --- /dev/null +++ b/Backup/CBAnsDes/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:2.0.50727.1433 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.CBAnsDes.My.MySettings + Get + Return Global.CBAnsDes.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Backup/CBAnsDes/My Project/Settings.settings b/Backup/CBAnsDes/My Project/Settings.settings new file mode 100644 index 0000000..377f56d --- /dev/null +++ b/Backup/CBAnsDes/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Backup/CBAnsDes/My Project/app.manifest b/Backup/CBAnsDes/My Project/app.manifest new file mode 100644 index 0000000..70f40fe --- /dev/null +++ b/Backup/CBAnsDes/My Project/app.manifest @@ -0,0 +1,26 @@ + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Product Info/Aboutus.Designer.vb b/Backup/CBAnsDes/Product Info/Aboutus.Designer.vb new file mode 100644 index 0000000..5890694 --- /dev/null +++ b/Backup/CBAnsDes/Product Info/Aboutus.Designer.vb @@ -0,0 +1,137 @@ + _ +Partial Class Aboutus + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + Friend WithEvents TableLayoutPanel As System.Windows.Forms.TableLayoutPanel + Friend WithEvents LabelProductName As System.Windows.Forms.Label + Friend WithEvents LabelVersion As System.Windows.Forms.Label + Friend WithEvents TextBoxDescription As System.Windows.Forms.TextBox + Friend WithEvents OKButton As System.Windows.Forms.Button + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Aboutus)) + Me.TableLayoutPanel = New System.Windows.Forms.TableLayoutPanel + Me.LabelProductName = New System.Windows.Forms.Label + Me.LabelVersion = New System.Windows.Forms.Label + Me.TextBoxDescription = New System.Windows.Forms.TextBox + Me.OKButton = New System.Windows.Forms.Button + Me.TableLayoutPanel.SuspendLayout() + Me.SuspendLayout() + ' + 'TableLayoutPanel + ' + Me.TableLayoutPanel.ColumnCount = 2 + Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 2.892562!)) + Me.TableLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 97.10744!)) + Me.TableLayoutPanel.Controls.Add(Me.LabelProductName, 1, 0) + Me.TableLayoutPanel.Controls.Add(Me.LabelVersion, 1, 1) + Me.TableLayoutPanel.Controls.Add(Me.TextBoxDescription, 1, 4) + Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 5) + Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel.Location = New System.Drawing.Point(12, 11) + Me.TableLayoutPanel.Margin = New System.Windows.Forms.Padding(4) + Me.TableLayoutPanel.Name = "TableLayoutPanel" + Me.TableLayoutPanel.RowCount = 6 + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 3.007519!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 3.007519!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 59.77444!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 13.80952!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 15.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!)) + Me.TableLayoutPanel.Size = New System.Drawing.Size(510, 223) + Me.TableLayoutPanel.TabIndex = 0 + ' + 'LabelProductName + ' + Me.LabelProductName.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelProductName.Location = New System.Drawing.Point(22, 0) + Me.LabelProductName.Margin = New System.Windows.Forms.Padding(8, 0, 4, 0) + Me.LabelProductName.MaximumSize = New System.Drawing.Size(0, 21) + Me.LabelProductName.Name = "LabelProductName" + Me.LabelProductName.Size = New System.Drawing.Size(484, 21) + Me.LabelProductName.TabIndex = 0 + Me.LabelProductName.Text = "Continuous Beam Analyzer" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.LabelProductName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'LabelVersion + ' + Me.LabelVersion.Dock = System.Windows.Forms.DockStyle.Fill + Me.LabelVersion.Location = New System.Drawing.Point(22, 22) + Me.LabelVersion.Margin = New System.Windows.Forms.Padding(8, 0, 4, 0) + Me.LabelVersion.MaximumSize = New System.Drawing.Size(0, 21) + Me.LabelVersion.Name = "LabelVersion" + Me.LabelVersion.Size = New System.Drawing.Size(484, 21) + Me.LabelVersion.TabIndex = 0 + Me.LabelVersion.Text = "Version 1" + Me.LabelVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TextBoxDescription + ' + Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBoxDescription.Location = New System.Drawing.Point(22, 60) + Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(8, 4, 4, 4) + Me.TextBoxDescription.Multiline = True + Me.TextBoxDescription.Name = "TextBoxDescription" + Me.TextBoxDescription.ReadOnly = True + Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.TextBoxDescription.Size = New System.Drawing.Size(484, 125) + Me.TextBoxDescription.TabIndex = 0 + Me.TextBoxDescription.TabStop = False + Me.TextBoxDescription.Text = resources.GetString("TextBoxDescription.Text") + ' + 'OKButton + ' + Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.OKButton.Location = New System.Drawing.Point(406, 193) + Me.OKButton.Margin = New System.Windows.Forms.Padding(4) + Me.OKButton.Name = "OKButton" + Me.OKButton.Size = New System.Drawing.Size(100, 26) + Me.OKButton.TabIndex = 0 + Me.OKButton.Text = "&OK" + ' + 'Aboutus + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.OKButton + Me.ClientSize = New System.Drawing.Size(534, 245) + Me.Controls.Add(Me.TableLayoutPanel) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Margin = New System.Windows.Forms.Padding(4) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Aboutus" + Me.Padding = New System.Windows.Forms.Padding(12, 11, 12, 11) + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "About" + Me.TableLayoutPanel.ResumeLayout(False) + Me.TableLayoutPanel.PerformLayout() + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/Backup/CBAnsDes/Product Info/Aboutus.resx b/Backup/CBAnsDes/Product Info/Aboutus.resx new file mode 100644 index 0000000..81c9997 --- /dev/null +++ b/Backup/CBAnsDes/Product Info/Aboutus.resx @@ -0,0 +1,158 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Description : +This Program can be exclusively used to analyze continuous beam. Finite element analysis is used. This software is free, share it. + +Designed & Created By +Samson Mano +sam@innx-finite.com +www.innx-finite.com + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAUAAAAAAAAAAAAAAAEAAAAB + AAAAAAAA/zMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAQEAAAEAAAAAAAAAAAEA + AAEAAAEBAAAAAAAAAAABAAABAAABAQAAAAAAAAAAAAEAAQABAAEAAAAAAAAAAAAAAQEBAAABAAAAAAAA + AAAAAAABAAAAAQAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAQAAAQEBAAAAAAAAAAAAAAEAAQABAAEAAAAA + AAAAAAABAQAAAQAAAQAAAAAAAAAAAQEAAAEAAAEAAAAAAAAAAAEAAAEBAQAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//////////7G////bP///2z///+q////xv///+7///7v///+x/ + ///qv///5t///+bf///sb/////////////8= + + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Product Info/Aboutus.vb b/Backup/CBAnsDes/Product Info/Aboutus.vb new file mode 100644 index 0000000..4c339e3 --- /dev/null +++ b/Backup/CBAnsDes/Product Info/Aboutus.vb @@ -0,0 +1,13 @@ +Public NotInheritable Class Aboutus + + Private Sub Aboutus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + ' Set the title of the form. + + End Sub + + Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click + Me.Close() + End Sub + + +End Class diff --git a/Backup/CBAnsDes/Product Info/logo.Designer.vb b/Backup/CBAnsDes/Product Info/logo.Designer.vb new file mode 100644 index 0000000..113ec6a --- /dev/null +++ b/Backup/CBAnsDes/Product Info/logo.Designer.vb @@ -0,0 +1,131 @@ + _ +Partial Class logo + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + Friend WithEvents ApplicationTitle As System.Windows.Forms.Label + Friend WithEvents Version As System.Windows.Forms.Label + Friend WithEvents Copyright As System.Windows.Forms.Label + Friend WithEvents MainLayoutPanel As System.Windows.Forms.TableLayoutPanel + Friend WithEvents DetailsLayoutPanel As System.Windows.Forms.TableLayoutPanel + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Me.MainLayoutPanel = New System.Windows.Forms.TableLayoutPanel + Me.DetailsLayoutPanel = New System.Windows.Forms.TableLayoutPanel + Me.Version = New System.Windows.Forms.Label + Me.Copyright = New System.Windows.Forms.Label + Me.ApplicationTitle = New System.Windows.Forms.Label + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.MainLayoutPanel.SuspendLayout() + Me.DetailsLayoutPanel.SuspendLayout() + Me.SuspendLayout() + ' + 'MainLayoutPanel + ' + Me.MainLayoutPanel.BackgroundImage = Global.CBAnsDes.My.Resources.Resources.Logo + Me.MainLayoutPanel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.MainLayoutPanel.ColumnCount = 2 + Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 243.0!)) + Me.MainLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 253.0!)) + Me.MainLayoutPanel.Controls.Add(Me.DetailsLayoutPanel, 1, 1) + Me.MainLayoutPanel.Controls.Add(Me.ApplicationTitle, 1, 0) + Me.MainLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.MainLayoutPanel.Location = New System.Drawing.Point(0, 0) + Me.MainLayoutPanel.Name = "MainLayoutPanel" + Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 218.0!)) + Me.MainLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 38.0!)) + Me.MainLayoutPanel.Size = New System.Drawing.Size(496, 303) + Me.MainLayoutPanel.TabIndex = 0 + ' + 'DetailsLayoutPanel + ' + Me.DetailsLayoutPanel.Anchor = System.Windows.Forms.AnchorStyles.None + Me.DetailsLayoutPanel.BackColor = System.Drawing.Color.Transparent + Me.DetailsLayoutPanel.ColumnCount = 1 + Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 247.0!)) + Me.DetailsLayoutPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 142.0!)) + Me.DetailsLayoutPanel.Controls.Add(Me.Version, 0, 0) + Me.DetailsLayoutPanel.Controls.Add(Me.Copyright, 0, 1) + Me.DetailsLayoutPanel.Location = New System.Drawing.Point(246, 221) + Me.DetailsLayoutPanel.Name = "DetailsLayoutPanel" + Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!)) + Me.DetailsLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.0!)) + Me.DetailsLayoutPanel.Size = New System.Drawing.Size(247, 79) + Me.DetailsLayoutPanel.TabIndex = 1 + ' + 'Version + ' + Me.Version.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Version.BackColor = System.Drawing.Color.Transparent + Me.Version.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Version.Location = New System.Drawing.Point(3, 9) + Me.Version.Name = "Version" + Me.Version.Size = New System.Drawing.Size(241, 20) + Me.Version.TabIndex = 1 + Me.Version.Text = "Version 1" + ' + 'Copyright + ' + Me.Copyright.Anchor = System.Windows.Forms.AnchorStyles.None + Me.Copyright.BackColor = System.Drawing.Color.Transparent + Me.Copyright.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Copyright.Location = New System.Drawing.Point(3, 39) + Me.Copyright.Name = "Copyright" + Me.Copyright.Size = New System.Drawing.Size(241, 40) + Me.Copyright.TabIndex = 2 + Me.Copyright.Text = "Copyright Pending" + ' + 'ApplicationTitle + ' + Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.None + Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent + Me.ApplicationTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ApplicationTitle.Location = New System.Drawing.Point(246, 3) + Me.ApplicationTitle.Name = "ApplicationTitle" + Me.ApplicationTitle.Size = New System.Drawing.Size(247, 212) + Me.ApplicationTitle.TabIndex = 0 + Me.ApplicationTitle.Text = "Continuous Beam Analyzer" + Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft + ' + 'Timer1 + ' + ' + 'logo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(496, 303) + Me.ControlBox = False + Me.Controls.Add(Me.MainLayoutPanel) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "logo" + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.MainLayoutPanel.ResumeLayout(False) + Me.DetailsLayoutPanel.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Timer1 As System.Windows.Forms.Timer + +End Class diff --git a/Backup/CBAnsDes/Product Info/logo.resx b/Backup/CBAnsDes/Product Info/logo.resx new file mode 100644 index 0000000..ca5c847 --- /dev/null +++ b/Backup/CBAnsDes/Product Info/logo.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Backup/CBAnsDes/Product Info/logo.vb b/Backup/CBAnsDes/Product Info/logo.vb new file mode 100644 index 0000000..7dd93e4 --- /dev/null +++ b/Backup/CBAnsDes/Product Info/logo.vb @@ -0,0 +1,19 @@ +Public NotInheritable Class logo + + 'TODO: This form can easily be set as the splash screen for the application by going to the "Application" tab + ' of the Project Designer ("Properties" under the "Project" menu). + + Dim showV As Integer = 0 + Private Sub logo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'Set up the dialog text at runtime according to the application's assembly information. + Timer1.Interval = 1000 + Timer1.Enabled = True + End Sub + + Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + If showV >= 3 Then + Me.Hide() + End If + showV = showV + 1 + End Sub +End Class diff --git a/Backup/CBAnsDes/Resources/Logo.jpg b/Backup/CBAnsDes/Resources/Logo.jpg new file mode 100644 index 0000000000000000000000000000000000000000..96c349a9798e380dd97ff488f837854a5ee6e931 GIT binary patch literal 31543 zcmeFZ2V7IzwmupJMNvT%qzFVsrHM!rL?EI90wU6-1r?Aky@e7L1wkN!3Q`0S=_OR@ zM0zLmNH3vx2mt~qZ{gni9Nc%G`_4J{clSI0_uuG*71m;{HOHKDly7`vQod70LC2I8 zloUWzR8*h`z&{XW4D?vu-SROAq^b(y2Z2BbK{QnCp#8uR70_gP3$~O?>L8>h3{nS)vLHih~s2Qm!H6SqX z?)w3$>izp^Xn?D|f%705#{I|72+JKf zq5hEetOJwCv(Wg1+&6M6nKe3A&WS#9e13@TBnvAW`}qqzynOs(;#VXjuS(s#C9j}( zTS-|{OIt_xzMj5`so7(53ri~}XBSsDcMq8FiuL1(Y-oASu9`PYE>T|-E#H8eu z)U@2Z{DQBAMa3mm)it$s^$m?pon75My_oNP{bS?UiOH$ync2D3HQYLWV{?nJz1uG; z5cMzJ`diO_*Dpq(U;AiisA*_-`$e_S4QSMiH2cp8A2=?jPW#Z|#95JN2bpe!#^+QX z;uh6dVSeP;L3i?;*x32i-LC!U*+18@=l@pE{?@U-_p2XtgqjK%JZeS|1T?&|5kM+W zQL^4ZaGNTq4oH~O95LbUEivBG8Nr{VfEw+{O(|Z|6wn(Y1%#g)*=E;G#N;9BbP^51 zkLMD=f^R237%H%7rJpLTK(3q9Qb2SACTty@BC3=4N?i91ANLJXKFV7L7mK2b;knJMl$HkxFD|0;Lz zUt<5S)ABE||25nHQZj!jnZI=V{{1#TD;%39`cG3pNF55Oy|bJb6Gi;l z%i$`(dBpA1H-cT>z>9@+#7Ne$-DPGE6X%ZiwH|G5Ae}ge8Pp=-TT%8~o{3npEO0Gw$+&d_$+u;q!hzHQAA4vC$1QqN zKwd%=5VPX1w}k(=Wh!J0It$0)fV1963g`sj1`G+2eeB@N1;9-#4XCETD|!E;dsuv> zZh?%M?|cS)rK(N}Xu5xsyk$)0M{M2KHzw{tDWH+V6i}@OysCWn?9?WC$C!Kpv87vL zOe78iXRRrqnhqP<5AZ7Vru^?D0A9(?M-ev4DWD1#3MlXkaN2WMK&{K94HQuoyn=K_ z5eU1dF%(e1=kE-cfh*#c0AK9zVHLnDvmV(QgKwoleio4u;D&DQo{k>bSp+2eI~mDm zb3FuZ02yK-pF9}>IBFQwW)%gr3OIm!JNTB&yab$uNT4?RfwN*ickuNC>1y&xc!|(Y z!}0qO=J{zjEPmI$lixi2i5Dp#XXBq`3AoWebx-Yg!u(zL1fSv0T10R({VTx#TukT*t#05G)m}N8nsRBVjHQ1-wY6?Yt`9&w)EP*AgvDnx(@V6^*yIeF^7bwjSY` z02ajwpPyrxc$Z57g+PNcrnj5{j|g%1+j=6?yMk|?XXKggQT?mUkhaEQXXx5254qWh zWDjPffO=;spru9tHo`onCXMsF{|GO>Glr@Ql<~>e?RJJh=y*Rr{ZreL4+lJ>+b0x2 z%6h7GomQ}<#|i5Q3g~ebM>AzENGzH`c&G>0rzn?9b(k~>wa{(f&6iApxGx;h^ zBo8^(MFAa`kqQqBFJdqSmJ;Y+Z30iX5adEN3dmKB6kfVLD$7j)Wdb)H0=ycttQOjx z8Z`l6oE;;pVI+$L%)Gp};!WJj=RjW2pV_je$LhCR6=%WZRzq<&2tB0N3UZqQ+OQgL z(cKZNFpiuv&H6s$MFCxK`y9jfIYwX--LAG9kuIt=h5Rley||7P`&rollYa`QhDF`- z?v*1?l;8hpb_;Y_w-neBc;_h~<9qOPi4jD{bu)A0>SXdcn2X?fL3^%-e`oUPQmukX zPvXc6aXW%;_@C$f2Zqg8u{ti~Nl`!ic84OeH*h<|e|qd+RbKz}^~~Z0A6v2S3JRlK z)x*x-s9~t`>(n(-YV14Kp<`!rDS!5bguS!~Gd**uuXgH%sFFhp>R!1z59OIOkL~UH zKU^0MQ{bgef{(@en%(9c9Mbr4CYjD6nT}wx&i((LI`RvD(@rHX{!vl$_PHCfD@2Pt zp4e-KJ{GN_Eo#ej(lz9j&n;II2LH=1;9{Q>aL3kRjvNSb`N{0=x8Gfu)UQ_s@_yR) zTPtFC1=umb{A`*6*&1t97WFt}dk8}6gKX$8e1n(WTFXOj^2JC11N%QV8|8_!EG4z* zx8{euOq^nwX;UE+-TE$RBUV>7f`#5)cyobNT<1OuZA`LkpM`npyy2zu4W~X8T`W6Q zA&g%;!?PTVu$*qXRk$gDIlqaEWpU{E# ztVD2xF;0@5_jAS5txx||YxJ+wz3LxM%PFeOm-Gmrr7>TcaORos;wey74ozmcY7@-c z@zE+U=48e^k#Fp^aKcR&xFu6po7W_c#kHr7$>sC}2bo*?nUP^K0p9X=NO zek$&N=K9S4>iQ&pNz9_|`{9k$VajgW#z#9iaI`%h%D+WbCyY4<>ut4%{BUW8q?9nI zq0E);9{sfAbM{k`0b?tjscOz{$CPuc!W70j>a?FVoK0f>=6=eE4=^|$1Kd{&uL;j7 zza_+d+tGz3pAA17l+tZ)HkzYetFFzB!*j|r>G0gw(C9pIoy&5SmV9#sFnoY#Hlu17 z&x*Xe3VwOYu>1Io5#ib+#>KTw=X29nxe8k5Wsll&-w9tI4xn)-c*U58Q)ey1HnZK+ z=wcph%8H77do%=lZ?dxF*sb1QD1B`Vi;RAH$qT__N6Z_FnI44c#%nmwDn@y73DUWw zx88`&Bz$nzbpmjl$x^Ea6wm+zxd}kbfHbF^Fa_iT+2NnsCbOVMVURx7^$p@(aL}40 z@^L$S!nh0JWXlHGY{*h1Gk2MPRCfj59{A%@BPq;+zDs%5;_w}-=o}0+^YmlZKyedh z)df$zONUSR$9yy^SArat-J`4L3t~z>)|6fflc-tJ`uL5pO?1#XD~;9ImiGL4XO9nM&2v3W=V{Hm@iw?X z_1N{njpe({O|Tms@=QnmRMSl*$1g|o{3?xZ>Xu54N`~HHj}ej-GXX~d3DR!*_-L~UHJH!ZZNu;DrE_e4 z=;L5FG9yMt4zj}GhSWfw5U;UHsh{#TrytFT<%hn;!;^>a^}5`5wiPjGR9GxJ#QNZH z&I~PXd!Kb(a+FGR08eD0ia>;GorqGSc!ztl5xKjYjJCV7BjCegZDzDnIR6Zjq^Lh- zjl5Lt$?nxT6#K*tvEAx(8{!IiJx2jGlMezfKEuVk*VyhJ|Hm6#=5Is=$%wo2ox8r} z+^7$CP-C*o>}l**S6%4-{xZF($8%dsLTWAJa1T3))pI#-NA}-_pt&<)g?{4k>9fjh z@Xkk7%7>^OKwjTDsj|%LqV~zL_SkA`t4SP=ITA}vHK$a$$vs@WctZQFLJxO|TJguQ zEYV`oHkmDKAs%n7Alc8cx)qB1p#NT^O!vH+pK%ZRQJdUEm%lR7+-3h_hTF-u+#6W_ zYU1j8`q>JfR*Oy9PC+H3{Y>g|a)Hxj))dg$0!$BNT|CRLc=;5(A=3q~MmlP32w6>- z3o*3YDI>8>G7l0ZDImQR65u)arTgu1RgG^(!b|hUe+>vUI_d0@k+Q_gyM}}BOHfx@ zcru(m((L?DWN`JFD~0?_a4`+pba!hskV zjxT}lW*eBla?37;C<1S0moN{6mR<<7wL zvS=AzOuoDdHG-p?+XDl6v#|C5N(g?XOaiGAKjL?;AmhcMgbh5`c=;2ygrb)hURKwQ zie%5oyK6fSpIp5aC0}J=)UcQw6a0yKGEA|xOLBwj3x0m;F{_YO`4`#qTNF^G3^7`K zyR1A|cS)u!j=+@&HO8va8*u8VG(51&Rl`N7uO+zAcE!Tk@pP%FvmI6?USBoyUvqqD z40@_?P=@?|;-N78%ezlLswK5#tFXycr}e;M&&wNhuM?ch6+Ew2tlK_?mt6xlrRjFp zDJzNRL8N2OACgqk1NkN$~c&5Uu8_ogd@9mjtsDH&@-ziCcuQw54Hi3+6>z7 z4+rfZ;~Ub|q<&+eR<2l8GD&TkAX?5erph#Ce9`BHy9|@Mv6YXO%kMBGkK}4JfdNec zK>@rdJ`tujYb+53=iKIA%4OI*KUar|v>I7c$B-*Nk(Hp)doiYqC~QQ6fE1Y%vdZ0+ zYRPB)bmPXZyI;f*0G=0HzIXmNM_+NIt0D}*VhVbmlcl5w2S}a9LM@B2=b{({yG2As zecKVrYw%+hcAt$2*CH1OAM*&bF|5SFX9Mxw;IjxTG)C-|c&2oJi*n48BDktLev_-` zzO+ibrcvyaM>y4^8Bf&l@8f06$b!W7t|uHH%pt|i_6Rfw&X-6om}$B@48!;j8MInT zXB*zqxZlQhs&H$Su!_lq>AnyjS(K4BP(8h)1>$QqEy4N|J$Eor6F=iRzZTru9Z$8n zf_!VcHL1Y;VveF}%oAYMZh_dJ@)A0*0mx9A;I4JtW$L)gjH4ZSc}6V1ZWKRzhvxC@+h@Z?p2eqXE4WXp zH+~dBPrZNlF*o*wsly!YT?zKC)w?-jXT&~UHMPAl;Z-WxUpyZNW#~$+_ZFnSt$Ip1 zq)&M27?)0)oYxWTKoCQsizc**W7(~c5Nm6WkE*Ek67GfiCM&Kk~hAHC`pp6ggE}VZGd!lN0SCoIP*K@mQYIy(fJPG?99;ZAnj%L%F<+WL# zR7#f12gIfeF64BW5opE6T4>w~(UpH=YoBrb;f%MH6gK^Zb{ekRO~n-U!KQW0Ldx01 zQf88T3!|$!JXl`al6f)9v86uqrabfaFy#i^c^)3ur7B?V$?f%H{)uDSc=r=f(HiII zh{s`<^=Th-q|`Ug*Q;ZK)@xmR#?)2L9nZ+QcJ7s9Mluc91X}yas#?GEY-v@7|757{ zr-v9KoP9;~qR_eW3|DyMh6laL;zK+PF&r{%O{NOPLg>Gy+Z2YU=r8TBynZ!QMmC`k z3pIhRLOrqNAUU3m@?8G9iHmb-?j~_@U9tYjl5?t-;aEW{Q35X7exVj=8dIdD9>iwPdB60$6!DNNBFUidmSfI^!*F*zPimbK z4;Q|{o%R-gW_nw?-+n;?Z3SC-$pa_Svbqs8FRePkGHh5`!uH$kYLF4)IwY?B1eD%H zuQx5F+Q7%W&(!_?SoSirt^#HVymgIK&xc*KNy`eQzQjsfG|ENL-k5z`zv-=NFMbZE z`@Gu8 z@Fg|Ea()5}b(8igHWi_*$(g1$l)oDB_WGQ@vi_*do6i8Amqk1NH{~^=OTEgyJUgNU z-_W0{gtNho7$mL$8Fb(+uN6^1J;=^?*b8A0y!Cpbj9Q{2UgjW?7wcs`wp^g#a!p%4 z{M?0yK`i&ANY}v;?bOw?Q7=l2h!XZW`wgZHNqC<3?T-PpcPj%y+JFG2C;xdk0I!d> znp;b~le!xxI9OwP9skS_Us|3(^Dx7Bez6Q*{z2(0Jy40S^)=~3JpaV zI-sw^P8hT&B?>f;8N_@jS&H#ElQH?(81o48QmpTBxGIdKz4Rpa(SEh1?rn2SVfK8h z%lvau)q7X4to6#U_0)9r?)QC3?9UVSa}tTQzzP!m^cyvx0Fi*gE8w&({UcnpsVArMT`6XMVqURH! z-tesYAZysI{!7W{Ga^lQI#8RKoQyfVG21Ldn#Hgw<8tv=+c{9P2nBQuj3!fu;3uC1 zg*41*zZ*?uJ&kD}&EXn;KRoX=jx%KF5vCW0&iBA08k7qYzbmC#xo)U)h#{Yk3~?&W zi9S74U!a9lS>Zx#$Oso4(mY}0-4dcB-1SvKP4U)s8dEMx)fW zu5sQuR&Q&^aV+cm=j*SE+d!=Q%IfR%mp77Oa6sRVE1uU5%)bRDg*7H~1XUj`&mI^F8`zIsMsI=;r$J7u1fR z%L7yhD$74Q8eRgt=Ep(!9A;K6Ns*lC^KN_6GxmiK(*@c@jUKTrmuq~sJVz&QUv`aQ zMAM4HqF@_I(Rb(VW0=OVf|27ezmE<{MoQMMrAD3`5BvOcrU?$6rOW%RM{EnoZ68sc zr;XnRJr;gO@FmvXU-fw|evR6J#$?fTH2aLwrB586>Sr-=nH~j+Exo#-L)QmP1AK*e zkn#18Bq4^nWibxlJs|<$Q|G0V*<4m2&19;@IrruJT;dc^sQ&z1+%|j9&2%!+k!Yy3mrngCX!zdBQ=j%00iMkm*F2j4lD%o!z}^p7pZNDFGH zZ?zb_v*2S6l=pADMJep_vIX1@|~;C)i9_3_ki`v;GB1cw-)jLC({)hi(p z{IwSfU@F7IN53th8?M(A*6Z)S?-5d-$vn@zkdQml8sjeIn9387QV`yp%d#&#P~gM* zPv-C6#lpKgy<}46RmrdE&(a>Sl+^+w;ML+eqsvDJtQOA?O$4sq`gV}H*ko?#8yW5| z`<}y+$(q9=CGc`u0*K+dKug_Y*~SukU31j?3B(Cz{q%g8fg4#dXl`3(__f=HXCg;X z0+Jv5z1Q2Be62)uEBG_Ina1j=XRI17>rtsa?%k|{#!y02y+*R)2`T4|y8vdSQ_nZ! zDtn+~*?Gq^-T_9_kv@7m#?&0_ngOpW>x55_1B^U1@&%;3h!f=HqEoL(BSE-+HgE(P znHgAf<4Z!zy7};!2$56&SjudshB;y@TG>~jr!}#(q2pCg-Wi$+5-2^EWhHOkrfV?r zY%Wwn=*Z%X$Tc^Jf0x_+mGzS4pjWnymK?Xu-oR(LM+my+G>rP+-dulnHpo_+6O`5T zeUpwc$hfQ*nKL!EX35w1z;MF>zemm%NcE2-DN#C_Xl%3)Hm zJYzz1XsSW%%!F?1%FBDi=_5UHsIpB|-b#33E@BWNgdwsyB`R#{WIeIf4aYLDZgSQa z5nnpumnQZdXV_|7Ag;W`ZQ4U-pvHPhaaijEWhXm+`}exPFu zmNl|+M7euqBhEU_`f{I9SpY};Q;YA^Z$zYgXZ2h>6=DXgT}2tjK8miR#baU)ixR#8MiOP$Do!F-0Cj-637joP#<)sRu1gfJ2}3|`_j+IlVQ_3C&dnet;3Rw z3)hg5_Xp+47rb|xvUSMp(pR-VR-FxhED1UiX5H>=M`hq0&Q_rCJ{clRwJb>&oVL0c;O<-=TnnCi`_=uW=E|Kk|HCSX~Q>l8zlXacTs}>0AN8 z1)h(NT+eT@t;6cJy#PZq*j! zGlAl+#e1{km5&Kf1ti+Y(ibQQkFOdP_3&70huie<=Vjemjt73_bW#Kz#!*<{GY`Jwc znY*BOF@iqTHDUA3TXZ)paE(2-Y02Q!_b2g^VLbE|TMORlZ&_Z1oRzgU>1=jl8%;B^ zW+@?;#9|G3LZqdZrgidO6@q6ECQv|N;6J*z1kA7%hB1CwCG^%Yrfh$%!*}00#WjeZ zYx?wTThj5&{vK!9&H{e65cbAlA@jai$XF(4!N*6udP;>s%P|}M*IYPZKIQ4XA4hZY z%pc?!RI>3{t)wMnb3JutYF3r)tZv;oUvhJ*VzXcPE!k6-^N(F|7p>HbE-tJysPw$& z!K|iRN?PH$aD>@5Dzec!Dq)_zY%{osn=^-x%*1&>#9_{1FbV(|whzkR;1@9UGExpp zmALu@4|wX4RR0$mOr{r3D)Re}a$hK$uIoSawUpdZ81&(>-SA5gjn7r0$24XTlQ5nR z?XUE(*}w<~oOxqw#!bW~LwhRNOXJm*IPMcU9GqjgNDP82b;YFM)W-^EJJkcSBTv%@ zZ=FDYb-z#=$9CC{&WN$$Jb;@brF+*?#cb6VP1)4S+0Gr;ls*wce9$vffQhJz(ATaO z6|uFrpUq=oMu5;eU=Vlc@T;sY8um4sYsEO$JEqy|X%FTt6LQd@fD03cFZm^>=1^G+ zBxLA|-)c~I0_9)Jx(a4?>CF?4rl{o{MVE`Ok33eiPk9|yGYXQLDvH*!W7!HoKECHX zaHa3~WgDf&)3^{dnjly8hKc@Fop>313l!Y-Az+#U(jR+DW$&X&Fvn0=s5+NGq$-R-%i~8IK4F$!&jWh z9MCQJKY?EXVhF>zflR~tzRX7A2Y4_{)x-E%@|u_0aa;7qQ%O!;!6Q3@utcvZi%ck~ zQx@x==*3wovCSnj9zauZ0rg-Y=h7ev#7Yu4n@^NK zN!FE>DiMsdQ{G9I`=vQ=?HDh0uk~x$W@XSHyxMx68Lv3aQ<^&XtX#qJ{2Tcb4SiL7 zCI~Cr;tTy}Vei0A(E!VhO9G5mbT3NrJ$S*|BR@UA6E=%G5z7%c5) z;tN?DnQPt=Q*5PuF#G6wxPguWmFrMXxHW7c6SCJN4O2Rl}> zeme4f^u$xO-ZD*%=i8@d4ekZrUOMOMdMVoN_}$x!LDR|1iv{SdQU&&}A&cx&Q-f^W z^%~cZ2EUI|M#atW6j0Iqb#(fpFU_+z%(KThr#did|; zR~SdhNJo>ljdDf2!*GwN_^{&8#IIC8lG;PNZ4=XF-t ziIK0ZD-M~0msEO!ks>{)i3B9cTaFl3{xjiD4_+^%pyNW6f{!aEYjkR0s1{!SP!^Em zvgD8J07u>|Yr6;>0EXY)2AJr%7@fmg^V>5X#f3Xx0Cv<+{f~&r^hfxVrCU6sIJS!( z-qT>$x194>ydGqC+#+-y<`6_<@PhE!m6O4t-lS`F_8aoNv&B$?ic&XJFe;;&{4zJStpkcfFxF2G(Ny>tSNm>zVlso& zH-!3a5Yf%v$-R$Kz0_8ukcTaD^=dCAdg6?sUd!()uY1(z;J2v;#JhNuFymi6i2VcuGX`T8dpT)%s1Y(;?6wp`5_GJu^&kBT0cz41V5#%88zGr0a zb$ICH6b1ARv6VphhzBTL4zZtpq*wnfiq?T-|MP2Jipdp+NNY$=59~H3R~O-~r$JTg zmxXpRlQ-kq7RF0eku*&J#$7+AKEVqh<-O4!A-Mq>O5Rnwj`;KEweJA?C;%J}IIBxy zWO%f6X?@(9NFm8VZQiifnG959g}z742g3EI1ZM2v-~8iOBa?R~)$V039{@bs9)QtF z4PgF9AM|ee!Y8Z%;>I(;d>u$XL1f#8G}P}WMIK@oeYghz`}ku1hB=$u-UCuercq4ud>h zSIEz|)o=)SqG_Wnw_j664Fe*9rlY27A2HKC@rH5sxzgV+nTr~5n{nr=t?EOD ztKo0N%1z6ZPYzG89isoZfUDrTfq#@zy zF2wvtZBM@ZXKE+51u~SlM(miK7+LNn!{7dzJX))tQT%f$wE};~quhGF5pVBoyLB3q z!b`G^>y0rtTU${>=hujBOS@=zau+}X&_OACJC>twKp>G(V0x8G42H3v7~{o{vXye;Ya6H zKhM1ufY+COP%)4wT^jv&=l>#yyY*6`hf!2|>NqEgObYMV6*r>_ePR4W9m=7A1 z(psfB^IclYK}#DT*H+U5M*T#}E|4tnbXAdvC{ZKjP(U4i083a}odV)sdP@P>z}FvU zwJ@w2ClC=r5@Z^9Ex2WQH$NJL-*tq6{OG?$g_I}*JTGoD1SubQpe?ijsx;bOU+Ze% z$wK@p4jb|!+Y-%YxAPVy0kx6a2=^f0UJdpxboajpSqCEWw!CzMn)Xw6$BpBsMIyio z)7!nOp6~RX$1$c}vBKi7QsUfxs8NpT->cDjFDcrc3kw@SCTc_7DA?;Ogfy-=qX*du zhRmn`q(fb}WLQ@(ct5;JoR2`pS5iRxxcuuL$1T5?xlvel3V3<#2qFUobY0xnVE72l zRvH?-_`j<`?-tS+++w)rOVBVn+WS^0!v>bQ7(2j)+fRO6)`BEqC(!ZZ z44XW2A^N}~PmpE$E$hJhIp)<`Lrz`LQVoAvP?*~F{Zz#{W5J9C<=Q3=uPy9x$LSBE zhZ<(oFiC1w__?N)jSw-_v)67kb%sH83`cX;(VsxBvoSi5VEmZLBjY)aLxD!e8Ye93p9fa+@$ zy%f8*eIR2x`9?Z|CU*jtL?jpknBa%qnB$Ev#msb9w1VTsRhSh9>Ta+2D=3<}@Hg3O z1s$^#=p-7Axg#?ZyD!Gu74oz+_{!QZ*Qao-Vv?`2;w-t{zgPfnm!_W%>*;MqV>Q2; zdPaJSt2jbF*w6d9g#Ot7p$b+)tHZ{{_0@3Y6hW^K7aD|>VUXEx zsljfUzZ4L|)br)+itt^gclmzLcVp|@mX?T-7>Da3r%H=#Y-7jAVqF@c|V(I-8I)$N8rvsUkQqKH$wukXE5ec%`(o?W#lEnj9pW0($DMy>K?JH+t2LBQoK>RRxc z>?~vhSnCSx%kw|$`pb}7AHZGpE^?4Olpn zH|uEs4yN|Uj*^~!+$$hmJw52D+$&sMdC&a7k2km$(fCY#!bL5@ys}F1wt|sTXO*V! z@JMWOH1XDpETpxBxv$+sJ<%G0l-~-lGVQXx1o%VRXKt>V580)W!s=w`hRaRE5C!pLC2zOVuVdQm0c&1+$tVDO+ep5FJSA%=9Tze6 z@V%ys@Vm}sc&TPZh7fE0l)KJ4Y`oqs~)niz+FvExw$qIf-%uJ>^AUaD{N%5R9Yi{rHYm%$)6>$bL07@gxP*+j%rTg^6 zHaJQnX-+Fxywp|3o5hNM`^Y^7Erhw2Q=fsz zqDv49SC9uJ6$!Z#rKRPW*EiPm^NWjrs6p(!4$70t5?vZwRTe*67{P zePEx_QHX6IE0ndA7#6)E#L0c^a{AUb1eEokK+gbSg~{j-e`D9@C`Eu~f^eLV9==d* z-1kO~C*JPPgV2$f^;*aNEAOx5rPi7=4wRms;J+=;sYEu`*zd`H?&KA#Kpg>hZqSn_ z%vx?d?es}yW#|))U^C8HgNp+fyC)Jl}OSI8;H+PIG`~pq<_! zsy;KD)%fAz=5csWh#^+ky`(JLXTlW+xE`m0X<4+k+n=LI2KSKZ8*x@+i$>4FMIiUQ z9kz5ctHs=oed&;NAG#?(|AKubZAtnNk||>6>|}lTw}N7s=v3o+z%`pk3W!wk)%RCg z72;%HpKbZb|C&L42WiJc0ny@Q_7$PnwoHf8t-_TeyM4BWi4Wk%Ho-{TA}^BtrKNgQ zj9OalL(B10DeWt8|H#pGT}!O-QTfNGwDPNNEzsmpRlObbWFMcOv(OE;;Hx2Svb{)s zkv6MF<^*DH{h0XQ1MC0!8R*~0)tX8ZU8x7Bo}Lg#ZzVvs!L zG`dE?`1z8xyYWqA>TZBw z7i5CSeBj;%S$S>rON!VznQxq%&+TT7M)1XR@mvA1nt)Ja&3-EVeDX`_C(;vOIk<(c z_VMg2+-+9R3nbTBU)5rryum=t-5#_FP7-Jk7nJqBL{`!3e(pc{NVwdonraq6AM`h} z3efI(H^|?+s&6DL-ovr9KJBa1U8Tk?2{e3rL<%B6Tec0cLffsf?q0X6R<0BmlFy&` zdcf%bOZ-IcTSDm8j;>eo*)qX%?%$>I1d#l4m9#+|+bdU@=ebyW>v9s)uTnrtuO}kT z9j##~f7Z^95w2QO>92n5Wa{BB?Ss^G$thLdt>0^w4f>OVj^yJN`cLUs?%s9h4st*s z;gi={oQKTsbsq7n!#3fBQ4>0CQZBT;>4rmUp7yxGrnRQ&^B*R<#k5l7RU!pdT&yJd zpQyceu86Y-$ojW_AWypp-9Ot@tZl_7TU>irBhSBC)aIOh70jJ>Hr(|z|FbZ)M410e z>C0jkK3&e#(1xp=w{Et3ZpW>82+O}F7`|Lch!pAojWa^bSu zppvhcZ#;MQ2Ag>E)^rWj=zK2+}`S=l!7y6pD$`7--CIn36pjvGv4XntpuVi>;#90$Hl{VSj`?*X4rpd92+V`m>@-(X0ax2U&7Jr=6>o% zkXOVr4qr|d7YxZnXuty@$ii|b=Jj`JRT&8$LA$d_KVhW*l0jNMq#u0(iZ2P1@dt^A|hBOxtL=`~zrAB@S6PI=Uyr&XS!5ZBP z2_Z3V>e23m;Z1%jP(`Zl#gW5}SDQP4B6a$>tH3}gN$Zt zCViJs$dl4D$NWGk4V)yH>yqQa^kmwrjtT7e1O<9WQE|TL+LCpB+w?rk-Y?Q!XID#U z->6NVP+2L~XX~2=AIC*Z9DXutmAPz>lQ9;E&&1lOiN>rkc>OD%CLFng{KHu)V7VXBs z$n5Dspx6Y0E)<`cQM#w<;T}c*QjyEQeN;HKR$bEo z&-oKPJ%XVcM-afyaXTgyP{L8mXJi2Yt@g7c9t5^=f<%t&rUKaJeoVc8zii`=Gavt5 zR)k62NbR|pr_5cl<&%xZ4f~Aj*r2-}+(oRj%K)u5Rj$o|+vW<_{lJ{WqkYAr$fJqn zWw6XakD|9904DjqSpPZrdzXla@NMt(!J*sS0kjvbbe#jQgehpap**^b#7@}&t|(uu$_jpW6b#k)YMMQa02{FGF*Ic zL8YM&L;)RKpv_LpS2tE-O-bh-q~2k8An`~2;_ z(-N5yna`VNV|fno$@eAnJA3Po=yi3@jc`j#ait7ZrsF3nPV`3K?rFa^-s^b$9*jYO z$S@m)w@eBdKExCGT#-HevCPwXW8t8x66T9vJ;9&M^q$wYPes&n0-oU1iAv6v<8mUj zf%5!Kp1x4+@n{*Ydi6EuLdWJfafv6lr0ow)%Q!V=3LV=TR_VS{@_6gPRR+GXk?$}D z%&ejNeB*ezH0qE}1WLkA2q%4UUNqjwlV3@B#CrW!p=+L=VR?C#&3oZuM|u&_Zf`4g zh%sDWpgVXW%WI+E(W?}gBzJ!Bd_V7Ueg9EC{eKMTx*H|(WmdLICA6!Poj{WlU7zlI;0U3Yjl`#Q=DF9`C>*Vs zy#n{59lzPoP;ZD0fl;?dEsh1BefcPWnejl+y~`j@fi#ux)e(!3N-k4K|J;t^ilUvw zpyN8xay&Xv-7q;x&}n!VxBZ33hq-CE84P#=CELklzk;v3dP(t;1gYOAXf1Frt@5XR zIFO%yu=VtQVe9cZ{IU_p>SY-LaE;VC_MX?b8a_K~wBL5`|4vriRX<-XGeoS$Bo6T@ zI!WbYb?8s%-dX7z^Ykzabg2myR@9KI9h%z@@;rH$T-O1=|e-eY0ipG zaS{pubE%&O5K6vGoe4|U8VAYUL?y?Z*4bY|GWP&#+Q>ZB_A*6t_W_3XBT-TNFSdFFO zr!E;BiC2x5+8PwZ;>|wa>ZY6a4;H%!uOFj;P-VXK+y(68XNiZQnp%8H z{m3qxACEc>|D99YK>;1g@&`5!^e2;my{;hvMAgJOedgNC%tj9b%fpjJZLD151@Sl1 zQdycdujYJckxo(N%Z$@}TKi)#=YH8gWURj2MfOOqjhKJAL>}RW>N8n|t91+O%u7>@ zj-R@I$tSUUM7UUv7%9={ahm z;;+*+Q4py+MQalJF}Tm4u(50e6ns^8qZEs$rreo>63kWw5wa^j#iR)MhTfoHW+mbE zm3*{} zAM*F@N?ad6hR=HFVRqiNodPz5;X>&P%t?XcezL857tjCJ@qhfH{8fTkee~Y4i*9(d zdqlOlvFD>pWe6TOV8?<|$xW{J9WP@ZYAbtkTn*;ysV?f$eavyD%xIkXeI>aC$hzy? z@wz=|%CY9OK0|v4W#z5#bZ@`I;s_SMV}vJ8(K6f38Lp4H#^Xo zv@X)jr~TsGyh5j)?g*LHkgg5mPrNM--rfLEAvy7cdqX!OuB;g}l_tEWlWY@VIFS81 z|E&yN=#+2Z9D;t%@+d52-oIWd3{U?MH>LPa1Cb@rgBm;B4xesB zEdwEA@R=2;FJfyAvI$^nb#Gf!;R4|8;sCO#M_nL%+%q|3#PT)3lVM&w+?jo5B|O;H zfoWBr@tn;$&8e%E93l9Ma)H+RM<%br-f3re7Ax#aqCXz2Q1GZjp1B4#rYd9E?Vky9 ztPpKC(8yy6Z_u9`a@U5MLa~^TgjIYNts>T_tDYpIh#{>)n_xIhXHlzKRc`&bwakqw zkyV+hM#+l@s#uSENUz3%7NJRp*_sb&M0d8;w@pP_f3$eSC-@`_rTI0HsYhBPa19ZE zqeGsl?%ysU{Lk3F>ep?0%u~aFvHYnH?NjWZScjGX=!-+oW>t1~^?GXY`RS3rvC4#j zUp-Lo{FO+Mzy`R8cNml}%kWuzqW&#h`9FLN{@OxpH$3^@X#X(e8QXQw=S|_uIfUOf zrt)3>v7Pl_n}_{zIoa>Q{XhEr4*~z`-90gS8-7<0{%0zfe|2{4-M$M*kM7+s?=pCq zQ95Iu)MS1X*o_cjoXL#mWI$K#W}*Jf_Kz#Y{C5)p=9#~tVn6oA+l9pb7-~#_TK`m4 z9I?ASLYY_SuQ=l=?lmOOs)@AE#Zu=-A&G4FIgZ^BI*rNHbmb#65_Dx*7#Db2tv^Qk z9iDgY7BZ=We05RVJ~Rv;y$KHn4@f1GXqF)>XHa$Jam{K=h$e&}qy)mhNbd9}?kK(| zz0@VcA@fu2^&4$K21M=}nt0G|HDSjbfQ&wUoF>yqY+>>UmZT1X`egE^;-uonJIHiD z!va4FM*s+cqW|2}Ao=kCRjnQVP#f@B(A$JqVNzZiy!|c?z@<(REy#U6kQp9;qy6kC zS$u)44|n#_^7!#gQX&Ik!*_=cNhHHDEvtydkDBD?ZgE@3MzD%|Ul?h=*0qzcmhejt z7kT06eDHT|_%x1OVIBmxnTuOL0i<2O`2pV1Uh#NB!sCX(@40?F5pH>t?EQ&cl@3HV zad@1x$zCCJ?0sSDK4Lz3hM4lpGk281xJB9xW@7?C4nam@_sV?l3q#SrNbtua!Tt9D zQCL8-(*Q4Tn&gFM-75sKpI>&_4tHUlJ$_+-YI4Tq^IHO#_PBhX@OOe1@MSXEvpH*EIeX{?<%pcAFfJ-z#@zjGZ^+4to0hj(>d$(Wy zldb&M$=rW7{ht1F-d5L2{Xc4T3c%w3Kf|A9dEinScXa+Y-@Ml!fz|^LI5XIPT7PH# z%-12|!2aQ(^hf-_Y8N;JYzVou1C0-{jDOTFV3>}EA!=F~O&f^(Hkvj@)5d7oJ6fm6 be;TbTLG6#x@(^!%IKu>ZW;o+V_y0EmZ>UN2bPDNB8 zb~7$BH8Ae8p8x;>t4TybR9Hu2U>F5-41s?Pw>?1C{b#r@Ku2q_TLp9k2eQmyag@TS zqlifxz~~wcDPjT&l-mYRNXgeTaQtV;`wzkcp3v3n8604aL8f62qid0%R?iTC>bt_LaSp;XS`LJZmEV$O@_6AC4M&zTEgdW3^()(}#UEYEIoxrf>4p&QU%3G|i% zJgP6tFV{qNlwKugF0OO{%u#R;sMay`Q<@I3>i?a^z>FSJ+BGb*VA&R?NwuEAfS4Rb zHAjLRHP@p04RUA!L!lj1&Hx>gfb1Ah4x^gI_zVI$>blt0C)lb0kQmT`>*?kgq?8Y@ ztzixWIRsQa&?Qu`Su&`a5ZFQrQYQ_LUIpcit$Kcnt0|ON9F0C=bIxc;4V#d{S!)yP vLu#qR+k~K&C0I-CECy9tnm=kbF(Ci|n8=#i6iZEV00000NkvXXu0mjfj+)?t literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Resources/addload.png b/Backup/CBAnsDes/Resources/addload.png new file mode 100644 index 0000000000000000000000000000000000000000..2a170ea57d7ca14e789eaa8999ab18b3da743b33 GIT binary patch literal 442 zcmV;r0Y(0aP)Px#1ZP1_K>z@;j|==^1poj5AY({UO#lFTCIA3{ga82g0001h=l}q9FaQARU;qF* zm;eA5aGbhPJOBUy7<5HgbW?9;ba!ELWdKlNX>N2bPDNB8b~7$BH8Ae8p8x;>6iGxu zR9HvtmoW~4KoCVOJ%XjRG~R%KjioKO@Ce?(BX|Ul;883s5o2OE;|{V&Ffthi7D$$4 z8$P@9_AyJsZ04^43}g`=1}OW#7F*{B>d!`f{+%45ks73G29H$`U})P7X#&HA~@#5 z{OB2&eHOvFx{x*(Ls?4&P-(|5q|L=Zr6n>{vtt)44Yth1P-MZpu9xkd`U2Wq3`7&? kbTv)X=B=Roq_G-!1Dg8I=yWoXzyJUM07*qoM6N<$f}km=KL7v# literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Resources/addmember.png b/Backup/CBAnsDes/Resources/addmember.png new file mode 100644 index 0000000000000000000000000000000000000000..d75fed7ff77ef9972029bc65a8394c2e0d88f05e GIT binary patch literal 470 zcmV;{0V)28P)Px#1ZP1_K>z@;j|==^1poj5AY({UO#lFTCIA3{ga82g0001h=l}q9FaQARU;qF* zm;eA5aGbhPJOBUy7<5HgbW?9;ba!ELWdKlNX>N2bPDNB8b~7$BH8Ae8p8x;>FiAu~ zR9HvtmoW~)FbqXAGBPqU0Ahp_z{t>nqcE~HH|P;K0!QE=42+B&*$CfNEQNxa&<0$j zRI<{vZvFD(IIU9YNDBOk0@+<1dWD)9WfD-60!blP9VGCH6!9AT#PTZYl;wG@yN)C( zkk-2Ml1)IqDMg}Rd_KYVV@z3aun@;y0AXc~U|RxaAoMq|amXN|`w$R7O4}N=1N5(G z7tw=-z7PO~H3Hh<{22P|SNvEdnlf>9c!aEwxH=4ERl3RL&eUi%Gsd;a>ipEN-*4Tg zSl;6eQ0suTfxWz^EzodT3My2S(AJ*|<&sz3UpUzML(9JSMZCrsT%Bzls;agq6jx^p zR8?&;Ab0N~Aa`#Qfdass6>)a^J+7}sfZU+H_#R3?pX5P||FY0{4_KpVa1rTpA^-pY M07*qoM6N<$g2~;xrvLx| literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Resources/bend.png b/Backup/CBAnsDes/Resources/bend.png new file mode 100644 index 0000000000000000000000000000000000000000..4bc04d733cac713a1430c875612212308edd2c91 GIT binary patch literal 578 zcmeAS@N?(olHy`uVBq!ia0vp^Dj>|k1|%Oc%$NbBSkfJR9T^xl_H+M9WCijSl0AZa z85pY67#JE_7#My5g&JNkFq9fFFuY1&V6Xz}5igjtE6@fg!CBxDS5h8U|^i$>Eaj?;hvlz!Ma${ zK#B>C=nxQCsh=RQZvO#=81spaE7l2nm^1z4wJ4C5vy7>_a8%!*6n%x<}08 znYci@-3i44d4^hN-2nbB#(mExNIZ!3o3-)l9^MNpnA^nmGiT1)xMJONaR#eLHdoI4 zfW!L?Nl)nbN8hwnGTrVs(Im+Izaq;-*Iw6N|Rr0&X=K`0^;3*bS z`OYZov4sD1rAfo9_0G|k1|%Oc%$NbB7>k44ofy`glX(f`u%tWsIx;Y9 z?C1WI$O_~uBzpw;GB8xBF)%c=FfjZA3N^f7U???UV0e|lz+eS5K)hhiu0R{0ghYvJ zL`iUdT1k0gQ7S_~VrE{6o}X)oLYc9iv8lnk&GUhF6?nQhhD5k0CrGd^Ry2@e0uxi( z57e`<@hSNIIDTM*tjGWMM1}v>0_)iyF)f(E@YGB&k?DdG^Mcmv6J?uvc|$(SY20Hd zvJpHsX*o-VCyR!N17Cxc7Ney~Lk?@kiMQ@tTVFeD6?<~C!(IG@l8W~)&Yv+k4fr9qll4;CEK%t1(K2>g(4d75;NJRICyeO zmTbK+hyC}hxGx^Gmp=epR5H;Dr4 z@)wvr6W7b%dH%?Mi4^_|`<^dj(zLUX-8wz=;g@Q+zW;20UjA?7TPP_ep!L6gzUPDg zWnokQE3iM}Q+-&)9@WZI<zopr0L?_cSO5S3 literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Resources/deletemember.png b/Backup/CBAnsDes/Resources/deletemember.png new file mode 100644 index 0000000000000000000000000000000000000000..fe01936e202605e03a4b45ec7be225ef2ead4a95 GIT binary patch literal 408 zcmeAS@N?(olHy`uVBq!ia0vp^Dj>|k1|%Oc%$NbB7>k44ofy`glX(f`u%tWsIx;Y9 z?C1WI$O_~uBzpw;GB8xBF)%c=FfjZA3N^f7U???UV0e|lz+eS5K)hhiu0R{0ghYvJ zL`iUdT1k0gQ7S_~VrE{6o}X)oLYc9iv8lnk&GUh3K6$!0hD5l(owAVYP=H9AzX?~h z;AG#3D`|q8{WtAxbi8ofK7HOo1-@m6rn7tMKxeIm1GGi7d+ z@oMa=Dc5e*l(_iXdV+AmY_Bsl@vH*64ePj;PCK)HRYbsYo&}aKnM75+c{ yQ`0rNrW3Pzzj`x@?Xx?BPJp25@A&t;ucLK6VC@R#!d literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Resources/editends.png b/Backup/CBAnsDes/Resources/editends.png new file mode 100644 index 0000000000000000000000000000000000000000..88e4461a22657edf58efa7f404d9e01ef11a5e13 GIT binary patch literal 750 zcmVPx#1ZP1_K>z@;j|==^1poj5AY({UO#lFTCIA3{ga82g0001h=l}q9FaQARU;qF* zm;eA5aGbhPJOBUy7<5HgbW?9;ba!ELWdKlNX>N2bPDNB8b~7$BH8Ae8p8x;?NJ&IN zR9Hu2U>F6XAut*OqaiRF0z)hW8hm~J!<=01?ejlUR}apoyH`@JZT^P|3I6Z1vjsaM zTu}Ibu(0sJISAy4LS3EzY1~}@ry3gm&*0+vA0Z$(unqz_s!~(qe;zx>{~QjE|Iva1 z1MeV^qpE<8O5x%h93cctym5Sj|3d_&1}=os)zwif4-=63?<=S^a1II=6#Ngu6WrXv zj)>rs|L?)?^nYpN$^R4D?)-1@Lx-?^S`9XqW=Qo>%f>-eC>aJv9)kMp9Dl) z04UBU0l_dnNK8C{ zaeVy$r`TA7&5r_>{_)}xgdGLTWqr_G77O$ZsBR<5H+U391I%7M~TJ5rMeZ)}t}IscC{F(u1EaeRFHLFtBg%(tJ?q=8repmPvSeLHIS gXb6mkz;Fry06)G~-;cmr&;S4c07*qoM6N<$f=doxGynhq literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Resources/editmember.png b/Backup/CBAnsDes/Resources/editmember.png new file mode 100644 index 0000000000000000000000000000000000000000..17aad2e3b9f9aba10414bfcc66785de7003dab77 GIT binary patch literal 588 zcmV-S0<-;zP)Px#1ZP1_K>z@;j|==^1poj5AY({UO#lFTCIA3{ga82g0001h=l}q9FaQARU;qF* zm;eA5aGbhPJOBUy7<5HgbW?9;ba!ELWdKlNX>N2bPDNB8b~7$BH8Ae8p8x;>rb$FW zR9HvtmCZ}SU>wIs(VGx-D7pxFF?%J2AaZF6)xA#Lg04lk0tpg}B7+DGH|N||L5B+J z(5?R<^5x(m3%YbG3@eBNgKyg)(+YP9w%{3jd0zH=_C#jz|kSS8FkI zHD?Sc#oE~EAUc+-F?vQD2Wt9qN;TCVGh?rCU<|PE3kQ3s8C~lQn7{QI14_9XN@n;-yp(BQblb7qh!m@d= z>;t&iJ>vWg5*M%9S0@Q+c-%p_X$CG@#E?_MuyY5VK{-xQo{Q?fR+PHZ+Ol&lR_!6k zy);cGQ#lA?0#ZB!A)YNp;srby}oQMWFQF%q>?#pAWdRYKnxHA!~iis3=jhq a4SWFbl0g^51VQ}(0000Px#1ZP1_K>z@;j|==^1poj5AY({UO#lFTCIA3{ga82g0001h=l}q9FaQARU;qF* zm;eA5aGbhPJOBUy7<5HgbW?9;ba!ELWdKlNX>N2bPDNB8b~7$BH8Ae8p8x;?ElET{ zR9Hu2U>F6XAut*O_(S0Mic|jwRTwQTT8q;`YIO|z)#@4kgJ`-rdQI*YydmT~Q~kd| zJ0JZ*5#2!%3mq{m2Zhprg%CE&sqUcDOD^E_A$kbuG;{nfJD&qrAH3c9KgdDy^$Z+T z3#AnWxDzhAgVgI86oQu8{0BJ+l9LrcJRks3U-aE21O>118bHnP%0>a;8coc&^{&BVFurIZ z*Fm6=0Y;q$&Je=qpmjO8s|S2?6qP&VI*61+O_BrgIcRkbW#te_4uL6NpS=TT0$ZPr zJK^G!Bg-K$O`9|J;&jmFjNN$TaO)$>L2IiZ(Xlt-1eo4cb{KB?_TqhD_P+SzV0uF> zBBa(=Zbi|zyW|jA*&oBv4;H@o|9SGi|7SyQ{r^Ar|NkqK?!XOxxah_IKRy5dp9{JB z|Nlae+%32qioQAj|6iSm&_`CtAZt33ejaS;rIh;^zPyld@BhW1`~Od6UB!?C>AMho z_y6T&OnnqN>f!w7|Bppo`v0uuBZj3Pr~LbWB>Lk2>l5x_$UR>85~%MYR(%vX2&8#? z&Ow}MU|TLEEnx%ObM{jw?NIE4Q3FOpU^E0qLx8*x000+cNvqmE%ZdO1002ovPDHLk FV1h`}KS}@q literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Resources/removeload.png b/Backup/CBAnsDes/Resources/removeload.png new file mode 100644 index 0000000000000000000000000000000000000000..f5ee3fad4847a6c4849e5a6fbb12e07520042e91 GIT binary patch literal 508 zcmVr@kdrthjtTyVlLU!|1c4*?IT93t!T7!0b=QwOVi+ftn0R41ExtBQ7`= zL>uIv7AUxDF?C59{`Y>F+- z(B5=1V`vX*HKpcmZVi6HDjQXscx*c5_IU3P+!0Qm|S zFnfqO;!q4F0YbtnUjd{400sUQ6iA$`%|MBvHuH*~i9oKpR1ZdJuFk$Y7`L=K<`8Rd zJ8*NXhWzfs!PiZH9sQ$zFVSjNJ~tS(om>1|l4nKvLY5UxKs4e|b?f7eH4eTt>C7n%HnT+3uFz^W#y8#EIv*~640000AxPx#1ZP1_K>z@;j|==^1poj5AY({UO#lFTCIA3{ga82g0001h=l}q9FaQARU;qF* zm;eA5aGbhPJOBUy7<5HgbW?9;ba!ELWdKlNX>N2bPDNB8b~7$BH8Ae8p8x;>nn^@K zR9HvtmAy{GFcgJ7c4ULGkC2Ity<Ye#Dvv_P?#nGKUBTafmp{CMH1KyFfIIfK(?*286`UREQqp3d#2;5b|64{d zG+EUrd0GN>27nt}uVZ{D1%?ZhxZ+HNxCY1+v19B^x&X%^nhS_Ulx_Sf#1pPBsi8}O z;s7N*LuJ}PEF&Hf$G-w3Yhb{vz^xaIyM>^>dXn#x;aXJZYPyXp zbxP`c!I(zsp>8{>4cy>v*gAK(nh{X!j2m|108rlxHZdN|J_}6E2r6}gfKqqT1-Y6L z(99(Q%DD5%C5C1M759)EJX7z?FT~Z1fM_zEuDnIKnlY4Jz&cP>2R;C8Z?ZuA?x@QE O0000Px#1ZP1_K>z@;j|==^1poj5AY({UO#lFTCIA3{ga82g0001h=l}q9FaQARU;qF* zm;eA5aGbhPJOBUy7<5HgbW?9;ba!ELWdKlNX>N2bPDNB8b~7$BH8Ae8p8x;>^hrcP zR9HvtmcL8GKorN{=qU6LP{BcPQCvFKMI0OoE*%{^I_lIQf)&C3xRVYFEx5S2xVQ*$ z6Q?eMql1V;l@1jGD)-F0id*`i;sW(5@JQ74C~*6!A+IBUcMYk675QYZ&Y<%7A-~yq zd4QS2V&pgd`)0y3ymHZibsJ%+j_$_sp7|O=vEwyRtA#LIiuc{r0Ydr|fesbAQiaSf zPH4g6aT)gCS`w=K?!fZ-N#s5RLjT|E-0G=8QXm(0Yz4|eF8i9T2Z(m1(Lx2TX5cUd zQeRVzRv(eSGl3|mFa^qt%E9eu=kW(~E|`JTOb5+C1#N6-lfmPH#tdbm+2=x)?=tF6 zWv#da*{hfK4;QLtqj6^%ra(0p6LF=z3Y6wAaHSh&3VTqLZUu62XkpGl{FGuv<$;uZj=Kufz07*qoM6N<$f>o>< AjQ{`u literal 0 HcmV?d00001 diff --git a/Backup/CBAnsDes/Text Files/Reference.txt b/Backup/CBAnsDes/Text Files/Reference.txt new file mode 100644 index 0000000..f3d376f --- /dev/null +++ b/Backup/CBAnsDes/Text Files/Reference.txt @@ -0,0 +1,240 @@ + '************************************** + '* PROGRAM BEAM * + '* Beam Bending Analysis * + '* T.R.Chandrupatla and A.D.Belegundu * + '************************************** +DefInt I-N +DefDbl A-H, O-Z + Dim NN, NE, NM, NDIM, NEN, NDN + Dim ND, NL, NPR, NMPC, NBW + Dim X(), NOC(), MAT(), PM(), SMI() + Dim NU(), U(), F(), SE(), MPC(), BT() + Dim S(), Stress(), React() + Dim CNST, NQ + Dim Title As String, File1 As String, File2 As String, Dummy As String + Private Sub cmdEnd_Click() + End + End Sub + Public Sub cmdStart_Click() + Call InputData() + Call Bandwidth() + Call Stiffness() + Call ModifyForBC() + Call BandSolver() + Call ReactionCalc() + Call Output() + End Sub + Private Sub InputData() + Dim msg As String, File1 As String + File1 = InputBox("Input File d:\dir\fileName.ext", "Name of File") + Open File1 For Input As #1 + Line Input #1, Dummy: Input #1, Title + Line Input #1, Dummy: Input #1, NN, NE, NM, NDIM, NEN, NDN + Line Input #1, Dummy: Input #1, ND, NL, NMPC + '----- Total dof is NQ + NQ = NDN * NN + NPR = 1 ' One Material Property (E) + ReDim X(NN), NOC(NE, NEN), MAT(NE), PM(NM, NPR), SMI(NE) + ReDim NU(ND), U(ND), F(NQ), SE(4, 4), MPC(NMPC, 2), BT(NMPC, 3) + '============= READ DATA =============== + '----- Coordinates + Line Input #1, Dummy + For I = 1 To NN + Input #1, N + Input #1, X(N) + Next I + '----- Connectivity, Material, Moment of Inertia + Line Input #1, Dummy + For I = 1 To NE + Input #1, N + For J = 1 To NEN + Input #1, NOC(N, J) + Next J + Input #1, MAT(N), SMI(N) + Next I + '----- Displacement BC + Line Input #1, Dummy + For I = 1 To ND + Input #1, NU(I), U(I) + Next I + '----- Component Loads + Line Input #1, Dummy + For I = 1 To NL + Input #1, N + Input #1, F(N) + Next I + '----- Material Properties + Line Input #1, Dummy + For I = 1 To NM + Input #1, N + For J = 1 To NPR + Input #1, PM(N, J) + Next J + Next I + If NMPC > 0 Then + '----- Multi-point Constraints + Line Input #1, Dummy + For I = 1 To NMPC + Input #1, BT(I, 1), MPC(I, 1), BT(I, 2), MPC(I, 2), BT(I, 3) + Next I + End If + Close #1 + End Sub + Private Sub Bandwidth() + '----- Bandwidth Evaluation ----- + NBW = 0 + For N = 1 To NE + NABS = NDN * (Abs(NOC(N, 1) - NOC(N, 2)) + 1) + If NBW < NABS Then NBW = NABS + Next N + For I = 1 To NMPC + NABS = Abs(MPC(I, 1) - MPC(I, 2)) + 1 + If NBW < NABS Then NBW = NABS + Next I + picBox.Print "The Bandwidth is"; NBW + End Sub + Private Sub Stiffness() + ReDim S(NQ, NBW) + '----- Global Stiffness Matrix ----- + For N = 1 To NE + picBox.Print "Forming Stiffness Matrix of Element "; N + N1 = NOC(N, 1) + N2 = NOC(N, 2) + M = MAT(N) + EL = Abs(X(N1) - X(N2)) + EIL = PM(M, 1) * SMI(N) / EL ^ 3 + SE(1, 1) = 12 * EIL + SE(1, 2) = EIL * 6 * EL + SE(1, 3) = -12 * EIL + SE(1, 4) = EIL * 6 * EL + SE(2, 1) = SE(1, 2) + SE(2, 2) = EIL * 4 * EL * EL + SE(2, 3) = -EIL * 6 * EL + SE(2, 4) = EIL * 2 * EL * EL + SE(3, 1) = SE(1, 3) + SE(3, 2) = SE(2, 3) + SE(3, 3) = EIL * 12 + SE(3, 4) = -EIL * 6 * EL + SE(4, 1) = SE(1, 4) + SE(4, 2) = SE(2, 4) + SE(4, 3) = SE(3, 4) + SE(4, 4) = EIL * 4 * EL * EL + picBox.Print(".... Placing in Global Locations") + For II = 1 To NEN + NRT = NDN * (NOC(N, II) - 1) + For IT = 1 To NDN + NR = NRT + IT + I = NDN * (II - 1) + IT + For JJ = 1 To NEN + NCT = NDN * (NOC(N, JJ) - 1) + For JT = 1 To NDN + J = NDN * (JJ - 1) + JT + NC = NCT + JT - NR + 1 + If NC > 0 Then + S(NR, NC) = S(NR, NC) + SE(I, J) + End If + Next JT + Next JJ + Next IT + Next II + Next N + End Sub + Private Sub ModifyForBC() + '----- Decide Penalty Parameter CNST ----- + CNST = 0 + For I = 1 To NQ + If CNST < S(I, 1) Then CNST = S(I, 1) + Next I + CNST = CNST * 10000 + '----- Modify for Boundary Conditions ----- + '--- Displacement BC --- + For I = 1 To ND + N = NU(I) + S(N, 1) = S(N, 1) + CNST + F(N) = F(N) + CNST * U(I) + Next I + '--- Multi-point Constraints --- + For I = 1 To NMPC + I1 = MPC(I, 1) : I2 = MPC(I, 2) + S(I1, 1) = S(I1, 1) + CNST * BT(I, 1) * BT(I, 1) + S(I2, 1) = S(I2, 1) + CNST * BT(I, 2) * BT(I, 2) + IR = I1 : If IR > I2 Then IR = I2 + IC = Abs(I2 - I1) + 1 + S(IR, IC) = S(IR, IC) + CNST * BT(I, 1) * BT(I, 2) + F(I1) = F(I1) + CNST * BT(I, 1) * BT(I, 3) + F(I2) = F(I2) + CNST * BT(I, 2) * BT(I, 3) + Next I + End Sub + Private Sub BandSolver() + '----- Band Solver ----- + N1 = NQ - 1 + '--- Forward Elimination + For K = 1 To N1 + NK = NQ - K + 1 + If NK > NBW Then NK = NBW + For I = 2 To NK + C1 = S(K, I) / S(K, 1) + I1 = K + I - 1 + For J = I To NK + J1 = J - I + 1 + S(I1, J1) = S(I1, J1) - C1 * S(K, J) + Next J + F(I1) = F(I1) - C1 * F(K) + Next I + Next K + '--- Back-substitution + F(NQ) = F(NQ) / S(NQ, 1) + For KK = 1 To N1 + K = NQ - KK + C1 = 1 / S(K, 1) + F(K) = C1 * F(K) + NK = NQ - K + 1 + If NK > NBW Then NK = NBW + For J = 2 To NK + F(K) = F(K) - C1 * S(K, J) * F(K + J - 1) + Next J + Next KK + End Sub + Private Sub ReactionCalc() + ReDim React(ND) + '----- Reaction Calculation ----- + For I = 1 To ND + N = NU(I) + React(I) = CNST * (U(I) - F(N)) + Next I + End Sub + Private Sub Output() + '===== Print Displacements, Stresses, and Reactions + File2 = InputBox("Output File d:\dir\fileName.ext", "Name of File") + Open File2 For Output As #2 + Print #2, "Program Beam - CHANDRUPATLA & BELEGUNDU" + Print #2, "Output for Data from " + File1 + Print #2, Title + '----- Displacements ----- + Print #2, "NODE# Displ. Rotation(radians)" + For I = 1 To NN + Print #2, Format(I, "@@@@@ "); Format(F(2 * I - 1), "0.0000E+00 "); + Print #2, Format(F(2 * I), "0.0000E+00") + Next I + '----- Reactions ----- + Print #2, "DOF#", "Reaction" + For I = 1 To ND + N = NU(I) + Print #2, Format(N, "@@@@@ "); Format(React(I), "0.0000E+00") + Next I + Close #2 + picBox.Print "Complete results are in file "; File2 + End Sub + Private Sub cmdView_Click() + Dim ALine As String, CRLF As String, File1 As String + CRLF = Chr$(13) + Chr$(10) + picBox.Visible = False + txtView.Visible = True + txtView.Text = "" + Open File2 For Input As #1 + Do While Not EOF(1) + Line Input #1, ALine + txtView.Text = txtView.Text + ALine + CRLF + Loop + Close #1 + End Sub diff --git a/Repository/conf/authz b/Repository/conf/authz new file mode 100644 index 0000000..90d8838 --- /dev/null +++ b/Repository/conf/authz @@ -0,0 +1,32 @@ +### This file is an example authorization file for svnserve. +### Its format is identical to that of mod_authz_svn authorization +### files. +### As shown below each section defines authorizations for the path and +### (optional) repository specified by the section name. +### The authorizations follow. An authorization line can refer to: +### - a single user, +### - a group of users defined in a special [groups] section, +### - an alias defined in a special [aliases] section, +### - all authenticated users, using the '$authenticated' token, +### - only anonymous users, using the '$anonymous' token, +### - anyone, using the '*' wildcard. +### +### A match can be inverted by prefixing the rule with '~'. Rules can +### grant read ('r') access, read-write ('rw') access, or no access +### (''). + +[aliases] +# joe = /C=XZ/ST=Dessert/L=Snake City/O=Snake Oil, Ltd./OU=Research Institute/CN=Joe Average + +[groups] +# harry_and_sally = harry,sally +# harry_sally_and_joe = harry,sally,&joe + +# [/foo/bar] +# harry = rw +# &joe = r +# * = + +# [repository:/baz/fuz] +# @harry_and_sally = rw +# * = r diff --git a/Repository/conf/passwd b/Repository/conf/passwd new file mode 100644 index 0000000..d22bafc --- /dev/null +++ b/Repository/conf/passwd @@ -0,0 +1,8 @@ +### This file is an example password file for svnserve. +### Its format is similar to that of svnserve.conf. As shown in the +### example below it contains one section labelled [users]. +### The name and password for each user follow, one account per line. + +[users] +# harry = harryssecret +# sally = sallyssecret diff --git a/Repository/conf/svnserve.conf b/Repository/conf/svnserve.conf new file mode 100644 index 0000000..97c199e --- /dev/null +++ b/Repository/conf/svnserve.conf @@ -0,0 +1,47 @@ +### This file controls the configuration of the svnserve daemon, if you +### use it to allow access to this repository. (If you only allow +### access through http: and/or file: URLs, then this file is +### irrelevant.) + +### Visit http://subversion.tigris.org/ for more information. + +[general] +### These options control access to the repository for unauthenticated +### and authenticated users. Valid values are "write", "read", +### and "none". The sample settings below are the defaults. +# anon-access = read +# auth-access = write +### The password-db option controls the location of the password +### database file. Unless you specify a path starting with a /, +### the file's location is relative to the directory containing +### this configuration file. +### If SASL is enabled (see below), this file will NOT be used. +### Uncomment the line below to use the default password file. +# password-db = passwd +### The authz-db option controls the location of the authorization +### rules for path-based access control. Unless you specify a path +### starting with a /, the file's location is relative to the the +### directory containing this file. If you don't specify an +### authz-db, no path-based access control is done. +### Uncomment the line below to use the default authorization file. +# authz-db = authz +### This option specifies the authentication realm of the repository. +### If two repositories have the same authentication realm, they should +### have the same password database, and vice versa. The default realm +### is repository's uuid. +# realm = My First Repository + +[sasl] +### This option specifies whether you want to use the Cyrus SASL +### library for authentication. Default is false. +### This section will be ignored if svnserve is not built with Cyrus +### SASL support; to check, run 'svnserve --version' and look for a line +### reading 'Cyrus SASL authentication is available.' +# use-sasl = true +### These options specify the desired strength of the security layer +### that you want SASL to provide. 0 means no encryption, 1 means +### integrity-checking only, values larger than 1 are correlated +### to the effective key length for encryption (e.g. 128 means 128-bit +### encryption). The values below are the defaults. +# min-encryption = 0 +# max-encryption = 256 diff --git a/Repository/db/current b/Repository/db/current new file mode 100644 index 0000000..573541a --- /dev/null +++ b/Repository/db/current @@ -0,0 +1 @@ +0 diff --git a/Repository/db/format b/Repository/db/format new file mode 100644 index 0000000..ef83e21 --- /dev/null +++ b/Repository/db/format @@ -0,0 +1,2 @@ +3 +layout sharded 1000 diff --git a/Repository/db/fs-type b/Repository/db/fs-type new file mode 100644 index 0000000..4fdd953 --- /dev/null +++ b/Repository/db/fs-type @@ -0,0 +1 @@ +fsfs diff --git a/Repository/db/revprops/0/0 b/Repository/db/revprops/0/0 new file mode 100644 index 0000000..791b434 --- /dev/null +++ b/Repository/db/revprops/0/0 @@ -0,0 +1,5 @@ +K 8 +svn:date +V 27 +2008-10-09T06:05:59.484375Z +END diff --git a/Repository/db/revs/0/0 b/Repository/db/revs/0/0 new file mode 100644 index 0000000..10f5c45 --- /dev/null +++ b/Repository/db/revs/0/0 @@ -0,0 +1,11 @@ +PLAIN +END +ENDREP +id: 0.0.r0/17 +type: dir +count: 0 +text: 0 0 4 4 2d2977d1c96f487abe4a1e202dd03b4e +cpath: / + + +17 107 diff --git a/Repository/db/txn-current b/Repository/db/txn-current new file mode 100644 index 0000000..573541a --- /dev/null +++ b/Repository/db/txn-current @@ -0,0 +1 @@ +0