case is entscheidung funktioniert nicht
16.12.2005 18:56:25
dimi
ich möchte mit der select case entscheidung erreichen das für werte gröser als -0.0035 und kleiner "betonzugfestigkeit/Emodulbeton" (der Term hat etwa den wert 0.0002) einfach nur die berechnung betonspannung(i)=dehnung(i)*Emodulbeton. Dehnung(i) ist der variable wert (-0.0035 kleiner dehnung(i) kleiner 0.0002)
For i = 1 To ElementAnzahl
Select Case Dehnung(i)
Case Is ">" -0.0035 " Betonspannung(i) = Dehnung(i) * EModulBeton
Case Is " Betonspannung(i) = -180
Case Is ">" (Betonzugfestigkeit / EModulBeton)
Betonspannung(i) = "Riss"
End Select
Next
funktioniert leider nicht, die bedingung kleiner (betonzugfestigkeit/emodulbeton)wird ignoriert.
was nun? habe auch versucht das ganze mit einer if entscheidung zu machen
For i = 1 To ElementAnzahl
If Dehnung(i) ">" -0.0035 And Dehnung(i) " Betonspannung(i) = Dehnung(i) * EModulBeton
ElseIf Dehnung(i) " Betonspannung(i) = -180
ElseIf Dehnung(i) ">" (Betonzugfestigkeit / EModulBeton) Then
Betonspannung(i) = "Riss"
End If
Next
aber diese verträgt sich nicht mit dem rest meines codes, ich bekam aber nur die fehlermeldung "typen unverträglich"
gruss dimi