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 |