Free Web Hosting Provider - Web Hosting - E-commerce - High Speed Internet - Free Web Page

╔═ Private Sub CommandClear_Click()
║ Clear all
╚═END,

╔═ Private Sub CommandmCO2_Click
║ Reset Variables
║ Clear all
║ Read Val(txtm.Text), Val(txtpH.Text)
║ Calculate HCO3, CO2_, CO3, H2CO3, CO3_, mCO2
║ Prin t Values txtmCO2.Text, txtHCO3.Text, txtCO2.Text
╚═END

╔═ Private Sub CommandpH_Click()
║ Reset Variables
║ Clear all
║ Read Val(txtm.Text), Val(txtpH.Text)
║ Calculate HCO3, CO2_, CO3, H2CO3, CO3_, mCO2
║ Set Count to zero
║ ┌─IF Count<24
║ │ Increase value step 1
║ │ ┌─IF m>0
║ │ │ Decrease values step m/20
║ │ │ ┌─IF f(pH)>0
║ │ │ │ Decrease values step pH/1000
║ │ │ │ Calculate Variables
║ │ │ │ Sort and save results
v═════════ EXIT l
║ │ │ └─ ENDIF
║ │ └─ ENDIF
║ └─ ENDIF
╚═END

homepage

e-mail