Μάθημα στην MikroBasic No2 (module)

[DT200]

δύστυχος δεν μπορώ να σου πω,
όλο το πρόγραμμα είναι 10 γραμμές.

[fireball]

Lcd_Cmd(LCD_CLEAR)
delay_ms(100)
lcd_out(1,1,"billtech")
delay_ms(500)
lcd_out(2,4,"epitelous")
DELAY_MS(500)
GOTO ARXH


LCD_CMD(LCD_CLEAR)
DELAY_MS(800)
lcd_out(1,1,"AAA")

Στο πρώτο κομμάτι κώδικα που δουλεύει κάνει Clear, μετά Delay, μετά γράφεις "billtech" <--- αυτό με το delay μένει στην οθόνη για 500ms μετά εμφανίζετε και το "epitelous" για άλλα 500ms και μετά clear.

Στο δεύτερο κάνεις clear, περιμένεις 800ms με άδεια οθόνη, γράφεις "ΑΑΑ" και μετά αμέσως χωρίς αναμονή πας πάλι στο clear. Η οθόνη δεν προλαβαίνει να δείξει κάτι. Σωστά; Τώρα έχω αρχίσει σε Bascom να γράφω. Νέος ακόμα.

[billtech]

τι ειναι η Bascom?αλλη γλωσσα?
κατσε λιγο αυτο που μου εστειλες τωρα τι ειναι?με μπερδεψες.που παει αυτο?σε ποιο προγραμμα?αν καταλαβα καλα παει καπως ετσι:
kirio
Lcd_Cmd(LCD_CLEAR)
delay_ms(100)
lcd_out(1,1,"billtech")
delay_ms(500)
lcd_out(2,4,"epitelous")
DELAY_MS(500)
GOTO ARXH

και
convert
LCD_CMD(LCD_CLEAR)
DELAY_MS(800)
lcd_out(1,1,"AAA")

η εχω λαθος?

[savnik]

τι ειναι η Bascom?αλλη γλωσσα?
κατσε λιγο αυτο που μου εστειλες τωρα τι ειναι?με μπερδεψες.που παει αυτο?σε ποιο προγραμμα?αν καταλαβα καλα παει καπως ετσι:
kirio
Lcd_Cmd(LCD_CLEAR)
delay_ms(100)
lcd_out(1,1,"billtech")
delay_ms(500)
lcd_out(2,4,"epitelous")
DELAY_MS(500)
GOTO ARXH

και
convert
LCD_CMD(LCD_CLEAR)
DELAY_MS(800)
lcd_out(1,1,"AAA")

η εχω λαθος?

Σου είπε ο fireball
Εφ' όσον βάζεις clear πριν την ένδειξη το pause πρέπει να το βάλεις μετά την ένδειξη

ARXH:
DT=PORTA
IF DT.0=1 THEN
CONVERT
END IF

LCD_CMD(LCD_CLEAR)
lcd_out(1,1,"AAA")
DELAY_MS(800)

GOTO ARXH
end.
************************************
module CONVERT

sub procedure CONVERT

LCD_CMD(LCD_CLEAR)
lcd_out(1,1,"BBBB")
DELAY_MS(800)


END SUB
END.

[fireball]

Αυτό που σου έδωσα ποιό πάνω είναι κομμάτια απο τον κώδικα σου. Το πρώτο κομμάτι είναι που δουλεύει σωστά και έχεις βάλει σε σωστή σειρά το clear και τα delay. Και το δεύτερο έχεις βάλει πρώτα το delay και δεν προλαβαίνει το μήνυμα σου να μείνει στην οθόνη. Ο κώδικας ολόκληρος είναι όπως στον έδωσε ο φίλος savnik. Το θέμα είναι να καταλάβεις γιατί γίνεται γίνεται αυτό. Ακολούθα τις εντολές σου μια μια και θα δείς. Η bascom είναι γλώσσα C για avr. Ίδια λογική υπάρχει σε όλες τις γλώσσες. Μάθε μια πρώτα και μετά θα καταλαβαίνεις και άλλες. Και εγώ τώρα έχω αρχίσει με avr απλά κάποτε έκανα c++ στην σχολή.

[billtech]

program kirio11

include "CONVERT" 'perielave to CONVERT

DIM DT AS BYTE

main:
'arxikopoieisis
TRISB=0
TRISA=255
Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5)
Lcd_Cmd(LCD_CLEAR)
Lcd_Cmd(LCD_CURSOR_OFF)
lcd_out(1,1,"AAAA") 'emfanise AAAA sti othoni

ARXH:
DT=PORTA 'vale ti porta A sto DT
IF DT.0=0 THEN 'an patithi to 0 tote
CONVERT 'pigene sto convert
END IF

LCD_CMD(LCD_CLEAR) 'katharise tin othoni
lcd_out(1,1,"AAA") 'kai tipose AAA
DELAY_MS(800) 'perimene 800ms mexri na pas sti epomeni entoli(arxi)

GOTO ARXH
end.
'************************************
module CONVERT

sub procedure CONVERT

LCD_CMD(LCD_CLEAR) 'katharise tin othoni
lcd_out(1,1,"BBBB") 'grapse ti othoni BBBB
DELAY_MS(800) 'perimene 800ms mexri na vgeis apo to CONVERT


END SUB
END.

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

τωρα ειναι ενταξει?

[DT200]

ναι ! είσαι κομπλέ.
βέβαια παίρνει λίγο βελτίωση ο κώδικας ... αλλά άστο τώρα.

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

αν δεν θέλεις να ασχοληθούμε με το RTC, μπορούμε να ξεκινήσουμε το
ρολόι, αλλά το καλύτερο θα είναι να έχουμε λύσει όλα τα περιφερειακά προβλήματα.

[billtech]

μια φορα να μου πεις ολα καλα...μια μονο...χεχε...σε πειραζω..να εισαι καλα φιλε μου...

[DT200]

κάνω αυτό το post για να καταλάβεις ότι
έχω κάνει edit στο προηγούμενο μήνυμα.

[billtech]

ωραια...επηκοινωνια με το RTC να κανουμε με τον 84Α τωρα?προτ ο παρον?
με ποιο θα κανουμε?με το ds1302(3-wire) η με το ds1307(I2C)?