-> Hier kostenlos registrieren
Hallo,
irgendwie stehe ich auf dem Schlauch. Ich habe ein VBA Skript geschrieben welchen bei unterschiedlichen Werten eine Berechnung tätigt.
Abhängig vom Ausgaswert kleiner 4.
Die Berechnungen funktionieren auch ohne Probleme, jetzt wollte ich wenn die Berechnung erfolgt ist und ein negativer Wert dabei herauskommt soll einfach eine 0 geschrieben werden.
ist ist der Wert positiv soll er diesen Anzeigen.
Ist aber Jetzt der Ausganswert größer 4 dann soll er eine andere Berechnung machen.
Meine Idee sah so aus:
irgendwie stehe ich auf dem Schlauch. Ich habe ein VBA Skript geschrieben welchen bei unterschiedlichen Werten eine Berechnung tätigt.
Abhängig vom Ausgaswert kleiner 4.
Die Berechnungen funktionieren auch ohne Probleme, jetzt wollte ich wenn die Berechnung erfolgt ist und ein negativer Wert dabei herauskommt soll einfach eine 0 geschrieben werden.
ist ist der Wert positiv soll er diesen Anzeigen.
Ist aber Jetzt der Ausganswert größer 4 dann soll er eine andere Berechnung machen.
Meine Idee sah so aus:
C++:
Sub OutputValue_OnPropertyChanged(ByVal Item, ByVal value)
Dim Konz
Dim tag1
Dim tag2
Dim minus
Set tag1 = HMIRuntime.Tags("H4_B84_Bad01_Ist_Konz")
tag1.Read
Konz = tag1.value
If Konz <= 4 Then
Set tag2 = ((HMIRuntime.Tags("H4_B84_Bad01_B3").Read - (HMIRuntime.Tags("H4_B84_Bad01_Konz_293051").Read * HMIRuntime.Tags("H4_B84_Bad01_B4").Read))/100*HMIRuntime.Tags("H4_B84_Bad01_B2").Read)
tag2.Read
minus = tag2.Value
If minus <= 0 Then
HMIRuntime.Tags("H4_B84_Bad01_Nachsatz").Write 0
Else
HMIRuntime.Tags("H4_B84_Bad01_Nachsatz").Write ((HMIRuntime.Tags("H4_B84_Bad01_B3").Read - (HMIRuntime.Tags("H4_B84_Bad01_Konz_293051").Read * HMIRuntime.Tags("H4_B84_Bad01_B4").Read))/100*HMIRuntime.Tags("H4_B84_Bad01_B2").Read)
End If
Else
HMIRuntime.Tags("H4_B84_Bad01_Nachsatz").Write ((HMIRuntime.Tags("H4_B84_Bad01_B3").Read - HMIRuntime.Tags("H4_B84_Bad01_Konz_293051").Read * HMIRuntime.Tags("H4_B84_Bad01_B4").Read)/-(HMIRuntime.Tags("H4_B84_Bad01_Konz_293051").Read * HMIRuntime.Tags("H4_B84_Bad01_B4").Read)) * HMIRuntime.Tags("H4_B84_Bad01_B2").Read
End If
End Sub