την εφαρμογή Microsoft Visual Basic Express και κάντε κλικ στο " New Project" στο αριστερό τμήμα της οθόνης του υπολογιστή σας . Κάντε κλικ στο " Visual Basic " κάτω " Εγκατεστημένα πρότυπα , κάντε" κλικ " Windows Forms Application " και κάντε κλικ στο " OK " για να ξεκινήσει ένα νέο έργο . 2
Κάντε διπλό κλικ στο " Πλαίσιο κειμένου " ελέγχου στο "Toolbox « παράθυρο για να προσθέσετε ένα στη φόρμα σας . Προσθέστε ένα " κουμπί" , χρησιμοποιώντας την ίδια τεχνική
εικόνων 3
Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κουμπί κλικ, και προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε δύο μεταβλητές : .
Dim numericCheck Όπως Boolean
Dim inputTxt Όπως String
Η
4 Πληκτρολογήστε τον ακόλουθο κώδικα για να πάρει την τιμή που έχει εισαχθεί στο πλαίσιο κειμένου και ελέγξτε αν είναι αριθμητικό , χρησιμοποιώντας τη λειτουργία " IsNumeric " :
inputTxt = Me.TextBox1.Text
numericCheck = IsNumeric ( inputTxt )
5
Προσθέστε τον ακόλουθο κώδικα χρησιμοποιώντας τη μεταβλητή Boolean και ας γνωρίζουμε ότι ο χρήστης , αν η αξία ήταν αριθμητικά :
Εάν numericCheck τότε
MsgBox ( " . Έχετε εισέλθει σε μια αριθμητική τιμή " )
υπόλοιπα
MsgBox ( " δεν έχετε εισάγει μια αριθμητική τιμή . " )
End If
Η
6 Πατήστε το πλήκτρο" F5 "για να εκτελέσετε τον κώδικα και κάντε κλικ στο" Button1 ".
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα