Απογραφείς

Πόσες φορές έπρεπε να ελέγξω όλο τον κώδικα για να δείτε γιατί το πρόγραμμα δεν ήταν σε καμία περίπτωση και αν επιλέξετε ή και να διορθώσετε probra μετά συνειδητοποίησα ότι ήταν ένα μικρό λάθος το φύλο του μια λέξη που χρησιμοποιείται, για παράδειγμα, είναι μια κατάσταση . Πολλές φορές, αν είχα χρησιμοποιήσει acuerdaba "εισήλθε" ή "εισήλθε", "Άνοιγμα" ή Open "και τα παρόμοια. Η χρήση του απογραφείς estandarisar πραγματικά βοηθά όλους αυτούς τους τύπους δεδομένων. Και με τη χρήση απογραφείς έχουμε την πολύτιμη βοήθεια του intelisense θα μας δώσει τη βεβαιότητα ότι είμαστε με την αντίστοιχη αξία.

 «Δημιουργήστε τη TipoComprobante απαριθμητής
 Δημόσια Enum TipoComprobante
 Τιμολόγιο = 1
 Ανατρέξτε = 2
 NCredito = 3
 NDebito = 4
 Τέλος Enum

 «Δημιουργήσαμε ένα (αντικείμενο) κουπόνι τάξη με όλες τις ιδιότητές του
 «Για να απλοποιηθεί αυτό το παράδειγμα, πόσο μάλλον ο τύπος pripiedad
 Δημόσια Απόδειξη Κατηγορία
 Όπως Ιδιωτικός _Tipo TipoComprobante

 Δημόσια Τύπος Ιδιοκτησίας () Όπως TipoComprobante
 Πάρτε
 Επιστροφή _Tipo
 Πάρτε Τέλος
 Ρυθμίστε (ByVal αξία Όπως TipoComprobante)
 _Tipo = Αξία
 Τέλος Σετ
 Τέλος Ακινήτου

 Τέλος κατηγορίας

 «Σε GrabarComprobante υπορουτίνα χρησιμοποιεί μια επίλεκτη περίπτωση
 «Προσδιορίστε τον τύπο της απόδειξης
 Δημόσια τάξη Κλάσης1

 Public Sub GrabarComprobante (ByVal γ ως απόδειξη)

 Επιλέξτε υπόθεση c.Tipo
 Υπόθεση TipoComprobante.Factura
 grabarFactura (γ)
 Υπόθεση TipoComprobante.NCredito
 grabarNCredito (γ)
 Περίπτωση
 grabarNDebito (γ)
 Επιλέξτε Τερματισμός
 Sub End

 Υπο grabarFactura (ByVal γ ως απόδειξη)
 «Κώδικα για την καταγραφή του τιμολογίου
 Sub End

 Υπο grabarNCredito (ByVal γ ως απόδειξη)
 «Κώδικα για την καταγραφή του πιστωτικού σημειώματος
 Sub End

 Υπο grabarNDebito (ByVal γ ως απόδειξη)
 «Κώδικα για την καταγραφή χρεωστικό σημείωμα
 Sub End
 Τέλος κατηγορίας

Τώρα ποτέ δεν θα πρέπει να συγχέεται με τη χρήση των απογραφείς και IntelliSense στο Visual Studio. Κοιτάξτε Σχήμα 1 και δείτε πώς φαίνονται τα διάφορα είδη που ορίζονται στην αρχή. Αυτό θα συμβεί όταν θα χρειαστεί να χρησιμοποιήσετε οποιαδήποτε τιμή που ορίζεται τύπου "TipoComprobante"