[syntax=basic4gl]'dopisałem funkcja wathdog czyli autoreset gdy procesor nir odpowiada dłużej niż 2 sekundy
' nie działa przy testowaniu przekazników
$regfile = "m8def.dat" 'informuje kompilator o pliku
'dyrektyw mikrokontrolera
$crystal = 8000000 'informuje kompilator
'o częstotliwości oscylatora
'taktującego mikrokontroler
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Watchdog = 2048 'reset wystąpi po 2048ms
'Start Watchdog
Declare Sub Odcz_temp
Config Portc.1 = Output
Config Portb.2 = Output
Config Portb.1 = Output
Config Portd.0 = Output
Config Pinb.3 = Input 'porty jako wejściowe
Config Pinb.4 = Input 'porty jako wejściowe
Config Pinb.5 = Input 'porty jako wejściowe
Set Portb.3 ' ustawia na stan wysoki
Set Portb.4 ' ustawia na stan wysoki
Set Portb.5 ' ustawia na stan wysoki
Dim Wart_nap As String *
Dim T As Single
Dim Wart_ac As Word
Dim V As Single
Dim Pompa As Byte
Dim Pompaof As Byte
Dim Alarm As Byte
Pompa = 65
Pompaof = 60
Alarm = 85
Start Adc
Do
Cls
Lcd "DNI TECHNIKI"
Waitms 1000
Start Watchdog
Do
Portc.1 = 1
'Waitms 20
'Stop Watchdog
Debounce Pinb.3 , 0 , Pr1 , Sub 'czyta swicze
Debounce Pinb.4 , 0 , Pr2 , Sub 'czyta swicze
Debounce Pinb.5 , 0 , Pr3 , Sub 'czyta swicze
'Start Watchdog
Wart_ac = Getadc(0)
V = Wart_ac * 0.0026
T = V * 100
Wart_nap = Fusing(t , "#.&")
Cls
Lcd "4848484"
Lowerline
Lcd "temp:" ; Wart_nap ; " st.C"
Reset Watchdog
' Lowerline
'Lcd Wart_nap
Waitms 500
Reset Watchdog
Loop
Loop
Pr1:
Cls
Lcd "test przekaznika"
Lowerline
Lcd "numer 1"
Portb.1 = 1
Reset Watchdog
Waitms 1500
Reset Watchdog
Portb.1 = 0
Return
Pr2:
Cls
Lcd "test przekaznika"
Lowerline
Lcd "numer 2"
Portb.2 = 1
Reset Watchdog
Waitms 1500
Reset Watchdog
Portb.2 = 0
Return
Pr3:
Cls
Lcd "test przekaznika "
Lowerline
Lcd "numer 3"
Portd.0 = 1
Reset Watchdog
Waitms 1500
Reset Watchdog
Portd.0 = 0
Return[/syntax]
Kod wklejamy przy pomocy syntax=basic4gl - Zielony J. Statystyki: Napisane przez Elektronik — 1 cze 2013, o 08:50
]]>