I
ilker_32
Guest
<img src="http://img190.imageshack.us/img190/8168/ilker.png" border="0" alt=""/> Code:
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT, WDT_OFF
'kristal harici bağlanacak
cmcon = 7
DATAPIN1 VAR PORTA.0
CLOCKPIN1 VAR PORTA.1
Klinke VAR PORTA.2
TRISA =% 000000
TRISB =% 00000000
KC var byte
kb var byte
K1 var byte
KS var byte 'kaydırma sayısı (sütun sayısı kadar kaydırmak için)
gsatir11 var byte
gsatir12 var byte
gsatir13 var byte
gsatir14 var byte
gsatir21 var byte
gsatir22 var byte
gsatir23 var byte
gsatir24 var byte
gsatir31 var byte
gsatir32 var byte
gsatir33 var byte
gsatir34 var byte
gsatir41 var byte
gsatir42 var byte
gsatir43 var byte
gsatir44 var byte
gsatir51 var byte
gsatir52 var byte
gsatir53 var byte
gsatir54 var byte
gsatir61 var byte
gsatir62 var byte
gsatir63 var byte
gsatir64 var byte
gsatir71 var byte
gsatir72 var byte
gsatir73 var byte
gsatir74 var byte
gsatir81 var byte
gsatir82 var byte
gsatir83 var byte
gsatir84 var byte
satir1 var byte
satir2 var byte
satir3 var byte
satir4 var byte
satir5 var byte
satir6 var byte
satir7 var byte
satir8 var byte
alinan var byte
klar
portb =% 11111111 "portb dotmatrisin katotlarına bağlı gammel.
içinOppstart:
KC = 0
for KC = 0 til 12
lookup KC, [ "ABCDEFGHIJKLMNOPRSTUVYZ"], alinan
gosub Karakter
for kb = 0 til KS 'harf genişliği kadar kaydır
for K1 = 0 til 20 'tarama sayısı
gosub tarama
neste K1
gosub kaydir
pause 5 'bir harfin kayma süresi
neste kb
neste KC
goto startKarakter:
hvis alinan = 32 deretter gosub bosluk
hvis alinan = 65 deretter gosub A
hvis alinan = 66 deretter gosub B
hvis alinan = 67 deretter gosub C
hvis alinan = 68 deretter gosub D
hvis alinan = 69 deretter gosub E
hvis alinan = 70 deretter gosub F
hvis alinan = 71 deretter gosub G
hvis alinan = 72 deretter gosub H
hvis alinan = 73 deretter gosub jeg
hvis alinan = 74 deretter gosub J
hvis alinan = 75 deretter gosub K
hvis alinan = 76 deretter gosub L
hvis alinan = 77 deretter gosub M
hvis alinan = 78 deretter gosub N
hvis alinan = 79 deretter gosub O
hvis alinan = 80 deretter gosub P
hvis alinan = 82 deretter gosub R
hvis alinan = 83 deretter gosub S
hvis alinan = 84 deretter gosub T
hvis alinan = 85 deretter gosub U
hvis alinan = 86 deretter gosub V
hvis alinan = 89 deretter gosub Y
hvis alinan = 90 deretter gosub Ztilbakekaydir:gsatir14 = gsatir14 <<1
gsatir14.0 = gsatir13.7
gsatir13 = gsatir13 <<1
gsatir13.0 = gsatir12.7
gsatir12 = gsatir12 <<1
gsatir12.0 = gsatir11.7
gsatir11 = gsatir11 <<1gsatir24 = gsatir24 <<1
gsatir24.0 = gsatir23.7
gsatir23 = gsatir23 <<1
gsatir23.0 = gsatir22.7
gsatir22 = gsatir22 <<1
gsatir22.0 = gsatir21.7
gsatir21 = gsatir21 <<1gsatir34 = gsatir34 <<1
gsatir34.0 = gsatir33.7
gsatir33 = gsatir33 <<1
gsatir33.0 = gsatir32.7
gsatir32 = gsatir32 <<1
gsatir32.0 = gsatir31.7
gsatir31 = gsatir31 <<1gsatir44 = gsatir44 <<1
gsatir44.0 = gsatir43.7
gsatir43 = gsatir43 <<1
gsatir43.0 = gsatir42.7
gsatir42 = gsatir42 <<1
gsatir42.0 = gsatir41.7
gsatir41 = gsatir41 <<1gsatir54 = gsatir54 <<1
gsatir54.0 = gsatir53.7
gsatir53 = gsatir53 <<1
gsatir53.0 = gsatir52.7
gsatir52 = gsatir52 <<1
gsatir52.0 = gsatir51.7
gsatir51 = gsatir51 <<1gsatir64 = gsatir64 <<1
gsatir64.0 = gsatir63.7
gsatir63 = gsatir63 <<1
gsatir63.0 = gsatir62.7
gsatir62 = gsatir62 <<1
gsatir62.0 = gsatir61.7
gsatir61 = gsatir61 <<1gsatir74 = gsatir74 <<1
gsatir74.0 = gsatir73.7
gsatir73 = gsatir73 <<1
gsatir73.0 = gsatir72.7
gsatir72 = gsatir72 <<1
gsatir72.0 = gsatir71.7
gsatir71 = gsatir71 <<1gsatir84 = gsatir84 <<1
gsatir84.0 = gsatir83.7
gsatir83 = gsatir83 <<1
gsatir83.0 = gsatir82.7
gsatir82 = gsatir82 <<1
gsatir82.0 = gsatir81.7
gsatir81 = gsatir81 <<1gsatir11.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.7satir1 = satir1 <<1
satir2 = satir2 <<1
satir3 = satir3 <<1
satir4 = satir4 <<1
satir5 = satir5 <<1
satir6 = satir6 <<1
satir7 = satir7 <<1
satir8 = satir8 <<1
tilbaketarama:ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir14]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir13]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir12]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir11]
høy klinke
pauseus 10
lav klinke
PORTB =% 01111111'1.
Satir açıldı
PAUSE 1
PORTB =% 11111111'1.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir24]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir23]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir22]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir21]
høy klinke
pauseus 10
lav klinke
PORTB =% 10111111'2.
Satir açıldı
PAUSE 1
PORTB =% 11111111'2.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir34]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir33]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir32]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir31]
høy klinke
pauseus 10
lav klinke
PORTB =% 11011111'3.
Satir açıldı
PAUSE 1
PORTB =% 11111111'3.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir44]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir43]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir42]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir41]
høy klinke
pauseus 10
lav klinke
PORTB =% 11101111'4.
Satir açıldı
PAUSE 1
PORTB =% 11111111'4.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir54]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir53]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir52]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir51]
høy klinke
pauseus 10
lav klinke
PORTB =% 11110111 "5..
Satir açıldı
PAUSE 1
PORTB =% 11111111 "5..
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir64]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir63]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir62]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir61]
høy klinke
pauseus 10
lav klinke
PORTB =% 11111011'6.
Satir açıldı
PAUSE 1
PORTB =% 11111111'6.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir74]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir73]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir72]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir71]
høy klinke
pauseus 10
lav klinke
PORTB =% 11111101'7.
Satir açıldı
PAUSE 1
PORTB =% 11111111'7.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir84]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir83]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir82]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir81]
høy klinke
pauseus 10
lav klinke
PORTB =% 11111110'8.
Satir açıldı
PAUSE 1
PORTB =% 11111111'8.
Satir kapandıtilbakebosluk:
KS = 3
satir1 =% 00000000
satir2 =% 00000000
satir3 =% 00000000
satir4 =% 00000000
satir5 =% 00000000
satir6 =% 00000000
satir7 =% 00000000
satir8 =% 00000000
tilbakeA:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 10001000
tilbakeB:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 11110000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 11110000
tilbakeC:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10001000
satir8 =% 01110000
tilbake_C:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10101000
satir7 =% 01110000
satir8 =% 00100000
tilbakeD:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 11110000
tilbakeE:
KS = 5
satir1 =% 11111000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 11110000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 11111000
tilbakeF:
KS = 5
satir1 =% 11111000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 11110000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbakeG:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_G:
KS = 5
satir1 =% 01110000
satir2 =% 00000000
satir3 =% 01110000
satir4 =% 10001000
satir5 =% 10000000
satir6 =% 10111000
satir7 =% 10001000
satir8 =% 01110000
tilbakeH:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 10001000
tilbakeI:
KS = 1
satir1 =% 10000000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbake_I:
KS = 1
satir1 =% 10000000
satir2 =% 00000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbakeJ:
KS = 5
satir1 =% 00001000
satir2 =% 00001000
satir3 =% 00001000
satir4 =% 00001000
satir5 =% 00001000
satir6 =% 00001000
satir7 =% 10001000
satir8 =% 01110000
tilbakeK:
KS = 6
satir1 =% 10001000
satir2 =% 10010000
satir3 =% 10100000
satir4 =% 11000000
satir5 =% 10100000
satir6 =% 10010000
satir7 =% 10001000
satir8 =% 10000100
tilbakeL:
KS = 5
satir1 =% 10000000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 11111000
tilbakeM:
KS = 7
satir1 =% 10000010
satir2 =% 11000110
satir3 =% 10101010
satir4 =% 10010010
satir5 =% 10000010
satir6 =% 10000010
satir7 =% 10000010
satir8 =% 10000010
tilbakeN:
KS = 6
satir1 =% 10000100
satir2 =% 11000100
satir3 =% 10100100
satir4 =% 10010100
satir5 =% 10001100
satir6 =% 10000100
satir7 =% 10000100
satir8 =% 10000100
tilbakeO:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_O:
KS = 5
satir1 =% 01010000
satir2 =% 00000000
satir3 =% 01110000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbakeP:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11110000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbakeR:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11110000
satir6 =% 10100000
satir7 =% 10010000
satir8 =% 10001000
tilbakeS:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 01110000
satir5 =% 00001000
satir6 =% 00001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_S:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 01110000
satir5 =% 00001000
satir6 =% 10101000
satir7 =% 01110000
satir8 =% 00100000
tilbakeT:
KS = 5
satir1 =% 11111000
satir2 =% 00100000
satir3 =% 00100000
satir4 =% 00100000
satir5 =% 00100000
satir6 =% 00100000
satir7 =% 00100000
satir8 =% 00100000
tilbakeU:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_u:
KS = 5
satir1 =% 01010000
satir2 =% 00000000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbakeV:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 01010000
satir8 =% 00100000
tilbakeY:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 01010000
satir4 =% 00100000
satir5 =% 00100000
satir6 =% 00100000
satir7 =% 00100000
satir8 =% 00100000
tilbakeZ:
KS = 6
satir1 =% 11111100
satir2 =% 00000100
satir3 =% 00001000
satir4 =% 00010000
satir5 =% 00100000
satir6 =% 01000000
satir7 =% 10000000
satir8 =% 11111100
tilbake
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT, WDT_OFF
'kristal harici bağlanacak
cmcon = 7
DATAPIN1 VAR PORTA.0
CLOCKPIN1 VAR PORTA.1
Klinke VAR PORTA.2
TRISA =% 000000
TRISB =% 00000000
KC var byte
kb var byte
K1 var byte
KS var byte 'kaydırma sayısı (sütun sayısı kadar kaydırmak için)
gsatir11 var byte
gsatir12 var byte
gsatir13 var byte
gsatir14 var byte
gsatir21 var byte
gsatir22 var byte
gsatir23 var byte
gsatir24 var byte
gsatir31 var byte
gsatir32 var byte
gsatir33 var byte
gsatir34 var byte
gsatir41 var byte
gsatir42 var byte
gsatir43 var byte
gsatir44 var byte
gsatir51 var byte
gsatir52 var byte
gsatir53 var byte
gsatir54 var byte
gsatir61 var byte
gsatir62 var byte
gsatir63 var byte
gsatir64 var byte
gsatir71 var byte
gsatir72 var byte
gsatir73 var byte
gsatir74 var byte
gsatir81 var byte
gsatir82 var byte
gsatir83 var byte
gsatir84 var byte
satir1 var byte
satir2 var byte
satir3 var byte
satir4 var byte
satir5 var byte
satir6 var byte
satir7 var byte
satir8 var byte
alinan var byte
klar
portb =% 11111111 "portb dotmatrisin katotlarına bağlı gammel.
içinOppstart:
KC = 0
for KC = 0 til 12
lookup KC, [ "ABCDEFGHIJKLMNOPRSTUVYZ"], alinan
gosub Karakter
for kb = 0 til KS 'harf genişliği kadar kaydır
for K1 = 0 til 20 'tarama sayısı
gosub tarama
neste K1
gosub kaydir
pause 5 'bir harfin kayma süresi
neste kb
neste KC
goto startKarakter:
hvis alinan = 32 deretter gosub bosluk
hvis alinan = 65 deretter gosub A
hvis alinan = 66 deretter gosub B
hvis alinan = 67 deretter gosub C
hvis alinan = 68 deretter gosub D
hvis alinan = 69 deretter gosub E
hvis alinan = 70 deretter gosub F
hvis alinan = 71 deretter gosub G
hvis alinan = 72 deretter gosub H
hvis alinan = 73 deretter gosub jeg
hvis alinan = 74 deretter gosub J
hvis alinan = 75 deretter gosub K
hvis alinan = 76 deretter gosub L
hvis alinan = 77 deretter gosub M
hvis alinan = 78 deretter gosub N
hvis alinan = 79 deretter gosub O
hvis alinan = 80 deretter gosub P
hvis alinan = 82 deretter gosub R
hvis alinan = 83 deretter gosub S
hvis alinan = 84 deretter gosub T
hvis alinan = 85 deretter gosub U
hvis alinan = 86 deretter gosub V
hvis alinan = 89 deretter gosub Y
hvis alinan = 90 deretter gosub Ztilbakekaydir:gsatir14 = gsatir14 <<1
gsatir14.0 = gsatir13.7
gsatir13 = gsatir13 <<1
gsatir13.0 = gsatir12.7
gsatir12 = gsatir12 <<1
gsatir12.0 = gsatir11.7
gsatir11 = gsatir11 <<1gsatir24 = gsatir24 <<1
gsatir24.0 = gsatir23.7
gsatir23 = gsatir23 <<1
gsatir23.0 = gsatir22.7
gsatir22 = gsatir22 <<1
gsatir22.0 = gsatir21.7
gsatir21 = gsatir21 <<1gsatir34 = gsatir34 <<1
gsatir34.0 = gsatir33.7
gsatir33 = gsatir33 <<1
gsatir33.0 = gsatir32.7
gsatir32 = gsatir32 <<1
gsatir32.0 = gsatir31.7
gsatir31 = gsatir31 <<1gsatir44 = gsatir44 <<1
gsatir44.0 = gsatir43.7
gsatir43 = gsatir43 <<1
gsatir43.0 = gsatir42.7
gsatir42 = gsatir42 <<1
gsatir42.0 = gsatir41.7
gsatir41 = gsatir41 <<1gsatir54 = gsatir54 <<1
gsatir54.0 = gsatir53.7
gsatir53 = gsatir53 <<1
gsatir53.0 = gsatir52.7
gsatir52 = gsatir52 <<1
gsatir52.0 = gsatir51.7
gsatir51 = gsatir51 <<1gsatir64 = gsatir64 <<1
gsatir64.0 = gsatir63.7
gsatir63 = gsatir63 <<1
gsatir63.0 = gsatir62.7
gsatir62 = gsatir62 <<1
gsatir62.0 = gsatir61.7
gsatir61 = gsatir61 <<1gsatir74 = gsatir74 <<1
gsatir74.0 = gsatir73.7
gsatir73 = gsatir73 <<1
gsatir73.0 = gsatir72.7
gsatir72 = gsatir72 <<1
gsatir72.0 = gsatir71.7
gsatir71 = gsatir71 <<1gsatir84 = gsatir84 <<1
gsatir84.0 = gsatir83.7
gsatir83 = gsatir83 <<1
gsatir83.0 = gsatir82.7
gsatir82 = gsatir82 <<1
gsatir82.0 = gsatir81.7
gsatir81 = gsatir81 <<1gsatir11.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.7satir1 = satir1 <<1
satir2 = satir2 <<1
satir3 = satir3 <<1
satir4 = satir4 <<1
satir5 = satir5 <<1
satir6 = satir6 <<1
satir7 = satir7 <<1
satir8 = satir8 <<1
tilbaketarama:ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir14]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir13]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir12]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir11]
høy klinke
pauseus 10
lav klinke
PORTB =% 01111111'1.
Satir açıldı
PAUSE 1
PORTB =% 11111111'1.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir24]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir23]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir22]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir21]
høy klinke
pauseus 10
lav klinke
PORTB =% 10111111'2.
Satir açıldı
PAUSE 1
PORTB =% 11111111'2.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir34]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir33]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir32]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir31]
høy klinke
pauseus 10
lav klinke
PORTB =% 11011111'3.
Satir açıldı
PAUSE 1
PORTB =% 11111111'3.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir44]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir43]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir42]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir41]
høy klinke
pauseus 10
lav klinke
PORTB =% 11101111'4.
Satir açıldı
PAUSE 1
PORTB =% 11111111'4.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir54]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir53]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir52]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir51]
høy klinke
pauseus 10
lav klinke
PORTB =% 11110111 "5..
Satir açıldı
PAUSE 1
PORTB =% 11111111 "5..
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir64]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir63]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir62]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir61]
høy klinke
pauseus 10
lav klinke
PORTB =% 11111011'6.
Satir açıldı
PAUSE 1
PORTB =% 11111111'6.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir74]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir73]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir72]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir71]
høy klinke
pauseus 10
lav klinke
PORTB =% 11111101'7.
Satir açıldı
PAUSE 1
PORTB =% 11111111'7.
Satir kapandıShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir84]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir83]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir82]
ShiftOut DATAPIN1, CLOCKPIN1, 1, [gsatir81]
høy klinke
pauseus 10
lav klinke
PORTB =% 11111110'8.
Satir açıldı
PAUSE 1
PORTB =% 11111111'8.
Satir kapandıtilbakebosluk:
KS = 3
satir1 =% 00000000
satir2 =% 00000000
satir3 =% 00000000
satir4 =% 00000000
satir5 =% 00000000
satir6 =% 00000000
satir7 =% 00000000
satir8 =% 00000000
tilbakeA:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 10001000
tilbakeB:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 11110000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 11110000
tilbakeC:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10001000
satir8 =% 01110000
tilbake_C:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10101000
satir7 =% 01110000
satir8 =% 00100000
tilbakeD:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 11110000
tilbakeE:
KS = 5
satir1 =% 11111000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 11110000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 11111000
tilbakeF:
KS = 5
satir1 =% 11111000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 11110000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbakeG:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_G:
KS = 5
satir1 =% 01110000
satir2 =% 00000000
satir3 =% 01110000
satir4 =% 10001000
satir5 =% 10000000
satir6 =% 10111000
satir7 =% 10001000
satir8 =% 01110000
tilbakeH:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11111000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 10001000
tilbakeI:
KS = 1
satir1 =% 10000000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbake_I:
KS = 1
satir1 =% 10000000
satir2 =% 00000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbakeJ:
KS = 5
satir1 =% 00001000
satir2 =% 00001000
satir3 =% 00001000
satir4 =% 00001000
satir5 =% 00001000
satir6 =% 00001000
satir7 =% 10001000
satir8 =% 01110000
tilbakeK:
KS = 6
satir1 =% 10001000
satir2 =% 10010000
satir3 =% 10100000
satir4 =% 11000000
satir5 =% 10100000
satir6 =% 10010000
satir7 =% 10001000
satir8 =% 10000100
tilbakeL:
KS = 5
satir1 =% 10000000
satir2 =% 10000000
satir3 =% 10000000
satir4 =% 10000000
satir5 =% 10000000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 11111000
tilbakeM:
KS = 7
satir1 =% 10000010
satir2 =% 11000110
satir3 =% 10101010
satir4 =% 10010010
satir5 =% 10000010
satir6 =% 10000010
satir7 =% 10000010
satir8 =% 10000010
tilbakeN:
KS = 6
satir1 =% 10000100
satir2 =% 11000100
satir3 =% 10100100
satir4 =% 10010100
satir5 =% 10001100
satir6 =% 10000100
satir7 =% 10000100
satir8 =% 10000100
tilbakeO:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_O:
KS = 5
satir1 =% 01010000
satir2 =% 00000000
satir3 =% 01110000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbakeP:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11110000
satir6 =% 10000000
satir7 =% 10000000
satir8 =% 10000000
tilbakeR:
KS = 5
satir1 =% 11110000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 11110000
satir6 =% 10100000
satir7 =% 10010000
satir8 =% 10001000
tilbakeS:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 01110000
satir5 =% 00001000
satir6 =% 00001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_S:
KS = 5
satir1 =% 01110000
satir2 =% 10001000
satir3 =% 10000000
satir4 =% 01110000
satir5 =% 00001000
satir6 =% 10101000
satir7 =% 01110000
satir8 =% 00100000
tilbakeT:
KS = 5
satir1 =% 11111000
satir2 =% 00100000
satir3 =% 00100000
satir4 =% 00100000
satir5 =% 00100000
satir6 =% 00100000
satir7 =% 00100000
satir8 =% 00100000
tilbakeU:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbake_u:
KS = 5
satir1 =% 01010000
satir2 =% 00000000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 10001000
satir8 =% 01110000
tilbakeV:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 10001000
satir4 =% 10001000
satir5 =% 10001000
satir6 =% 10001000
satir7 =% 01010000
satir8 =% 00100000
tilbakeY:
KS = 5
satir1 =% 10001000
satir2 =% 10001000
satir3 =% 01010000
satir4 =% 00100000
satir5 =% 00100000
satir6 =% 00100000
satir7 =% 00100000
satir8 =% 00100000
tilbakeZ:
KS = 6
satir1 =% 11111100
satir2 =% 00000100
satir3 =% 00001000
satir4 =% 00010000
satir5 =% 00100000
satir6 =% 01000000
satir7 =% 10000000
satir8 =% 11111100
tilbake