Prozessor gesteuerte Röhrenendstufe

[TubeFiebig]

Hallo zusammen,

nachdem ich mich nun Wochen mit Bascom beschäftigt habe und mein erstes Steuerungsprogramm für meinen Röhrenvorverstärker dem Ende zugeht ( Nur Ports ein/aus/umschaltet, LCD , Schrittmotor, Sprachausgabe ) möchte ich mich nun mit einer Regelung beschäftigen.
Es soll der Ruhestrom der Endstufenröhren geregelt werden. Aber von PI PID PD Reglern habe ich noch überhaupt keinen Durchblick.
Der Schaltplan ist fertig. Ein und Ausgänge sind festgelegt, und das Platinenlayout in Arbeit.
Ich habe mal einen Auszug des Schaltplanes hochgeladen der die Ansteuerung der Endröhre zeigt.

1. Also es soll ein Ruhestrom vom 150mA durch die Röhre 6C33C fließen.
Gemessen am Katodenwiderstand R88 10ohm ( Messbarer Spannungabfall 1,5V ).
Am Gitter liegt ohne Regelung über den Widerstand R 87 -UG 130V.
Dann fließt kein Strom durch die Röhre.
Je kleiner die negative Spannung am Gitter der Röhre je größer wird der Strom durch die Röhre.
Der Regler muß also mit einem PWM-Signal über den Schalttransistor die -Spannung redukzieren
bis die 150mA ( 1,5V )an der Katode gemessen werden.

2. Die Reglung sollte nach einer Freigabe langsam hochregeln . Stromeinstellung über Drehendcoder. LCD Anzeige der Spannungen und der Ruheströme.

Für mich wären ein paar Codes hilfreich um die Regelung besser zu verstehen.

schönen Tag noch,
Wolfgang

 

[Bonze]

hab hier nen Pi regler,.

'###############################################################################
'Funktion PI-Regeler#########################################
Function Piregler(byval Istwert As Single , Byval Channel As Byte) As Word
Local Regeldifferenz As Single 'Regeldifferenz
Local Pverstellung As Integer
Local Pverstellung1 As Integer
Local Pverstellung2 As Integer
Local Iverstellung As Integer
Local Iverstellung1 As Integer
Local Iverstellung2 As Integer
Local Tmp_i As Integer
Local I_alt As Integer
Local I_alt1 As Integer
Local I_alt2 As Integer
Local Kri As Integer 'Integrierbeiwert
Local Krp As Integer 'Proportionalbeiwert
'Regelbedingung
Regeldifferenz = Istwert - Sollwert

Select Case Channel
Case 1:
Pverstellung = Pverstellung1
Iverstellung = Iverstellung1
I_alt = I_alt1
Case 2:
Pverstellung = Pverstellung2
Iverstellung = Iverstellung2
I_alt = I_alt2
End Select

'P-Anteil
Pverstellung = Regeldifferenz * Krp

'P Begrenzung
If Pverstellung < 0 Then Pverstellung = 0
If Pverstellung > 255 Then Pverstellung = 255

'I Anteil
I_alt = Iverstellung
Tmp_i = Regeldifferenz * Kri

If Tmp_i < 255 Then ' Integral wirkt erst im Regelbereich
Iverstellung = Tmp_i + I_alt
Else
Iverstellung = Tmp_i
End If

'I Begrenzung
If Iverstellung < 0 Then Iverstellung = 0
If Iverstellung > 255 Then Iverstellung = 255

'Ergebnis
Piregler = Iverstellung + Pverstellung
If Piregler < 0 Then Piregler = 0
If Piregler > 255 Then Piregler = 255

Select Case Channel
Case 1:
Pverstellung1 = Pverstellung
I_alt1 = I_alt
Iverstellung1 = Iverstellung
Case 2:
Pverstellung2 = Pverstellung
I_alt2 = I_alt
Iverstellung2 = Iverstellung
End Select
' Print " Reglerausgabe: "
' Print Piregler ; " | Regeldifferenz: " ; Regeldifferenz ; " | Temp: " ; Istwert ; " | P: " ; Pverstellung ; " | I: " ; Iverstellung ;
' Print "##############" 'entspricht der regelgröße
End Function

der code orientiert sich sehr an nem blockschaltbild, und hat 2 kanäle,..
funktioniert aber einwandfrei , vl zum verstehe nich schlecht

 

[TubeFiebig]

Hallo Bonze,
Danke für die schnelle Antwort und den Code. Ich habe mich nun doch entschloosen und mir ein Bascom Fachbuch bestellt. Messen Steuern ,Regeln. Um das zu verstehen muss ich mich doch mehr einlesen. Wie übergebe ich die ADC.- PWM -Werte . Wie Steuer ich die PWM Ausgänge an.
Viele Grüße,
Wolfgang