For de som trenger en enkel Basic språk uten komplikasjoner av gjenstander og rammeverk , Just Basic fra Liberty Basic er det perfekte valget. Språket kan lastes ned uten kostnad og noen kjent med tradisjonelle Basic kan være opp til hastigheten nesten umiddelbart . Selv om språket mangler utsagn som Print Using og Format , tilbyr det de 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 hjelp Just Basic. Du trenger
Just Basic versjon 1.01
Vis flere instruksjoner
en

Åpne Just Basic og opprett et nytt prosjekt . Klikk på "File " og deretter " New Basic Source File".
2

Bruk Skriv uttalelse for å skrive tittelen og kolonneoverskriftene som følger : en

Print " dagligvare List " printprint " Antall "; kategorien ( 5 ), " Beskrivelse "; tab ( 30 ), " pris"

Print uttalelse sender tekst som følger den til utskriftsvinduet . Tab- funksjonen flytter markøren til at kolonnen av utskriften linje. Dette lar deg plassere kolonneoverskriftene direkte over dataene
3

Format den første linjen i dagligvarehandel elementer som følger: .

Print 5; kategorien ( 5 ); " Epler "; kategorien ( 30 ), FormatNum $ ( 1,25 , 4 )
p Dette utsagnet plasserer mengden fem på den første kolonnen , faner enn til femte kolonne og plasserer ordet " Epler " og deretter kategoriene til kolonne 30 for å plassere den mengde 1.25. Den FormatNum $ funksjonen legger innledende mellomrom til hvert nummer for å justere etter desimaltegn
4

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

print 1; kategorien . ( 5 ), " Milk "; tab ( 30 ) ; FormatNum $ ( 2,29 , 4 ) print 1 , tab ( 5 ), " Pot Roast "; tab ( 30 ) ; FormatNum $ ( 12.95 , 4 ) print 1 ; tab ( 5 ), " Chocolate Bar "; tab ( 30 ) ; FormatNum $ ( 0,59, 4 )
5

Print den totale

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

Denne linjen plasserer ordet Totalt under elementbeskrivelsene deretter plasserer den totale under tallene

6

Definer FormatNum $ funksjonen . Plasser denne koden under Print uttalelser.

Funksjon FormatNum $ ( x , i) s $ = str $ ( x ) l = len (str $ ( int ( x ) ) ) hvis l < i thens $ = plass $ ( i - L ) + s $ end ifFormatNum $ = s $ end funksjon

den første linjen erklærer funksjon med x som inneholder mengden og jeg inneholder antall tegn ønskede før desimaltegnet < . br >

Linje 2 sparer tallet som en tegnstreng i variabelen s $.

Linje 3 teller antall sifre for tiden foran desimaltegnet . Hvis tallet er 12.34 , er heltall 12 så l vil inneholde verdien 2 .

Linje 3 til 5 bruker Space $ funksjonen for å legge til 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 $.

Linje 6 returnerer den formaterte nummeret tilbake til å kalle programmet .

7

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