Created
April 26, 2012 18:36
-
-
Save rafalw/2501772 to your computer and use it in GitHub Desktop.
Program (ATtiny2313) prezentujący podstawowe operacje związane z wyświetlaniem znaków na standardowym alfanumerycznym wyświetlaczu LCD (16 znaków, 2 wiersze).
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' Latająca małpa - demo | |
' Program prezentujący podstawowe operacje związane z wyświetlaniem | |
' znaków na standardowym alfanumerycznym wyświetlaczu LCD (16 znaków, 2 wiersze). | |
' Przeróbka programu z zajęć 25 kwietnia 2012 r. | |
$regfile = "attiny2313.dat" | |
$Crystal=4000000 | |
$hwstack=40 | |
$swstack=16 | |
$framesize=32 | |
Config Lcd = 16 * 2 | |
' Zmienna I | |
' - licznik pętli | |
Dim I As Byte | |
' Podprogram (procedura) Showmonkey | |
' - funkcja wyświetla znak "@" przez [Wtime] milisekund, w wierszu | |
' [Row] i kolumnie [Col] LCD | |
Declare Sub Showmonkey(byval Col As Byte , Byval Row As Byte , Byval Wtime As Byte) | |
' Wygaszenie kursora i czyszczenie ekranu | |
Cursor Off | |
Cls | |
' Pętle animacji - osobno dla wiersza 1 i 2 | |
Do | |
For I = 1 To 16 | |
Showmonkey I , 1 , 150 | |
Next I | |
For I = 16 To 1 Step -1 | |
Showmonkey I , 2 , 150 | |
Next I | |
Loop | |
' Definicja zadeklarowanego wcześniej podprogramu Showmonkey | |
Sub Showmonkey(byval Col As Byte , Byval Row As Byte , Byval Wtime As Byte) | |
Locate Row , Col | |
Lcd "@" | |
Waitms Wtime | |
Locate Row , Col | |
Lcd Chr(32) | |
End Sub | |
End |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment