Bascom AVR - Wersja do druku

Kod:

'-----------------------------------------------------------------------------------------

'name                     : ks108.bas

'copyright                : (c) 1995-2005, MCS Electronics

'purpose                  : demonstrates the KS108 based graphical display support

'micro                    : Mega323

'suited for demo          : no

'commercial addon needed  : no

'-----------------------------------------------------------------------------------------



$regfile = "m644pdef.dat"                                   ' specify the used micro

$crystal = 16000000                                         ' 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

'$sim



'some routines to control the display are in the glcdKS108.lib file

$lib "glcdKS108.lbx"







Waitms 200



'Print "Test program by SP3SWJ for KS0108 LCD"               ' printing will still work as only the receiver pin is disabled





'First we define that we use a graphic LCD

Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 7 , Ce2 = 6 , Cd = 3 , Rd = 4 , Reset = 5 , Enable = 2



Config Pind.6 = Input : Set Pind.6

Config Pind.7 = Input : Set Pind.7

S1 Alias Pind.6

S2 Alias Pind.7



Dim A As Word

Dim B As Word





'The dataport is the portname that is connected to the data lines of the LCD

'The controlport is the portname which pins are used to control the lcd

'CE =CS1  Chip select

'CE2=CS2  Chip select second chip

'CD=Data/instruction

'RD=Read

'RESET = reset

'ENABLE= Chip Enable



 'When you want to show somthing on the LCD, use the LCDAT command

'LCDAT   LINES , COLUMN, VALIUE , COLOR

'You can use locate but the

'COMULNS  have a range from 1-128 pixels

'LINES    number of lines

         '1 2 3 4 5 6 7 8 for 8x8 font

         '1,3,5,7 for 16x16  lines 2 4 6  is shifted   8 not allowed

'VALUE    displayed value

          'not longer than 16 chars  for 8x8

          'not longer than 8  for 16x16

         'last char Is Rollover Half Screen - line can not be to longer

'COLOR    1 will inverse the text 0 = normal













Wait 1

Cls

Setfont Font16x16

B = 16

A = 0

Do

Lcdat 7 , 1 , A ; "  "

If S1 = 0 Then

   Waitms 100

   If S1 = 0 Then

      Incr A

      If A > 361 Then

         A = 360

      End If

   End If

End If



If S2 = 0 Then

   Waitms 100

   If S2 = 0 Then

      Decr A

      If A < 0 Or A > 361 Then

         A = 0

      End If

   End If

End If









Line(23 , 17) -(23 , 30) , 1

If A > 9 Then

B = B - 8

Elseif A > 99 Then

B = B - 8

Else

B = 16

End If

Lcdat 1 , B , A









Loop







'we need to include the font files

$include "font16x16.font"

Kod:

https://docs.google.com/spreadsheet/ccc?key=0AlfxJCZSNErUdGZabnQ1N3hmVlV0eGpHdW1aVkR2elE#gid=0

Kod PHP:

'https://docs.google.com/spreadsheet/ccc?key=0AlfxJCZSNErUdGZabnQ1N3hmVlV0eGpHdW1aVkR2elE'

Kod:

Znamiennik:

'uruchamiam sobie TX

Ptt = 1

Tx_led = 1

Wentylator = 1

'blokujemy timer na czas wysylania znamiennika bo chrypi

 Stop Timer0

 Waitms 300

   Stringlength = Len(inputtekst)

'tutaj przesuwamy się po ciągu znaków i będziemy odtwarzać każdą literę z osobna

   For Charindex = 1 To Stringlength

   Sendchar = Mid(inputtekst , Charindex , 1)

   Charcode = Asc(sendchar)



    Dataindex = Charcode - 48

    Charstring = Lookupstr(dataindex , Alfabet)

    Codelength = Len(charstring)



'ta pętla generuje kazda litere znaku

         For Codeindex = 1 To Codelength

               Codeelement = Mid(charstring , Codeindex , 1)

            If Codeelement = "." Then

'Zagraj kropke

               Sound Morsepin , Kropka , Czestotliwosc

            Else

'Zagraj kreske

               Sound Morsepin , Kreska , Czestotliwosc

            End If

            If Codeindex < Codelength Then

               Waitms Kropka

            End If

         Next Codeelement

'odstęp pomiedzy znakami 3 x kropka

      Waitms Kreska

'i wracamy do początku pętli po następną literę

   Next Charindex

'resetujemy flagi

   Ptt = 0

   Tx_led = 0

   'Wentoff = 1

'skonczylismy nadawac znamiennik odpalamy timer 1

   Start Timer0

Return

Kod:

Alfabet:

Data "-----"                                                '0  Znaki pokolei tak jak są ustawione w tablicy ASCII

Data ".----"                                                '1  przy wywoływaniu musimy tylko przestawić indeks o 48

Data "..---"                                                '2  ponieważ cyfra 0 ma kod ASCII 48

Data "...--"                                                '3

Data "....-"                                                '4

Data "....."                                                '5

Data "-...."                                                '6

Data "--..."                                                '7

Data "---.."                                                '8

Data "----."                                                '9

Data "."                                                    ': do generowania znamienników znaki specjalne nie są potrzebne

Data "."                                                    ';

Data "."                                                    '<

Data "."                                                    '=

Data "."                                                    '>

Data "."                                                    '?

Data "."                                                    '@

Data ".-"                                                   'A  Literki

Data "-..."                                                 'B

Data "-.-."                                                 'C

Data "-.."                                                  'D

Data "."                                                    'E

Data "..-."                                                 'F

Data "--."                                                  'G

Data "...."                                                 'H

Data ".."                                                   'I

Data ".---"                                                 'J

Data "-.-"                                                  'K

Data ".-.."                                                 'L

Data "--"                                                   'M

Data "-."                                                   'N

Data "---"                                                  'O

Data ".--."                                                 'P

Data "--.-"                                                 'Q

Data ".-."                                                  'R

Data "..."                                                  'S

Data "-"                                                    'T

Data "..-"                                                  'U

Data "...-"                                                 'V

Data ".--"                                                  'W

Data "-..-"                                                 'X

Data "-.--"                                                 'Y

Data "--.."                                                 'Z