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

[DT200]

σε αυτήν την άσκηση θα μάθεις κάτι πολύ εύκολο
αλλά απαραίτητο, τα modules.
σου είχα στείλει παλιότερα ένα πρόγραμμα που έσπαγε σε
δύο σελίδες.
τώρα με την βοήθεια της LCD θα κάνεις το εξής:
θα γράψεις ένα πρόγραμμα που πατώντας ένα από τα δύο μπουτόν,
θα μετακινήσαι σε μία δεύτερη σελίδα και από το αρχικό μήνυμα
της LCD θα εμφανίζεις κάποιο άλλο διαφορετικό.
π.χ. από kkk σε jjj.

[billtech]

ωραια!!!
λοιπον ακου...
εκανα το παρακατω:
1
program kirio

include "CONVERT"

DIM DT AS BYTE


main:
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")

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

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

GOTO ARXH
end.

2
module CONVERT

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

END.

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

[DT200]

πώς την πάτησες έτσι ?
για πες μου λίγο τι γράφεις εδώ,

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

και δεύτερων δεν υπάρχει περίπτωση να έκανες Build αυτό το
πρόγραμμα και να σου έβγαλε οκ, διότι,
1ον: στην σελίδα Module δεν έχεις γράψει SUB procedure convert, και
2ον: δεν έχεις γράψει κάτω , κάτω END SUB.

[billtech]

λοιπον.
1.μου εβγαλε οκ.δεν ξερω πως.γιαυτο σε ρωτησα να μου πεις πως κανεις build γιατι δεν ημουν σιγουρος.
2.
LCD_CMD(LCD_CLEAR)
DELAY_MS(800)
lcd_out(1,1,"AAA")

καθαρισε την οθονη,περιμενε 800sec και μετα γραψε ΑΑΑ. δηλαδη.γραψε ΑΑΑΑ και μετα αμα πατηθει το κουμπι κανε ΒΒΒ και αμεσως μετα(ξεχασα μια μικρη καθηστερηση) ξανα κανε το ΑΑΑ και περιμενε να πατηθει ξανα το κουμπι.
3.τα SUB procedure και END SUB δεν ηξερα οτι πρεπει να μπουν.
αυτα τα ολιγα!!!!

[DT200]

οι απαντήσεις σου είναι σωστές, αλλά το κομμάτι του που σου
αναφέρω έχει λάθος.

αν γράψεις το πρόγραμμα σε μ/ε ,
η οθόνη δεν θα εμφανίζει τίποτα.

ψάξε ακόμα λίγο.

[billtech]

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

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")

[DT200]

κάτσε να το πιάσουμε από την αρχή,
μετά τις διορθώσεις του Module, έγραψες το πρόγραμμα
στον μ/ε ?
αν ναι σου βγάζει τίποτα ?
αν όχι, γράψε πάνω πάνω κάτι απλό για στην LCD και μετά το υπόλοιπο
πρόγραμμα. (για να δούμε ότι έχουμε επικοινωνία με την LCD)

[billtech]

λοιπον κοιτα
program LCDSASAAS

main:
TRISB=0
'Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 6, 4, 7)
Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5)
Lcd_Cmd(LCD_CLEAR)
Lcd_Cmd(Lcd_Cursor_Off)

ARXH:
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

end.

με αυτο δουλευει μια χαρα η LCD.
************************************
program kirio

include "CONVERT"

DIM DT AS BYTE

main:
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")

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

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

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

sub procedure CONVERT

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

END SUB
END.
**********************************
και αυτο εδω ειναι αυτο που εκανα για την ασκηση που μου ειπες και δεν παιζει.περιμενα να βγαλει τουλαχιστον ΑΑΑΑ για αρχη οπως βλεπεις στη αρχη.

[DT200]

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

[billtech]

σε ποιο εχεις εχεις ελλαξει?στο kirio η στο convert?