lunes, 22 de junio de 2015

If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "decimetro" Then
                 lblresultado.Text = txtquieroconvertir.Text / 10
                             Else
                          If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "centimetro" Then
                                    lblresultado.Text = txtquieroconvertir.Text * 10
                                    Else
                                        If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "milimetro" Then
                                            lblresultado.Text = txtquieroconvertir.Text * 10
                                        Else
                                            If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "centimetro" Then
                                                lblresultado.Text = txtquieroconvertir.Text / 10
                                            Else
                                                If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "micrometro" Then
                                                    lblresultado.Text = txtquieroconvertir.Text / 10000
                                                Else
                                                    If cbxlongitud1.Text = "micrometro" And cbxlongitud2.Text = "centimetro" Then
                                                        lblresultado.Text = txtquieroconvertir.Text / 10000
                                                    Else
                                                        If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "kilometro" Then
                                                            lblresultado.Text = txtquieroconvertir.Text / 100000
                                                        Else
                                                            If cbxlongitud1.Text = "kilometro" And cbxlongitud2.Text = "centimetro" Then
                                                                lblresultado.Text = txtquieroconvertir.Text * 100000
                                                            Else
                                                                If cbxlongitud1.Text = "centimetro" And cbxlongitud2.Text = "metro" Then
                                                                    lblresultado.Text = txtquieroconvertir.Text / 100
                                                                Else
                                                                    If cbxlongitud1.Text = "metro" And cbxlongitud2.Text = "centimetro" Then
                                                                        lblresultado.Text = txtquieroconvertir.Text * 10
                                                                    Else
                                                                        If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "milimetro" Then
                                                                            lblresultado.Text = txtquieroconvertir.Text * 100
                                                                        Else
                                                                            If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "decimetro" Then
                                                                                lblresultado.Text = txtquieroconvertir.Text / 100
                                                                            Else
                                                                                If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "micrometro" Then
                                                                                    lblresultado.Text = txtquieroconvertir.Text * 100000
                                                                                Else
                                                                                    If cbxlongitud1.Text = "micrometro" And cbxlongitud2.Text = "decimetro" Then
                                                                                        lblresultado.Text = txtquieroconvertir.Text / 100000
                                                                                    Else
                                                                                        If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "kilometro" Then
                                                                                            lblresultado.Text = txtquieroconvertir.Text / 10000
                                                                                        Else
                                                                                            If cbxlongitud1.Text = "kilometro" And cbxlongitud2.Text = "decimetro" Then
                                                                                                lblresultado.Text = txtquieroconvertir.Text * 10000
                                                                                            Else
                                                                                                If cbxlongitud1.Text = "decimetro" And cbxlongitud2.Text = "metro" Then
                                                                                                    lblresultado.Text = txtquieroconvertir.Text / 10
                                                                                                Else
                                                                                                    If cbxlongitud1.Text = "metro" And cbxlongitud2.Text = "deciometro" Then
                                                                                                        lblresultado.Text = txtquieroconvertir.Text * 10
                                                                                                    Else
                                                                                                        If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "micrometro" Then
                                                                                                            lblresultado.Text = txtquieroconvertir.Text * 1000
                                                                                                        Else
                                                                                                            If cbxlongitud1.Text = "micrometro" And cbxlongitud2.Text = "milimetro" Then
                                                                                                                lblresultado.Text = txtquieroconvertir.Text / 1000
                                                                                                            Else
                                                                                                                If cbxlongitud1.Text = "milimetro" And cbxlongitud2.Text = "kilometro" Then
                                                                                                                    lblresultado.Text = txtquieroconvertir.Text / 1000000