Użyjemy mojej zakryptowanej dominaty.
Sprawa powinna wyglądać tak że po mniej więcej pięciu sekundach powinien pokazać jaka wartość dominuje w tych odczytach.
Czyli jak PH na chwilę urośnie bo jakieś drobne potkniecie to i tak dominować będą poprzednie odczyty. Jeśli jednak nowych wartości nazbiera się tyle, że będzie ich więcej od starych to będzie znaczyło że PH naprawdę rośnie
Jeśli jednak następne odczyty będą takie jak poprzednie to sterownik o tym potknieciu zapomni a Ty będziesz spokojniejszy
Code: [Zaznacz cały] [Rozwiń/Zwiń]
- $regfile = "m328pdef.dat"
- $crystal = 16000000
- $hwstack = 64
- $swstack = 32
- $framesize = 128
- $baud = 19200
- Config Submode = New
- Config Timer0 = Timer , Prescale = 1024 , Clear_timer = 1
- Compare0a = 155 '10ms @16MHz/1024
- Config Adc = Single , Prescaler = Auto , Reference = Avcc
- '---plytka KEYPAD SHIELD dla Arduino UNO
- '---konfiguracja wyswietlacza
- Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
- Config Lcd = 16x2
- Cursor Off , Noblink : Cls
- 'D10 (PB2) - podswietlenie LCD
- Config Portb.2 = Output : Portb.2 = 1 : Led Alias Portb.2
- '---zmienne programu
- 'ADC
- Dim Adc_read As Word
- Dim Suma As Dword
- Dim Wynik As Word
- Dim Help As Dword
- Dim 100ms As Byte
- Dim 1s As Byte
- Dim Ph_7_buf As Single
- Dim Ph_7_adc As Word
- Dim Ph_4_buf As Single
- Dim Ph_4_adc As Word
- Dim Ph_pomoc_1 As Single
- Dim Ph_pomoc_2 As Single
- Dim Ph_pomoc_3 As Single
- Dim Ph_sonda As Single
- Dim Czas As Byte : Czas = 100
- Dim A As Byte : A = Czas
- 'dominata
- Const Samples = 10
- Dim Adc_readings(samples) As Word , My_idx As Byte
- Sub Odczytaj_ph
- Locate 1 , 1 : Lcd "ADC " ; Wynik ; " "
- '---pH = pH_7_buf + (ADC - pH_7_adc) * (pH_4_buf - pH_7_buf) / (pH_4_adc - pH_7_adc)
- Ph_pomoc_1 = Wynik - Ph_7_adc
- Ph_pomoc_2 = Ph_4_buf - Ph_7_buf
- Ph_pomoc_3 = Ph_4_adc - Ph_7_adc
- Ph_sonda = Ph_pomoc_1 * Ph_pomoc_2
- Ph_sonda = Ph_sonda / Ph_pomoc_3
- Ph_sonda = Ph_sonda + Ph_7_buf
- Locate 2 , 1 : Lcd "pH " ; Fusing(ph_sonda , "#.&&") ; " "
- End Sub
- Function Get_dominate(byref Values_array() As Word , Byval Tab_len As Byte) As Word
- $crypt 8574e1bdc1875dbee0ab21daab53ace2900ac2ae786f56722e5156c8fb629faa69ae69baa1a9fc914aefb63f23f16a0bc13dad0a6891e0a4e046acf2992f3790c543b526151e840abfb8ed857ea79d40517f1e552cab6e7bb35ac1cfdbb252bc
- $crypt D9395592cd6f010b1b64525f7a4a6a39900ac2ae786f56722e5156c8fb629faa69ae69baa1a9fc914aefb63f23f16a0b14c860eac23aac44434093cacc386b1738d600e836b4926da2b342d77f1e989789c339a98f8482b5fd5195d0205b6e4567cd4cef5a60efb578b072be7577be7b
- $crypt 77a9f52e7833aca666579371a4f2a379ecbbbf6c02404c56ddeb7358b22523b4
- $crypt 2cc282243133703231c4cbaa51ebcc50ecbbbf6c02404c56ddeb7358b22523b4
- $crypt 2631d11658cd9fa39eb14c49211e8d2b0eed7886e739db5ec2ab1d214b10d03a
- $crypt A054c7fcfc8163aff4352e352b6572ff246a33602a2b9d9a48472096d20f40aa69ae69baa1a9fc914aefb63f23f16a0b1db0abe50156ce2630e44388a011529c6c876d1d24b43a429492e072c01df26ec5c3e87bbb60df08275a7334c2c32b0b6fcdbb0f3c51c9f6a00ec54b3bacffdac655a1004dd872e90f31f81d8e23213c
- $crypt 080fd66b2b6714381eabea49d31eed9f742054403f98c75f69dee57156dac11669ae69baa1a9fc914aefb63f23f16a0bf18526741fa8ee9f0ae0a51ef4b2601f0333713e427b1853cd2c14753bd161e81ea12a9dd2189a97f072e6753a3007fa2498ce979fb3b7979d9658f9d946d0ef
- $crypt 73caf5f47612bbd515eca73be7eb76d269ae69baa1a9fc914aefb63f23f16a0b69ae69baa1a9fc914aefb63f23f16a0be9976b3fff1adc4c23f13351ed3be26b85ec4c3731238d46b1434bc52c4188fe316b9a68632a15cfcd44a4fbe2709087
- $crypt A765f47724fe2a609969f62d9b842449
- $crypt B71b90a189a64e8a5231dbf73964badc0bb36a5a4565e635289fe9a57db12a7d
- $crypt C3fdc5bb8bd28208c4e0c0147d2092120df89d1899fa1346109597103f509f3d9c5607af0dbbde40546b7777a8b507b5
- $crypt 24a2e32a2c876c8fdca909299ac46e54
- $crypt E95c33f64dde93f584b17118dc698e674f697c8a08806eebbfc03016b55a6188
- $crypt 1ee8eedaade66ed5f57acb747f2f4bb3182f358164718cc113b0f8881a6a4f1e
- $crypt 97a16d1a13fe8b87659b1e4a71baaa87b1b1c017267acb2423c18c5992e4ee38
- $crypt 43bf69d07f974701614e4f9389fd6a0a
- $crypt D2e00d35f106da4b884fa3ae02de9eaf
- $crypt C1dcde6e5b73c341db2559581b19fa98
- $crypt Db854a6a4f46718154523bb227f0cc79996c9ccae63dad18654cd62cbf5f2230
- $crypt C946085ca0fbafab97e5b9dc376f75a2
- $crypt A429f00ebadf4eaa43890c874f90d692
- $crypt 483a93796a653a949535c06b20b4a87e35f7005a3456065074de46ffd600a1f9
- End Function
- '---USTAWIENIA POCZATKOWE
- Ph_4_buf = 4
- Ph_7_buf = 7
- Ph_4_adc = 628
- Ph_7_adc = 520
- Enable Interrupts
- Do
- If Tifr0.ocf0a = 1 Then '-[ co 10ms ]-
- Tifr0.ocf0a = 1
- Adc_read = Getadc(2)
- Help = Suma
- Shift Help , Right , 3
- Suma = Suma - Help
- Suma = Suma + Adc_read
- Help = Suma
- Shift Help , Right , 3
- Incr My_idx : If My_idx > Samples Then My_idx = 1
- Adc_readings(my_idx) = Help
- If 100ms < 9 Then
- Incr 100ms
- Else '-[ co 100ms ]-
- 100ms = 0
- If 1s < 9 Then
- Incr 1s
- Else '-[ co 1s ]-
- 1s = 0
- Decr Czas
- Wynik = Get_dominate(adc_readings(1) , Samples)
- Call Odczytaj_ph
- Print "Sekunda: " ; Czas ; " - ADC: " ; Wynik ; " - pH: " ; Ph_sonda
- Locate 1 , 14 : Lcd Czas ; " "
- End If
- End If
- End If
- Loop
- End
Zapnij w końcu gdzieś "żabkę na masę" i to pomierz.