Hvordan stille opp desimaltall i Just Basic 1,01

December 4

For de som trenger en enkel Basic språk uten komplikasjoner av objekter og rammer, er bare grunnleggende fra Liberty Basic det perfekte valget. Språket kan lastes ned uten kostnad, og noen kjent med tradisjonell Basic kan være opp til fart nesten umiddelbart. Selv om språket mangler utsagn som Print Using og Format, det gjør tilby Tab og Space $ funksjoner og disse er alt som er nødvendig for å stille opp desimaltall. Ved å følge noen enkle trinn, kan du opprette en formatert handleliste ved hjelp av bare grunnleggende.

Bruksanvisning

1 Åpne bare grunnleggende og opprette et nytt prosjekt. Klikk på "File" og deretter "New Basic Source File".

2 Bruk Print erklæring for å skrive tittelen og kolonneoverskriftene som følger:

Skriv ut "handleliste"
skrive ut
skrive "Antall"; fanen (5); "Beskrivelse"; tab (30); "Price"

Utskrifts uttalelsen sender tekst som følger den til utskriftsvinduet. Tab-funksjonen flytter markøren til den kolonnen til utskriftslinje. Dette gjør at du kan plassere på kolonneoverskriftene direkte over dataene.

3 Formater den første linjen av dagligvarer elementer som følger:

print 5; fanen (5); "Epler"; tab (30); FormatNum $ (1,25, 4)

Denne uttalelsen plasserer mengde fem på den første kolonnen, faner over til den femte kolonne og plasserer ordet "Epler" da tabs til kolonne 30 for å plassere beløpet 1,25. Den FormatNum $ funksjonen tilføyer innledende mellomrom til hvert nummer for å justere etter desimaltegn.

4 Legg noen flere linjer med dagligvarehandel elementer i listen som følger:

print 1; fanen (5); "Melk"; tab (30); FormatNum $ (2,29, 4)
print 1; fanen (5); "Gryte stek"; tab (30); FormatNum $ (12.95, 4)
print 1; fanen (5); "Sjokoladeplate"; tab (30); FormatNum $ (0,59, 4)

5 Skriv ut totalen.

Kategorien print (5); " Total"; tab (30); FormatNum $ (1,25 + 2,29 12,95 + 0,59, 4)

Denne linjen setter ordet Total under elementbeskrivelsene deretter plasserer den totale under tallene.

6 Definer FormatNum $ funksjonen. Plasser denne koden under Utskrifts uttalelser.

funksjon FormatNum $ (x, i)
s $ = str $ (x)
l = len (str $ (int (x)))
hvis l <i så
s $ = plass $ (i - l) + s $
slutt om
FormatNum $ = s $
end funksjon

Den første linjen erklærer funksjonen med x som inneholder beløp og jeg som inneholder antall tegn ønskede før desimaltegnet.

Linje 2 lagrer nummeret som en tegnstreng i variabelen s $.

Linje 3 teller antall sifre for tiden foran desimaltegnet. Hvis tallet er 12,34, er heltallet 12 så jeg vil inneholde verdien 2.

Linje 3 til 5 bruker Space $ funksjon for å legge mellomrom til forsiden av s $. Hvis l er to og de ønskede mellomrom (i) er fire, må vi legge til to ekstra mellomrom foran s $.

Line 6 returnerer formaterte tall tilbake til å kalle programmet.

7 Kjør programmet. Klikk på SHIFT og F5-tastene sammen for å se resultatene.

Hint

Når programmet kjører, klikk på "File" og deretter "Skriv ut" for å skrive ut rapporten.