Μάθημα στην MikroBasic No4 (επικοινωνία I²C)

[billtech]

ναι φιλε μου εχεις δικιο..και συμφωνω μαζι σου οτι ειναι δυσκολο αυτο και ειδικα για καποιον σαν εμενα που προσφατα ασχοληθηκα με τους επεξεργαστες...αλλα αν θελεις θα μπορουσες να ασχολεισαι και εσυ παραλληλα για εκμαθηση...καλυτερα 2 μυαλα παρα ενα...αφου λες οτι ουτε εσυ ξερεις παρα πολλα μπορεις να συμμετεσχεις στα παραδειγματα που εχουμε εδω και να μαθαινεις και αλλα πραγματα που δεν ξερεις και να βοηθαει ο ενας τον αλλον και με μεγαλη βοηθεια τα παιδια που ξερουν καλα..να μην τους πριζουμε συνεχεια...αμα θελεις βεβαια..προταση ειναι...

[briko]

Κατ’αρχάς περιμένω το ds1307 όταν το παραλάβω θα ξεκινήσω και εγώ αν σας προλάβω θα βοηθήσω αν και ο χρόνος μου είναι πολύ λίγος

[billtech]

ok φιλε μου....οποτε θες...εγω τα εφτυσα...δεν αντεξα αλλο οπως ειδες...θελω βοηθεια ανωθεν οπως και δηποτε...

[DT200]

έλα ρε φίλε billtech κάνε λίγο κουράγια ακόμα ,
έχεις φτάσει στην τελική ευθεία, σχεδόν τα κατάφερες !

και τώρα ήρθε η ώρα για τα σχόλια μου ...
γιατί γράφεις τόσο μεγάλα προγράμματα σε μία σελίδα ?
αφού στο δεύτερο μάθημα κάναμε τα module, δεν το θυμάσαι ?
είναι λογικό να έχεις χάσει την μπάλα σε ένα τέτοιο μονοκόμματο
πρόγραμμα , εγώ που έχω γράψει το πρόγραμμα που ζητάς, το
έχω κάνει σε έξη σελίδες !

Υ.Γ. αυτή τη στιγμή δεν έχω ξεκινήσει να διαβάζω το πρόγραμμα σου,
τώρα θα αρχίσω, καλό μου κουράγια...

[billtech]

φιλε DT200 εγω τα εφτυσα...σοβαρα...τωρα που φαγαμε το γαιδαρο...
απλα το εκανα ετσι επειδη το εκανα κομματι κομματι και εχτιζα πανω στο ιδιο..γιαυτο δεν πηγα στα modules.κοιταξε το και εσυ και βλεπουμε...σημερα ειπα σε μια φαση ειπα τελος...αιντε να δουμε...

καλο κουραγιο φιλε μου...και σε ευχαριστω και παλι

[DT200]

εγώ θα στο "διορθώσω" αλλά θα πρέπει να ξεκινήσεις να το
κόβεις σε κομμάτια , δεν μπορώ να κάθομαι και να μελετάω
κάθε μέρα ένα πρόγραμμα με 350 εντολές είναι σκότωμα.

το προτέρημα με τα modules είναι ότι κάνεις διορθόσεις
μόνο στην σελίδα που θέλεις και δεν χαλάς όλο το πρόγραμμα.

[DT200]

σε αυτό το τόπικ που γράφουμε ήμαστε εκτός
θέματος, η επικοινωνία με το RTC πραγματοποιήθηκε ,
άρα καλό θα είναι να φύγουμε από εδώ και
να πάμε εδώ
http://www.hlektronika.gr/forum/show...=42583&page=15
τα λέμε ...

[viper]

Νομίζω πως εδώ πρέπει να καταθέσω την ερώτησή μου.

Προσπαθώ να φτιάξω ένα project στο οποίο 2 PIC16F877A θα επικοινωνούν μεταξύ τους.(master - slave)
Ακολουθώντας τις πολύτιμες συμβουλές του DT200 και προσπαθώντας να κατανοήσω το datasheet του PIC16F877A κατέληξα στα εξής παρακάτω :

Ο κώδικας για τον MASTER

main:
I2C_Init(100000)
I2C_Start()
I2C_Wr($22)
I2C_Wr(2)
I2C_Wr($F0)
I2C_Stop()

End.

Ο κώδικας για τον SLAVE

program I2C_SLAVE_EXPERIMENT1

Sub procedure interrupt

if PIR1.SSPIF = 1 then
PORTB=%00000000
end if

End sub




main:
INTCON.GIE=1
INTCON.PEIE=1
PIE1.SSPIE=1
PIR1.SSPIF=0
ADCON1=1

SSPCON = %00110110
SSPADD = %00100010


TRISC=1


TRISB=0
PORTB=%10000000

while true
wend


END.

Θεωρητικά ο slave όταν ξεκινάει θα πρέπει να έχει ένα LED αναμένο και όταν γίνει Address match και το bit SSPIF γίνει 1 τότε θα σβύνει το LED. Στην πράξη όμως δέν γίνεται τίποτα. Μετά από μερικές δοκιμές διαπίστωσα οτι ο κώδικας του MASTER παγώνει στην εκτέλεση της εντολής I2C_Wr($22).
Φίλε DT200 θα σου ήμουν ευγνώμον αν μπορούσες να με βοηθήσεις. Προσπαθώ τόσες μέρες και είμαι στο παρα πέντε να τα παρατήσω.