Gewusst wie: Erstellen eines Visual Basic-Programms mit If sonst & For-Schleife
In der Visual Basic Programmierung Welt, das "Wenn... Else"-Anweisung ist ein Must-Have in fast jedem Computerprogramm. Die "If... Dann... Else"-Anweisung zählt das grundlegendste aller Steueranweisungen fließen. Es testet eine Bedingung-- und wenn es stimmt--führt es in den Anweisungen "Damals." Wenn die Anweisung false ist, wird es die Anweisungen nach der Klausel "Else" ausgeführt. Die "für... Weiter"Anweisung in Visual Basic wird eine Gruppe von Anweisungen für eine angegebene Anzahl von Malen wiederholen.
Anweisungen
1 Starten Sie Microsoft Visual Basic Express. Klicken Sie auf "New Project..." im linken Bereich Ihres Bildschirms, und klicken Sie auf "Visual Basic" unter installierte Vorlagen. Klicken Sie "Windows Forms-Anwendung" und dann "OK", um ein neues Projekt erstellen.
2 Doppelklicken Sie im Bereich Toolbox ein neues Schaltflächensteuerelement hinzufügen "Button". Doppelklicken Sie auf "Button1" Öffnen Sie das Fenster Visual Basic, und erstellen ein Click-Ereignis für die Schaltfläche. Geben Sie Folgendes in das Click-Ereignis, um vier neue Variablen erstellen:
Dim DayNum als DayOfWeek = DateTime.Now.DayOfWeek
Dim hour As Integer = DateTime.Now.Hour
Dim dateString As String
Dim dayCntr As Integer3
Geben Sie Folgendes ein, wenn heute Mittwoch mit dem "Wenn... ist zu testen Dann"Anweisung:
If DayNum = DayOfWeek.Wednesday Then
If hour = 14 Or hour = 18 Then
MessageBox.Show("Today is Wednesday between 2 and 6 P.M.")
End If
Wenn heute Mittwoch ist wird der Code auch testen, wenn die Stunde zwischen 2 und 18:00 ist.
4 Geben Sie den folgenden Code, um herauszufinden, die den Wochentag mit einer "für... Anweisung Next"und eine"Wenn... Dann... Else"-Anweisung:
Else
For dayCntr = 1 To 6
If DayNum = 1 Then
dateString = "Monday"
ElseIf DayNum = 2 Then
dateString = "Tuesday"
ElseIf DayNum = 2 Then
dateString = "Thursday"
ElseIf DayNum = 2 Then
dateString = "Friday"
ElseIf DayNum = 2 Then
dateString = "Saturday"
Else
dateString = "Sunday"
End If
If dateString <> "" Then
dayCntr = 8
End If
Next
Es gibt keine Notwendigkeit für Mittwoch zu testen, da es in der ersten "Wenn... getestet Else"-Anweisung.
5 Geben Sie den folgenden Code, um den Namen des heutigen Tages und die aktuelle Uhrzeit durch ein Meldungsfeld anzuzeigen:
dateString = "Today is not Wednesday, today is " & dateString
dateString = dateString & ". Current time is " & DateTime.Now.TimeOfDay.ToString
MessageBox.Show(dateString)
End If6
Mit "F5" um das Programm auszuführen. Klicken Sie auf "Button1" zum Ausführen des Codes.