Este programa permite que un niño aprenda a programar en lenguaje Pascal de una manera sencilla, donde solamente se utiliza un conjunto de palabras especiales, y será el programa el que se encargará de realizar la declaración de variables y el cambio de las palabras que escribe el niño, a las palabras del lenguaje Pascal.
Por ejemplo el niño escribe leer (x); y el programa lo traducirá a read (x); y a su vez el programa se encargará de declarar la variable x como tipo entero. Si el niño escribe reads (x); el programa traducirá a readln (x); debido a que la s escrita por el niño después del read significa "leer y saltar". Igualmente el niño puede utilizar variables de tipo cadena al poner una letra l después de la palabra leer, por ejemplo si se escribe leerl (a); el programa traduce read (a); pero se encarga de declarar la variable a como string puesto que la l después de la palabra leer simula que se pretende decir "leer letra". Igualmente el programa es inteligente en cuanto a la declaración de variables, pues si se quiere sumar una variable declarada como entero con una variable declarada como cadena, se manda un mensaje diciendo que no se puede sumar una letra con un número.
Cuando se hace una asignación también el programa se encarga de declarar automáticamente la variable en la que se está guardando un número, variable u operación de números o variables, de acuerdo al tipo que corresponda, ya sea tipo entero o cadena.
Se presentan a continuación las pantallas del programa, que son formularios con objetos y todo ha sido desarrollado utilizando Microsoft Visual Basic 2005. Para crear este pequeño sistema, el programador solamente tendrá que hacer coincidir el código presentado con los objetos correspondientes, que aparecen citados en el mismo código.
Aparecen también comentarios en los que se detalla lo que hace cada parte del programa. Con un poco de paciencia y dedicación, cualquier programador será capaz de hacer funcionar este programa con el código fuente proporcionado. Bastará crear los formularios y objetos a los que hace referencia el código, y ya se podrá utilizar este programa o modificarlo si se desea para hacer proyectos similares en los que se desee cambiar determinadas palabras por otras palabras reservadas de nuestro propio lenguaje de programación.
Este proyecto es un excelente acercamiento a la manera en la que los lenguajes de programación funcionan, trasformando el código del programador (lenguaje de alto nivel) a otro código que sea reconocido por nuestro sistema o por la computadora (como lo puede ser el lenguaje máquina). Ahora se presentan cada uno de los formularios utilizados, y a la vez el código completo para que sea estudiado, utilizado y modificado si se desea, por cualquier programador:
PANTALLAS DE EJECUCIÓN DEL PROGRAMA
CÓDIGO FUENTE COMPLETO DEL PROGRAMA
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim longituddecadena As Integer
Dim caracter As String
Dim cadena As String
Dim caractersiguiente As String
Dim contador As Integer
Dim arreglo(1000) As String
Dim enter(1000) As String 'No se está trabajando con esto.'Cada elemento de este arreglo contiene el número de palabras por línea. Por ejemplo, enter(5)=3 significa que hay tres palabras en la línea 5.
Dim numero As Integer
Dim numerodepalabras As Integer
Dim palabra As String
Dim programa As String
Dim enternumero As Integer
Dim otrocontador As Integer
Dim arreglodeclararvariablesenteras(1000) As String
Dim arreglodeclararvariablescadena(1000) As String
Dim arreglovariablesenteras(1000) As String 'arreglo que guarda las variables.
Dim numeroarreglovariablesenteras As Integer
Dim arreglovariablescadena(1000) As String
Dim numeroarreglovariablescadena As Integer
Dim contadordevariablesenteras As Integer
Dim concatenardeclaraciondevariablesenteras As String
Dim contadordevariablescadena As Integer
Dim concatenardeclaraciondevariablescadena As String
Dim contadordepalabrasporlinea As Integer
Dim provisional1 As String
Dim provisional2 As String
Dim provisional3 As String
Dim variabledeclaradasiono1 As Integer
Dim variabledeclaradasiono2 As Integer
| Página siguiente |