summaryrefslogtreecommitdiffhomepage
path: root/de-de/visualbasic-de.html.markdown
blob: c007eb8615644587aa941cec499fd7acaf62a8cf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
---
language: Visual Basic
contributors:
    - ["Brian Martin", "http://brianmartin.biz"]
translators:
    - ["Enno Nagel", "https://github.com/konfekt"]
filename: learnvisualbasic-de.vb
lang: de-de
---

```vbnet
Module Modul1

Sub Main()
  ' Ein kurzer Blick auf Visual Basic-Konsolenanwendungen
  ' bevor wir tiefer in das Thema eintauchen.
  ' Das Hochkomma leitet eine Kommentarzeile ein.
  ' Um dieses Tutorial innerhalb des Visual Basic Compilers zu erkunden,
  ' habe ich ein Navigationssystem erstellt.
  ' Dieses System wird im weiteren Verlauf des Tutorials erklärt;
  ' Sie werden nach und nach verstehen, was das alles bedeutet.
  Console.Title = ("Lerne X in Y Minuten")
  Console.WriteLine ("NAVIGATION") 'Anzeige
  Console.WriteLine ("")
  Console.ForegroundColor = ConsoleColor.Green
  Console.WriteLine ("1. Ausgabe von 'Hallo, Welt'")
  Console.WriteLine ("2. Eingabe 'Hallo, Welt'")
  Console.WriteLine ("3. ganze Zahlen berechnen")
  Console.WriteLine ("4. Berechne Dezimalzahlen")
  Console.WriteLine ("5. ein funktionaler Taschenrechner")
  Console.WriteLine ("6. 'Do While'-Schleifen verwenden")
  Console.WriteLine ("7. Verwendung von 'For While'-Schleifen")
  Console.WriteLine ("8. Bedingte Anweisungen")
  Console.WriteLine ("9. Ein Getränk auswählen")
  Console.WriteLine ("50. Über")
  Console.WriteLine ("Wählen Sie eine Zahl aus der obigen Liste")
  Dim selection As String = Console.Readline()
  Select Case auswahl
    Case "1" 'Ausgabe "Hallo, Welt"
      Console.Clear() 'Löscht die Konsole und öffnet die private Subroutine
      AusgabeHalloWelt() 'Öffnet die genannte private Subroutine
    Case "2" 'Eingabe "hallo, Welt"
      Console.Clear()
      EingabeHalloWelt()
    Case "3" 'Berechne ganze Zahlen
      Console.Clear()
      BerechneGanzeZahlen()
    Case "4" 'Dezimalzahlen berechnen
      Console.Clear()
      BerechneDezimalZahlen()
    Case "5" 'Ein funktionaler Taschenrechner
      Console.Clear()
      Taschenrechner()
    Case "6" 'Verwendung von "Do While"-Schleifen
      Console.Clear()
      WhileSchleife()
    Case "7" 'Verwendung von "For While"-Schleifen
      Console.Clear()
      ForSchleife()
    Case "8" 'Bedingte Anweisungen
      Console.Clear()
      BedingteAnweisung()
    Case "9" 'If/Else-Anweisung
      Console.Clear()
      IfElseAnweisung() 'Ein Getränk auswählen
    Case "50" '"Über" Infobox
      Console.Clear()
      Console.Title = ("Lernen Sie X in Y Minuten :: Über")
      MsgBox ("Tutorial geschrieben von Brian Martin (@BrianMartinn)")
      Console.Clear()
      Main()
      Console.ReadLine()

  End Select
End Sub

'Eins - Ich habe Zahlen verwendet, um mich durch das obige Navigationssystem zu
'führen auf das ich später zurückkomme, um es zu implementieren.

'wir verwenden private Unterprogramme, um verschiedene Abschnitte des Programms
'zu trennen.
Private Sub AusgabeHalloWelt()
  'Titel der Konsolenanwendung
  Console.Title = "Ausgabe 'Hallo, Welt' | Lerne X in Y Minuten"
  'Verwenden Sie Console.Write("") oder Console.WriteLine(""), um die Ausgabe
  'anzuzeigen, gefolgt von Console.Read(), oder Console.Readline()
  'Console.ReadLine() zeigt die Ausgabe auf der Konsole an.
  Console.WriteLine ("Hallo, Welt")
  Console.ReadLine()
End Sub

'Zwei
Private Sub EingabeHalloWelt()
  Console.Title = "Hallo, Welt, ich bin.. | Lerne X in Y Minuten"
  'Variablen
  'Vom Benutzer eingegebene Daten müssen gespeichert werden.
  'Variablen beginnen ebenfalls mit Dim und enden mit As VariableType.

  'In diesem Lernprogramm wollen wir Ihren Namen wissen und das Programm
  'auf ihn antworten.
  Dim nutzername As String
  ' Wir verwenden "String", weil es sich um eine textbasierte Variable handelt.
  Console.WriteLine ("Hallo, wie ist Ihr Name?") 'Frage nach dem Benutzernamen.
  nutzername = Console.ReadLine() 'Benutzernamen speichern.
  Console.WriteLine ("Hallo, " + nutzername) 'Ausgabe ist Hallo, Name
  Console.ReadLine() 'Die obige Ausgabe anzeigen.
  'Der obige Code stellt Ihnen eine Frage und zeigt die Antwort an.
  'Neben anderen Variablentypen gibt es Integer, den wir für ganze Zahlen
  'verwenden werden.
End Sub

'Drei
Private Sub BerechneGanzeZahlen()
  Console.Title = "Berechne ganze Zahlen | Lerne X in Y Minuten"
  Console.Write ("Erste Zahl: ") 'Schreiben Sie eine ganze Zahl, 1, 2, 104, usw
  Dim a As Integer = Console.ReadLine()
  Console.Write ("Zweite Zahl: ") 'Schreiben Sie eine weitere ganze Zahl.
  Dim b As Integer = Console.ReadLine()
  Dim c As Integer = a + b
  Console.WriteLine (c)
  Console.ReadLine()
  'Dies ist ein einfacher Taschenrechner
End Sub

'Vier
Private Sub BerechneDezimalZahlen()
  Console.Title = "Berechne mit dem Typ Double | Lerne X in Y Minuten"
  'Natürlich würden wir gerne Dezimalzahlen addieren.
  'Also könnten wir von Integer auf Double umstellen.

  'Schreiben Sie eine Bruchzahl, 1.2, 2.4, 50.1, 104.9 usw
  Console.Write ("Erste Zahl: ")
  Dim a As Double = Console.Readline()
  Console.Write ("Zweite Zahl: ") 'Schreiben Sie die zweite Zahl.
  Dim b As Double = Console.Readline()
  Dim c As Double = a + b
  Console.WriteLine (c)
  Console.ReadLine()
  'Dieses Programm kann 1.1 und 2.2 addieren
End Sub

'Fünf
Private Sub Taschenrechner()
  Console.Title = "Der Funktionsrechner | Lerne X in Y Minuten"
  'Wenn Sie aber wollen, dass der Rechner subtrahiert, dividiert,
  'multipliziert und addiert.
  'Kopieren Sie den obigen Text und fügen Sie ihn ein.
  Console.Write ("Erste Zahl: ")
  Dim a As Double = Console.Readline()
  Console.Write ("Zweite Zahl: ")
  Dim b As Integer = Console.Readline()
  Dim c As Integer = a + b
  Dim d As Integer = a * b
  Dim e As Integer = a - b
  Dim f As Integer = a / b

  'Mit den folgenden Zeilen können wir  die Werte a und b
  'subtrahieren, multiplizieren und dividieren
  Console.Write (a.ToString() + " + " + b.ToString())
  'Wir wollen den Ergebnissen einen linken Rand von 3 Leerzeichen geben.
  Console.WriteLine (" = " + c.ToString.PadLeft(3))
  Console.Write (a.ToString() + " * " + b.ToString())
  Console.WriteLine (" = " + d.ToString.PadLeft(3))
  Console.Write (a.ToString() + " - " + b.ToString())
  Console.WriteLine (" = " + e.ToString.PadLeft(3))
  Console.Write (a.ToString() + " / " + b.ToString())
  Console.WriteLine (" = " + f.ToString.PadLeft(3))
  Console.ReadLine()

End Sub

'Sechs
Private Sub WhileSchleife()
  'Gleich zur vorherigen privaten Subroutine.
  'Diesmal fragen wir den Benutzer, ob er fortfahren möchte (ja oder nein?).
  'Wir verwenden die Do While-Schleife, weil wir nicht wissen, ob der Benutzer
  'das Programm mehr als einmal verwenden möchte.
  Console.Title = "Do While-Schleifen verwenden | X in Y Minuten lernen"
  Dim antwort As String 'Wir verwenden "String", weil die Antwort ein Text ist
  Do 'Wir beginnen das Programm mit
    Console.Write ("Erste Zahl: ")
    Dim a As Double = Console.Readline()
    Console.Write ("Zweite Zahl: ")
    Dim b As Integer = Console.Readline()
    Dim c As Integer = a + b
    Dim d As Integer = a * b
    Dim e As Integer = a - b
    Dim f As Integer = a / b

    Console.Write (a.ToString() + " + " + b.ToString())
    Console.WriteLine (" = " + c.ToString.PadLeft(3))
    Console.Write (a.ToString() + " * " + b.ToString())
    Console.WriteLine (" = " + d.ToString.PadLeft(3))
    Console.Write (a.ToString() + " - " + b.ToString())
    Console.WriteLine (" = " + e.ToString.PadLeft(3))
    Console.Write (a.ToString() + " / " + b.ToString())
    Console.WriteLine (" = " + f.ToString.PadLeft(3))
    Console.ReadLine()
    'Fragen Sie den Benutzer, ob er fortfahren möchte. Unglücklicherweise
    'werden Groß- und Kleinschreibung unterschieden.
    Console.Write ("Möchten Sie fortfahren? (j / n)")
    'Das Programm nimmt die Variable, zeigt sie an und beginnt von vorne.
    antwort = Console.Readline()
    'Der Befehl, der diese Variable zum Laufen bringt, ist in diesem Fall "j"
  Loop While antwort = "j"

End Sub

'Sieben
Private Sub ForSchleife()
  'Manchmal muss das Programm nur einmal ausgeführt werden.
  'In diesem Programm werden wir von 10 loszählen.

  Console.Title = "Mit "For"-Schleifen | X in Y Minuten lernen"
  'Deklarieren Sie die Variable und ab welcher Zahl in Schritt -1 gezählt
  'werden soll, Schritt -2, Schritt -3, usw.
  For i As Integer = 10 To 0 Schritt -1
    Console.WriteLine (i.ToString) 'Zählerwert anzeigen
  Next i 'Berechne den neuen Wert
  Console.WriteLine ("Start") 'Starten wir das Programm, baby!!!!
  Console.ReadLine() 'BANG!!!! - Vielleicht war ich zu aufgeregt :)
End Sub

'Acht
Private Sub BedingteAnweisung()
  Console.Title = "Bedingte Anweisungen | X in Y Minuten lernen"
  Dim username As String = Console.Readline()
  'Aufforderung zur Eingabe des Benutzernamens.
  Console.WriteLine ("Hallo, wie ist Ihr Name?")
  username = Console.ReadLine() 'Benutzernamen speichern.
  If username = "Adam" Then
    Console.WriteLine ("Hallo, Adam")
    Console.WriteLine ("Danke, dass Sie diese nützliche Website erstellt haben")
    Console.ReadLine()
  Else
    Console.WriteLine ("Hallo, " + Benutzername)
    Console.WriteLine ("Haben Sie www.learnxinyminutes.com besucht?")
    Console.ReadLine() 'Beendet und zeigt die obige Anweisung an.
  End If
End Sub

  'Neun
Private Sub IfElseAnweisung()
    Console.Title = "If / Else-Anweisung | X in Y Minuten lernen"
    'Manchmal ist es wichtig, mehr als zwei Alternativen in Betracht zu ziehen.
    'Manchmal sind einige von ihnen besser.
    'In diesem Fall brauchen wir mehr als eine "if"-Anweisung.
    'Eine "if"-Anweisung ist für Verkaufsautomaten geeignet.
    'Der Benutzer gibt einen Code ein (A1, A2, A3), aus dem er wählen kann.
    'Alle Auswahlmöglichkeiten können in einer einzigen "if"-Anweisung
    'kombiniert werden.

    Dim auswahl As String = Console.ReadLine 'Der Wert der Auswahl
    Console.WriteLine ("A1. für 7Up")
    Console.WriteLine ("A2. für Fanta")
    Console.WriteLine ("A3. für Dr. Pepper")
    Console.WriteLine ("A4. für Coca-Cola")
    Console.ReadLine()
  If auswahl = "A1" Dann
    Console.WriteLine ("7up")
    Console.ReadLine()
  ElseIf auswahl = "A2" Then
    Console.WriteLine ("fanta")
    Console.ReadLine()
  ElseIf auswahl = "A3" Then
    Console.WriteLine ("Dr. Pfeffer")
    Console.ReadLine()
  ElseIf auswahl = "A4" Then
    Console.WriteLine ("Coca-Cola")
    Console.ReadLine()
  Else
    Console.WriteLine ("Ein Produkt auswählen")
    Console.ReadLine()
  End If

End Sub

End Module
```

## Referenzen

Für diejenigen, die mehr wissen wollen, hat Brian Martin ein umfassenderes
[Visual Basic Tutorial](http://www.vbbootcamp.co.uk/ "Visual Basic Tutorial")
erstellt.

Die gesamte Syntax sollte gültig sein.
Kopieren Sie den Code und fügen Sie ihn in den Visual Basic Compiler ein und
führen Sie das Programm aus (F5).