---

Hallo zusammen.

Ich bin noch ein ziemlicher Neuling im Bereich Visual Basic und habe jetzt ein kleines Problem mit If - Then - Else.

Mein Basiscode sieht vorerst so aus:

If Achsdurchmesser = 160 Then

Component.Replace("Lager:1", "240-160-109.iam", True)

Else

i = MessageBox.Show("Lager nicht vorhanden in Datenbank", "Ungültiger Wert", MessageBoxButtons.OK, MessageBoxIcon.Hand,

MessageBoxDefaultButton.Button1)

End If

"Achsdurchmesser" ist ein Parameter mit mehreren Maßen in der Skizze und kann über ein Formular geändert werden. Jetzt habe ich aber mehr als 2 Lager in meiner Datenbank und möchte diese dann bei entsprechendem Wert austauschen, z.B. Achsdurchmesser = 180 dann Lager Xm, Achsdurchmesser = 200 dann Lager Xn, Achsdurchmesser = 220 dann Lager Xo usw.

Wie muss ich vorgehen damit VB versteht was ich will?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja ok, habe die Lösung schon selber gefunden. War dann doch einfacher als gedacht. 

If Achsdurchmesser = 160 Then

Component.Replace("Lager:1", "Xm.iam", True)

Else

If Achsdurchmesser = 180 Then

Component.Replace("Lager:1", "Xn.iam", True)

Else

  If Achsdurchmesser = 200 Then

                Component.Replace("Lager:1", "Xo.iam", True)

Else

i = MessageBox.Show("Lager nicht vorhanden in Datenbank", "Ungültiger Wert", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
End If
End If
End If

Aber vielleicht hat jemand noch Verbesserungsvorschläge.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habe das ganze jetzt hier vereinfacht dargestellt. In meinem Originalcode stehen etwas andere Bezeichnungen, die ich dann auch einfacher zuordnen kann.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Select Case ist vielleicht etwas weniger Schreibarbeit und einfach zu lesen im Quelltext
Bsp.:

Code:

---

Select Case Kantenlaenge
Case 1
Massstab = 100
Case Is < 10
Massstab = 10
Case Is < 35
Massstab = 2
Case Else
Massstab = 0.01
End Select

---

Siehe auch hier

------------------
Grüsse
Jürgen
Über 1400 Tipps in der Inventor FAQ
Inventor Schulungsvideos und eBook zum runterladen
Die besten Tipps und Tricks für Einsteiger | für erfahrene Anwender | bei Inventor Abstürzen | die Simulation

[Diese Nachricht wurde von invhp am 24. Jul. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP