I was kicking around how to easily calculate the wieghts/pressures needed for a given mold size and desired psi.
So I made a couple of tools.
The first is for a Dutch lever press.
Download the attached files or
Copy the stuff between the lines into a notpad on your PC, then save as LeverFromage.hta
Once you've done that double click and the rest is self explanitory.
Let me know if you find any errors
(i have attached the complete files at the bottom)
Thanks
<HTML>
<HEAD>
<TITLE>
Lever Fromage Du Fatman
</TITLE>
<SCRIPT LANGUAGE="vbscript">
OPTION EXPLICIT
Dim dblPrices(2)
dblPrices(0) = 12.56
dblPrices(1) = 28.26
dblPrices(2) = 50.24
Sub cmdCalc_OnClick
Dim intSelected, intSelected1, dblcyl0, dblcyl01
Dim dblTotal, dblcyl, dblcyl1, txtcyl
Dim dblTot, dblTot1, dblTot2, dblTot3
intSelected = frmForm1.cboProducts.SelectedIndex
dblTot = dblPrices(intSelected) * frmForm1.txtQty.Value
dblTot = dblTot
dblTot1 = dblTot * 2
dblTot2 = dblTot * 3
dblTot3 = dblTot * 4
dblcyl0 = CInt(frmForm1.txtwght.Value)
dblcyl01 = CInt(frmForm1.txtPiv.Value)
dblcyl = (dblcyl0 dblcyl01) / dblcyl01
dblcyl1 = dblPrices(intSelected)
frmForm1.txtTotal.Value = " " & dblTot
frmForm1.txtTotal1.Value = " " & dblTot1
frmForm1.txtTotal2.Value = " " & dblTot2
frmForm1.txtTotal3.Value = " " & dblTot3
frmForm1.txtTotal4.Value = " " & dblTot / dblcyl
frmForm1.txtTotal5.Value = " " & (dblTot / dblcyl) * 2
frmForm1.txtTotal6.Value = " " & (dblTot / dblcyl) * 3
frmForm1.txtTotal7.Value = " " & (dblTot / dblcyl) * 4
frmForm1.txtTotal8.Value = " " & dblTot / dblcyl
frmForm1.txtTotal9.Value = " " & dblcyl
End Sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR="white">
<FONT FACE="arial" SIZE=2><B>
<CENTER>
<H3>Mold Pressure Calculator</H3>
<P>
Select the Mold Size you require from the list, then
simply enter the Desired internal mold psi,</P>
and click the Calculate
button to see the LBS of force needed.
</P>
<FORM NAME="frmForm1">
<SELECT NAME="cboProducts">
<OPTION>Mold Size 4"
<OPTION>Mold Size 6"
<OPTION>Mold Size 8"
</SELECT>
Target PSI
<INPUT TYPE="text" NAME="txtQty" SIZE=10>
</P>
Please enter your Measurment from pivot to fulcrum in inches
<INPUT TYPE="text" NAME="txtPiv" SIZE=10 value="1">
</P>
Please enter your Measurment from fulcrum to wieght point in inches
<INPUT TYPE="text" NAME="txtwght" SIZE=10 value="1">
<P>
<INPUT TYPE="button" NAME="cmdCalc" VALUE="Calculate">
<P>
This is the force in pounds needed on your Side by side molds.
</P>
<INPUT TYPE="text" NAME="txtTotal">
Two Molds <INPUT TYPE="text" NAME="txtTotal1">
Three Molds <INPUT TYPE="text" NAME="txtTotal2">
Four Molds <INPUT TYPE="text" NAME="txtTotal3">
</P>
This is the Prdicted necesarry Wieghts in pounds needed on your Lever.
</P><INPUT TYPE="text" NAME="txtTotal4">
Two Molds <INPUT TYPE="text" NAME="txtTotal5">
Three Molds <INPUT TYPE="text" NAME="txtTotal6">
Four Molds <INPUT TYPE="text" NAME="txtTotal7">
</P>
</P>
Amount of simulated wieght. (used for proofing Multiply sim wieght By Advantage Factor)
</P><INPUT TYPE="text" NAME="txtTotal8"> Your Mech Adv Factor <INPUT TYPE="text" NAME="txtTotal9">
</FORM>
</BODY>
</HTML>
This second section is for a pnuematic press, same instructions as before except the name changes to fromage.hta
<HTML>
<HEAD>
<TITLE>
Fromage Du Fatman
</TITLE>
<SCRIPT LANGUAGE="vbscript">
OPTION EXPLICIT
Dim dblPrices(2)
dblPrices(0) = 12.56
dblPrices(1) = 28.26
dblPrices(2) = 50.24
Sub cmdCalc_OnClick
Dim intSelected, intSelected1
Dim dblTotal, dblcyl, dblcyl1, txtcyl
Dim dblTot, dblTot1, dblTot2, dblTot3
intSelected = frmForm1.cboProducts.SelectedIndex
dblTot = dblPrices(intSelected) * frmForm1.txtQty.Value
dblTot = dblTot
dblTot1 = dblTot * 2
dblTot2 = dblTot * 3
dblTot3 = dblTot * 4
dblCyl = frmForm1.txtcyl.Value / 2
dblcyl1 = dblcyl * dblcyl * 3.14
frmForm1.txtTotal.Value = " " & dblTot
frmForm1.txtTotal1.Value = " " & dblTot1
frmForm1.txtTotal2.Value = " " & dblTot2
frmForm1.txtTotal3.Value = " " & dblTot3
frmForm1.txtTotal4.Value = " " & dblTot / dblcyl1
frmForm1.txtTotal5.Value = " " & dblTot1 / dblcyl1
frmForm1.txtTotal6.Value = " " & dblTot2 / dblcyl1
frmForm1.txtTotal7.Value = " " & dblTot3 / dblcyl1
End Sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR="white">
<FONT FACE="arial" SIZE=2><B>
<CENTER>
<H3>Mold Pressure Calculator</H3>
<P>
Select the Mold Size you require from the list, then
simply enter the Desired internal mold psi,</P>
and click the Calculate
button to see the LBS of force needed.
</P>
<FORM NAME="frmForm1">
<SELECT NAME="cboProducts">
<OPTION>Mold Size 4"
<OPTION>Mold Size 6"
<OPTION>Mold Size 8"
</SELECT>
Target PSI
<INPUT TYPE="text" NAME="txtQty" SIZE=10>
</P>
Please enter your Cylinder Size in inches
<INPUT TYPE="text" NAME="txtCyl" SIZE=10>
<P>
<INPUT TYPE="button" NAME="cmdCalc" VALUE="Calculate">
<P>
This is the force in pounds needed on your Side by side molds.
</P>
<INPUT TYPE="text" NAME="txtTotal">
Two Molds <INPUT TYPE="text" NAME="txtTotal1">
Three Molds <INPUT TYPE="text" NAME="txtTotal2">
Four Molds <INPUT TYPE="text" NAME="txtTotal3">
</P>
This is the Prdicted necesarry psi in your pnuematic cylinder.
</P><INPUT TYPE="text" NAME="txtTotal4">
Two Molds <INPUT TYPE="text" NAME="txtTotal5">
Three Molds <INPUT TYPE="text" NAME="txtTotal6">
Four Molds <INPUT TYPE="text" NAME="txtTotal7">
</FORM>
</BODY>
</HTML>