Mirley - Elektronika i Programowanie

Config Timer = Co 1s
On Timer Timer_isr
 
 
Dim Sekundy As Byte
Const Odliczaj = 30
Sekundy = Odliczaj
 
Do
 
If Napiecie = 1 Then
   Sekundy = Odliczaj
End If
 
If Sekundy = 0 Then Urzadzenie Off
 
Loop
End
 
Timer_isr:
If Sekundy > 0 Then Decr Sekundy
Return

$sim
$regfile = "m8def.dat"
$crystal = 8000000
Config Portb.0 = Output
Config Portd.7 = Output
Config Portd.6 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
 
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
'Config Portb.4 = Input
 
 
Config Adc = Single , Prescaler = Auto , Reference = Avcc   'konfiguracja wewnętrznego przetwornika A/C
 
Config Timer0 = Timer , Prescale = 256
On Timer0 Timer_isr
 
 
Dim Sekundy As Byte
Const Odliczaj = 30
Sekundy = Odliczaj
 
' konfiguracja ledów
'czerwone
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
'zielone
Portb.0 = 1
Portd.7 = 1
Portd.6 = 1
' konfiguracja sterowania
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
 
' wyjście na czujnik ciśnienia
Portb.4 = 0
 
 Dim D As Byte
 
Dim Wart_ac1 As Word                                        'zmienna na wartość odczytaną z przetwornika
Dim Wart_ac2 As Word
Dim Wart_ac3 As Word
 
 
Dim V1 As Single                                            'zmienna przechowująca obliczon
Dim V2 As Single                                            'wartość zmierzonego napięcia
Dim V3 As Single
 
 
   Start Adc
 
 Do
 
 
 
 
 
Wart_ac1 = Getadc(5)                                        'odczytanie wartości z wejści ADC0 mikrokontrolera
V1 = Wart_ac1 * 0.0049                                      'zamiana odczytanej wartości z A/C na napięcie
                                               'Wart_ac * ok. 4,8 mV
 
                                                               'V do do formatu x.xx i zamiana
                                                      'tej wartości na postać tekstu
Wart_ac2 = Getadc(4)
V2 = Wart_ac2 * 0.0049
 
 
Wart_ac3 = Getadc(3)
V3 = Wart_ac3 * 0.0049
 
If V1 = 0 And V2 = 0 And V3 = 3 Then
Sekundy = Odliczaj
 
End If
 
If Sekundy = 0 Then
Gosub Wylaczenie
Else
Gosub Zalaczenie
End If
 
 
 
 
 Loop
End
 
 
 Timer_isr:
 
  Timer0 = 6
  incr D
if D=250 then
  D=0
 
 
 If Sekundy > 0 Then Decr Sekundy
 End If
 
 
Return
 
 
 
Zalaczenie:
 
  ' podłączenie ciśnieniomierza
   'If portb.4 = 1 Then
 
' załączenie napięcia
Portd.0 = 1
Portd.1 = 1
Portd.2 = 1
' sygnalizacja zielonymi ledami
Portb.0 = 0
Portd.7 = 0
Portd.6 = 0
 
'sygnalizacja czerwone   wyłącz
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
 
 
 
 Return
 
Wylaczenie:
' wyłączenie napięcia
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
'sygnalizacja czerwone
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
' sygnalizacja zielonymi ledami wyłącz
Portb.0 = 1
Portd.7 = 1
Portd.6 = 1
 
Return

Enable Timer0
Enable Interrupts

$regfile = "m8def.dat"
$crystal = 8000000
' nieskonfigurowane porty i tak sa wejsciami
Config Portb = &B00001111 : Portb = &B11111111
Config Portd = &B11000111 : Portd = &B11111000
 
Config Adc = Single , Prescaler = Auto , Reference = Avcc   'konfiguracja wewnętrznego przetwornika A/C
 
Config Timer2 = Timer , Prescale = 256 , Compare = Disconnect , Clear Timer = 1       'timer laduje sie sam
Enable COMPARE2 : On COMPARE2 Timer2_isr : COMPARE2 = 124
 
Dim D As Byte , Sekundy As Byte , N As Byte , Help As Byte , Flaga As Bit , Ustaw As Bit
Dim Wart_ac(3) As Word                                      'tylko wartosc do 1024 bo nie wyswietlamy wyniku
 
Const Odliczaj = 30                                         'stala na poczatku listingu by pozniej latwiej edytowac
Sekundy = Odliczaj
 
Start Adc
Enable Interrupts
'*** START ***
 Do
'co 1s
If D = 250 Then
    D = 0
     If Sekundy > 0 Then Decr Sekundy                       'odejmuj sekundy(jesli sa by nie bylo 255)
 
Flaga = 1                                                   'flaga do testowania (kazdy blad ja zeruje)
For N = 1 To 3                                              'dla trzech przypadkow
 Help = N + 2                                               'pomocnicza zmienna by numer ADC sie zgadzał
  Wart_ac(n) = Getadc(help)                                 'Wart_ac od 1 do 3  z ADC  od 3 do 5
  If Wart_ac(n) < 600 Then                                  'wartosc 5V to 1024 wiec polowa 2,5V to 500..
   Flaga = 0                                                'jesli mniej to zgas flage
   Portb.n = 1                                              'i pokaz ktorej fazy nie ma
  Else
   Portb.n = 0                                              'jesli jest faza inny kolor
  End If
Next
                                                            'jesli sa wszystkie fazy
If Flaga = 1 Then                                           'odswiez zmienna
 Sekundy = Odliczaj                                         'porty ustaw na wlaczone
 Ustaw = 1
End If
                                                             'jesli nie to porty wylacz
If Sekundy = 0 Then Ustaw = 0
 
For N = 0 To 3                                              'ustawianie portow wartoscia
 Portd.n = Ustaw
Next
 
End If                                                      'koniec warunku "co sekunde"
 
Loop
End
 '*** KONIEC ***
 
Timer2_isr:
  Incr D
Return