Organizador de Transporte

-

El día de hoy desarrollaremos una herramienta que te ayude a organizar mejor espacios a la hora de realizar un viaje con un determinado numero de personas. 

lo primero es hacer el diseño a nuestro gusto, con textbox, labels, etc.


Empezando hacer nuestro código declaramos las variables.

Nuestro código va a quedar de la sig. manera:

Public Class Transporte

    Dim personas, transporte, avacio1, avacio2, avacio3, avacio4, psin1, psin2, psin3, psin4, recomendado, trans1, trans2, trans3, trans4, r1, r2, r3, r4, bus, vagoneta, van, vintegral, o1, o2, o3, o4 As Integer

    Private Sub TxtNumPer_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNumPer.TextChanged
        TxtNumPer.Text = TxtNumPer.Text

    End Sub

    Private Sub Btncalcu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalcu.Click
        vintegral = 7
        vagoneta = 15
        van = 23
        bus = 55

        psin1 = personas Mod vintegral
        If personas < vintegral Then
            psin1 = 0
        End If
        psin2 = personas Mod vagoneta
        psin3 = personas Mod van
        psin4 = personas Mod bus
        If psin1 < psin2 And psin1 < psin3 And psin1 < psin4 Then
            Txtpersinir.Text = psin1
        Else
            If psin2 < psin1 And psin2 < psin3 And psin2 < psin4 Then
                Txtpersinir.Text = psin2

            Else
                If psin3 < psin1 And psin3 < psin2 And psin3 < psin4 Then
                    Txtpersinir.Text = psin3
                Else
                    If psin4 < psin1 And psin4 < psin2 And psin4 < psin3 Then
                        Txtpersinir.Text = psin4
                    End If
                End If
            End If
        End If

        trans1 = personas \ vintegral
        If personas < vintegral Then
            trans1 = 1

        End If
        trans2 = personas \ vagoneta
        If personas < vagoneta Then
            trans2 = 1
        End If
        trans3 = personas \ van
        If personas < van Then
            trans3 = 1
        End If
        trans4 = personas \ bus
        If personas < bus Then
            trans4 = 1
        End If


        avacio1 = vintegral \ personas
        If personas <= vintegral Then
            avacio1 = vintegral - personas
        End If

        avacio2 = vagoneta \ personas
        If personas <= vagoneta Then
            avacio2 = vagoneta - personas
        End If

        avacio3 = van \ personas
        If personas <= van Then
            avacio3 = van - personas
        End If
        avacio4 = bus \ personas
        If personas <= bus Then
            avacio4 = bus - personas
        End If


        If TxtNumPer.Text = psin1 Then
            Txtasientos.Text = avacio1
            Txtnumtrans.Text = trans1
            Txtpersinir.Text = "V. integral"
        Else
            If TxtNumPer.Text = psin2 Then
                Txtasientos.Text = avacio2
                Txtnumtrans.Text = trans2
                Txtpersinir.Text = "Vagoneta"
            Else
                If TxtNumPer.Text = psin3 Then
                    Txtasientos.Text = avacio3
                    Txtnumtrans.Text = trans3
                    Txtpersinir.Text = "Van"
                Else
                    If TxtNumPer.Text = psin4 Then
                        Txtasientos.Text = avacio4
                        Txtnumtrans.Text = trans4
                        Txtpersinir.Text = "bus"
                    End If
                End If
            End If
        End If

    End Sub
End Class






Vemos que la depuración salió exitosa. 

En esta página es donde puedes obtener información acerca de los reglamentos de tránsito, espero que sea de mucha ayuda. GRACIAS!!!


Comentarios

Publicar un comentario

Entradas populares de este blog

Suma en Espiral de una Matriz

-
Imagen
Bienvenidos en esta ocasión desarrollaremos un código en el cual se haga la suma de los elementos de una matriz en espiral. En la parte del diseño vamos a utilizar únicamente un ListBox y un Boton a los cuales nombre de acuerdo a lo que se van a utilizar (Lstmatriz, Btnsuma).  Declaramos una variable global que se usa para todo el código, y en el LstMatriz declaramos las variables necesarias y desarrollamos. Public Class Espiral     Dim matriz(5, 5)     Private Sub Lstmatriz_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lstmatriz.SelectedIndexChanged, Lstmatriz.Click         Dim x, y, n As Integer         Dim cad As String         For x = 0 To 4             For y = 0 To 4                 n = InputBox("Proporcione los datos:" & CStr(x + 1) & "-" & CStr(...
Leer más

Gráficas

-
Imagen
Buen día tengan todos ustedes, en esta ocasión programaremos en excel la representación de determinadas formulas como los son:    x², x³, raíz cuadrada, 1/x, sin(x), cos(x).  Es importante que en excel activen la pestaña de desarrollador en la parte de configuración, ya teniendo este apartado tenemos en la parte de diseño varios elementos, ingresamos scroll bar y Boton para que este sea el que grafique y evalue    Set migrafica = ActiveWorkbook.Sheets("Hoja1").ChartObjects.Add(200, 45, 400, 400)     migrafica.Chart.ChartType = xlXYScatterSmooth     migrafica.Name = "f(x)"     migrafica.Chart.SeriesCollection.NewSeries.Select With Selection     .XValues = Range(Cells(fini, x), Cells(ffinal, x))     .Values = Range(Cells(fini, y), Cells(ffinal, y)) Private Sub CommandButton1_Click() Dim a, b, c, li, ls, i As Integer Dim res As Single a = Range("b1").Value b = Range("b2").Value c = Rang...
Leer más