Κατεβάστε τον κατάλογο ταχυδρομικό κώδικα από την πρώτη πηγή . Μπορείτε να το αποθηκεύσετε στον υπολογιστή σας, κάνοντας κλικ στο " Αρχείο" και "Αποθήκευση ως " από τον browser σας . 2
Δημιουργήστε ένα νέο έργο της Visual Basic . ΝΕΤ κάνοντας κλικ στο " Αρχείο" και "New Project . " Ονομάστε το " Τ.Κ. Locator . "
Εικόνων 3
Σύρετε μια ετικέτα από την εργαλειοθήκη στο έργο σας . Αυτό θα κρατήσει την πόλη και την κατάσταση που σχετίζεται με ένα ταχυδρομικό κώδικα αργότερα.
Η 4
Σύρετε ένα πεδίο κειμένου από την εργαλειοθήκη στο έργο σας . Αυτό είναι όπου ο τελικός χρήστης θα πληκτρολογήσετε έναν ταχυδρομικό κώδικα .
5
Σύρετε ένα κουμπί από την εργαλειοθήκη στο έργο σας . Αυτό θα είναι ό, τι κάνει κλικ ο χρήστης να αναζητήσετε έναν ταχυδρομικό κώδικα .
Η
6 Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε έναν κωδικό click - event . Θα σας μεταφέρει αυτόματα στο πρόγραμμα επεξεργασίας πηγαίου κώδικα . Επικολλήστε τον ακόλουθο :
dim in = My.Computer.FileSystem.OpenTextFieldParser ( "c : \\ zips.txt " )
in.setDelimiters ( " , " )
dim σειρές όπως ArrayList = New ArrayList ( )
ενώ ( δεν in.endofdata )
rows.add ( in.ReadFields )
άκρο, ενώ
για κάθε σειρά As String ( ) Στις σειρές
Αν ( σειρά ( 1 ) . Ίσο ( TextBox1.Text ) ) Στη συνέχεια
Label1.Text = γραμμή ( 3 ) + " , " + σειρά ( 2 )
Επιστροφή
End If
Επόμενο
MessageBox.Show ( " Δε μπορείτε να βρείτε ταχυδρομικό κώδικα " )
Μια πολύ σημαντική μέρος του προγράμματος είναι η «επιστροφή» στο πλαίσιο του Αν /τότε ρήτρα . Αυτό λέει το πρόγραμμα να σταματήσει να ψάχνει μέσα από τη βάση δεδομένων ταχυδρομικό κώδικα , το συντομότερο να βρει ένα αποτέλεσμα και αποτρέπει το μήνυμα " δεν μπορείτε να βρείτε ταχυδρομικό κώδικα " από το να εμφανιστεί πρόωρα .
Η 7
Πατήστε F5 για να εκτελέσετε το πρόγραμμά σας . Εισάγετε τον ταχυδρομικό κώδικα στο πεδίο κειμένου και πατήστε το κουμπί . Το όνομα της πόλης και την κατάσταση που σχετίζεται με το ταχυδρομικό κώδικα θα εμφανίζονται στην εφαρμογή .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα