Hi Leute,
jetzt hab ich endlich mal wieder Zeit bei meinen Projekten weiterzumachen =D>
Hab jetzt grad mal den Teil mit dem LM317 und dem DigiPoti aufgebaut um ihn mal zu testen. Eigendlich klappt es nicht schlecht, aber nur in der unteren Hälfte, sprich bis ca. 5KOhm danach will es nicht mehr so recht hochzählen, es geht nur noch bis ca. 6,5KOhm und nicht höher obwohl das poti 102 Impulse bekommt. bis zum 52ten Impuls klappt alles wunderbar aber dann sind es keine 101Ohm pro Impuls mehr wie es im datenblatt steht.
Hier noch der Programmcode, ich hoff euch fällt was ein was das Problem seinkönnte:
Code:
$regfile = "m32def.dat" 'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
$crystal = 16000000
Baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Config Portc.0 = Output
Config Portc.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
'Fet Alias Portb.0
Updown Alias Portc.1
Increment Alias Portc.0
'Strom Alias Portb.3
Dim Soll As Word
Dim Ist As Word
Dim I As Byte
Soll = 0
Ist = 0
Updown = 0
For I = 0 To 100 'Schleife zum Nullen
Increment = 1
Waitms 2
Increment = 0
Waitms 2
Next I
Do
Soll = Getadc(0)
Soll = Soll / 10.23 'Um 100 werte zu erhalten
Waitms 50
If Ist < Soll Then 'Widerstand erhöhen
Updown = 1
Do
Increment = 1
Waitms 2
Increment = 0
Waitms 2
Incr Ist
Print "Ist=" ; Ist
Print "soll=" ; Soll
Loop Until Ist = Soll
Elseif Soll < Ist Then 'Widerstand verringern
Updown = 0
Do
Increment = 1
Waitms 2
Increment = 0
Waitms 2
Decr Ist
Print "ist=" ; Ist
Print "soll=" ; Soll
Loop Until Ist = Soll
End If
Loop
Lesezeichen