Πώς να κάνει ένα κουμπί 3 -D σε REALbasic

REALbasic είναι μια αντικειμενοστραφής γλώσσα προγραμματισμού συνήθως γραμμένο σε ένα πακέτο λογισμικού που ονομάζεται Real Studio . Χρησιμοποιώντας τη γλώσσα REALbasic , οι χρήστες μπορούν να δημιουργήσουν μια μεγάλη ποικιλία προγραμμάτων τόσο περίπλοκο όπως το δικό τους παιχνίδι βίντεο ή τόσο απλό όσο τα δικά τους προσαρμοσμένα κουμπιά . Ωστόσο , ακόμα και δημιουργώντας κάτι σαν ένα κουμπί μπορεί να έχει μια μοναδική εμφάνιση . Για παράδειγμα , χρησιμοποιώντας μερικές γραμμές κώδικα στο Real Studio , ένα εφέ 3 - D μπορεί να δημιουργηθεί, η οποία προσομοιώνει ένα κουμπί που πιέζεται προς τα κάτω στο παρασκήνιο . Οδηγίες
Η 1

Εντοπίστε τις εικόνες που θέλετε να χρησιμοποιήσετε για το πλήκτρο 3 - D σας . Χρειάζεται τουλάχιστον δύο : η μία να εκπροσωπεί , όταν το κουμπί δεν είναι πατημένο , και άλλο να εκπροσωπούν όταν το κουμπί είναι πατημένο προς τα κάτω . Μετονομασία αυτές τις εικόνες " PicButtonUp " και " PicButtonDown », αντίστοιχα . 2

Open Studio Ρεάλ και να ξεκινήσετε ένα νέο έργο . Αυτό θα συμβεί με την προεπιλογή , εάν δεν καθορίσετε ένα σχέδιο για να ανοίξει . Drag and drop τις δύο εικόνες στο λευκό χώρο στο κέντρο του προγράμματος .
Εικόνων 3

Ελέγξτε για να δείτε ότι έχετε την καρτέλα " Window1 " επιλεγμένο κοντά στην κορυφή της οθόνης . Κάντε κλικ και σύρετε " καμβά " από τη λίστα στα αριστερά της οθόνης στο μεγάλο λευκό κενό στο κέντρο . Θα εμφανίζεται ως ένα μπλε κουτί , και όταν το δείτε , κάντε διπλό κλικ σε αυτό .
Η

4 Πατήστε το κουμπί " Προσθήκη ιδιότητας " κουμπί που βρίσκεται στην πάνω δεξιά γωνία της οθόνης . Στη γραμμή που εμφανίζεται γράφει " mState " στο πρώτο λευκό χώρο , " String " στο δεύτερο και "πάνω" στην τρίτη . Προσθέστε δύο ακόμα ακίνητα, το ένα με " mDownImage " στο πρώτο λευκό χώρο και «εικόνα» στο δεύτερο , και ένα με " mUpImage " στο πρώτο λευκό χώρο και «εικόνα» στο δεύτερο .

5

Επιλέξτε " Paint " από τη λίστα στα αριστερά και επικολλήστε τον παρακάτω κώδικα στο λευκό χώρο στο κέντρο του προγράμματος .

Select Case mStatecase " up ", αν mUpImage <> μηδέν thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "κάτω" αν mDownImage <> nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend SelectEnd SubSub Draw ( ) Select Case mStatecase " up " , αν mUpImage <> nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "κάτω" αν mDownImage <> nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend Επιλέξτε
Η 6

Επιλέξτε "Άνοιγμα" από τη λίστα στα αριστερά και επικολλήστε τον παρακάτω κώδικα στο λευκό χώρο στο κέντρο του προγράμματος .

mState = " up " mDownImage = PicButtonDownmUpImage = PicButtonUp
Η 7

Κάντε κλικ στο " MouseDown " από τη λίστα στα αριστερά , στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα στο λευκό χώρο στο κέντρο του προγράμματος .

mState = "κάτω " Επιλογή υπόθεση mStatecase " up " αν mUpImage <> nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "κάτω" αν mDownImage <> nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend Selectreturn αλήθεια
8

Επιλέξτε " MouseUp " από τη λίστα στα αριστερά και επικολλήστε τον παρακάτω κώδικα στο λευκό χώρο στο κέντρο του προγράμματος ? . αυτό θα ολοκληρώσει το κουμπί 3 - D σας

αν x > 0 και x <πλάτος και y > 0 και y <Ύψος συνέχεια //κέρσορα του ποντικιού μέσα buttonmState = " up " τέλος ifSelect υπόθεση mStatecase " up " , αν mUpImage <> nil thenme.Graphics.DrawPicture mUpImage , 0 , 0end ifcase "κάτω" αν mDownImage <> nil thenme.Graphics.DrawPicture mDownImage , 0 , 0end ifend Επιλέξτε
Η
εικόνων