Βοήθεια Lcd Mikrobasic

[Zener_]

Ο κώδικάς μου είναι ο εξής. Τον πήρα από παράδειγμα στο manual της mikrobasic και αντί για Lcd_init(PORTB) χρησιμοποίησα την εντολή Lcd_Config.

program lcd
TRISB = 0
main:
LCD_CONFIG(PORTB, 7, 6, 5, 4, PORTB, 3, 2, 1)
LCD_CMD(LCD_CURSOR_OFF)
LCD_OUT(1, 1, "HLEKTRONIKA")
END.

Όμως δεν μου κάνει compile. Τον pic 16F628 χρησιμοποιώ. Βγάζει error και συγκεκριμένα αυτό της φωτογραφίας.

Δοκίμασα και τον κώδικα από την 2η άσκηση του 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.

Και έκανε τα ίδια.

Στην mikrobasic pro μου έχει με κόκκινο υπογραμμιζμένες τις εντολές της lcd library σαν να είναι λάθος. Ακόμη και παράδειγμα της ίδιας της mikrobasic προσπάθησα να κάνω compile για τον 16f877 και τίποτα.

Μήπως ξέρετε τι συμβαίνει;

[briko]

αλλο η mikrobasic και αλλο η mikrobasic pro
εαν το προγραμμα σου ειναι η pro ειναι δεδωμενο οτι δεν δουλευει

[Zener_]

Στην κανονική mikrobasic το γράφω, απλά δοκίμασα και στην pro για να δώ τι θα γίνει.

Ο συγκεκριμένος κώδικας γιατί δεν λειτουργεί;

[briko]

εαν εχεις οντος microbasic και οχι την pro τωτε δεν θα επρεπε να σου βγαζει error


αν θες βαλε και αυτο



program Lcd_Test

dim text as string[16]

main:
  text = "mikroElektronika"
  Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5) ' Initialize LCD connected to PORTB easypic5
  LCD_Cmd(LCD_CLEAR)                    ' Clear display
  LCD_Cmd(LCD_CURSOR_OFF)               ' Turn cursor off
  LCD_Out(1,1, text)                    ' Print text to LCD, 1st row, 1st column
  Delay_ms(1000)
  LCD_Out(2,4,"mikroBasic")                 ' Print text to LCD, 2nd row, 6th column
end.

φυσικα θα πρεπει να ελεγξεις τα pin portB οτι ειναι σωστα

[Zener_]

Και με αυτό εδώ(που μου έδωσες) βγάζει το ίδιο σφάλμα.

program lcd
TRISB = 0
dim text as string[16]

main:
  text = "mikroElektronika"
  Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5) ' Initialize LCD connected to PORTB easypic5
  LCD_Cmd(LCD_CLEAR)                    ' Clear display
  LCD_Cmd(LCD_CURSOR_OFF)               ' Turn cursor off
  LCD_Out(1,1, text)                    ' Print text to LCD, 1st row, 1st column
  Delay_ms(1000)
  LCD_Out(2,4,"mikroBasic")                 ' Print text to LCD, 2nd row, 6th column
end.

Την mikrobasic 7.2 χρησιμοποιώ.

[billtech]

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

[briko]

λοιπον επειδη μια φορα και εγω την ειχα παθει αλλα εμαθα οτι η microbasic αφηνει σκουπιδια απο πρωηγουμενα project.
πατα close project να σβησουν τελειος τα παντα και κανε new project με νεο ονομα και με τις ρυθμησεις που πρεπει.
πυστευω πως θα λυσεις το προβλημα σου

[Zener_]

Επανεγκατάσταση της mikrobasic έλυσε το πρόβλημα. Αυτό είναι οκ:

program lcd
TRISB = 0
main:
LCD_CONFIG(PORTB, 7, 6, 5, 4, PORTB, 3, 2, 1)
LCD_CMD(LCD_CURSOR_OFF)
LCD_OUT(1, 1, "HLEKTRONIKA")
END.

Σε αυτό όμως λέει indentifier dim was not declared:

program lcd
TRISB = 0
dim text as string[16]

main:
  text = "mikroElektronika"
  Lcd_Config(PORTB, 3, 2, 1, 0, PORTB, 4, 6, 5) ' Initialize LCD connected to PORTB easypic5
  LCD_Cmd(LCD_CLEAR)                    ' Clear display
  LCD_Cmd(LCD_CURSOR_OFF)               ' Turn cursor off
  LCD_Out(1,1, text)                    ' Print text to LCD, 1st row, 1st column
  Delay_ms(1000)
  LCD_Out(2,4,"mikroBasic")                 ' Print text to LCD, 2nd row, 6th column
end.

*** Λύθηκε. Το dim πρέπει να μπει πριν το TRISB.

[Zener_]

Υπάρχει ένα άλλο θέμα. Μόλις συνδέω την τροφοδοσία, η lcd δείχνει μόνο τετραγωνάκια στην πανω γραμμά, όταν όμως πατήσω το master clear στο pic εμφανίζεται στην πρώτη γραμμή mikroElectronika και παραμένει εκεί.
Μήπως χρειάζεται κάποιο delay μετά το Lcd config ή το lcd clear;

Στην δεύτερη γραμμή μετά από 1s δεν θα έπρεπε να εμφανίζεται mikroBasic;


***Το πρόβλημα ήταν στο mcrl. Το είχα συνδέσει λάθος.

[DT200]

Μπράβο φίλε Zener που έλυσες το πρόβλημα σου, μόνος σου !

Υ.Γ. καλός ήρθες στην παρέα της MikroBasic.