Para aquellos que necesitan un lenguaje básico simple, sin las complicaciones de los objetos y marcos , lo básico de Liberty Basic es la elección perfecta . El idioma puede ser descargado sin costo alguno y cualquiera que esté familiarizado con la tradicional básico puede ser a la velocidad casi de inmediato. Aunque el lenguaje carece de declaraciones como Imprimir con y Formato, sí ofrece las funciones $ Tab y el espacio y estos son los que se necesitan para alinear números decimales. Siguiendo unos sencillos pasos, usted puede crear una lista de compras con formato utilizando sólo los de base . Cosas que necesitará
Sólo Basic versión 1.01
Ver Más instrucciones
1

abiertas Basic y cree un proyecto nuevo. Haga clic en " Archivo", luego "Nuevo archivo de origen básico . "
2

Utilice la instrucción Print para imprimir el título y los encabezados de columna de la siguiente manera :

Imprimir " Lista de Compras " printprint " Cantidad " , pestaña ( 5 ), " Descripción" , pestaña ( 30 ), " Precio "

la instrucción PRINT envía el texto que le sigue a la ventana de impresión . La función de tabulador mueve el cursor a la columna de la línea de impresión. Esto le permite colocar los encabezados de columna directamente sobre los datos
3

Formatear la primera línea de artículos de alimentación de la siguiente manera : .

Impresión 5 , ficha ( 5 ) ; "Manzanas " , pestaña ( 30 ) ; FormatNum $ ( 1.25 , 4 )

Esta declaración pone la cantidad de 5 en la primera columna, pestañas más de la quinta columna y coloca la palabra "Manzanas " y luego fichas para la columna 30 para colocar la cantidad 1.25 . La función $ FormatNum agrega espacios iniciales a cada número para alinear el punto decimal
4

Añada unas cuantas líneas de artículos de alimentación a la lista de la siguiente manera :

impresión 1 , ficha . ( 5 ), " Milk" , pestaña ( 30 ) ; FormatNum $ ( 2.29 , 4 ) de impresión 1 , ficha ( 5 ), " Pot Roast " , pestaña ( 30 ) ; FormatNum $ ( 12,95 , 4) Tipografía 1 ; lengüeta ( 5 ), " barra de chocolate " , pestaña ( 30 ) ; FormatNum $ ( 0.59 , 4 )
5

impresión del total
pestaña impresión

( 5 ) . " ; total " , pestaña ( 30 ) . FormatNum $ ( 1.25 + 2.29 12.95 + 0.59 , 4 )

Esta línea pone la palabra total por debajo de las descripciones de los artículos a continuación, coloca el total por debajo de los números

6

Definir la función $ FormatNum . Coloque este código debajo de las declaraciones de impresión.

Función FormatNum $ (x, i ) s $ str = $ (x ) l = len ( str $ (int (x ))) si l < i thens $ = Space $ ( i - l ) + s $ end ifFormatNum $ = $ s End Function

la primera línea declara la función con x que contienen la cantidad y lo que contiene el número de caracteres que desee antes del punto decimal < . br>

Línea 2 guarda el número como una cadena de caracteres en la variable $ s .

Línea 3 cuenta el número de dígitos actualmente delante de la coma decimal. Si el número es 12.34 , el entero es 12 así que l contendrá el valor 2 .

Línea 3 a 5 usa la función $ Espacio para agregar espacios al frente de s $ . Si l es 2 y los espacios deseados ( i ) es 4 , tenemos que añadir dos espacios adicionales delante de s $ .

Line 6 devuelve el número formateado de nuevo al programa de llamada .
< Br > 7

Ejecute el programa. Haga clic en la teclas SHIFT F5 y juntos para ver los resultados.