Escribiendo código

OpenOffice Basic es un lenguaje de programación perteneciente a la familia de lenguajes de tipo BASIC, que es el acrónimo de Beginners All-purpose Symbolic Instruction Code.

Basic es un lenguaje interpretado línea por línea, lo que significa que deberemos escribir una orden por línea, o lo que es lo mismo, utilizar una línea para cada orden.

Con el fin de mejorar la legibilidad del código, Basic permite la utilización del símbolo _ (subrayado) para dividir una línea larga en varias líneas más cortas. Como decimos, es un truco visual, pues en realidad, se trata de una sóla línea de código.

PMP = ( ( Precio_Art1 * Cantidad_Art1 ) + ( Precio_Art2 * Cantidad_Art2 ) + _
        ( Precio_Art3 * Cantidad_Art3 ) + ( Precio_Art4 * Cantidad_Art4 ) ) / _
        ( Cantidad_Art1 + Cantidad_Art2 + Cantidad_Art3 + Cantidad_Art4 )

También se permite escribir varias órdenes en una sola línea, si separamos las órdenes por el símbolo : (dos puntos)

  Precio_Art1 = 30 : Cantidad_Art1 = 500 : Valor_Art1 = Precio_Art1 * Cantidad_Art1

Mejorar la legibilidad del código es muy, muy, muy importante. Si tu código va a ser utilizado por otras personas, cuando más legible sea, más fácil les será entender cómo funciona. Pero incluso para tu propio interés. Es posible que dentro de unos meses, o unos años, necesites actualizar, adaptar, modificar o reutilizar parte o todo tu código. Un código legible, y adecuadamente comentado, garantiza su usabilidad futura, tanto para tí como para cualquier otro usuario que lo precise.

Hemos dicho adecuadamente comentado. Basic permite añadir comentarios a las líneas, o nuevas líneas con comentarios. Tan sencillo como utilizar el símbolo ' (comilla simple, no confundir con el acento). Tras escribir una comilla simple, todo el texto que la preceda será ignorado por el intérprete Basic, siendo considerado como un comentario.

Dim PMP As Currency  ' Defino el tipo como Currency para una resolución de 4 decimales
 
' Precios y cantidades en stock de los artículos
Precio_Art1 = 30 : Cantidad_Art1 = 5800  ' El precio es una variable Currency
Precio_Art2 = 20 : Cantidad_Art2 = 5000  ' La cantidad es una variable Long
Precio_Art3 = 35 : Cantidad_Art3 = 2500
Precio_Art4 = 42 : Cantidad_Art4 = 1500
 
' Calculo el Precio Medio Ponderado
PMP = ( ( Precio_Art1 * Cantidad_Art1 ) + ( Precio_Art2 * Cantidad_Art2 ) + _
        ( Precio_Art3 * Cantidad_Art3 ) + ( Precio_Art4 * Cantidad_Art4 ) ) / _
        ( Cantidad_Art1 + Cantidad_Art2 + Cantidad_Art3 + Cantidad_Art4 )

También podemos utilizar la instrucción REM, equivalente a la comilla simple.

Dim PMP As Currency  ' Defino el tipo como Currency para una resolución de 4 decimales
 
REM Precios y cantidades en stock de los artículos
Precio_Art1 = 30 : Cantidad_Art1 = 5800  ' El precio es una variable Currency
Precio_Art2 = 20 : Cantidad_Art2 = 5000  ' La cantidad es una variable Long
Precio_Art3 = 35 : Cantidad_Art3 = 2500
Precio_Art4 = 42 : Cantidad_Art4 = 1500
 
REM Calculo el Precio Medio Ponderado
PMP = ( ( Precio_Art1 * Cantidad_Art1 ) + ( Precio_Art2 * Cantidad_Art2 ) + _
        ( Precio_Art3 * Cantidad_Art3 ) + ( Precio_Art4 * Cantidad_Art4 ) ) / _
        ( Cantidad_Art1 + Cantidad_Art2 + Cantidad_Art3 + Cantidad_Art4 )