Πώς να παρατάξει δεκαδικών αριθμών σε Just Basic 1.01

Για εκείνους που χρειάζονται μια απλή γλώσσα Basic χωρίς τις επιπλοκές των αντικειμένων και των πλαισίων , Just Basic από Liberty Basic είναι η τέλεια επιλογή . Η γλώσσα μπορεί να κατεβάσει χωρίς κόστος και ο καθένας εξοικειωμένοι με τις παραδοσιακές Basic μπορεί να είναι μέχρι την ταχύτητα σχεδόν αμέσως . Παρά το γεγονός ότι η γλώσσα δεν διαθέτει δηλώσεις όπως Print Using και Format , δεν προσφέρει τα Tab και Διαστήματος $ λειτουργίες και όλα αυτά είναι που χρειάζονται για να παρατάξει δεκαδικοί αριθμοί . Ακολουθώντας μερικά απλά βήματα , μπορείτε να δημιουργήσετε ένα μορφοποιημένο κατάλογο παντοπωλείων χρήση Just Basic. Τα πράγματα που θα χρειαστείτε
Just Basic έκδοση 1.01
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Open Just Basic και να δημιουργήσετε ένα νέο έργο . Κάντε κλικ στο " Αρχείο " και στη συνέχεια " . Νέα Basic Source File " 2

Χρησιμοποιήστε τη δήλωση Εκτύπωση για να εκτυπώσετε τον τίτλο και κεφαλίδες στήλης ως εξής :

Εκτύπωση " Παντοπωλείο List" printprint " Ποσότητα " ? καρτέλα ( 5) ? "Περιγραφή" ? καρτέλα ( 30 ) ? " Τιμή "

Η δήλωση Εκτύπωση στέλνει το κείμενο που ακολουθεί στο παράθυρο εκτύπωσης . Η λειτουργία Tab κινεί τον κέρσορα στην εν λόγω στήλη της γραμμής εκτύπωσης . Αυτό σας επιτρέπει να τοποθετήσετε τις κεφαλίδες στήλης απ 'ευθείας επί των δεδομένων εικόνων
3

Διαμορφώστε την πρώτη γραμμή των ειδών παντοπωλείου ως εξής : .

Εκτύπωσης 5 ? Καρτέλα ( 5 ) ? " Μήλα " ? καρτέλα ( 30 ) ? FormatNum $ ( 1.25 , 4 )

η δήλωση αυτή τοποθετεί την ποσότητα 5 στην πρώτη στήλη , καρτέλες πάνω από την πέμπτη στήλη και τοποθετεί τη λέξη " Μήλα " τότε καρτέλες στήλη 30 να θέσει το ποσό 1,25 . Η λειτουργία FormatNum $ προσθέτει κενά διαστήματα σε κάθε αριθμό να ευθυγραμμιστεί με δεκαδικό σημείο
Η 4

Προσθέστε μερικές περισσότερες γραμμές των ειδών παντοπωλείου στη λίστα ως εξής : .

Εκτύπωσης 1 ? Καρτέλα ( 5 ) ? "Γάλα "? καρτέλα ( 30 ) ? FormatNum $ ( 2.29 , 4 ) εκτύπωση 1 ? καρτέλα ( 5) ? "Pot Roast" ? καρτέλα ( 30 ) ? FormatNum $ ( 12.95 , 4 ) print 1 ? καρτέλα ( 5 ) ? " Chocolate Bar "? καρτέλα ( 30) ? . FormatNum $ ( 0.59 , 4 )
5

Εκτυπώστε το συνολικό

καρτέλα εκτύπωσης ( 5 ) ? " ? Σύνολο " ? καρτέλα ( 30 ) ? FormatNum $ ( 1,25 + 2,29 + 0,59 12.95 , 4 )

Αυτή η γραμμή τοποθετεί τη λέξη Σύνολο κάτω από τις περιγραφές στοιχείο τότε τοποθετεί το σύνολο κάτω από τους αριθμούς
<. br > 6

Ορίστε το $ λειτουργία FormatNum . Τοποθετήστε αυτόν τον κώδικα κάτω από τα Εκτύπωση καταστάσεων .

FormatNum λειτουργία $ ( x , θ ) s = $ $ str ( x ) l = len ( str $ ( int ( x ) ) ) , αν l

η πρώτη γραμμή δηλώνει τη λειτουργία με το x που περιέχει το ποσό και θα περιέχει τον αριθμό των χαρακτήρων που επιθυμείτε πριν την υποδιαστολή <. br >

Γραμμή 2 αποθηκεύει τον αριθμό ως ακολουθία χαρακτήρων σε $ της μεταβλητής s .

Γραμμή 3 μετρά τον αριθμό των ψηφίων σήμερα μπροστά από την υποδιαστολή . Εάν ο αριθμός είναι 12.34 , ο ακέραιος είναι 12 , ώστε l θα περιέχει την τιμή 2 .

Γραμμή 3 έως 5 χρησιμοποιεί τη συνάρτηση Space $ για να προσθέσετε κενά στο μπροστινό μέρος του s $ . Αν l είναι 2 και οι επιθυμητές θέσεις ( i ) είναι 4 , θα πρέπει να προστεθούν δύο επιπλέον χώρους στην πρόσοψη του s $ .

Γραμμή 6 επιστρέφει το μορφοποιημένο αριθμό πίσω στο πρόγραμμα που καλεί .

7

Εκτελέστε το πρόγραμμα . Κάντε κλικ στα πλήκτρα SHIFT και F5 για να δούμε τα αποτελέσματα .
Η
εικόνων