wert auf ±10 vergleichen wie ??

**Zardest** · 11.12.2012, 17:20

Moin

Ich möchte in Bascom gerne einen wert auf ±10 genau vergleichen.Er darf nicht genau sein er muss toleranz haben (da der Motor etwas nachläuft) nun die frage wie mache ich das ??

**BMS** · 11.12.2012, 18:57

Ohne jemals Bascom verwendet zu haben, sieht das in Basic (z.B. BlitzPlus) ungefähr so aus:

Code:

If (Variable>Wert-10) And (Variable<Wert+10) Then
...
EndIf

Alternativ: Betrag der Differenz ist kleiner als 10 ( Blitzplus: If Abs(Variable-Wert)<10 Then )
Grüße, Bernhard

**Zardest** · 11.12.2012, 19:27

Danke das ist es was ich brauche wird morgen sofort getestet

**kask** · 11.12.2012, 20:56

wird nicht gehen.
eher soo..

Dim i as Integer

i = soll - 10
if wert < i then
i = soll + 10
if wert > i then
...
end if
end if

oder

Dim i as Integer

i = soll - wert
if i > 10 or i < -10 then
...
end if

edt: Bascom kann leider nur in einer zeile vergleichen oder EINE rechnung ausführen.

**radbruch** · 11.12.2012, 22:24

Oder so vielleicht:

Code:

Dim Soll As Integer , Ist As Integer , Temp As Integer

If Soll > Ist Then
   Temp = Soll - ist
Else
   Temp = Ist - soll
End If
If Temp > 10 Then Print "Abstand ist größer als ±10"

(ungetestet)