r o b o t i c h e l l a s

Αγαπητοί μας φίλοι,

Καλώς ήλθατε στην ιστοσελίδα μας. Ελπίζουμε η παραμονή σας κοντά μας να είναι για σας εποικοδομητική εμπειρία.

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

Σας ευχαριστούμε για το ενδιαφέρον σας και σας ευχόμαστε καλή συνέχεια.
r o b o t i c h e l l a s
Καλως ηρθατε στην κοινοτητα μας,για οποιαδηποτε απορια στειλετε e-mail στο info@robotic.gr

BASCOM-AVR - Παραδείγματα

Μοιραστείτε
avatar
Swantz
Admin

Αριθμός μηνυμάτων : 70
Ημερομηνία εγγραφής : 20/02/2010
Ηλικία : 45
Τόπος : Thessaloniki

BASCOM-AVR - Παραδείγματα

Δημοσίευση  Swantz Την / Το Τετ Φεβ 24, 2010 8:04 pm

Εδώ καταχωρούνται μικρά απλά παραδείγματα για εκμάθηση της γλώσσας.
avatar
Swantz
Admin

Αριθμός μηνυμάτων : 70
Ημερομηνία εγγραφής : 20/02/2010
Ηλικία : 45
Τόπος : Thessaloniki

Απ: BASCOM-AVR - Παραδείγματα

Δημοσίευση  Swantz Την / Το Πεμ Μαρ 11, 2010 2:38 am

Πολύ μικρό παράδειγμα για ρύθμιση LCD.
Προσοχή, όχι για GLCD.

Κώδικας:
$regfile = "m8515.dat"                                      ' specify the used micro
$crystal = 4000000                                          ' used crystal frequency
$baud = 19200                                              ' use baud rate
$hwstack = 32                                              ' default use 32 for the hardware stack
$swstack = 10                                              ' default use 10 for the SW stack
$framesize = 40                                            ' default use 40 for the frame space






Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Lcd = 16 * 2                                          'configure lcd screen
                                                            'other options are 16 * 4 and 20 * 4, 20 * 2 , 16 * 1a



Cls                                                        'clear the LCD display
Lcd "Hello world."                                          'display this at the top line
End                                                        'end program

Ένα κομμάτι κώδικα μέσα από τα παραδείγματα της BASCOM-AVR.
Βέβαια είναι πιο βολκό να γίνουν οι ρυθμίσεις μια φορά από το μενού του compiler
για να μην γράφουμε κάθε φορά τον ίδιο κώδικα εφόσον κρατάμε την ίδια συνδεσμολογία των pin.

Για να καταλάβετε, γλιτώνουμε τον παρακάτω κώδικα.
Κώδικας:
$regfile = "m8515.dat"                                      ' specify the used micro
$crystal = 4000000                                          ' used crystal frequency
$baud = 19200                                              ' use baud rate
$hwstack = 32                                              ' default use 32 for the hardware stack
$swstack = 10                                              ' default use 10 for the SW stack
$framesize = 40                                            ' default use 40 for the frame space






Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.5 , Rs = Portb.6
Config Lcd = 16 * 2                                        'configure lcd screen
                                                            'other options are 16 * 4 and 20 * 4, 20 * 2 , 16 * 1a

Αν ενδιαφέρεστε για περισσότερες πληροφορίες παρακαλώ ρωτήστε με.
avatar
dimbot
Master

Αριθμός μηνυμάτων : 344
Ημερομηνία εγγραφής : 22/12/2009

Απ: BASCOM-AVR - Παραδείγματα

Δημοσίευση  dimbot Την / Το Πεμ Μαρ 11, 2010 6:22 pm

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

Σίγουρα θα το δοκιμάσω στην πράξη κάποια στιγμή, οπότε αναμένεις απορίες!!! Wink

    Η τρέχουσα ημερομηνία/ώρα είναι Σαβ Νοε 18, 2017 10:18 am