Blog de Daiyiro

#BlogDeDaiyiro es sobre todo Bricolajes de Electrónica/Informática. ¡^-^¡

LO NUEVO:

15.10.13

Proyecto Final Con Formulario MDI y 3 Forms Hijos

Esta aplicación es mi proyecto final en el curso de Visual Basic.net, se trata de una Aplicación para Windows para listar los datos de un chofer, tractora y remolque para una empresa de transportes.


La aplicación crear una carpeta temporal y un fichero de texto, donde según nos vamos moviendo por los 3 formularios hijos, va confeccionando el fichero de texto con todos los datos, al finalizar la cumplimentación de los 3 formularios, abre el fichero de texto para su visualización y posible impresión, una vez terminado, se puede hacer un listado nuevo desde Archivo/Nuevo y así sucesivamente.

La aplicación tiene un fichero de ayuda en html que esta subido a internet para poder consultarlo desde la pestaña Ayuda, si prefieres descargarte lo puedes acceder a el desde aquí:

http://eurotransport.comule.com/ayuda.html


Pues empezamos a mostrar el código.

CÓDIGO EN VB.NET DEL FORMULARIO MDI:

Imports System.Windows.Forms

Public Class EuroTransport

    Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click
        Using file As New IO.StreamWriter("C:\tmp\000.txt")
            file.Flush()
        End Using
        Dim _remolque As New Remolque
        Dim _tractora As New Tractora
        Dim _chofer As New Chofer

        _remolque.MdiParent = Me
        _remolque.WindowState = FormWindowState.Minimized
        _remolque.Show()

        _tractora.MdiParent = Me
        _tractora.WindowState = FormWindowState.Minimized
        _tractora.Show()

        _chofer.MdiParent = Me
        _chofer.WindowState = FormWindowState.Maximized
        _chofer.Show()
    End Sub

    Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
        End If
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim SaveFileDialog As New SaveFileDialog
        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        SaveFileDialog.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = SaveFileDialog.FileName

        End If
    End Sub


    Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
        ' Utilice My.Computer.Clipboard para insertar el texto o las imágenes seleccionadas en el Portapapeles
    End Sub

    Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
        ' Utilice My.Computer.Clipboard para insertar el texto o las imágenes seleccionadas en el Portapapeles
    End Sub

    Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
        'Utilice My.Computer.Clipboard.GetText() o My.Computer.Clipboard.GetData para recuperar la información del Portapapeles.
    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

    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub

    Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
        For Each ChildForm As Form In Me.MdiChildren
            ChildForm.Close()
        Next
    End Sub

    Private m_ChildFormNumber As Integer

    Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click
        Dim _acercade As New AcercaDe
        _acercade.Show()
    End Sub

    Private Sub ChoferToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChoferToolStripMenuItem.Click
        Dim _chofer As New Chofer
        _chofer.MdiParent = Me
        _chofer.Show()
    End Sub

    Private Sub TractoraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TractoraToolStripMenuItem.Click
        Dim _tractora As New Tractora
        _tractora.MdiParent = Me
        _tractora.Show()
    End Sub

    Private Sub RemolqueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemolqueToolStripMenuItem.Click
        Dim _remolque As New Remolque
        _remolque.MdiParent = Me
        _remolque.Show()
    End Sub

    Private Sub ListarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListarToolStripMenuItem.Click
        Dim psi As New ProcessStartInfo()
        psi.UseShellExecute = True
        psi.FileName = "C:\tmp\000.txt"
        Process.Start(psi)
    End Sub

    Private Sub IndexToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IndexToolStripMenuItem.Click
        Dim ayuda As New ProcessStartInfo()
        ayuda.UseShellExecute = True
        ayuda.FileName = "http://eurotransport.comule.com/ayuda.html"
        Process.Start(ayuda)
    End Sub

    Private Sub EuroTransport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim _remolque As New Remolque
        Dim _tractora As New Tractora
        Dim _chofer As New Chofer

        _remolque.MdiParent = Me
        _remolque.WindowState = FormWindowState.Minimized
        _remolque.Show()

        _tractora.MdiParent = Me
        _tractora.WindowState = FormWindowState.Minimized
        _tractora.Show()

        _chofer.MdiParent = Me
        _chofer.WindowState = FormWindowState.Maximized
        _chofer.Show()

    End Sub

End Class


Una Captura de pantalla del formulario:



CÓDIGO EN VB.NET DEL PRIMER FORMULARIO HIJO:

Public Class Chofer
    Dim Sep As Char
    Dim numeros2 As Byte
    Dim numeros3 As Integer
    Dim numeros6 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        Dim _wtxt As New System.IO.StreamWriter("c:\tmp\000.txt", True)
        Dim lab1 As String = Label1.Text
        Dim texto1 As String = TextBox1.Text
        Dim lab2 As String = Label2.Text
        Dim texto2 As Byte = TextBox2.Text
        Dim lab3 As String = Label3.Text
        Dim texto3 As Integer = TextBox3.Text
        Dim lab4 As String = Label4.Text
        Dim texto4 As String = TextBox4.Text
        Dim lab5 As String = Label5.Text
        Dim texto5 As String = TextBox5.Text
        Dim lab6 As String = Label8.Text
        Dim lab7 As String = Label7.Text
        Dim texto6 As Integer = TextBox6.Text
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine("Chofer")
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine(lab1 & " " & texto1)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab2 & " " & texto2)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab3 & " " & texto3)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab4 & " " & texto4)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab5 & " " & texto5)
        _wtxt.WriteLine()
        Select Case RadioButton.CheckForIllegalCrossThreadCalls
            Case RadioButton1.Checked
                _wtxt.WriteLine(lab6 & " " & "España")
            Case RadioButton2.Checked
                _wtxt.WriteLine(lab6 & " " & "Portugal")
            Case RadioButton3.Checked
                _wtxt.WriteLine(lab6 & " " & "Italia")
            Case RadioButton4.Checked
                _wtxt.WriteLine(lab6 & " " & "Francia")
            Case RadioButton5.Checked
                _wtxt.WriteLine(lab6 & " " & "Alemania")
            Case RadioButton6.Checked
                _wtxt.WriteLine(lab6 & " " & "Gran Bretaña")
            Case Else
                _wtxt.WriteLine(lab6 & " " & "No Se Sabe Aun Destino")
        End Select
        _wtxt.WriteLine()
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine(lab7 & " " & texto6)
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine()
        _wtxt.WriteLine()
        _wtxt.Close()
        numeros2 = CByte(TextBox2.Text)
        TextBox2.Text = numeros2
        numeros3 = CDec(TextBox3.Text)
        TextBox3.Text = numeros3
        numeros6 = CByte(TextBox6.Text)
        TextBox6.Text = numeros6
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Using file As New IO.StreamWriter("C:\tmp\000.txt")
            file.Flush()
        End Using
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        ListBox1.Items.Clear()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        RadioButton4.Checked = False
        RadioButton5.Checked = False
        RadioButton6.Checked = False
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Visible = False
    End Sub
    Private Sub Chofer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        System.IO.Directory.CreateDirectory("c:\tmp")
        Dim _wtxt As New System.IO.StreamWriter("c:\tmp\000.txt", True)
    End Sub
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(Sep) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
    End Sub
    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(Sep) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
    End Sub
    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(Sep) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
    End Sub
End Class


Una Captura de pantalla del formulario:



CÓDIGO EN VB.NET DEL SEGUNDO FORMULARIO HIJO:

