Para aqueles que precisam de uma linguagem simples, básico , sem as complicações de objetos e estruturas , Just Básico de Liberty Basic é a escolha perfeita. A linguagem pode ser baixado sem custo e qualquer pessoa familiarizada com a tradicional Basic pode ser até a velocidade quase que imediatamente. Embora a linguagem carece de declarações como Imprimir Usando e Formatar, ele oferece a guia e Espaço $ funções e estes são todos os que são necessários para alinhar números decimais . Seguindo alguns passos simples , você pode criar uma lista de compras formatado usando apenas Basic. Coisas que você precisa
apenas versão Básica 1,01
Show Mais instruções
1
Aberto Apenas Basic e crie um novo projeto. Clique em "Arquivo " e depois " . New Source File Básica"
2
Use a instrução de impressão para imprimir o título eo cabeçalho das colunas da seguinte forma:
Imprimir " Lista de Compras " printprint " Qtde "; guia (5), "Descrição" ; guia (30 ), " preço "
a instrução Print envia qualquer texto que se segue para a janela de impressão. A função Tab move o cursor para a coluna da linha de impressão. Isso permite que você coloque os cabeçalhos de coluna diretamente sobre os dados
3
Formate a primeira linha de itens de mercearia da seguinte forma: .
Impressão 5; guia (5); "Maçãs "; guia (30) ; formatnum $ (1,25 , 4)
Esta afirmação coloca a quantidade 5 na primeira coluna , guias mais para a quinta coluna e coloca a palavra "Maçãs " , em seguida, guias para coluna 30 para colocar o valor de 1,25 . A função formatnum $ adiciona espaços à esquerda de cada número para alinhar pelo ponto decimal
4
Adicione mais algumas linhas de itens de mercearia para a lista da seguinte forma: .
Impressão 1; guia (5 ), " Milk" , separador (30); formatnum $ (2.29 , 4) impressão 1; guia (5 ), " carne assada "; guia (30); formatnum $ ( 12,95, 4) Letra 1; guia (5), "Chocolate Bar "; guia (30); . formatnum $ (0.59 , 4)
5
Imprimir total
guia de impressão ( 5); " ; total " ; guia (30); formatnum $ (1,25 + 2,29 12,95 + 0,59, 4)
Esta linha coloca a palavra Total abaixo as descrições dos itens , em seguida, coloca o total abaixo de os números
< . br> 6
Definir a função $ formatnum . Coloque este código abaixo as instruções de impressão .
Função formatnum $ (x, i) s = $ str $ (x) l = len ( str $ (int (x) )) se l < i thens $ = space $ (i - l) + s $ end ifFormatNum $ = s $ end função
a primeira linha declara a função com x contendo a quantidade e eu contendo o número de caracteres desejados antes do ponto decimal < . br>
Linha 2 salva o número como uma seqüência de caracteres em $ a variável s .
Linha 3 conta o número de dígitos atualmente em frente do ponto decimal. Se o número é de 12,34 , o número inteiro é de 12 l por isso irá conter o valor 2 .
Linha 3 a 5 utiliza o espaço $ função de adicionar espaços para a frente s $ . Se l é 2 e os espaços desejados (i) é 4, precisamos adicionar dois espaços adicionais na frente de s $ .
Linha 6 retorna o número formatado de volta para o programa de chamada.
< Br > 7
Execute o programa . Clique as teclas SHIFT e F5 juntos para ver os resultados.