PfannkuPlus - Mein erstes Programm

[nezumi]

Beim Pfannkuchen backen hat man ja bekanntlich immer das Problem, dass man einerseits nicht die ganze Zeit in der Küche stehen will, sich aber andererseits auf nix anderes konzentrieren kann, weil sonst die Pfannkuchen anbrennen.

Dieses Dilemma war Ausgangspunkt für die Entwicklung des ersten vollautomatischen Pfannkuchen Bäckers

PfannkuPlus

Das Programm benachrichtigt einen, sobald eine Seite fertig gebacken ist und berücksichtigt dabei sogar, dass - wie jedes Kind weiß - die Vorderseite länger backen muss als die Rückseite. Das ist weltweit einmalig!

Zu Demonstrationszwecken sind die Zeiten extrem kurz eingestellt. Vor der ersten Verwendung empfehle ich, diese zu ändern. Ganz gut fährt man mit den Standardeinstellungen, die ich nach zahlreichen Feldversuchen an der Pfannkuchenfront ermittelt habe. ("Backzeiten" \ "Eigene Zeiten" \ "Standardeinstellung").

Bitte nicht böse sein, wenn das Programm zu poplig ist um hier eingestellt zu werden, es ist mein erstes richtiges "Projekt"

[MisterNiceGuy]

Verdammt jetzt wollte ich grad schon die Vollversion bestellen, aber es geht nicht!! :mrgreen:
Das Programm ist sauber programmiert wie es aussieht, aber ich hab meinen Rechner leider net am Herd und alle 20 Sekunden hin und her laufen ist nicht so mein Ding. Obwohl ich davon sicherlich mehr Hunger bekommen würde ;)

[Goldesel]

Zitat:

Bitte nicht böse sein, wenn das Programm zu poplig ist um hier eingestellt zu werden, es ist mein erstes richtiges "Projekt"

Also ich glaube kaum, dass dir hier jemand "böse" wegen eines Programms sein sollte. ;-)

Noch einen ganz banalen Vorschlag. zielt rein auf die Optik. Das Infofenster hätte ich auf nicht auf Sizeable gesetzt und den Maximiern- Button deaktiviert. Sonst aber: Gute Idee!!! Vor allem für Notebookbesitzer :thumb:

[Klaus01]

nettes Programm, wäre schön wenn es es als embedded Version für den Herd geben würde.

Grüße
Klaus

[nezumi]

He, he, danke für Eure Anmerkungen.

@ Goldesel
wie deaktiviert man den Maximiern- Button? Das will ich in der Tat.

PS: Besonders stolz bin ich auf das icon. Zieht das Prog mal auf den Desktop. Vielleicht bin ich kindisch, aber ich hab mich gekringelt...

[xZise]

Genial! Besonders die Wackelfunktion!
Wie hast du das gecoded?

[edit]Im OI müsste es BorderIcons geben! Das dann auf [biSystemMenu,biMinimize] setzen!
Und Sizeble ist bei Borderstyle![/edit]

[Goldesel]

Einfach im Objektinspektor unter BorderIcons "biMaximize" auf "false" setzen!

[nezumi]

@ Goldesel
alles klar, danke.

@ xZise
Timer der die Scrollbar antreibt und bei jeder Änderung der Scrollbar-Position das Fenster ein bißchen anders positioniert. Ziemlich diletantisch wahrscheinlich, aber für mehr reichts noch nicht...

[toredo]

hay,

kannst du mri bitte sagen wie man so ein wackeln und das leuten hinkriegt?
:) das programm ist auf jeden fall nen download wert, obwohl bei mir der pc weit entfernt von dem herd ist^^
aber ist recht gut gemacht.





mfG toredo

[Khabarakh]

Seit wann sind 20 Sekunden 0,20 Minuten :stupid: ?

@toredo: Schau mal einen Beitrag über deinen :zwinker: . Das Läuten ist wahrscheinlich einfach eine Wav-Datei.

[nezumi]

Hallo Toredo,

das Wackeln hab ich mit einem Timer und einer Scrollbar gemacht (Timer sehr kurze Intervalle, z.B. 8 ms, Scrollbar Visible auf false setzen):

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Scrollbar2.Position := Scrollbar2.Position +1;
end;

procedure TForm1.ScrollBar2Change(Sender: TObject);
begin

Case Scrollbar2.Position of
1:
begin
Form1.Top := Form1.Top +1;       
Form1.Left := Form1.Left -1;     
end;
2:
begin
Form1.Top := Form1.Top -1;       
Form1.Left := Form1.Left -1;     
end;
3:
begin
Form1.Top := Form1.Top -1;       
Form1.Left := Form1.Left +2;     
end;
4:
begin
Form1.Top := Form1.Top +1;       
Form1.Left := Form1.Left +2;     
end;
 //usw., ca 30 mal
end;

Für das Klingeln hab ich mir einfach einen Klingelton im .wav Format gesucht und in die .exe eingebunden. Wenn Du nicht weißt wie das geht, ich hab mir hierzu mal eine kleine Anleitung geschrieben, die ich anhänge.

Gruß,
nezumi

[Matze]

Hallo,

nettes Tool und sehr interessant, auf was für Gedanken manche kommen (das mit der versteckten Scrollbar, schon faszinierend, wenn auch sehr schlecht gelöst). ;)

Du wirst dich mit der Rekursion noch nicht beschäftigt haben (Funktion/Prozedur, die sich selbst aufruft), doch damit kann man das sehr schön lösen. In den Stack (so eine Art Zwischenspeicher), werden die Werte für die Formularposition geschrieben und am Ende wieder rückwärts abgearbeitet, womit das Formular am Ende wieder vollautomatisch in die Ursprungsposition zurück gelangt.

Falls es dich interessiert, das kann man so lösen (ganz ohne Timer):

