ilker_32
Присъединил се: 22 юни 2009
Мнения: 28
Местоположение: Турция
|  28 юни 2009 21:52 8 * 32 точкова | | |
|
| 
| Код: | @ УСТРОЙСТВО pic16F628, INTRC_OSC_NOCLKOUT, WDT_OFF
"Кристал harici bağlanacak
cmcon = 7
DATAPIN1 VAR PORTA.0
CLOCKPIN1 VAR PORTA.1
Мандало VAR PORTA.2
TRISA% = 000000
TRISB =% 00000000
KC Var байт
KB Var байт
K1 Var байт
к-Var байт "kaydırma sayısı (sütun sayısı kadar kaydırmak için)
gsatir11 Var байт
gsatir12 Var байт
gsatir13 Var байт
gsatir14 Var байт
gsatir21 Var байт
gsatir22 Var байт
gsatir23 Var байт
gsatir24 Var байт
gsatir31 Var байт
gsatir32 Var байт
gsatir33 Var байт
gsatir34 Var байт
gsatir41 Var байт
gsatir42 Var байт
gsatir43 Var байт
gsatir44 Var байт
gsatir51 Var байт
gsatir52 Var байт
gsatir53 Var байт
gsatir54 Var байт
gsatir61 Var байт
gsatir62 Var байт
gsatir63 Var байт
gsatir64 Var байт
gsatir71 Var байт
gsatir72 Var байт
gsatir73 Var байт
gsatir74 Var байт
gsatir81 Var байт
gsatir82 Var байт
gsatir83 Var байт
gsatir84 Var байт
satir1 Var байт
satir2 Var байт
satir3 Var байт
satir4 Var байт
satir5 Var байт
satir6 Var байт
satir7 Var байт
satir8 Var байт
alinan Var байт
ясен
portb =% 11111111 "portb dotmatrisin katotlarına bağlı стар. için
Старт:
KC = 0
за KC = 0 до 12
Търсене KC, [ "ABCDEFGHIJKLMNOPRSTUVYZ"], alinan
gosub karakter
за KB = 0 до к "harf genişliği kadar kaydır
за K1 = 0 до 20 'tarama sayısı
gosub tarama
следваща K1
gosub kaydir
пауза 5 'ОЛП harfin kayma süresi
следваща KB
следваща KC
Гото проекта
karakter:
ако alinan = 32 тогава gosub bosluk
ако alinan = 65 тогава gosub A
ако alinan = 66 тогава gosub Б
ако alinan = 67 тогава gosub C
ако alinan = 68 тогава gosub D
ако alinan = 69 тогава gosub E
ако alinan = 70 тогава gosub F
ако alinan = 71 тогава gosub G
ако alinan = 72 тогава gosub H
ако alinan = 73 тогава gosub I
ако alinan = 74 тогава gosub J
ако alinan = 75 тогава gosub K
ако alinan = 76 тогава gosub L
ако alinan = 77 тогава gosub M
ако alinan = 78 тогава gosub N
ако alinan = 79 тогава gosub O
ако alinan = 80 тогава gosub P
ако alinan = 82 тогава gosub R
ако alinan = 83 тогава gosub S
ако alinan = 84 тогава gosub T
ако alinan = 85 тогава gosub U
ако alinan = 86 тогава gosub V
ако alinan = 89 тогава gosub Y
ако alinan = 90 тогава gosub Z
завръщане
kaydir:
gsatir14 = gsatir14 <<1
gsatir14.0 = gsatir13.7
gsatir13 = gsatir13 <<1
gsatir13.0 = gsatir12.7
gsatir12 = gsatir12 <<1
gsatir12.0 = gsatir11.7
gsatir11 = gsatir11 <<1
gsatir24 = gsatir24 <<1
gsatir24.0 = gsatir23.7
gsatir23 = gsatir23 <<1
gsatir23.0 = gsatir22.7
gsatir22 = gsatir22 <<1
gsatir22.0 = gsatir21.7
gsatir21 = gsatir21 <<1
gsatir34 = gsatir34 <<1
gsatir34.0 = gsatir33.7
gsatir33 = gsatir33 <<1
gsatir33.0 = gsatir32.7
gsatir32 = gsatir32 <<1
gsatir32.0 = gsatir31.7
gsatir31 = gsatir31 <<1
gsatir44 = gsatir44 <<1
gsatir44.0 = gsatir43.7
gsatir43 = gsatir43 <<1
gsatir43.0 = gsatir42.7
gsatir42 = gsatir42 <<1
gsatir42.0 = gsatir41.7
gsatir41 = gsatir41 <<1
gsatir54 = gsatir54 <<1
gsatir54.0 = gsatir53.7
gsatir53 = gsatir53 <<1
gsatir53.0 = gsatir52.7
gsatir52 = gsatir52 <<1
gsatir52.0 = gsatir51.7
gsatir51 = gsatir51 <<1
gsatir64 = gsatir64 <<1
gsatir64.0 = gsatir63.7
gsatir63 = gsatir63 <<1
gsatir63.0 = gsatir62.7
gsatir62 = gsatir62 <<1
gsatir62.0 = gsatir61.7
gsatir61 = gsatir61 <<1
gsatir74 = gsatir74 <<1
gsatir74.0 = gsatir73.7
gsatir73 = gsatir73 <<1
gsatir73.0 = gsatir72.7
gsatir72 = gsatir72 <<1
gsatir72.0 = gsatir71.7
gsatir71 = gsatir71 <<1
gsatir84 = gsatir84 <<1
gsatir84.0 = gsatir83.7
gsatir83 = gsatir83 <<1
gsatir83.0 = gsatir82.7
gsatir82 = gsatir82 <<1
gsatir82.0 = gsatir81.7
gsatir81 = gsatir81 <<1
gsatir11.0 = satir1.7
gsatir21.0 = satir2.7
gsatir31.0 = satir3.7
gsatir41.0 = satir4.7
gsatir51.0 = satir5.7
gsatir61.0 = satir6.7
gsatir71.0 = satir7.7
gsatir81.0 = satir8.7
satir1 = satir1 <<1
satir2 = satir2 <<1
satir3 = satir3 <<1
satir4 = satir4 <<1
satir5 = satir5 <<1
satir6 = satir6 <<1
satir7 = satir7 <<1
satir8 = satir8 <<1
завръщане
tarama:
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir14]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir13]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir12]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir11]
високо мандало
pauseus 10
ниска мандало
PORTB =% 01111111 "1. satır açıldı
PAUSE 1
PORTB =% 11111111 "1. satır kapandı
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir24]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir23]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir22]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir21]
високо мандало
pauseus 10
ниска мандало
PORTB =% 10111111 "2. satır açıldı
PAUSE 1
PORTB =% 11111111 "2. satır kapandı
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir34]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir33]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir32]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir31]
високо мандало
pauseus 10
ниска мандало
PORTB =% 11011111 "3. satır açıldı
PAUSE 1
PORTB =% 11111111 "3. satır kapandı
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir44]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir43]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir42]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir41]
високо мандало
pauseus 10
ниска мандало
PORTB =% 11101111 "4. satır açıldı
PAUSE 1
PORTB =% 11111111 "4. satır kapandı
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir54]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir53]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir52]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir51]
високо мандало
pauseus 10
ниска мандало
PORTB =% 11110111 "5. satır açıldı
PAUSE 1
PORTB =% 11111111 "5. satır kapandı
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir64]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir63]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir62]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir61]
високо мандало
pauseus 10
ниска мандало
PORTB =% 11111011 "6. satır açıldı
PAUSE 1
PORTB =% 11111111 "6. satır kapandı
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir74]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir73]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir72]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir71]
високо мандало
pauseus 10
ниска мандало
PORTB =% 11111101 "7. satır açıldı
PAUSE 1
PORTB =% 11111111 "7. satır kapandı
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir84]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir83]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir82]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir81]
високо мандало
pauseus 10
ниска мандало
PORTB =% 11111110 "8. satır açıldı
PAUSE 1
PORTB =% 11111111 "8. satır kapandı
завръщане
bosluk:
к = 3
satir1 =% 00000000
satir2 =% 00000000
satir3 =% 00000000
satir4 =% 00000000
satir5 =% 00000000
satir6 =% 00000000
satir7 =% 00000000
satir8 =% 00000000
завръщане
Отговор:
к = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 10001000
завръщане
Б:
к = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 11110000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 11110000
завръщане
C:
к = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10001000
satir8 =% 01110000
завръщане
_C:
к = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10101000
satir7 =% 01110000
satir8 =% 00100000
завръщане
D:
к = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 11110000
завръщане
E:
к = 5
satir1 =% 11111000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 11110000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 11111000
завръщане
F:
к = 5
satir1 =% 11111000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 11110000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
завръщане
Г:
к = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
завръщане
_G:
к = 5
satir1 =% 01110000
satir2 =% 00000000
satir3 =% 01110000
satir4 =% 10001000
satir5 =% 10000000
satir6 =% 10111000
satir7 =% 10001000
satir8 =% 01110000
завръщане
H:
к = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 10001000
завръщане
I:
к = 1
satir1 =% 10000000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
завръщане
_I:
к = 1
satir1 =% 10000000
satir2 =% 00000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
завръщане
J:
к = 5
satir1 =% 00001000
satir2 =% 00001000
satir3 =% 00001000
satir4 =% 00001000
satir5 =% 00001000
satir6 =% 00001000
satir7 =% 10001000
satir8 =% 01110000
завръщане
K:
к = 6
satir1 =% 10001000
satir2 =% 10010000
satir3 =% 10100000
satir4 =% 11000000
satir5 =% 10100000
satir6 =% 10010000
satir7 =% 10001000
satir8 =% 10000100
завръщане
L:
к = 5
satir1 =% 10000000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 11111000
завръщане
М:
к = 7
satir1 =% 10000010
satir2 =% 11000110
satir3 =% 10101010
satir4 =% 10010010
satir5 =% 10000010
satir6 =% 10000010
satir7 =% 10000010
satir8 =% 10000010
завръщане
N:
к = 6
satir1 =% 10000100
satir2 =% 11000100
satir3 =% 10100100
satir4 =% 10010100
satir5 =% 10001100
satir6 =% 10000100
satir7 =% 10000100
satir8 =% 10000100
завръщане
O:
к = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
завръщане
_O:
к = 5
satir1 =% 01010000
satir2 =% 00000000
satir3 =% 01110000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
завръщане
P:
к = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11110000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
завръщане
R:
к = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11110000
satir6 =% 10100000
satir7 =% 10010000
satir8 =% 10001000
завръщане
S:
к = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 01110000
satir5 =% 00001000
satir6 =% 00001000
satir7 =% 10001000
satir8 =% 01110000
завръщане
_S:
к = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 01110000
satir5 =% 00001000
satir6 =% 10101000
satir7 =% 01110000
satir8 =% 00100000
завръщане
Т:
к = 5
satir1 =% 11111000
satir2 =% 00100000
satir3 =% 00100000
satir4 =% 00100000
satir5 =% 00100000
satir6 =% 00100000
satir7 =% 00100000
satir8 =% 00100000
завръщане
U:
к = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
завръщане
_U:
к = 5
satir1 =% 01010000
satir2 =% 00000000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
завръщане
V:
к = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 01010000
satir8 =% 00100000
завръщане
Y:
к = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 01010000
satir4 =% 00100000
satir5 =% 00100000
satir6 =% 00100000
satir7 =% 00100000
satir8 =% 00100000
завръщане
Z:
к = 6
satir1 =% 11111100
satir2 =% 00000100
satir3 =% 00001000
satir4 =% 00010000
satir5 =% 00100000
satir6 =% 01000000
satir7 =% 10000000
satir8 =% 11111100
завръщане |
|
|
