Sub Ph
' ==================================================================================================
' === ===
' === WZOR OBLICZEN PH ===
' === pH = 7.00 + (Ph_wynik - pH_7_ADC) * (pH_7_BUF - pH_4_BUF) / (pH_7_ADC - pH_4_ADC) ===
' === ===
' === gdzie: ===
' === Ph_wynik -> Aktualny odczyt przetwornika ADC ===
' === pH_4_BUF -> Płyn kalibracyjny pH 4 -> wartość pH 4.01 w temp. 25°C ===
' === pH_7_BUF -> Płyn kalibracyjny pH 7-> wartość pH 6.98 w temp. 25°C ===
' === pH_4_ADC -> Odczyt ADC przy kalibracji w płynie pH 4 ===
' === Ph_7_ADC -> Odczyt ADC przy kalibracji W płynie pH 7 ===
' === ===
' ==================================================================================================
Ph_pomoc_1 = Ph_wynik - Ph_adc_7
Ph_pomoc_2 = Ph_buf_7 - Ph_buf_4
Ph_pomoc_3 = Ph_adc_7 - Ph_adc_4
Ph_sonda = Ph_pomoc_1 * Ph_pomoc_2
Ph_sonda = Ph_sonda / Ph_pomoc_3
Ph_sonda = Ph_sonda + 7
' ==================================================================================================
' === ===
' === ===
' === ===
' === oś alarmu CO2 ===
' === -------------------------------------------------------------||||------------||||------> ===
' === wyłącz włącz ===
' === alarm CO2 alarm CO2 ===
' === ===
' === ===
' === ===
' === oś CO2 ===
' === ---------------------------------------------||||------------||||----------------------> ===
' === wyłącz włącz ===
' === CO2 CO2 ===
' === ===
' === ===
' === ===
' === oś pH ph_o2_alarm ph_o2 ph_ustaw ph_co2 ph_co2_alarm ===
' === -------------||||------------||||------------||||------------||||------------||||------> ===
' === pH ustawione pH ustawione pH ustawione pH ustawione pH ustawione ===
' === - 2x histereza - histereza (wymagane pH) + histereza + 2x histereza ===
' === ===
' === ===
' === ===
' === oś napowietrzania ===
' === -----------------------------||||------------||||--------------------------------------> ===
' === włącz wyłącz ===
' === napowietrzanie napowietrzanie ===
' === ===
' === ===
' === oś alarmu O2 ===
' === -------------||||------------||||------------------------------------------------------> ===
' === włącz wyłącz ===
' === alarm O2 alarm O2 ===
' === ===
' ==================================================================================================
Ph_o2_alarm = Ph_ustaw - Ph_hist 'alarm dla niskiego pH -> pH ustawione - 2x histereza
Ph_o2_alarm = Ph_o2_alarm - Ph_hist
Ph_o2 = Ph_ustaw - Ph_hist 'załączenie napowietrzacza -> pH ustawione - 1x histereza
Ph_co2 = Ph_ustaw + Ph_hist 'załączenie CO2 -> pH ustawione + 1x histereza
Ph_co2_alarm = Ph_ustaw + Ph_hist 'alarm dla wysokiego pH -> pH ustawione + 2x histereza
Ph_co2_alarm = Ph_co2_alarm + Ph_hist
Select Case Ph_sonda
Case Is < Ph_o2_alarm 'jeżeli odczyt niższy niż pH ustawione - 2x histereza
Set Buzz 'włącz alarm
Showpic 90 , 0 , Ikona_alarm
Case Is > Ph_o2 'jeżeli odczyt wyższy niż pH ustawione - 1x histereza
Reset Buzz 'wyłącz alarm
Showpic 90 , 0 , Ikona_cls
Case Is < Ph_o2 'jeżeli odczyt niższy niż pH ustawione - 1x histereza
Set Pk_o2 'włącz napowietrzanie
Showpic 90 , 17 , Ikona_o2
Case Is > Ph_ustaw 'jeżeli odczyt wyższy niż pH ustawione
Reset Pk_o2 'wyłącz napowietrzanie
Showpic 90 , 17 , Ikona_cls
Case Is < Ph_ustaw 'jeżeli odczyt niższy niż pH ustawione
Reset Pk_co2 'wyłącz CO2
Showpic 90 , 17 , Ikona_cls
Case Is > Ph_co2 'jeżeli odczyt wyższy niż pH ustawione + 1x histereza
Set Pk_co2 'włącz CO2
Showpic 90 , 17 , Ikona_co2
Case Is < Ph_co2 'jeżeli odczyt niższy niż pH ustawione + 1x histereza
Reset Buzz 'wyłącz alarm
Showpic 90 , 0 , Ikona_cls
Case Is > Ph_co2_alarm 'jeżeli odczyt wyższy niż pH ustawione + 2x histereza
Set Buzz 'włącz alarm
Showpic 90 , 0 , Ikona_alarm
End Select
'--- Wyswietl pomiar pH
Zmienna_str = Str(ph_sonda)
Setfont Font8x8 'użyj małej czcionki
Lcdat 3 , 1 , "pH "
Setfont Font12x16 'użyj dużej czcionki
Lcdat 2 , 17 , Format(zmienna_str , "#.###") ; " " 'wyświetl pomiar
End Sub