Πώς να δημιουργήσετε ένα Visual Basic Πρόγραμμα Χρησιμοποιώντας το Αν Else & Για Loop

Στη βασική κόσμο προγραμματισμού Visual , το « If ... Else " δήλωση είναι ένα must-have σχεδόν σε κάθε πρόγραμμα υπολογιστή . Το " If ... Then ... Else " η δήλωση είναι ένα από τα πιο βασικό από όλα εντολές ελέγχου ροής . Δοκιμάζει μια κατάσταση - και αν είναι αλήθεια - θα εκτελέσει τις δηλώσεις που ακολουθούν "Τότε ". Εάν η δήλωση είναι ψευδής , τότε θα εκτελεί τις δηλώσεις μετά από τη ρήτρα « Αλλιώς » . Το " For ... Next " δήλωση σε Visual Basic θα επαναλάβει μια ομάδα καταστάσεων για ένα συγκεκριμένο αριθμό φορών . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

την εφαρμογή Microsoft Visual Basic Express . Κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης του υπολογιστή σας , και κάντε κλικ στο " Visual Basic" κάτω από Εγκατεστημένα πρότυπα . Κάντε κλικ στο " Windows Forms Application " και κάντε κλικ στο " OK " για να δημιουργήσετε ένα νέο έργο . 2

διπλό κλικ στο " κουμπί" στο παράθυρο Toolbox για να προσθέσετε ένα νέο κουμπί ελέγχου . Κάντε διπλό κλικ στο " Button1 " για να ανοίξει το Visual Basic Window , και να δημιουργήσει ένα συμβάν κλικ του κουμπιού . Πληκτρολογήστε τα ακόλουθα στο εσωτερικό της εκδήλωσης κάντε κλικ για να δημιουργήσετε τέσσερις νέες μεταβλητές :

Dim DayNum Όπως DayOfWeek = DateTime.Now.DayOfWeek

Dim ώρα As Integer = DateTime.Now.Hour

Dim dateString Όπως String Dim

dayCntr As Integer
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να ελέγξετε αν σήμερα είναι η Τετάρτη χρησιμοποιώντας το " If ... Then " δήλωση:

Αν DayNum = DayOfWeek.Wednesday τότε

Εάν ώρα = 14 ή ώρα = 18 τότε

MessageBox.Show ( "Σήμερα είναι η Τετάρτη μεταξύ 2 και 6 PM" )

End If

Αν σήμερα είναι η Τετάρτη ο κωδικός θα δοκιμάσει επίσης εάν η ώρα είναι μεταξύ 2 και 18:00 .
Η

4 Πληκτρολογήστε τον ακόλουθο κώδικα για να ανακαλύψει την ημέρα της την εβδομάδα χρησιμοποιώντας ένα " For ... Next " δήλωση και ένα « If ... Then ... Else " δήλωση:

Else

Για dayCntr = 1 έως 6

Αν DayNum = 1 τότε

dateString = "Δευτέρα"

ElseIf DayNum = 2 τότε

dateString = "Τρίτη"

ElseIf DayNum = 2 Στη συνέχεια

dateString = "Πέμπτη"

ElseIf DayNum = 2 τότε

dateString = "Παρασκευή"

ElseIf DayNum = 2 τότε

dateString = "Saturday "

Else

dateString = "Sunday "

End If

Αν dateString <> " " τότε

dayCntr = 8

End If

Επόμενο

δεν υπάρχει καμία ανάγκη για τη δοκιμή για την Τετάρτη , δεδομένου ότι δοκιμάζεται στο πρώτο « If ... Else" δήλωση.
5

Πληκτρολογήστε τον ακόλουθο κώδικα για να εμφανίσετε το όνομα της σημερινής ημέρας και της τρέχουσας ώρας μέσα από ένα πλαίσιο μηνύματος :

dateString = " σήμερα δεν είναι η Τετάρτη , σήμερα είναι " & dateString

dateString = dateString & " . ώρα είναι " & DateTime.Now.TimeOfDay.ToString

MessageBox.Show ( dateString )

End If

6

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο " Button1 " για να εκτελέσει τον κώδικα .
Η
εικόνων