VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx" Begin VB.Form Form5 Caption = "CORELAP 01_Representación Gráfica" ClientHeight = 8235 ClientLeft = 60 ClientTop = 450 ClientWidth = 11445 Icon = "Form5.frx":0000 LinkTopic = "Form5" ScaleHeight = 8235 ScaleWidth = 11445 StartUpPosition = 3 'Windows Default WindowState = 2 'Maximized Begin VB.CommandButton Command1 Caption = "&Ver Iteraciones" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 240 TabIndex = 61 ToolTipText = "Imprimir Solución" Top = 6480 Width = 3855 End Begin VB.VScrollBar VScroll1 Height = 5895 Left = 4200 TabIndex = 60 Top = 1200 Width = 255 End Begin VB.HScrollBar HScroll1 Height = 255 Left = 4440 TabIndex = 59 Top = 1200 Width = 6735 End Begin MSComDlg.CommonDialog CommonDialog1 Left = 240 Top = 240 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.CommandButton Command2 Caption = "&Imprimir" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 240 TabIndex = 58 ToolTipText = "Imprimir Solución" Top = 7080 Width = 3855 End Begin VB.ListBox List1 BeginProperty Font Name = "Arial" Size = 15.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 5100 ItemData = "Form5.frx":0442 Left = 240 List = "Form5.frx":0444 TabIndex = 56 Top = 1200 Width = 3855 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00008080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 56 Left = 10080 Locked = -1 'True TabIndex = 55 Text = "56" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0000C0C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 55 Left = 10080 Locked = -1 'True TabIndex = 54 Text = "55" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0000FFFF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 54 Left = 10080 Locked = -1 'True TabIndex = 53 Text = "54" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0080FFFF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 53 Left = 10080 Locked = -1 'True TabIndex = 52 Text = "53" Top = 3840 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0FFFF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 52 Left = 10080 Locked = -1 'True TabIndex = 51 Text = "52" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0E0FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 51 Left = 10080 Locked = -1 'True TabIndex = 50 Text = "51" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0080C0FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 50 Left = 10080 Locked = -1 'True TabIndex = 49 Text = "50" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000080FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 49 Left = 9240 Locked = -1 'True TabIndex = 48 Text = "49" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000040C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 48 Left = 8400 Locked = -1 'True TabIndex = 47 Text = "48" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00004080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 47 Left = 7560 Locked = -1 'True TabIndex = 46 Text = "47" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00000080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 46 Left = 6720 Locked = -1 'True TabIndex = 45 Text = "46" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000000C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 45 Left = 5880 Locked = -1 'True TabIndex = 44 Text = "45" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000000FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 44 Left = 5040 Locked = -1 'True TabIndex = 43 Text = "44" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H008080FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 43 Left = 4200 Locked = -1 'True TabIndex = 42 Text = "43" Top = 6360 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0C0FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 42 Left = 4200 Locked = -1 'True TabIndex = 41 Text = "42" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FFFFFF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 41 Left = 4200 Locked = -1 'True TabIndex = 40 Text = "41" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00E0E0E0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 40 Left = 4200 Locked = -1 'True TabIndex = 39 Text = "40" Top = 3840 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0C0C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 39 Left = 4200 Locked = -1 'True TabIndex = 38 Text = "39" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00808080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 38 Left = 4200 Locked = -1 'True TabIndex = 37 Text = "38" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00404040& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 37 Left = 4200 Locked = -1 'True TabIndex = 36 Text = "37" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00800080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 36 Left = 5040 Locked = -1 'True TabIndex = 35 Text = "36" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C000C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 35 Left = 5880 Locked = -1 'True TabIndex = 34 Text = "35" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FF00FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 34 Left = 6720 Locked = -1 'True TabIndex = 33 Text = "34" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FF80FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 33 Left = 7560 Locked = -1 'True TabIndex = 32 Text = "33" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FFC0FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 32 Left = 8400 Locked = -1 'True TabIndex = 31 Text = "32" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FFC0C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 31 Left = 9240 Locked = -1 'True TabIndex = 30 Text = "31" Top = 1320 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FF8080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 30 Left = 9240 Locked = -1 'True TabIndex = 29 Text = "30" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FF0000& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 29 Left = 9240 Locked = -1 'True TabIndex = 28 Text = "29" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C00000& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 28 Left = 9240 Locked = -1 'True TabIndex = 27 Text = "28" Top = 3840 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00800000& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 27 Left = 9240 Locked = -1 'True TabIndex = 26 Text = "27" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00808000& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 26 Left = 9240 Locked = -1 'True TabIndex = 25 Text = "26" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0C000& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 25 Left = 8400 Locked = -1 'True TabIndex = 24 Text = "25" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FFFF00& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 24 Left = 7560 Locked = -1 'True TabIndex = 23 Text = "24" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FFFF80& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 23 Left = 6720 Locked = -1 'True TabIndex = 22 Text = "23" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00FFFFC0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 22 Left = 5880 Locked = -1 'True TabIndex = 21 Text = "22" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0FFC0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 21 Left = 5040 Locked = -1 'True TabIndex = 20 Text = "21" Top = 5520 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0080FF80& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 20 Left = 5040 Locked = -1 'True TabIndex = 19 Text = "20" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0000FF00& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 19 Left = 5040 Locked = -1 'True TabIndex = 18 Text = "19" Top = 3840 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0000C000& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 18 Left = 5040 Locked = -1 'True TabIndex = 17 Text = "18" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00008000& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 17 Left = 5040 Locked = -1 'True TabIndex = 16 Text = "17" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00008080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 16 Left = 5880 Locked = -1 'True TabIndex = 15 Text = "16" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0000C0C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 15 Left = 6720 Locked = -1 'True TabIndex = 14 Text = "15" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0000FFFF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 14 Left = 7560 Locked = -1 'True TabIndex = 13 Text = "14" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0080FFFF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 13 Left = 8400 Locked = -1 'True TabIndex = 12 Text = "13" Top = 2160 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0FFFF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 12 Left = 8400 Locked = -1 'True TabIndex = 11 Text = "12" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0E0FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 11 Left = 8400 Locked = -1 'True TabIndex = 10 Text = "11" Top = 3840 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H0080C0FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 10 Left = 8400 Locked = -1 'True TabIndex = 9 Text = "10" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000080FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 9 Left = 7560 Locked = -1 'True TabIndex = 8 Text = "9" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000040C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000006& Height = 820 Index = 8 Left = 6720 Locked = -1 'True TabIndex = 7 Text = "8" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00004080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 7 Left = 5880 Locked = -1 'True TabIndex = 6 Text = "7" Top = 4680 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00000080& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 6 Left = 5880 Locked = -1 'True TabIndex = 5 Text = "6" Top = 3840 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000000C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 5 Left = 5880 Locked = -1 'True TabIndex = 4 Text = "5" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000000C0& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 4 Left = 6720 Locked = -1 'True TabIndex = 3 Text = "4" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H000000FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 3 Left = 7560 Locked = -1 'True TabIndex = 2 Text = "3" Top = 3000 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H008080FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 2 Left = 7560 Locked = -1 'True TabIndex = 1 Text = "2" Top = 3840 Width = 820 End Begin VB.TextBox Text1 Alignment = 2 'Center BackColor = &H00C0C0FF& BeginProperty Font Name = "Arial" Size = 20.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 820 Index = 1 Left = 6705 Locked = -1 'True TabIndex = 0 Text = "1" Top = 3840 Width = 820 End Begin VB.Line Line1 BorderWidth = 3 X1 = 3720 X2 = 8760 Y1 = 1080 Y2 = 1080 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "LAYOUT ADECUADO" BeginProperty Font Name = "Arial" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 2880 TabIndex = 57 Top = 480 Width = 6735 End End Attribute VB_Name = "Form5" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Command1_Click() If Form4.Check1.Value = 1 Then Form3.Show Else MsgBox "Debió seleccionar para que esté disponible esta opción" End If End Sub Private Sub Command2_Click() Dim BeginPage, EndPage, NumCopies, i On Error GoTo ErrHandler CommonDialog1.ShowPrinter BeginPage = CommonDialog1.FromPage EndPage = CommonDialog1.ToPage NumCopies = CommonDialog1.Copies 'COLOQUEMOS LO QUE SE VA A VER EN LA HOJA IMPRESA 'Printer.ScaleLeft = -((Printer.Width - Form5.Width) / 2) 'Printer.ScaleTop = -((Printer.Height - Form5.Height) / 2) Printer.ScaleTop = -200 Printer.Font.Size = 18 Printer.Print " " Printer.Print " " Printer.Font = "ARIAL" Printer.Print " CORELAP 01" Printer.Print " RESOLUCIÓN PROBLEMA" Printer.Font.Size = 10 If Module1.s1 = 7 Then Printer.Print Module1.N1 Else Printer.Print Module1.AL End If Printer.Print " " Printer.Print " " Printer.Font.Size = 14 Printer.Font = "COURIER NEW" Printer.Print "Nº Departamentos= " & Module1.a Printer.Print "Superficie Disponible= " & Module1.suPerficie Printer.Print "Superficie Requerida= " & Form4.REquerida Printer.Print " " Printer.Print "Nombre Dept. TCR Superficie" Printer.Print "************ *** **********" 'COLOQUEMOS LOS DATOS DEL PROBLEMA Printer.Font.Size = 12 Dim w As Integer Dim R As Integer Dim cad As String For i = 1 To a w = Len(md(1, va(i))) If Len(md(1, va(i))) = 20 Then cad = md(1, va(i)) & Space(10) & md(3, va(i)) Else cad = md(1, va(i)) & Space(30 - w) & md(3, va(i)) End If R = Len(md(3, va(i))) If Len(md(3, va(i))) = 9 Then cad = cad & Space(10) & md(2, va(i)) Else cad = cad & Space(19 - R) & md(2, va(i)) End If If i < 10 Then Printer.Print i & ". " & cad Else Printer.Print i & ". " & cad End If Next 'IMPRIMAMOS EL FORMULARIO Printer.NewPage List1.Visible = False Command2.Visible = False Command1.Visible = False HScroll1.Visible = False VScroll1.Visible = False Form5.BackColor = RGB(265, 265, 265) Form5.WindowState = 0 Label1.BackColor = RGB(265, 265, 265) Form5.PrintForm Unload Form5 Printer.EndDoc Exit Sub ErrHandler: ' El usuario ha hecho clic en el botón Cancelar Exit Sub End Sub Private Sub form_Load() 'ocultemos los departamentos For i = 1 To 56 Text1(i).Visible = False Next End Sub Private Sub HScroll1_Change() For i = 1 To a Text1(i).Left = HScroll1.Value * 495 + tp(2, i) Next End Sub Private Sub VScroll1_Change() 'subamos y bajemos la distribución en planta For i = 1 To a Text1(i).Top = VScroll1.Value * 495 + tp(1, i) Next End Sub e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.


DESARROLLO DE UNA HERRAMIENTA INFORMÃTICA BASADA EN EL ALGORITMO CORELAP PARA LA OPTIMIZACIÓN DE DISTRIBUCIONES EN PLANTA

: Fernandez Márquez, Benito
: Ingeniería Organización
Contenido del proyecto:
Directorio raíz  >  PROGRAMA  >  CÓDIGO COMPLETO  >  Form5.frm