Μάθημα στην MikroBasic No3 (σύγκριση)

[DT200]

η νέα άσκηση θα είναι ένα πρόγραμμα το
οποίο θα έχει για αρχή, μία LCD , ένα Led και ένα μπουτόν.

κάθε φορά που θα πιέζετε το μπουτόν, ένας καταχωρητής (Π.Χ. CNT)
θα αυξάνετε κατά ένα (+1) και όταν φτάσει τον αριθμό 5 θα ανάβει
ένα Led, στην συνέχεια όταν ο CNT φτάσει το 10, τότε θα σβήνει το Led.

αυτό για αρχή ...

[billtech]

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

[DT200]

σε αυτό θα σε βοηθήσω.
δες ένα παράδειγμα, βέβαια υπάρχουν και άλλες
εντολές για την εμφάνιση των δεδομένων.
ρίξε μία ματιά στο help , Conversions Library, String Library, LCD Library.

program TEST_STRING
DIM TXT AS STRING[7]
DIM JOHN AS BYTE
dim TEMP as word

main:

Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5)
Lcd_Cmd(LCD_CLEAR)
Lcd_Cmd(LCD_CURSOR_OFF)

JOHN=14
TEMP=560

START:
WORDTOSTR (TEMP,TXT)
LCD_OUT (1,1,TXT)

BYTETOSTR (JOHN,TXT)
LCD_OUT (2,1,TXT)

END.

[billtech]

λοιπον φιλε μου!!!το εκανα...ξερω τι θα μου πεις ομως

program LedLCD

dim CNT,BUTT,outy as byte
dim txt as string[7]
main:
TRISB=%00000000
TRISA=255
Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5)
Lcd_Cmd(LCD_CLEAR)
Lcd_Cmd(LCD_CURSOR_OFF)
lcd_out(2,5,"billtech")
CNT=0
PORTB.7=1
START:
BUTT=PORTA
DELAY_MS(150)
IF BUTT.0=0 THEN GOTO CHECK1
ELSE
GOTO START
END IF


CHECK1: Lcd_Cmd(LCD_CLEAR)
CNT=CNT+1
BYTETOSTR (CNT,TXT)
lcd_out(1,1,TXT)
GOTO CHECK2

CHECK2:
IF CNT=5 THEN
PORTB.7=0
ELSE GOTO CHECK3
END IF
CHECK3: IF CNT=10 THEN
PORTB.7=1
ELSE GOTO START
END IF

END.

να το ξαναδω γιατι περνει βελτιωσεις?
δεν ξερω πως να το βελτιωσω αλλο

[DT200]

μπράβο !!! πολύ καλό... Αλλά ...

δεν χρειάζεσαι τον καταχωρητή outy.
το πρόγραμμα κολλάει μετά τον αριθμό 10.
δεν έχει προστασία μπουτόν.
μερικά goto δεν χρειάζονται.
όταν θέλεις να γράψεις στην οθόνη δεν χρειάζεται
να την σβήνεις , μπορείς να γράψεις από "πάνω" του.

θα σε βοηθείσω λέγοντάς σου ότι αντί για CNT=CNT+1
μπορείς να γράψεις INC(CNT).

αυτά, αλλά πραγματικά έχεις προχωρήσει πολύ.

Υ.Γ. ξέρεις τι λένε ... ο εχθρός του καλού, είναι το καλύτερο.

[billtech]

δεν χρειάζεσαι τον καταχωρητή outy.
το πρόγραμμα κολλάει μετά τον αριθμό 10.
δεν έχει προστασία μπουτόν.
μερικά goto δεν χρειάζονται.
όταν θέλεις να γράψεις στην οθόνη δεν χρειάζεται
να την σβήνεις , μπορείς να γράψεις από "πάνω" του.

θα σε βοηθείσω λέγοντάς σου ότι αντί για CNT=CNT+1
μπορείς να γράψεις INC(CNT).

αυτά, αλλά πραγματικά έχεις προχωρήσει πολύ.

Υ.Γ. ξέρεις τι λένε ... ο εχθρός του καλού, είναι το καλύτερο.

ο outy καταλαθος ειναι εκει.τι προστασια να εχουν τα button?και εσυ τωρα τι ψαχνεις? επειδη ειναι +1 και οχι INC.

τωρα πως σου φενεται

program LedLCD

dim CNT,BUTT as byte
dim txt as string[7]
main:
TRISB=%00000000
TRISA=255
Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5)
Lcd_Cmd(LCD_CLEAR)
Lcd_Cmd(LCD_CURSOR_OFF)
lcd_out(2,5,"billtech")
CNT=0
PORTB.7=1
START:
BUTT=PORTA
DELAY_MS(150)
IF BUTT.0=0 THEN GOTO CHECK1
ELSE
GOTO START
END IF

CHECK1:
INC(CNT)
BYTETOSTR (CNT,TXT)
lcd_out(1,1,TXT)

IF CNT=5 THEN
PORTB.7=0
END IF

IF CNT=10 THEN
PORTB.7=1
ELSE GOTO START
END IF

END.

αυτο με το γιατι κολλαει στο 10 δεν ξερω.

[DT200]

κολλάει στο 10 διότι δεν του λες τι να κάνει μετά το...

IF CNT=10 THEN
          PORTB.7=1
          ELSE GOTO START
          END IF

       END.

και πάει στο END. που σημαίνει ότι κολλάει εκεί, είναι αδιέξοδο.

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

[billtech]

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

[electroman]

DT200 μου αρέσει πολύ ο τρόπος που δουλεύεις... nice job!

θα σε βοηθείσω λέγοντάς σου ότι αντί για CNT=CNT+1
μπορείς να γράψεις INC(CNT).

Αυτό γιατί το λες; Δεν θα το κάνει το ίδιο ο compiler?

[electroman]

Α και ακόμα κάτι. Για τι προστασία κουμπιών μιλάς; Για την ταλάντωση μεταξύ 0 και 1;

Ευχαριστώ.