Ich hab als erstes Projekt mal versucht eine Pi Regelung zu programmieren, hab dazu auch schon mehrere Sachen gelesen.
Eine Schaltung hab ich noch nicht deshalb weiss ich auch noch nicht wie sich mein Programm auswirkt.
aber kommt das in etwa so hin ?
klar ist natürlich das ich noch irgendwie per PWM ne ausgabe machen muss, leider hab ich noch keinen Plan.
Ich hab den Code nach Formeln aus der Formelsammlung " Formeln für Elektrotechniker" umgesetzt. Ich hoffe nicht ganz falsch.
Eine Schaltung hab ich noch nicht deshalb weiss ich auch noch nicht wie sich mein Programm auswirkt.
aber kommt das in etwa so hin ?
Code:
Declare Function Piregler(byval Id As Byte , Temp As Single) As Integer 'deklarieren der funktion
Function Piregler()
Local Dim Regeldifferenz As Single 'Regeldifferenz
Local Dim Sollwert As Single 'Sollwert
Local Dim Istwert As Single 'Istwert
Local Dim Pverstellung As Single
Local Dim Iverstellung As Single
Local Dim Tmp_ianteil As Single
Local Dim Regelgroesse As Single
Local Dim Kri As Byte
Local Dim Krp As Byte
Local Dim T As Byte
Sollwert = Temp
T = 1
Kri = 1
Krp = 4
Sollwert = 30 'Sollwert auf 30°C setzen
Regeldifferenz = Istwert - Sollwert
'P-Anteil
Pverstellung = Krp * Regeldifferenz
'I Anteil
Tmp_ianteil = Regeldifferenz * Kri
Iverstellung = Tmp_ianteil / T
'Ergebnis
Regelgroesse = Pverstellung + Iverstellung
Piregler = Regelgroesse
End Function
klar ist natürlich das ich noch irgendwie per PWM ne ausgabe machen muss, leider hab ich noch keinen Plan.
Ich hab den Code nach Formeln aus der Formelsammlung " Formeln für Elektrotechniker" umgesetzt. Ich hoffe nicht ganz falsch.