I napisałem program
[syntax=basic4gl]$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdbus = 4
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.1 , Rs = Portd.0
Cursor Off
Disable Oc1a
Disable Oc1b
Config Portc = Output
Config Pinb.3 = Input
Config Pinb.2 = Input
Config Pinb.1 = Input
Config Pinb.0 = Input
Set Portb.3
Set Portb.2
Set Portb.1
Set Portb.0
Volplus Alias Pinb.3
Volminus Alias Pinb.2
Currplus Alias Pinb.1
Currminus Alias Pinb.0
Dim Voladc As Long
Dim Curradc As Long
Dim Volnastawa As Single
Dim Currnastawaadc As Single
Dim Wynikpom As Single
Dim Wyjscie As Byte
Dim Liczwys As Word
Dim Ogranicz As Bit
Dim Wynikcurr As Single
Dim Currnastawa As Single
Dim Voldisplay As Single
Dim Currdisplay As Single
Dim Voladc1 As Single
Dim Volnastawa1 As Single
Dim Ogranicz1 As Bit
Dim Ogranicz2 As Bit
Dim Ogranicz3 As Bit
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Config Timer0 = Timer , Prescale = 64
On Timer0 Przerwanie
Enable Interrupts
Enable Timer0
Cls
Currnastawa = 1
Volnastawa = 12
Przerwanie:
Timer0 = 55
Voladc = Getadc(7)
Curradc = Getadc(6)
Voladc = Voladc * 10000
Curradc = Curradc * 1000 ' sygnał z czujnika prądu ACS 712 daje 2,5v + na każdego A + 185 mV
Curradc = Curradc - 512000 ' dlatego odejmuje połowe wartosci maksymalnej
Currnastawaadc = Currnastawa * 37880 ' przeliczenie prądu zadanego na wartości do porównania z przetwornikiem
Wynikcurr = Curradc - Currnastawaadc
If Wynikcurr > 3788 Then
Ogranicz1 = 1
Wyjscie = Wyjscie / 2
Else
Ogranicz1 = 0
End If
If Wynikcurr > 1500 And Wynikcurr < 3788 Then
Ogranicz2 = 1
Wyjscie = Wyjscie - 6
Else
Ogranicz2 = 0
End If
Portc = Wyjscie
Return
Do
If Volplus = 1 Then
Waitms 20 ' obsługa przyciskow
If Volplus = 1 Then
Volnastawa = Volnastawa + 0.5
Waitms 80
End If
End If
If Volminus = 1 Then
Waitms 20
If Volminus = 1 Then
Volnastawa = Volnastawa - 0.5
Waitms 80
End If
End If
If Currplus = 1 Then
Waitms 20
If Currplus = 1 Then
Currnastawa = Currnastawa + 0.1
Waitms 80
End If
End If
If Currminus = 1 Then
Waitms 20
If Currminus = 1 Then
Currnastawa = Currnastawa - 0.1
Waitms 80
End If
End If
If Currnastawa > 2 Then
Currnastawa = 2
End If
If Currnastawa < 0 Then
Currnastawa = 0
End If
If Volnastawa > 32 Then
Volnastawa = 32
End If
If Volnastawa < 0 Then
Volnastawa = 0
End If
If Wynikcurr > 500 Then
Ogranicz3 = 1
Wyjscie = Wyjscie - 1
Else
Ogranicz3 = 0
End If
Voladc1 = Voladc
Volnastawa1 = Volnastawa * 262564
Wynikpom = Voladc1 - Volnastawa1
If Ogranicz1 = 0 And Ogranicz2 = 0 And Ogranicz3 = 0 Then
Ogranicz = 0
Else
Ogranicz = 1
End If
If Wynikpom < 0 And Ogranicz = 0 Then
If Wynikpom < -720000 Then
Wyjscie = Wyjscie + 8
End If
If Wynikpom < 0 And Wynikpom > -720000 Then
Wyjscie = Wyjscie + 1
End If
End If
If Wynikpom > 0 And Ogranicz = 0 Then
If Wynikpom > 720000 Then
Wyjscie = Wyjscie - 8
End If
If Wynikpom > 0 And Wynikpom < 720000 Then
Wyjscie = Wyjscie - 1
End If
End If
Portc = Wyjscie
Voldisplay = Voladc * 0.00000380859375
Currdisplay = Curradc / 37880
Locate 1 , 9
Lcd "(" , Volnastawa , "V)"
Locate 2 , 9
Lcd "(" , Currnastawa , "A)"
Cls
Locate 1 , 9
Lcd "(" , Volnastawa , "V)"
Locate 2 , 9
Lcd "(" , Currnastawa , "A)"
Locate 1 , 1
Lcd Fusing(voldisplay , "#.##")
Locate 1 , 6
Lcd "V"
Locate 2 , 1
Lcd Fusing(currdisplay , "#.##")
Locate 2 , 6
Lcd "A"
If Ogranicz = 1 Then
Locate 2 , 7
Lcd "*"
End If
Loop[/syntax]
Jak widzicie program jest podzielony na dwie części przerwania i pętli głównej.
Program wariuje nie ustawia napięć oraz wyświetlacz lcd nic nie pokazuje.
Nawet jak zrobię taki program
Przerwanie
tylko odczyt ADC
konie przerwania
do
lcd "test"
loop
to nadal nic się nie wyświetla
Statystyki: Napisane przez piurek10 — 3 sty 2015, o 14:06
]]>