Πώς να μετατρέψετε σε χαρακτήρες ASCII τιμές τους σε Visual Basic

Οι αγγλικούς χαρακτήρες αποθηκεύονται στον υπολογιστή σε ένα τυποποιημένο σύνολο των κωδικών που είναι γνωστοί ως η American Standard Κώδικας για Ανταλλαγή Πληροφοριών ( ASCII ) . Ο κώδικας αυτός περιέχει 256 χαρακτήρες ( μερικά από αυτά προορίζονται μόνο για το μηχάνημα για να καταλάβει ) να εκπροσωπεί όλα τα κοινά γράμματα , αριθμούς και σύμβολα της αγγλικής στίξης . Από τότε έχει ξεπεραστεί από Unicode Transformation Format ( UTF ) , αν και όλες οι αρχικές τιμές ASCII διατηρούν την ίδια έννοια σε UTF να εξασφαλιστεί η συμβατότητα με παλαιότερα συστήματα . Visual Basic καθιστά εύκολο να προσδιοριστεί το αξιακό κώδικα ASCII για κάθε χαρακτήρα, χρησιμοποιώντας τη λειτουργία " Microsoft.VisualBasic.Asc " . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο . Επιλέξτε τον τύπο " ConsoleApplication " . Αργότερα , μπορείτε να χρησιμοποιήσετε τον ίδιο κωδικό , χωρίς τροποποίηση , σε οποιοδήποτε Graphical User Interface ( GUI ) του έργου . Όταν σας ζητηθεί να δώσει το έργο σας ένα όνομα , το όνομα "ASCII Μεταφραστής ". 2

Επικολλήστε τον παρακάτω κώδικα για να δημιουργήσει το string που θα θέλατε να πάρετε τους χαρακτήρες ASCII για :

Dim s ως String = " Hello ".

Δημ. char ( ) ως Χαρ = s.toCharArray ( )

Αντικαταστήστε το " Hello ". με ό, τι σειρά από χαρακτήρες που θα θέλατε να μεταφράσετε
εικόνων 3

Επικολλήστε τον ακόλουθο για να μετακινηθείτε μέσα από κάθε γράμμα του string , να το μετατρέψει σε ASCII τιμή του και να το εκτυπώσετε στην οθόνη : .

για το x ως ακέραιος = 0 έως char.Length - 1

Dim v ως Integer = Microsoft.VisualBasic.Asc ( char ( x ) )

Console.Write ( char ( x ) )

Console.Write ( "" )

Console.WriteLine ( v )

επόμενη
Η 4

Επικολλήστε τον παρακάτω, για να παύση του προγράμματος και να δώσει την ευκαιρία στον χρήστη να δείτε τα αποτελέσματα :

Console.ReadKey ( )
5

Κάντε κλικ στο πράσινο βέλος για να τρέξει το πρόγραμμα . Τα αποτελέσματα , αν αφήσετε την αρχική σειρά , όπως "Hello ". θα είναι :

H 72

e 101

l 108

l 108

o 111

. 46
Η
εικόνων