Public Class Tractora
    Dim Sep As Char
    Dim numeros6 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        Dim _wtxt As New System.IO.StreamWriter("c:\tmp\000.txt", True)
        Dim lab1 As String = Label1.Text
        Dim texto1 As String = TextBox1.Text
        Dim lab2 As String = Label2.Text
        Dim texto2 As String = TextBox2.Text
        Dim lab3 As String = Label3.Text
        Dim texto3 As String = TextBox3.Text
        Dim lab4 As String = Label4.Text
        Dim texto4 As String = TextBox4.Text
        Dim lab5 As String = Label5.Text
        Dim texto5 As String = TextBox5.Text
        Dim lab6 As String = Label8.Text
        Dim lab7 As String = Label7.Text
        Dim texto6 As Integer = TextBox6.Text
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine("Chofer")
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine(lab1 & " " & texto1)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab2 & " " & texto2)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab3 & " " & texto3)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab4 & " " & texto4)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab5 & " " & texto5)
        _wtxt.WriteLine()
        Select Case RadioButton.CheckForIllegalCrossThreadCalls
            Case RadioButton1.Checked
                _wtxt.WriteLine(lab6 & " " & "España")
            Case RadioButton2.Checked
                _wtxt.WriteLine(lab6 & " " & "Portugal")
            Case RadioButton3.Checked
                _wtxt.WriteLine(lab6 & " " & "Italia")
            Case RadioButton4.Checked
                _wtxt.WriteLine(lab6 & " " & "Francia")
            Case RadioButton5.Checked
                _wtxt.WriteLine(lab6 & " " & "Alemania")
            Case RadioButton6.Checked
                _wtxt.WriteLine(lab6 & " " & "Gran Bretaña")
            Case Else
                _wtxt.WriteLine(lab6 & " " & "No Se Sabe Aun Destino")
        End Select
        _wtxt.WriteLine()
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine(lab7 & " " & texto6)
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine()
        _wtxt.WriteLine()
        _wtxt.Close()
        numeros6 = CByte(TextBox6.Text)
        TextBox6.Text = numeros6
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        ListBox1.Items.Clear()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        RadioButton4.Checked = False
        RadioButton5.Checked = False
        RadioButton6.Checked = False
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
    Private Sub Tractora_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WindowState = FormWindowState.Maximized
    End Sub
    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(Sep) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
    End Sub
End Class



Una Captura del formulario:



CÓDIGO EN VB.NET DEL TERCER FORMULARIO HIJO:

Public Class Remolque
    Dim Sep As Char
    Dim numeros6 As Integer
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        Dim _wtxt As New System.IO.StreamWriter("c:\tmp\000.txt", True)
        Dim lab1 As String = Label1.Text
        Dim texto1 As String = TextBox1.Text
        Dim lab2 As String = Label2.Text
        Dim texto2 As String = TextBox2.Text
        Dim lab3 As String = Label3.Text
        Dim texto3 As String = TextBox3.Text
        Dim lab4 As String = Label4.Text
        Dim texto4 As String = TextBox4.Text
        Dim lab5 As String = Label5.Text
        Dim texto5 As String = TextBox5.Text
        Dim lab6 As String = Label8.Text
        Dim lab7 As String = Label7.Text
        Dim texto6 As Integer = TextBox6.Text
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine("Chofer")
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine(lab1 & " " & texto1)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab2 & " " & texto2)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab3 & " " & texto3)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab4 & " " & texto4)
        _wtxt.WriteLine()
        _wtxt.WriteLine(lab5 & " " & texto5)
        _wtxt.WriteLine()
        Select Case RadioButton.CheckForIllegalCrossThreadCalls
            Case RadioButton1.Checked
                _wtxt.WriteLine(lab6 & " " & "España")
            Case RadioButton2.Checked
                _wtxt.WriteLine(lab6 & " " & "Portugal")
            Case RadioButton3.Checked
                _wtxt.WriteLine(lab6 & " " & "Italia")
            Case RadioButton4.Checked
                _wtxt.WriteLine(lab6 & " " & "Francia")
            Case RadioButton5.Checked
                _wtxt.WriteLine(lab6 & " " & "Alemania")
            Case RadioButton6.Checked
                _wtxt.WriteLine(lab6 & " " & "Gran Bretaña")
            Case Else
                _wtxt.WriteLine(lab6 & " " & "No Se Sabe Aun Destino")
        End Select
        _wtxt.WriteLine()
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine(lab7 & " " & texto6)
        _wtxt.WriteLine("____________________________________________")
        _wtxt.WriteLine()
        _wtxt.WriteLine()
        _wtxt.Close()
        numeros6 = CByte(TextBox6.Text)
        TextBox6.Text = numeros6
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        ListBox1.Items.Clear()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        RadioButton4.Checked = False
        RadioButton5.Checked = False
        RadioButton6.Checked = False
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim psi As New ProcessStartInfo()
        psi.UseShellExecute = True
        psi.FileName = "C:\tmp\000.txt"
        Process.Start(psi)
        Me.Close()
    End Sub
    Private Sub Remolque_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WindowState = FormWindowState.Maximized
    End Sub
    Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(Sep) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
    End Sub
End Class



Una Captura del formulario:



CÓDIGO EN VB.NET DEL FORMULARIO ACERCA DE:

Public NotInheritable Class AcercaDe

    Private Sub AcercaDe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Establezca el título del formulario.
        Dim ApplicationTitle As String
        If My.Application.Info.Title <> "" Then
            ApplicationTitle = My.Application.Info.Title
        Else
            ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        End If
        Me.Text = String.Format("Acerca de {0}", ApplicationTitle)
        ' Inicialice todo el texto mostrado en el cuadro Acerca de.
        ' TODO: personalice la información del ensamblado de la aplicación en el panel "Aplicación" del 
        '    cuadro de diálogo propiedades del proyecto (bajo el menú "Proyecto").
        Me.LabelProductName.Text = My.Application.Info.ProductName
        Me.LabelVersion.Text = String.Format("Versión {0}", My.Application.Info.Version.ToString)
        Me.LabelCopyright.Text = My.Application.Info.Copyright
        Me.LabelCompanyName.Text = My.Application.Info.CompanyName
        Me.TextBoxDescription.Text = My.Application.Info.Description
    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



Una Captura del formulario:




Espero que os sea de utilidad...

Si te quieres descargar todo el código fuente del proyecto final, puedes hacerlo desde el siguiente link:

Descargar EuroTransport.rar

Un Saludiioo.

4 comentarios:

  1. Hola, me he descargado la aplicación que hiciste como proyecto fin de curso del curso de Visual Basic.Net y funciona y todo la aplicación jejeje, la hiciste bastante depurada, para ser tu primera aplicación lo veo bastante bien, incluso cuida la estética, que eso para programadores suele ser extraño, ya que intentan cuidar mas la propia programación ya que para la estética están los diseñadores, felicidades!!!

    ResponderEliminar
    Respuestas
    1. Gracias, me alegro que te gustara la aplicación.

      Eliminar
  2. hola mi nombre es jose estudio experto en programacion en cbtech y tu blog ha sido mi salvacion tienes la sintaxis de estos ejercicios .) Llenar un vector de N elementos y ordernarlo en forma ascendente. El nuevo resultado se tiene que almacenar en un nuevo vector.

    4) LLenar una matriz de F*C e imprimirla desde el último elemento al primero (desde (F,C) a (1,1). F (Filas) y C (Columnas), se ingresan por teclado.

    5) Escribir un algoritmo que llene una matriz de F*C, eleve al cuadrado todos sus elementos y los almacene en una nueva matriz. F (Filas) y C (Columnas), se ingresan por teclado.

    6) Escribir un programa que realice lo siguiente:

    a) Sume los elementos de un vector.
    b) Devuelva si un número ingresado es positivo, negativo o cero.
    c) Ordene los elementos de una matriz en forma ascedente.
    Utilizar procedimientos y funciones para realizar los incisos a, b y c. Todos los resultados deben imprimirse en el programa principal.

    Utilice el depurador para seguir el código.seria de mucha ayuda no los encuentro en tu blog . gracias de antemano sino tubieras el codigo en visual basic el seudocodigo seria de mucha ayuda .

    ResponderEliminar
    Respuestas
    1. Buenas, lo siento, no dispongo en la actualidad de mas material, con el tiempo quería, pasar todos los ejercicios de pseudocodigo a basic, pero no encontré el momento, creo que te va a tocar incar los codos :P Gracias por comentar, Un Saludo.

      Eliminar