Berechnungen zum Spannungsregler LM317T, TOOLS

[markus5766h]

Zum gängigen Spannungsregler LM317T
hier ein Programm zur Berechnung des
Widerstandes zur Spannungseinstellung
und Temperaturberechnung.
Die rechte Seite erhält in den nächsten Tagen
noch die Berechnungen, um den LM317T auch
als Stromquelle zu nutzen.

Ausgiebige Fehlersuche ist erbeten.

. . . hab' gerade am Screenshot gesehen, dass die Einheiten
bei der Temperaturberechnung verschoben sind - wird beim
nächsten Upload aktualisiert.

. . . hab' noch ein Vitrohmeter rangehangen.

25.12.2012 --> um Einschaltverzögerung mit NE555 erweitert,
weitere Anwendungen mit NE555 folgen
25.12.2012 --> Multivibratorberechnungen mit NE555
Seite "317" (LM317) mit Druckfunktion versehen
26.12.2012 --> kleine Änderungen, siehe Post #25
27.12.2012 --> Formular-Farbe beim Drucken in clWhite geändert
Komparatoren hinzugefügt
22.09.2013 --> Komparator mit LDR (Beleuchtungssteuerung / Dämmerungsschalter) hinzugefügt

[Helmi]

so ist es besser

bei deinem Info-Text zur Lüftersteuerung sind manchmal 2 Leerzeichen hintereinander und Regelung im letzten Satz ist klein geschrieben
aber das ist jetzt schon etwas kleinlich von mir

[markus5766h]

Zitat von Helmi:

so ist es besser

bei deinem Info-Text zur Lüftersteuerung sind manchmal 2 Leerzeichen hintereinander und Regelung im letzten Satz ist klein geschrieben
aber das ist jetzt schon etwas kleinlich von mir

. . . auch o.k., manchmal ist das ja die Geschichte mit dem Wald und den Bäumen . . .,
manchmal liegt's aber auch nur an den zu großen Fingern
(oder ist die Tastatur zu klein ?)

korrigierte Fassung dann beim nächsten Upload.

[markus5766h]

Änderung : beim Druck wird die Formularfarbe von
clBtnFace auf clWhite geändert.
Gedruckt wird eine kopierte Bitmap.

[Helmi]

Ich find die Ausdrucke etwas unscharf
(hab aber nur als PDF gedruckt)

Aber bei dem NE555 solltest dich jetzt entscheiden, entweder NE555 oder NE 555 - also mit oder ohne Leerzeichen
(siehe Überschrift und Form-Caption)

[markus5766h]

. . . hab's in NE555 geändert.

Die Ausdrucke sind wirklich etwas unscharf
- ist für mich aber im Moment noch akzeptabel.

Code:

function PrintForm(L, T, W, H : Integer; Form : TForm; ScaleFH, ScaleFV, marginLeft, marginTop : Integer) : Boolean;
var
  Bmp            : TBitmap;
  ScaleH, ScaleV : Double;
begin
  try
    Printer.Orientation := poLandscape;
    Bmp := TBitmap.Create;
    Bmp.Width  := W;
    Bmp.Height := H;
    Bmp.Canvas.copyrect(Bmp.Canvas.Cliprect, Form.Canvas, Rect(L, T, L + Bmp.Width, T + Bmp.Height));
    ScaleH := GetDeviceCaps(Printer.Handle, logPixelsX) / ScaleFH;
    ScaleV := GetDeviceCaps(Printer.Handle, logPixelsY) / ScaleFV;

    Printer.BeginDoc;
    Printer.Canvas.StretchDraw(Rect(marginLeft, marginTop, marginLeft +
                               Round(Bmp.Width * ScaleH), marginTop +
                               Round(Bmp.Height * ScaleV)), Bmp);
    Printer.EndDoc;
  finally
    Bmp.free;
  end;
end;

mal sehen, ob ich noch 'was verbessern kann . . .

[markus5766h]

OP-Amp's als Komparator hinzugefügt.
Die Druckfunktion wurde überarbeitet.

[markus5766h]

Dämmerungsschalter (Komparator mit LDR) hinzugefügt.