Delphi-Quellcode:

// Ersatz für sleep(), nur dass die Anwendung nicht einfriert
// Code ist aus der Code-Library
procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Exit;
      Milliseconds := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;

// eigentliche rekursive Prozedur
procedure MoveForm(FLeft, FTop, Count: Integer);
begin
  if Count > 0 then
  begin
    // "Random(9) - 4" erzeugt einen Zufallswert zwischen -4 und 4
    MoveForm(
      Form1.Left + Random(9) - 4,
      Form1.Top + Random(9) - 4,
      Count - 1);
  end;

  Form1.Left := FLeft;
  Form1.Top := FTop;
  Delay(50);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MoveForm(Left, Top, 20);
end;

Die Prozedur Delay ist, wie im Kommentar erwähnt, dazu da, um die Funktion Sleep zu ersetzen, da Sleep die ganze Anwendung einfriert. Delay pausiert den Programmablauf (hier für 50 Millisekunden). Die "Rüttelprozedur" ist die zweite. Du siehst, das ist richtig schön kurz und sauber gelöst. :) Im OnCreate der Form kannst du auch "Randomize" aufrufen, damit das Rütteln nicht immer das gleiche ist, doch ist dies in dem Falle ja eigentlich egal. ;) Mit dem 3. Parameter (Count) kannst du die Dauer des Rüttelns festlegen.

Falls du verständnisfragen dazu hast, kannst du sie gerne stellen. Mit versteckten Komponenten zu "spielen" ist nicht schön.

[toredo]

thx für den wackel/ring-code, ich hab endlich geschafft diese beiden funktionen zu benutzen.
thx



mfG toredo

[Mackhack]

Colle ausgefallene Idee,

ihr glaubt gar net dass in praktisch jedem Haushalt hier in USA der PC in der Kueche steht... :???:

[3_of_8]

Wird ein Pfannkuchen gekocht? (is being cooked)
Wohl eher gebacken. (is being baken)

Könnte mich auch irren...

Und: front side und back side wird auseinander geschrieben.

[nezumi]

@ Mackhack

Danke für den Hinweis. Werde mein Vertriebsnetz in den Staaten umgehend ausbauen. Wusste doch, dass ich eine Marktlücke gefunden habe... :lol:

@ 3_of_8

Kam mir auch komisch vor. Aber jemand der sich rühmt, der englischen Sprache mächtig zu sein, meinte, bei Pfannkuchen heiße es "cook". Hab ich dann einfach mal geglaubt...

[s.h.a.r.k]

Hey.

Ich mag ja wirklich nicht meckern, aber ein Bild wäre eventuell nicht ganz schlecht. Dann weiß ich auch wirklich ob es für mich in Frage kommt und ob ich es testen will.

Bin irgendwie der Meinung, dass das sehr viel in letzter Zeit vergessen!

mfg shark

[pacman1986]

Inovatives eigenständiges denken :thumb:
Ich werd das nächste mal beim pfannkuchen backen dein prog testen :D

[OregonGhost]

Zitat:

Kam mir auch komisch vor. Aber jemand der sich rühmt, der englischen Sprache mächtig zu sein, meinte, bei Pfannkuchen heiße es "cook". Hab ich dann einfach mal geglaubt...

Im englischsprachigen Wikipedia unter pancake steht auch überall was von cooking. Backen ist doch wohl was im Ofen und nicht in der Pfanne :)

Ansonsten, tolles Programm, wenn mein WLAN bis in die Küche reichen würde, hätte ich meinen Laptop bestimmt öfter dort stehen, aber du gibst mir ja nen Grund :mrgreen:

[INA]

@3_of_8 and @nezumi

Pancakes werden definitiv nicht "baked" - "to bake" involviert, dass man etwas in einen heissen Ofen befoerdert.

Pancakes werden "cooked" oder allenfalls noch "made".

Statt "frone side" und "back side" ginge auch "top side" und "reverse side". Oder einfach "first and second side". :warn:

Aber cooles Programm!!Setzt allerdings eine ziemlich gleichbleibend heisse Pfanne und definierte Teigmenge/Backvorgang voraus.... :gruebel:

[Nicodius]

ich hab mitten beim backen die sprache umgestellt


siehe anhang ;) (da steht hintr dem button plötzlich was ;) )


sonst super :thumb:

[R2D2]

@Nicodius
Was ist denn das für ein Design?

Kann man sich das Downloaden?

[kabuco]

Hallo

Echt cooles Programm! Obwohl ich doch denke das nicht jeder seinen Laptop mit rumschleppen will! Aber sonst ein super Programm und auch sauber geproggt, da kann man nicht meckern.

Gruß kabuco

[Nicodius]

ok halt einmal offtopic was solls :

mit der trial version von WindowBlinds
kannst 60 tage lang super tolle designs verwenden


ansonsten - stylpeXP bietet sehr viele möglichkeiten :)

grüße Nico

[nezumi]

Zitat:

Zitat von Nicodius

ich hab mitten beim backen die sprache umgestellt


siehe anhang ;) (da steht hintr dem button plötzlich was ;) )


sonst super :thumb:

Muss an dem geänderten Design liegen. In der Originalversion ist das nicht so. Und nur dafür übernehm ich die Gewähr (wenn überhaupt...) :roteyes: .

[Nicodius]

:mrgreen: ok sry :wall:

[xZise]

Vielleicht hilft euch LEO weiter?

[3_of_8]

Berechne einfach mit Hilfe der Heizleistung des Herdes und der Wärmekapazität der Pfanne (beide können eingegeben werden) und eines vom Benutzer zu spezifizierenden Bräunungsgrades die optimale Koch/Backzeit (wie das jetzt auch immer heißt) auf die Millisekunde genau.