Erstellt am 23.02.2005 - 18:22

Ich setz noch eine interessante Funktion drauf

Manchmal misst man den Säuregehalt in einem kleinen Volumen, z.B. wenn man eine Maischegärung abpresst und sagen wir 18 l statt 20 hat. Wir schauen dann meist erst einmal nach dem Säurewert, zücken den Taschenrechner und rechnen es auf 20 l um, eh wir Wasser zugeben. Wäre doch schön, wenn das Programm uns diese Arbeit auch abnehmem würde

Wir haben mal beim natürtrüben A-Saft von Aldi-Süd 4,5 g/l Säure gemessen. Laut dem Buch "Inhaltsstoffe von Obst und Gemüse" kann der Säuregehalt von Äpfeln zwischen etwa 300 und 1600 mg/100 g essbaren Anteil schwanken, abhängig von der Apfelsorte, aber auch mit riesigen Schwankungen bei verschiedenen Chargen innerhalb einer Apfelsorte. Wir hatten letztlich einen Wein auf Basis eines Apfelsaft aus alten, sauren Apfelsorten hergestellt, der einen Säuregehalt von über 9 g/l hatte. Das war doch etwas viel...

Erstellt am 23.02.2005 - 20:33

Hallo Andreas,

das war es was ich mit Ansatzmenge meinte. Im Prinzip kann der Acid - Rechner (tschuldigung - habe jetzt gerade nicht die genaue Bezeichnung im Kopf) das bereits. Aber man muß halt noch ein wenig herumexperimentieren.

Wenn man statt des Apfelsafts einfach die Ansatzmenge nimmt und den ermittelten Wert für die Säure einträgt, so kann man durch Ausprobieren herausfingen, wieviel Säure man noch zufügen muß um den gewünschten Säurewert zu erhalten.

Anders wär´s halt geschmeidiger. Und ich denke mal, daß kriegen die beiden locker hin. Die Hauptarbeit haben Sie ja schon geleistet.

Merlin

Erstellt am 24.02.2005 - 02:59

@Andreas :D
Bitte überfordere uns erstmal nicht
Ne scherz... wird bestimmt demnächst kommen!

Und danke für das Messen auch an Birgit
4,5 Liter is ja viel hätte ich nicht gedacht

@Alle
Es ist vollbracht

Habe eine neue Version von unserem kleinen Programm online gestellt.
Damit ist es jetzt möglich den Säure gehalt zu errechnen wenn man den ganzen Wein um so und so viel gramm erhöhen will...

Das war echt ne reltiv harte nuss das der rechner bei 35 ml milchsäure stopp macht und mit der zitronensäure weiterrechnet!

Im kopf einfach jo aber im computer ^^
...schon schwerer...

nun ja fertig isses und wenn einer ein fehler findet bitte bescheid sagen.
kann gut möglich sein da da fehler drin sind habe nach 2 stunden programmieren nen gut rauchenden kopf und die schnau*e voll von zahlen :D

gn8 <-- argh schon wieder ne zahl


Hier noch erneut der link

[Dieser Beitrag wurde am 24.02.2005 - 02:59 von moo aktualisiert]

Erstellt am 24.02.2005 - 05:34

hallo moo,

besteht auch die möglichkeit euren quellcode zu bekommen?

ich arbeite nicht mit windows und daher nutzt mir leider die exe datei nicht viel.

vieleicht kann ich mich ja sogar auf eueren cvs server einklinken und mir dann selbst von zeit zu zeit einen update ziehen.

gruß volker

Erstellt am 24.02.2005 - 18:45

hi...

das programm is in delphi geschrieben... weis ob ob du das complieren kannst :D

ich lass mir das nochmal durch den kopf gehen mit dem quellcode k?
Generell wäre ich nicht abgeneigt dir das du schicken aber ich will halt noch einmal drüber nachdenken

mfg, moo

Erstellt am 24.02.2005 - 19:05

wunderbar, dann warte ich mal auf deine / eure entscheidung. ihr könntet das programm ja z.B. auch unter die GNU General Public License stellen ...

