Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvoriť Len Basic a vytvoriť nový projekt . Kliknite na " Súbor " a potom " . Nová základná zdrojový súbor "
2
použite pokyn tlačiť tlačiť názov a záhlavie stĺpcov takto :
Print " Grocery List " printprint " Množstvo " ; karta ( 5 ) , " Opis " ; karta ( 30 ) , " Cena "
vyhlásenie pre tlač odosiela text , ktorý ju nasleduje do okna tlače . Funkcia Tab posunie kurzor na daný stĺpec tlačovej linky . To umožňuje umiestniť na hlavičku stĺpca priamo nad dátami
3
Formátovanie prvej línii s potravinami položiek takto : .
Tlač 5 , tab ( 5 ) ; " jablká " , záložka ( 30 ) ; FormatNum $ ( 1,25 , 4 )
Tento príkaz umiestni množstvo 5 v prvom stĺpci , karty viac než na piatom stĺpci a umiestni slovo " jablká " , potom karty na stĺpec 30 umiestniť množstvo 1.25 . Funkcie FormatNum $ pridá medzery na každé číslo , ktoré chcete zarovnať podľa desatinnej čiarky
4
Pridajte niekoľko viac riadkov s potravinami položky do zoznamu takto : .
Tlač 1 ; karta ( 5 ) , " Milk " , záložka ( 30 ) ; FormatNum $ ( 2.29 , 4 ) tlač 1 , tab ( 5 ) , " Roštenka " ; karta ( 30 ) ; FormatNum $ ( 12,95 , 4 ) tlač 1 ; karta ( 5 ) , " Chocolate Bar " , záložka ( 30 ) . FormatNum $ ( 0,59 , 4 )
5
Vytlačiť celkom
karta tlač ( 5 ) ; " , Total " , záložka ( 30 ) ; FormatNum $ ( 1,25 + 2,29 12,95 + 0,59 , 4 )
Tento riadok umiestni slovo Total pod popisov umiestni celkom pod číslami
< . br > 6
Definujte $ funkciu FormatNum . Umiestnite tento kód nižšie v tlačových vyhláseniach .
Funkcia FormatNum $ ( x , i ) s $ = str $ ( x ) l = ľan ( str $ ( int ( x ) ) ) , ak l < i thens $ = priestor $ ( i - l ) + y $ koniec ifFormatNum $ = y $ end funkcie
Prvý riadok deklaruje funkciu x , ktorá obsahuje množstvo a i, ktorá obsahuje počet znakov požadovaných pred desatinnou čiarkou < . br >
riadok 2 uloží číslo ako reťazec znakov v premennej s $ .
riadok 3 spočíta počet číslic v súčasnej dobe pred desatinnou čiarkou . Je-li číslo 12.34 , celé číslo je 12 , takže l bude obsahovať hodnotu 2. Celým
riadok 3 až 5 využíva priestor $ funkcie možno pridať do medzery v prednej časti s $ . Keby som je 2 a požadované priestory ( i ) je 4 , musíme pridať ďalšie dve miesta v prednej časti s $ .
Linka 6 vráti formátovaný číslo späť do volajúci program .
7
spustite program . Kliknite na tlačidlo SHIFT a F5 spoločne vidieť výsledky .