pic από την αρχή

[billtech]

ωραιος!!!!
μπραβο φιλε μου!!!
αντε και σιγα σιγα σε μεγαλυτερα πραματα!!!

[DT200]

Καλώς ήρθες στην παρέα με τους μ/ε φίλε Soulhealer !!!
καλή συνέχεια και καλή επιτυχία.

[billtech]

επ δασκαλε!!!!
καλος τον...
που σε χασαμε?

[soulhealer]

λοιπόν έχω φτιάξει τον παρακάτω κώδικα ώστε όταν ο αισθητήρας δόνησης ενεργοποιηθεί να με πάρει τηλέφωνο η μηχανή μου...
πως μπορώ να βάλω υπορουτίνα ώστε ο αισθητήρας δόνησης αν ενεργοποιηθεί 2 φορές μέσα σε 10 δευτερόλεπτα (10.000 msec) μόνο τότε να ξεκινήσει η διαδικασία
κλήσης από το κινητό τηλέφωνο?
ξέρω πως σίγουρα θα χρειαστώ καταχωρητή για να μου μετράει τις φορές που έδωσε σήμα ο αισθητήρας και να resetάρει αν περάσουν τα δέκα δεύτερα και δεν έχω δεύτερη δόνηση..

program motoalarm

dim i as integer

main:

portb=0
trisb=%00000000
trisa=%1111
delay_ms(200)
check:
portb.0=1 'standby led blinking
delay_ms(500)
portb.0=0
delay_ms(500)
if porta.0=0 then 'if vibration input trigged
portb.1=1 'press "*" once for unlock
delay_ms(50)
portb.1=0
delay_ms(500)
portb.2=1 'press "ok" once for unlock
delay_ms(50)
portb.2=0
delay_ms(100)
for i=1 to 2
portb.3=1 'press "yes" button twice for call me
delay_ms(50)
portb.3=0
next i
else
goto check
end if
end.

[sotirianos]

λοιπόν έχω φτιάξει τον παρακάτω κώδικα ώστε όταν ο αισθητήρας δόνησης ενεργοποιηθεί να με πάρει τηλέφωνο η μηχανή μου...
πως μπορώ να βάλω υπορουτίνα ώστε ο αισθητήρας δόνησης αν ενεργοποιηθεί 2 φορές μέσα σε 10 δευτερόλεπτα (10.000 msec) μόνο τότε να ξεκινήσει η διαδικασία
κλήσης από το κινητό τηλέφωνο?
ξέρω πως σίγουρα θα χρειαστώ καταχωρητή για να μου μετράει τις φορές που έδωσε σήμα ο αισθητήρας και να resetάρει αν περάσουν τα δέκα δεύτερα και δεν έχω δεύτερη δόνηση..

program motoalarm

dim i as integer

main:

portb=0
trisb=%00000000
trisa=%1111
delay_ms(200)
check:
portb.0=1 'standby led blinking
delay_ms(500)
portb.0=0
delay_ms(500)
if porta.0=0 then 'if vibration input trigged
portb.1=1 'press "*" once for unlock
delay_ms(50)
portb.1=0
delay_ms(500)
portb.2=1 'press "ok" once for unlock
delay_ms(50)
portb.2=0
delay_ms(100)
for i=1 to 2
portb.3=1 'press "yes" button twice for call me
delay_ms(50)
portb.3=0
next i
else
goto check
end if
end.

Για να κάνεις αυτό που θες θα χρησιμοποιήσεις timers. Έτσι ξεκινάς ένα timer με την πρώτη ενεργοποίηση της δόνησης και εάν μέχρι να γίνει overflow ο timer έχεις και δεύτερη ενεργοποίηση κάνεις οτι χρειάζετε.
Επίσης θα είναι καλό να δεις γενικότερα το πρόγραμμα σου και να σκεφτείς τη χρήση interrupts!

[soulhealer]

ένα μικρό παράδειγμα με timers?
kai interrupts?? τι είναι??

[sotirianos]

Interrupts είναι διακοπές κάτα την κανονική εκτέλεση του προγράμματος ή οποίες προκαλούνται απο τον μικροελεγκτή όταν συμβάινουν συγκεκριμένα πράγματα (πχ αλλάζει η κατάσταση κάποιας θύρας, κάνει overflow ένας timer κλπ) όταν συμβεί μια από αυτές τις διακοπές μεταφέρεται η εκτέλεση του προγράμματος σε άλλο σημείο, τις λεγόμενες Interrup Service Rutines. Έτσι έχεις πχ τον μικροελεγκτή να αναβοσβήνει ένα led και έχει ενργοποιήσει interrupt σε μια είσοδο στην οποία έχεις ενα push button. Στην ΙSR γράφεις κώδικα που σταματάει το led να αναβοσβήνει. Οπότε δεν χρειάζεται να ελεγχεις συνεχώς μέσα στο πρόγραμμα αν πατήθηκε το κουμπι για να σταματήσεις το led!

Για τους timers τώρα για πιο συγκεκριμένο παράδειγμα θα πρέπει να πεις τη μικροελεγκτή έχεις και σε τη συχνότητα. Πάντως είναι πολύ απλό και να κοιτάξεις λίγο το datasheet και κανένα site στο ίντερνετ θα μπεις στο νόημα. Γενικά θα δουλέψεις κάπως έτσι: Ο timer είναι ένας καταχωρητής που αυξάνει την τιμή του κατά ένα σε κάθε κύκλο μηχανής και όταν υπερχειλήσει μπορεί να ενεργοποιηθεί ένα interrupt. Οπότε ανάλογα με τη συχνότητα που τρέχεις βρίσκεις οτι για το χρόνο που θες πχ περνάνε 100 κύκλοι μηχανής. Αν έχεις 8bit timer λοιπόν του βάζεις αρχικά 155 και ενεργοποιείς το αντίστοιχο interrupt. Θα ξέρεις έτσι οτι οταν ενεργοποιηθεί το interrupt έχει περάσει ο χρόνος που θες.

[billtech]

αδεφρε ριξε μια ματια σε αυτο εδω
http://users.otenet.gr/~smpoulta/theoria_enotita_6.pdf
και αυτο
http://www.mikroe.com/eng/chapters/v...ntroller/#c3v4
και οτι θες ρωτα!!!

[soulhealer]

thanks!! θα το διαβάσω κ τα λέμε αν έχω απορία

[soulhealer]

ρε γμτ, δεν μπορώ να βγάλω άκρη... καταρχάς πως συντάσετε μια εντολή interrupt? δηλώνεται κάπου,ως τι?? sub procedure interrupt ....... end sub??
πχ. στον 16f84a που έχω εγώ με 4ΜΗ ρολόϊ, έστω ότι θέλω να αναβοσβήνει ένα λαμπάκι και όταν
πατηθεί ένα μπουτόν να σταματήσει το λαμπάκι να αναβοσβήνει και να ανάψει ένα άλλο (ως ένδειξη πως πατήθηκε μπουτόν)..
πως θα συνταχθεί η εντολή interrupt?

την εντολή interrupt την φανταζόμουν σαν ένα goto, άρα γιατί να μην χρησιμοποιήσω goto?