www.gnu.de/gpl-ger.html



delphi selbst ist kein problem, denn mit pascal komme ich auch unter linux gut klar

gruß volker

Erstellt am 24.02.2005 - 19:45

Hallo Volk

so müßte es funktionieren, hab ich alledings noch nicht ausprobiert

In etwa folgendes Formular erstellen. Optische Gestaltung nach Wunsch.

Ansatz Eingabefeld (Liter, auch 0, sind erlaubt
vorhSäure siehe oben
gewSäure siehe oben
Milchsäure
Citronensäure


Das Formular mit folgendem Code hinterlegen

dim nAnsatz as double
dim nvorhSäure as double
dim ngewSäure as double
dim nMilchsäure as double
dim nCitronensäure as double

If not isnull (me!ansatz) or not isnull(me!vorhSäure) or not isnull(me!gewSäure) then
Berechnung nAnsatz, nvorhSäure, ngewSäure, nMilchsäure, nCitronensäure

Me!Milchsäure=nMilchsäure
me!citronensäure=nCitronensäure

Else
Exit sub
End if



Das ganze für die Felder Ansatz, vorhSäure und gewSäure, nicht das eine Berechnung versucht wird ohne Daten

(gewSäure=gewünschte Säure, vorhSäure=vorhandene Säure)
Procedure erstellen

Public sub Berechnung (Ansatz as double,vorhSäure as double, gewSäure as double, Milchsäure as double, Citronensäure as double)

Dim maxMilchsäure as double
Dim Säurejetzt as double
Dim SäureZiel as double
Dim SäureFehlt as double


Maxmilchsäure=Ansatz*3.5
Säurejetzt=vorhSäure*Ansatz
SäureZiel=Ansatz*SäureZiel
SäureFehlt=SäureZiel – SäureJetzt
Milchsäure=Säurefehtl-maxMilchsäure
If milchsäure<0 then
Milchsäure=maxmilchsäure
SäureFehlt=Säurefehlt-Milchsäure
Citronensäure=Säurefehlt
Else
Citronensäure=0
End if
Exit sub



Ein Button Berechnung ist nicht nötig. Jedesmal wenn du die Eingabe mit Return beendest, wird überprüft ob alle drei Notwendigen Felder ein Eingabe enthalten. Falls ja geht die Berechnung los

Viel Erfolg. Vielleicht habe ich heute Abend mal Lust und Zeit und probier´s mal aus.

Merlin

p.s. Ich habe kein Feld Apfelsaft eingefügt, weil mich das nicht so sehr interessiert. Der Säurewert ist unbestimmt. Und letztendlich will ich nur Wissen wieviel Säure muß ich von was dazukippen.

Die Idee so etwas zu programmieren ist hingegen echt klasse. Falls Moo meinen Vorschlag nicht dargestellt haben möchte, so kurze Nachricht an Andreas, damit er ihn wieder löscht.

Erstellt am 24.02.2005 - 20:24

Doch doch... natürlich sind WIR für vorschlage immer offen.

Das mit der Enter taste is natürlich auch ne möglichkeit aber stell dir vor einem geht grade die enter taste kaputt *G*

Naja hab ein kleines grafisches update hinzugefügt und marius hat einen fehler entdeckt!

der hört immer bei 35ml milchsäure auf auch bei 100 liter

Erstellt am 24.02.2005 - 20:34

Wir sind gerade am fehler am basteln

Dazu müssten wir mal wissen, wie ihr am liebsten den säuregehalt nachstellt?

50% der benötigten säure mit Milchsäure und 50% Zitronensäure? oder lieber Mehr Zitronensäure? oder am anfang Lieber erstmal viel Milchsäure bis zu ca 30ml/10l ???

Vielen dank für die hoffentlich schnelle antwort

Erstellt am 24.02.2005 - 20:40

Hallo,

erstmal Milchsäure und dann die Zironensäure dazu.

Gruß Birgit