private void btn_ShowPumpCurve_Click(object sender, EventArgs e)
{
if (m_ChartView == null || !m_ChartView.Visible)
{
m_ChartView = new ChartView("Anzeige Pumpenkennlinie");
}
m_ChartView.AddCurve(m_Controller.Pump.ModellName, m_Controller.Pump.GetPerformanceFlowValues(), m_Controller.Pump.GetPerformanceHeadValues());
m_ChartView.Show();
}
private void btn_ShowPumpCurve_Click(object sender, EventArgs e)
{
if (m_ChartView == null || !m_ChartView.Visible)
{
m_ChartView = new ChartView("Anzeige Pumpenkennlinie");
}
int?rpm = null;
var pumpName = m_Controller.Pump.ModellName;
if (m_Controller.Pump.IsVarioPump)
{
rpm = tb_Rpm.Value;
pumpName = pumpName + $" ({rpm} min^-1)";
var performanceRange = m_Controller.Pump.GetPerformanceRange();
m_ChartView.AddRange(m_Controller.Pump.ModellName, performanceRange.Item1, performanceRange.Item2);
}
m_ChartView.AddCurve(pumpName, m_Controller.Pump.GetPerformanceFlowValues(rpm), m_Controller.Pump.GetPerformanceHeadValues(rpm));
m_ChartView.Show();
}
public void GeneratePdfReport(string path, double poolVolume, double filterDiameter)
{
var chartView = new ChartView("");
chartView.AddCurve(Pump.ModellName, Pump.GetPerformanceFlowValues(), Pump.GetPerformanceHeadValues());
chartView.PowerPoint = new Tuple <double, double>(SystemFlowRate, SystemHead);
var pklImage = chartView.GetChartImage();
var filterArea = Math.PI * Math.Pow(filterDiameter, 2) / 400;
// Create a new PDF document
var document = new PdfDocument();
document.Info.CreationDate = DateTime.Now;
document.Info.Creator = GetTitle();
if (!CurrentPresets.DisableUserName)
{
document.Info.Author = CurrentPresets.UserName;
}
document.Info.Title = "FlowCalc Report";
document.Info.Keywords = "FlowCalc Pumpenkennlinie Volumenstrom Filtergeschwindigkeit";
document.Info.Subject = $"{Pump.ModellName} @ {SystemHead.ToString("f2")} mWS";
document.PageLayout = PdfPageLayout.SinglePage;
var pageA4 = new PdfPage();
pageA4.Width = new XUnit(210, XGraphicsUnit.Millimeter);
pageA4.Height = new XUnit(297, XGraphicsUnit.Millimeter);
pageA4.Orientation = PdfSharp.PageOrientation.Portrait;
// Create an empty page
var page = document.AddPage(pageA4);
// Get an XGraphics object for drawing
var gfx = XGraphics.FromPdfPage(page);
var font = new XFont("Barlow", 11, XFontStyle.Regular);
#region Frame
var framePen = new XPen(XColors.Black, 0.7);
var s = new XPoint(new XUnit(5, XGraphicsUnit.Millimeter), new XUnit(5, XGraphicsUnit.Millimeter));
//background
var headerLeft = new XRect(s, new XPoint(new XUnit(210 / 2, XGraphicsUnit.Millimeter), new XUnit(30, XGraphicsUnit.Millimeter)));
var headerBrushLeft = new XLinearGradientBrush(
new XPoint(new XUnit(5, XGraphicsUnit.Millimeter), new XUnit(5, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(210 / 2, XGraphicsUnit.Millimeter), new XUnit(5, XGraphicsUnit.Millimeter)),
XColor.FromArgb(0xff, 0x2e, 0x64),
XColor.FromArgb(0xe1, 0x00, 0x72)
);
var headerRight = new XRect(
new XPoint(new XUnit(210 / 2, XGraphicsUnit.Millimeter), new XUnit(5, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(30, XGraphicsUnit.Millimeter))
);
var headerBrushRight = new XLinearGradientBrush(
new XPoint(new XUnit(210 / 2, XGraphicsUnit.Millimeter), new XUnit(5, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(5, XGraphicsUnit.Millimeter)),
XColor.FromArgb(0xe1, 0x00, 0x72),
XColor.FromArgb(0xfa, 0x00, 0x41)
);
gfx.DrawRectangle(headerBrushLeft, headerLeft);
gfx.DrawRectangle(headerBrushRight, headerRight);
var footer = new XRect(
new XPoint(new XUnit(5, XGraphicsUnit.Millimeter), new XUnit(276, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(292, XGraphicsUnit.Millimeter))
);
var footerBrush = new XSolidBrush(XColor.FromArgb(0xf7, 0xf8, 0xf9));
gfx.DrawRectangle(footerBrush, footer);
var outerFrame = new XRect(s, new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(292, XGraphicsUnit.Millimeter)));
gfx.DrawRectangle(framePen, outerFrame);
gfx.DrawLine(framePen,
new XPoint(new XUnit(5, XGraphicsUnit.Millimeter), new XUnit(30, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(30, XGraphicsUnit.Millimeter)));
gfx.DrawString("FlowCalc Report", new XFont("Barlow", 32, XFontStyle.Bold), XBrushes.White,
new XRect(s, new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(30, XGraphicsUnit.Millimeter))),
XStringFormats.Center);
int footerCol = 62;
gfx.DrawLine(framePen,
new XPoint(new XUnit(5, XGraphicsUnit.Millimeter), new XUnit(276, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(276, XGraphicsUnit.Millimeter)));
gfx.DrawLine(framePen,
new XPoint(new XUnit(footerCol, XGraphicsUnit.Millimeter), new XUnit(276, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(footerCol, XGraphicsUnit.Millimeter), new XUnit(292, XGraphicsUnit.Millimeter)));
gfx.DrawLine(framePen,
new XPoint(new XUnit(210 - footerCol, XGraphicsUnit.Millimeter), new XUnit(276, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(210 - footerCol, XGraphicsUnit.Millimeter), new XUnit(292, XGraphicsUnit.Millimeter)));
var footerTextBrush = new XSolidBrush(XColor.FromArgb(0x18, 0x19, 0x37));
var footerArea1 = new XRect(
new XPoint(new XUnit(5, XGraphicsUnit.Millimeter), new XUnit(278, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(footerCol, XGraphicsUnit.Millimeter), new XUnit(284, XGraphicsUnit.Millimeter)));
page.AddWebLink(new PdfRectangle(footerArea1), @"http://www.100prznt.de/");
gfx.DrawString("www.100prznt.de", font, footerTextBrush,
footerArea1,
XStringFormats.Center);
gfx.DrawString("Elias Ruemmler", font, footerTextBrush,
new XRect(
new XPoint(new XUnit(5, XGraphicsUnit.Millimeter), new XUnit(284, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(footerCol, XGraphicsUnit.Millimeter), new XUnit(290, XGraphicsUnit.Millimeter))),
XStringFormats.Center);
gfx.DrawString(GetTitle(), new XFont("Barlow", 16, XFontStyle.Bold), footerTextBrush,
new XRect(
new XPoint(new XUnit(footerCol, XGraphicsUnit.Millimeter), new XUnit(277, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(210 - footerCol, XGraphicsUnit.Millimeter), new XUnit(284, XGraphicsUnit.Millimeter))),
XStringFormats.Center);
var footerArea4 = new XRect(
new XPoint(new XUnit(footerCol, XGraphicsUnit.Millimeter), new XUnit(284, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(210 - footerCol, XGraphicsUnit.Millimeter), new XUnit(291, XGraphicsUnit.Millimeter)));
page.AddWebLink(new PdfRectangle(footerArea4), @"http://www.github.com/100prznt/Flowcalc");
gfx.DrawString("www.github.com/100prznt/FlowCalc", font, footerTextBrush,
footerArea4,
XStringFormats.Center);
if (CurrentPresets.DisableUserName)
{
gfx.DrawString(DateTime.Now.ToString(), font, footerTextBrush,
new XRect(
new XPoint(new XUnit(210 - footerCol, XGraphicsUnit.Millimeter), new XUnit(276, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(292, XGraphicsUnit.Millimeter))),
XStringFormats.Center);
}
else
{
gfx.DrawString(DateTime.Now.ToString(), font, footerTextBrush,
new XRect(
new XPoint(new XUnit(210 - footerCol, XGraphicsUnit.Millimeter), new XUnit(278, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(284, XGraphicsUnit.Millimeter))),
XStringFormats.Center);
gfx.DrawString(CurrentPresets.UserName, font, footerTextBrush,
new XRect(
new XPoint(new XUnit(210 - footerCol, XGraphicsUnit.Millimeter), new XUnit(284, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(205, XGraphicsUnit.Millimeter), new XUnit(290, XGraphicsUnit.Millimeter))),
XStringFormats.Center);
}
#endregion Frame
var p = new XFont("Barlow", 10.5, XFontStyle.Regular);
var h2 = new XFont("Barlow", 17, XFontStyle.Bold);
var h3 = new XFont("Barlow", 13, XFontStyle.Bold);
var p3 = new XFont("Barlow", 13, XFontStyle.Regular);
var t1 = new XUnit(10, XGraphicsUnit.Millimeter);
var t2 = new XUnit(13, XGraphicsUnit.Millimeter);
var t3 = new XUnit(20, XGraphicsUnit.Millimeter);
var t10 = new XUnit(72, XGraphicsUnit.Millimeter);
var t16 = new XUnit(140, XGraphicsUnit.Millimeter);
int yLineH3 = 7;
int yOffsH3 = -1;
int yBd = 40;
gfx.DrawString("System", h2, XBrushes.Black, new XPoint(t1, new XUnit(yBd + yOffsH3, XGraphicsUnit.Millimeter)));
gfx.DrawString("Pumpe:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yBd + yLineH3, XGraphicsUnit.Millimeter)));
gfx.DrawString("Filterkessel Durchmesser:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yBd + yLineH3 * 2, XGraphicsUnit.Millimeter)));
gfx.DrawString("Poolvolumen:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yBd + yLineH3 * 3, XGraphicsUnit.Millimeter)));
gfx.DrawString("Saugseitige Rohrleitung:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yBd + yLineH3 * 4, XGraphicsUnit.Millimeter)));
gfx.DrawString("Systemdruck (Filterkessel):", p3, XBrushes.Black, new XPoint(t2, new XUnit(yBd + yLineH3 * 5, XGraphicsUnit.Millimeter)));
if (string.IsNullOrEmpty(Pump.Manufacturer))
{
gfx.DrawString($"{Pump.ModellName}", h3, XBrushes.Black, new XPoint(t10, new XUnit(yBd + yLineH3, XGraphicsUnit.Millimeter)));
}
else
{
gfx.DrawString($"{Pump.ModellName} ({Pump.Manufacturer})", h3, XBrushes.Black, new XPoint(t10, new XUnit(yBd + yLineH3, XGraphicsUnit.Millimeter)));
}
gfx.DrawString(filterDiameter.ToString("f0") + " mm (A = " + filterArea.ToString("f1") + " cm²)", h3, XBrushes.Black, new XPoint(t10, new XUnit(yBd + yLineH3 * 2, XGraphicsUnit.Millimeter)));
gfx.DrawString(poolVolume.ToString("f1") + " m³", h3, XBrushes.Black, new XPoint(t10, new XUnit(yBd + yLineH3 * 3, XGraphicsUnit.Millimeter)));
if (SuctionPipe != null)
{
gfx.DrawString(SuctionPipe.ToString(), h3, XBrushes.Black, new XPoint(t10, new XUnit(yBd + yLineH3 * 4, XGraphicsUnit.Millimeter)));
}
else
{
gfx.DrawString("nicht angegeben", p3, XBrushes.Black, new XPoint(t10, new XUnit(yBd + yLineH3 * 4, XGraphicsUnit.Millimeter)));
}
gfx.DrawString(FilterPressure.ToString("f2") + " bar", h3, XBrushes.Black, new XPoint(t10, new XUnit(yBd + yLineH3 * 5, XGraphicsUnit.Millimeter)));
int yCalc = 89;
gfx.DrawString("Berechnung", h2, XBrushes.Black, new XPoint(t1, new XUnit(yCalc + yOffsH3, XGraphicsUnit.Millimeter)));
gfx.DrawString("Pumpenvordruck:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yCalc + yLineH3, XGraphicsUnit.Millimeter)));
gfx.DrawString("Förderhöhe:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yCalc + yLineH3 * 2, XGraphicsUnit.Millimeter)));
gfx.DrawString("Volumenstrom:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yCalc + yLineH3 * 3, XGraphicsUnit.Millimeter)));
gfx.DrawString("Arbeitspunkt auf Pumpenkennlinie", p3, XBrushes.Black, new XPoint(t2, new XUnit(yCalc + yLineH3 * 4, XGraphicsUnit.Millimeter)));
if (SuctionPipe != null)
{
gfx.DrawString(SuctionPressureDrop.ToString("f3") + " bar", h3, XBrushes.Black, new XPoint(t10, new XUnit(yCalc + yLineH3, XGraphicsUnit.Millimeter)));
}
else
{
gfx.DrawString("0 bar (nicht berechnet)", p3, XBrushes.Black, new XPoint(t10, new XUnit(yCalc + yLineH3, XGraphicsUnit.Millimeter)));
}
gfx.DrawString($"{SystemHead.ToString("f2")} mWS ({SystemPressure.ToString("f3")} bar)", h3, XBrushes.Black, new XPoint(t10, new XUnit(yCalc + yLineH3 * 2, XGraphicsUnit.Millimeter)));
gfx.DrawString(SystemFlowRate.ToString("f2") + " m³/h", h3, XBrushes.Black, new XPoint(t10, new XUnit(yCalc + yLineH3 * 3, XGraphicsUnit.Millimeter)));
var stream = new System.IO.MemoryStream();
pklImage.Save(stream, System.Drawing.Imaging.ImageFormat.Png);
stream.Position = 0;
var pkl = XImage.FromStream(stream);
var imageFrame = new XRect(
new XPoint(t3, new XUnit(yCalc + 32, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(180, XGraphicsUnit.Millimeter), new XUnit(yCalc + 127, XGraphicsUnit.Millimeter)));
gfx.DrawImage(pkl, imageFrame);
var filter = new Pipe(1, filterDiameter, 0.01);
var filterSpeed = filter.CalcFlowVelocity(SystemFlowRate) * 3600;
var filterSpeedBrush = XBrushes.Green;
if (filterSpeed > 60 || filterSpeed < 40)
{
filterSpeedBrush = XBrushes.Red;
}
else if (filterSpeed > 55 || filterSpeed < 45)
{
filterSpeedBrush = XBrushes.Orange;
}
var tCycle1 = TimeSpan.FromHours(poolVolume / SystemFlowRate);
var tCycle3 = TimeSpan.FromHours(poolVolume / SystemFlowRate * 3);
int yRes = 225;
gfx.DrawString("Auswertung", h2, XBrushes.Black, new XPoint(t1, new XUnit(yRes + yOffsH3, XGraphicsUnit.Millimeter)));
gfx.DrawString("Umwälzzeiten", p3, XBrushes.Black, new XPoint(t2, new XUnit(yRes + yLineH3, XGraphicsUnit.Millimeter)));
gfx.DrawString("1-fach:", p3, XBrushes.Black, new XPoint(t10 - 50, new XUnit(yRes + yLineH3, XGraphicsUnit.Millimeter)));
gfx.DrawString("3-fach:", p3, XBrushes.Black, new XPoint(t10 - 50, new XUnit(yRes + yLineH3 * 2, XGraphicsUnit.Millimeter)));
gfx.DrawString("Filtergeschwindigkeit:", p3, XBrushes.Black, new XPoint(t2, new XUnit(yRes + yLineH3 * 3, XGraphicsUnit.Millimeter)));
if (tCycle1.TotalHours > 24)
{
gfx.DrawString($"> 24 Stunden", h3, XBrushes.Red, new XPoint(t10, new XUnit(yRes + yLineH3, XGraphicsUnit.Millimeter)));
}
else
{
gfx.DrawString($"{tCycle1.Hours} Stunden {tCycle1.Minutes} Minuten", h3, XBrushes.Black, new XPoint(t10, new XUnit(yRes + yLineH3, XGraphicsUnit.Millimeter)));
if (Pump.PowerInput > 0)
{
gfx.DrawString($"({(tCycle1.TotalHours * Pump.PowerInput).ToString("f1")} kWh)", h3, XBrushes.Black, new XPoint(t16, new XUnit(yRes + yLineH3, XGraphicsUnit.Millimeter)));
}
}
if (tCycle3.TotalHours > 24)
{
gfx.DrawString($"> 24 Stunden", h3, XBrushes.Red, new XPoint(t10, new XUnit(yRes + yLineH3 * 2, XGraphicsUnit.Millimeter)));
}
else
{
gfx.DrawString($"{tCycle3.Hours} Stunden {tCycle3.Minutes} Minuten", h3, XBrushes.Black, new XPoint(t10, new XUnit(yRes + yLineH3 * 2, XGraphicsUnit.Millimeter)));
if (Pump.PowerInput > 0)
{
gfx.DrawString($"({(tCycle3.TotalHours * Pump.PowerInput).ToString("f1")} kWh)", h3, XBrushes.Black, new XPoint(t16, new XUnit(yRes + yLineH3 * 2, XGraphicsUnit.Millimeter)));
}
}
gfx.DrawString(filterSpeed.ToString("f2") + " m/h", h3, filterSpeedBrush, new XPoint(t10, new XUnit(yRes + yLineH3 * 3, XGraphicsUnit.Millimeter)));
var tf = new XTextFormatter(gfx);
tf.DrawString("Im privaten Poolbereich sollte die Filtergeschwindigkeit nicht über 50 m/h betragen.\r\n" +
"Mit einer langsameren Filtergeschwindigkeit von rund 30 m/h würde das Ergebnis der Filtration zwar verbessert werden. " +
"Jedoch sind für Rückspülung (Reinigung des Filters) Spülgeschwindigkeiten von 50-60 m/h erforderlich. Da die Filterpumpe " +
"in privaten Pool für Filtration und Rückspülung ausgelegt wird, wählt man als Kompromiss eine Filtergeschwindigkeit um 50 m/h.",
p, XBrushes.Black,
new XRect(
new XPoint(t2, new XUnit(yRes + yLineH3 * 4 - 4, XGraphicsUnit.Millimeter)),
new XPoint(new XUnit(200, XGraphicsUnit.Millimeter), new XUnit(276, XGraphicsUnit.Millimeter))),
XStringFormats.TopLeft);
// Save the document
document.Save(path);
// Start a viewer.
Process.Start(path);
}