Berechnungen zum Spannungsregler LM317T, TOOLS

[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:

Zitat von Helmi (Beitrag 1196765)

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.