Mirley - Elektronika i Programowanie

teraz pasowało by dać jakieś przerwanie na LCD żeby odświeżał co 100ms bo strasznie pulsuje..

ale nie bardzo jeszcze ogarniam przerwania..

może ktoś ma pomysł na przerwania i pomiar czasu sygnału dla wejść z 4 wtryskiwaczy.

a wiec przerwania masz tu w projektach prawie w każdym programie.Druga sprawa nie daje sie CLS w pętli dlatego mruga.Cos mi sie wydaje ,ze będziesz musiał to wszystko jeszcze raz napisać.Do obliczania czasu otwarcia wtrysku musisz skonfigurować timer jako licznik który będzie sie włączał na stan wysoki i wyłączał jak będzie niski.Poczytaj w helpie i szukaj haslo komputery samochodowe.Tam zazwyczaj sa dyskusje o tym.Zeby to wszystko ogarnąć musisz sporo poczytać.To o co teraz prosisz to praktycznie caly kod.A w trzech linijkach nie da sie tego napisać.Na początek przenieś CLS i cursor off przed pętle i nie będzie mrugać.Przy wyświetlaniu puste miejsca nadpisuj spacjami.Nie będę tutaj wklejał przykładów bo naprawdę przejrzyj projekty i poczytaj opisy Mirleya.Będziesz mierzył krótkie okresy czasu i dlatego zapomnij o takim czymś jak wait.Do tego projektu musisz timery miec w jednym palcu.

wiec nie ma co zabieram się do nauki...

kto by pomyślał, że po 12 latach wrócę do nauki programowania...

$regfile = "m128def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 32
$framesize = 32

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Portc = Output
Config Porte = Input
Portd = &B11111111
Porte = &B11111111

Enable Interrupts
Config Timer0 = Timer , Prescale = 256
Enable Timer0

Config Int4 = Rising ' PE4 wejscie sygnału z wtryskiwacza zbocze rosnace
Enable Int4

On Timer0 Czas_1ms
On Int4 Pomiar1

Dim Czas As Integer
Dim T1 As Byte

Initlcd
Cls
Cursor Off

Do

Loop

End

Czas_1ms:

Timer0 = 193

Return

Pomiar1:
Disable Interrupts
Start Timer0
Incr Czas
If Pine.4 = 0 Then

Stop Timer0
End If

Czas = T1

Lcd "czas " ; T1 ; " "
Lowerline
Lcd " "

Enable Interrupts
Return

$regfile = "m128def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 32
$framesize = 32

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Portc = Output
Config Porte = Input
Portd = &B11111111
Porte = &B11111111

Enable Interrupts
Config Timer0 = Timer , Prescale = 256
Enable Timer0

Config Int4 = Change ' PE4 wejscie sygnału z wtryskiwacza zbocze rosnace
Enable Int4

On Timer0 1ms

On Int4 Pomiar1

Dim Czas As Integer

Dim Timer_val As Word

Initlcd
Cls
Cursor Off

Timer0 = 193
Do

Loop

End

1ms:

Incr Czas

Return

Pomiar1:

Timer_val = Czas

Lcd "czas " ; Timer_val ; " "
Lowerline
Lcd " "

Czas = 0

Return

$regfile = "m128def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 32
$framesize = 32

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Portc = Output
Config Porte = Input
Portd = &B11111111
Porte = &B11111111

Enable Interrupts
Config Timer0 = Timer , Prescale = 1024
Enable Timer0

Config Int4 = Falling ' PE4 wejscie sygnału z wtryskiwacza zbocze rosnace
Enable Int4

Timer0 = 193

Start Timer0
On Timer0 1ms
On Int4 Pomiar1

Dim Czas As Word

Dim Timer_val As Word

Initlcd
Cls
Cursor Off

Do

Loop

End

'*****************przerwania programy***********************

1ms:

Incr Czas

Return

Pomiar1:

Czas = 0
Timer_val = 0

While Pine.4 = 0

' JAK POLICZYĆ PRZEPEŁNIENIA LICZNIKA TIMER0?

Wend

Lcd "czas " ; Timer_val ; " "
Lowerline
Lcd " "

Return

ściągnij sobie program "pomocnik AVR" i zapomnisz o takich problemach:)Wpisujesz tam jaki timer i taktowanie a wynik sie wyświetli w okienku.Proste i bezbolesne.W tym konkretnym przypadku masz 4,0320ms.Zeby miec 1ms musisz ustawic prescale =64 i załadować do Timera0=6. Będziesz mial idealnie 1ms

$regfile = "m128def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 32
$framesize = 32

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Portc = Output
Config Portd = Input
Config Porte = Input
Portd = &B11111111
Porte = &B11111111

Enable Interrupts
Config Timer0 = Timer , Prescale = 1024
Enable Timer0

Config Int4 = Change
Enable Int4
Config Int5 = Change
Enable Int5
Config Int6 = Change
Enable Int6
Config Int7 = Change
Enable Int7

Led1 Alias Portc.1
Led2 Alias Portc.2
Led3 Alias Portc.3
Led4 Alias Portc.4

Sw1 Alias Pind.4
Sw2 Alias Pind.5
Sw3 Alias Pind.6
Sw4 Alias Pind.7

Timer0 = 240
Start Timer0

On Timer0 1ms
On Int4 Int_start1
On Int5 Int_start2
On Int6 Int_start3
On Int7 Int_start4

Dim Start1 As Byte
Dim Start2 As Byte
Dim Start3 As Byte
Dim Start4 As Byte
Dim Czas_start1 As Word
Dim Czas_start2 As Word
Dim Czas_start3 As Word
Dim Czas_start4 As Word
Dim Czas_led As Word

Czas_led = 0

Initlcd

Cursor Off

Do
Cls

Lcd "czas " ; Czas_start1
Lowerline
Lcd ""

Waitms 100

Loop

End

'*****************przerwania programy***********************

1ms:

If Start1 = 1 Then ' program wywoływany przepełnieniem sie timer0 ustawionym na 1ms
Incr Czas_start1 ' uruchamia liczniki gdy spełnione sa warunki w programie dla przerwań int4-7
End If

Incr Czas_led
If Czas_led > 100 Then

Czas_led = 0

Toggle Led1
End If

Return

Int_start1: ' program przerwanie dla wtrysku 1 uruchamiany zmianą zbocza int4 na pinE.4
' gdy pojawia sie stan 0 włacza zliczanie w progamie 1ms przez zmienna star1
If Pine.4 = 0 Then
Start1 = 1 ' dodatkowo włacza led w ramach sygnalizacji ;)
Czas_start1 = 0
Led2 = 1

End If

If Pine.4 = 1 Then
Start1 = 0
Led2 = 0
End If

Return

Int_start2:
Return
Int_start3:
Return
Int_start4:
Return

napisałem Ci wcześniej jak musi być timer0 ustawiony aby mies 1ms.Teraz masz 1,0240.I te Twoje obliczenie psu w budę ida.Pozbądź sie tez tego waitms zrób to również na timerze.I usuń to CLS z pętli,juz Ci o tym pisałem.No ,ale dobrze Ci idzie ta nauka jeszcze parę dni i skończysz.