Hier findest du die neue Inventor FAQ

Los geht’s mit Teil 4 unseres kleinen “Programmierkurses” für VB. Solltest du neu eingestiegen sein, schau dir vorher die Teile 1 – 3 an.
Programmieren in Visual Basic – Eine Einführung – Teil 1
Programmieren in Visual Basic – Eine Einführung – Teil 2
Programmieren in Visual Basic – Eine Einführung – Teil 3

Operatoren

Heute geht es um Operatoren, d.h. Funktionen, die es uns erlauben Variable zu verarbeiten. Wir haben in unserem letzten Projekt schon den Operator “*” genutzt um einen Wert mit sich selbst zu multiplizieren.

Arithmetische Operatoren

Arithmetische Operatoren dienen zum “verwusten” von Zahlen. Die gängigen sind, wer hätte es gedacht, +,-,*,/ und ^ (quadrieren). Schauen wir uns das erste Programm heute an:

Sub Main()
Dim sngZahl1 As Single = 12
Dim sngZahl2 As Single = 4
Console.WriteLine("Der Operator / ergibt folgendes Ergebnis für die Zahlen {0} / {1} = {2}", _
sngZahl1, sngZahl2, sngZahl1 / sngZahl2)
Console.ReadLine()
End Sub

Wie der geneigte “Programmieren in VB” Kursteilnehmer unschwer erkennen kann werden 2 Variablen vom Typ “Single” definiert denen gleich ein Zahlwert zugewiesen wird. Über Console.WriteLine lassen sich Texte in der Console ausgeben und auch Ergebnisse einer Berechnung. In diesem Codebeispiel ist das eine Division (/). Für was die geschweiften Klammern mit den Zahlen drin stehen, weisst du hoffentlich noch, oder? Falls nicht, zieh dir nochmals Teil 2 der Kurses rein. So schaut dann das Ergebnis aus:

Zusätzlich zu den “Grundrechenarten” gibt es noch den Backslash “\” und “Restwertoperator mod”. Der “\” liefert den ganzzahligen Anteil einer Division. 11 \ 4 = 2 (die .75 fallen weg). MOD liefert den Rest einer Division. Nehmen wir 100 mod 17 ergibt sich als Ergebnis 15, weil 17 5 mal in 100 geht (=85) und die Differenz von 100 zu 85 ist 15. 

Vergleichsoperatoren

Diese Operatoren sind sehr wichtig, weil man prüfen kann, ob ein Wert gleich, größer, kleiner einem anderen Wert ist. Auch diese sollten uns vor keine großen Herausforderungen stellen. Nehmen wir an,  a=5 und b=10. Wer wir nun in unserem Programm a=b setzen wird “True” zurückgegeben, wenn das der Fall und “False” wenn es nicht so ist. Da a und b nicht gleich sind, bekommen wir als Rückgabewert “False”. Man unterscheidet die Operatoren: =, <>, <, >, <=, >=

Logische Operatoren

Wer mal was mit Digitaltechnik am Hut hatte, der kennt sie, die logischen Operatoren: AND, OR, XOR. Es werden boolsche Werte verglichen, als 0 und 1 bzw. True und False. 

 Zuweisungen

Die Zuweisungsoperatoren kennen wir schon. x = y weisst x den Wert von y zu. für x = x - y kann man auch schreiben x -= y (logisch oder. Also ich schreib das so, wie ich es schon die letzten 36 Jahre gemacht habe. Den Schmarren mit “-=”, “+=”, “/=” usw. lassen wir weg ; ) )

Stringverkettung

Strings, also Texte, werdem mittels kaufmännischem Und “&” verketten. Plus ginge auch, ist aber fehleranfälliger. Hier ein kleines Beispiel:

Sub Main()
Dim strText1, strText2, strText3 As String
strText1 = "Visual Basic lernen macht... "
strText2 = "saumäßig Spaß. Ich könnten singen vor Freude"
strText3 = strText1 & strText2
Console.WriteLine(strText3)
Console.ReadLine()
End Sub

Das wars mal bis hier mit den Operatoren.

Kontrollstrukturen

Ich nehme an, es wird wohl kaum ein ersthaftes Programm geben (ausser die unseren bisher ;) ) die ohne eine Konstrollstruktur auskommen. Es ist einfach so, dass das Programm abhängig von einer bestimmten Eingabe/Situation unterschiedlich reagieren sollte. Gehen wir gleich an das erste Beispiel. Wir machen ein Programm, in dem der Benutzer angibt, ob der Inventor oder ein anderes CAD einsetzt und abhängig davon wird eine Meldung ausgegeben.

Die IF-Anweisung

If heisst “wenn”. Und so wie sich die Funktion anhört, so arbeitet sie auch. Die Struktur des Befehl sieht so aus:

If (Bedienung) Then
….
Else
….
End If

Machen wir uns gleich an unser Programmbeispiel:

Sub Main()
Dim strCAD As String
Console.WriteLine("Haben Sie Inventor so geben Sie '1' ein wenn Sie ein anderes CAD-System haben '2'")
strCAD = Console.ReadLine
If strCAD = 1 Then
Console.WriteLine("Inventor, im Einsatz. Das ist gut! :) ")
Else
Console.WriteLine("Kein Inventor, im Einsatz. Das ist schlecht! gleich einen kaufen!!")
End If
Console.ReadLine()
End Sub

Wie wir sehen, wird geprüft, ob die Variable StrCAD = 1 ist. Ist das der Fall wird die Anweisung nach dem “Then” ausgeführt ansonsten die Anweisung nach dem “Else”. Das bedeutet aber auch, das die Eingabe von “2″ gar keine Auswirkung hat, da wir ja nur prüfen ob strCAD = 1 ist. Die If-Anweisung wird mit “End If” abgeschlossen.

Select Case Anweisung

Da wir den Anwender unseres Programmes, der “2″ eingibt nicht auflaufen lassen wollen und zudem noch etwas differenzierter zu Werke gehen wollen, nutzen wir die nächste Fuktion: “Select Case”. Die ist selbsterklärend.

Sub Main()
Dim strCAD As String
Console.WriteLine("Haben Sie Inventor so geben Sie 'i' ein wenn Sie SolidWorks haben 's' und wenn Sie Pro/E haben 'p'")
strCAD = Console.ReadLine
Select Case strCAD
Case "i"
Console.WriteLine("Inventor, im Einsatz. Das ist gut! :) ")
Case "s"
Console.WriteLine("Soso, SolidWorks also, na ja...")
Case "p"
Console.WriteLine("Pro/E: Dafür gibt es für Inventor jetzt eine Direktschnittstelle unter labs.autodesk.com")
Case Else
Console.WriteLine("Du sollst i,s, oder p eingeben!")
End Select
Console.ReadLine()
End Sub

Wird das Programm gestartet, kann der Benutzer irgendwas eingeben. Durch die Case-Anweisung erfolgt eine Auswertung, was eingeben wurde. Für jeden “Case” (=Fall) kann dann eine Anweisung definiert werden, hier die Ausgabe einer Textzeile. Wird weder i,s noch p eingegeben tritt die “Case Else” Anweisung in Kraft wo z.B. gefragt werden kann, ob der Anwender so ein Schnarchnase ist, das er nicht mal in der Lage ist, i,s, oder p einzugeben ;)

Ok, das wars für heute mit “Programmieren mit Visual Basic”. Bald machen wir unser erstes richtiges Windowsprogramm – noch etwas Geduld.

Bisherige Artikel zum Thema “Programmieren in Visual Basic”:
Programmieren in Visual Basic – Eine Einführung – Teil 1
Programmieren in Visual Basic – Eine Einführung – Teil 2
Programmieren in Visual Basic – Eine Einführung – Teil 3