Um das ganze jetzt mal zum abschluss zu bringen:

Ich habe mich jetzt doch für die alte brachiale Methode ohne I oder D Regler entschieden. Es läuft schon nicht schlecht! Falls jemand noch nen Bascom code braucht, für ne Spannungsquelle bzw. Konstantstromquelle, bitte sehr:

Code:
Dim W As Word
Dim Spannung As Single
Dim Strom As Single
Dim A As Word
Dim Sollspannung As Single
Dim Sollstrom As Single



Cls

Start Adc
A = 0

Sollspannung = 0.0
Sollstrom = 0.10

Do
   Locate 1 , 1
   Lcd Fusing(spannung , "#.##")

   Locate 2 , 1
   Lcd Fusing(strom , "#.###")

   W = Getadc(0)
   Spannung = W / 1023
   Spannung = Spannung * 50

   W = Getadc(1)
   Strom = W / 1023
   Strom = Strom * 5

   If Sollspannung <> 0 Then
      If Spannung < Sollspannung Then
         If A < 1023 Then
            A = A + 1
         End If
      End If
      If Spannung > Sollspannung Then
         If A > 0 Then
            A = A - 1
         End If
      End If
   End If

   If Sollstrom <> 0 Then
      If Strom < Sollstrom Then
         If A < 1023 Then
            A = A + 1
         End If
      End If
      If Strom > Sollstrom Then
         If A > 0 Then
            A = A - 1
         End If
      End If
   End If


   Pwm1a = 1023 - A
   Pwm1b = A

   Waitms 50
Loop