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 .
7
Ejecute el programa. Haga clic en la teclas SHIFT F5 y juntos para ver los resultados.