Hablemos de los lenguajes "Basic".

¡Muy buenas a todos, coders!

Si os soy muy sincera la verdad es que he estado bastante liada desde que escribí la última entrada en este blog, es curioso que haya clavado el mes exacto puesto que la fecha de la última entrada es el 16 de abril y yo estoy escribiendo esta el 16 de mayo. Ha habido de todo, trabajo y lo que no es trabajo también.

Yo como siempre os digo intentaré siempre traer contenido cada mes, si es un vídeo pues mejor que mejor pero de momento el único que material que dispongo para poder traer ahora mismo, y que obviamente de normal será de conocimientos que vaya adquiriendo en mi trabajo, es de tres lenguajes de programación que si bien los nombres se parecen entre sí lo cierto es que son diferentes en varios aspectos.

Vamos a hablar de estos tres: BAX BASIC, VISUAL BASIC Y VB.NET.

Conforme se acaban de nombrar, de izquierda a derecha van de lenguaje de programación más antiguo a más moderno, ¿cuáles son las diferencias a pesar de llamarse de forma parecida? la primera y diría yo que la más importante es que los dos primeros lenguajes son lenguajes de programación NO ORIENTADO A OBJETOS mientras que el último sí lo es.

Los lenguajes de programación de hoy en día, los más modernos, suelen ser lenguajes de programación orientado a objetos, como es decir que yo tengo un coche por ejemplo y mi coche tiene propiedades (El color, la marca, el modelo, etc) y yo puedo manejar y darle funciones: Arrancar, acelerar, etc. La verdad es que el único que conocía yo era el último puesto que es más moderno y porque yo ya he trabajado con tecnología .NET.

Ejemplo de Visual Basic .NET:

Imports System

Module Program

    Sub Main()

        Dim nombre As String = "Mónica"

        Console.WriteLine(Saludo(nombre))

    End Sub

    Function Saludo(nombre As String) As String

        Return "¡Hola, " & nombre & "!"

    End Function

End Module

El resto no son lenguajes de programación orientado a objetos como he dicho, aunque... podríamos decir que VISUAL BASIC (el que no es de .NET) es como una pequeña mezcla, es decir, por un lado hay algo de objetos y procedural, y 100% procedural es el primero, VAX BASIC.

Con procedural hacemos referencia al uso de procedimientos o subrutinas, divide el código en dichos procedimientos o funciones. 

Ejemplo de VISUAL BASIC:

Class Cliente

    Public Nombre As String

    Public Function Saludar()

        Saludar = "Hola " & Nombre

    End Function

End Class

Ejemplo de VAX BASIC:

LET precio = 100

LET iva = 0.21

LET total = CalcularTotal(precio, iva)

PRINT "Total:", total

FUNCTION CalcularTotal(p, i)

    LET CalcularTotal = p + (p * i)

END FUNCTION

En mi trabajo usan este lenguaje desde los 90, totalmente comprensible y como los medios y la tecnología con la que han estado trabajando viene todo a raíz de ese lenguaje pues como yo digo, me ha tocado comérmelo con papas, y he estado programando algunos scripts que si bien habría estado genial hacer algún vídeo sobre esto no ha sido así por una buena razón, y es que no existe un medio moderno y directo para programar un lenguaje así en un IDE, de ahí que haya tenido que trabajar con OpenVMS, o sea, que solo puedes programar con este lenguaje en sistemas VAX/VMS.

Pero bueno, ya que no hay vídeo os puedo dejar un script con el que he estado trabajando las últimas semanas.

Es un programa que la verdad se parece a uno de los más típicos que solemos comenzar con Java, y es el siguiente:

$! Declaracie variables

$ numero1 = ""

$ numero2 = ""

$ operacion = ""

$ resultado = ""

$! Mensajes iniciales

$ WRITE SYS$OUTPUT "CALCULADORA BA"

$ WRITE SYS$OUTPUT "Introduce el primer no:"

$ READ SYS$COMMAND numero1

$ WRITE SYS$OUTPUT "Introduce el segundo no:"

$ READ SYS$COMMAND numero2

$ WRITE SYS$OUTPUT "Introduce la operaci+, -, *, /):"

$ READ SYS$COMMAND operacion

$! Conversie las entradas numas a formato numo si es necesario

$ numero1 = F$INTEGER(numero1)

$ numero2 = F$INTEGER(numero2)

$! Realizar el clo basado en la operacintroducida

$ IF operacion .EQS. "+" THEN resultado = numero1 + numero2

$ IF operacion .EQS. "-" THEN resultado = numero1 - numero2

$ IF operacion .EQS. "*" THEN resultado = numero1 * numero2

$ IF operacion .EQS. "/" THEN -

$   IF numero2 .NE. 0 THEN resultado = numero1 / numero2 -

$   ELSE WRITE SYS$OUTPUT "Error: No se puede dividir entre 0." ; GOTO FIN

$! Mostrar el resultado

$ WRITE SYS$OUTPUT "El resultado del clo es: ''resultado'"

$! Finalizar el script

$FIN:

$ EXIT

Es un programa en el que tú le pasas por teclado dos digitos y el operador y finalmente te imprime el resultado de esa operación.

Bien, pues si en OpenVMS pones lo siguiente:

conexion_$@calculo_basico

Obtendremos esto:

Introduce el primer no:

Data:   5

Introduce el segundo no:

Data:   5

Introduce la operaci+, -, *, /):

Data:   *

El resultado del clo es: 25

Y esto sería todo, coders.

Nos leemos más adelante, esperemos que con un vídeo.