Pic Basic Pro kodları:
'****************************************************
'64 sütunlu, sütun kaydırmalı dot matrix led
'16f877 entegre ve sütun kaydırma için 74HC238 entegresi kullanılmıştır
'RASTGELE ANİMASYON
'****************************************************
TRISC=%00000000
TRISB=%00000000
PORTC=%00000000
HIZ VAR BYTE 'yazının kayma hızı
KR_ENI VAR BYTE 'karakterin sütun sayayacı
EN VAR BYTE 'karakterin sütun sayısı
TOP_EN VAR BYTE'alınan karakterlerin toplam genişliği
TMR VAR WORD 'bir satırın gösterim süresi
SBT VAR BYTE 'sabit tutma süresi
YAZI_SEC VAR BYTE 'Yazıların sıralanması
ZE VAR BYTE 'for-next değişkeni
ZE1 VAR BYTE 'for-next değişkeni
KAYMA VAR BYTE 'for-next değişkeni
TE VAR BYTE 'for-next değişkeni (hız sayacı)
IN VAR BYTE 'for-next değişkeni
KR_AL VAR BYTE 'sıradaki karakteri alma
KR_SIRASI VAR BYTE 'kodlanmış karakter sıralaması
ALINAN_KR VAR BYTE 'alınan karakter
KR VAR BYTE[8] 'karakter sütunları
USTEL VAR BYTE 'asagı yukarı kaydırmada kullanılan değişken
SUTUN VAR BYTE[64] 'sütun adresi
YDK_SUTUN VAR BYTE[64] 'yedek sütun adresi
Rastgele VAR WORD
secim VAR BYTE
HIZ=0 'kayma hızını buradan ayarlayınız
SBT=50 'sabit bekleme süresini buradan ayarlayınız
PORTB=255
KR_ENI=0
TMR=1000
YAZI_SEC=0
IN=0
secim=10
'*** ANA PROGRAM ***
SIRALA:
TOP_EN=0
GOSUB SUTUN_SIFIRLA
BRANCH YAZI_SEC,[YAZI_1,YAZI_2,YAZI_3,YAZI_4,YAZI_5,YAZI_6,YAZI_7,YAZI_8,YAZI_9,YAZI_10]
'Ekrandan büyük yazılar için
'****************************
YAZI_1: 'Sola kayan yazı animasyonu
FOR KR_AL=0 TO 23 'girilen karakter sayısı-1
LOOKUP KR_AL,["www.elektrikdersimiz.lovestoblog.com"],ALINAN_KR
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
GOSUB SOLA_KAYDIR
NEXT KR_ENI
NEXT KR_AL
GOSUB BOSLUK
FOR KAYMA=0 TO 63
GOSUB SOLA_KAYDIR
NEXT KAYMA
GOTO YAZI_SEC_SAYAC
'****************************
'Ekrandan küçük yazılar için
'****************************
YAZI_2:
FOR KR_AL=0 TO 6 'girilen karakter sayısı-1
LOOKUP KR_AL,["Kumanda"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_3:
FOR KR_AL=0 TO 2 'girilen karakter sayısı-1
LOOKUP KR_AL,["Plc"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_4:
FOR KR_AL=0 TO 2 'girilen karakter sayısı-1
LOOKUP KR_AL,["Pic"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_5:
FOR KR_AL=0 TO 6 'girilen karakter sayısı-1
LOOKUP KR_AL,["Arduino"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_6:
FOR KR_AL=0 TO 7 'girilen karakter sayısı-1
LOOKUP KR_AL,["Zumreler"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_7:
FOR KR_AL=0 TO 6 'girilen karakter sayısı-1
LOOKUP KR_AL,["Planlar"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_8:
FOR KR_AL=0 TO 8 'girilen karakter sayısı-1
LOOKUP KR_AL,["Rehberlik"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_9:
FOR KR_AL=0 TO 7 'girilen karakter sayısı-1
LOOKUP KR_AL,["Kulupler"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
YAZI_10:
FOR KR_AL=0 TO 7
LOOKUP KR_AL,["Sinavlar"],ALINAN_KR
GOSUB ANM_sec
NEXT KR_AL
GOTO ANM_sec_b
'*****************************
'*** ALT PROGRAMLAR ***
ANM_sec:
IF secim>7 THEN
WHILE secim>7
RANDOM Rastgele
secim=Rastgele DIG 0
WEND
GOTO sec
ELSE
GOTO sec
ENDIF
sec:
BRANCH secim,[ANM1_a,ANM2_a,ANM3_a,ANM4_a,ANM5_a,ANM6_a,ANM7_a,ANM8_a]
ANM_sec_b:
BRANCH secim,[ANM1_b,ANM2_b,ANM3_b,ANM4_b,ANM5_b,ANM6_b,ANM7_b,ANM8_b]
ANM1_a: 'sağdan giriş animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB SOLA_KAYDIR
TOP_EN=TOP_EN+1
ELSE
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM1_b: 'sağdan giriş animasyonu devamı
GOSUB BOSLUK
FOR KAYMA=1 TO (64-TOP_EN)/2'yazıyı ortalatma
GOSUB SOLA_KAYDIR
NEXT KAYMA
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
ANM2_a: 'Çakarlı sabit yazı animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB KAYIT
TOP_EN=TOP_EN+1
ELSE
GOSUB FLASH
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM2_b: 'Çakarlı sabit yazı animasyonu devamı
GOSUB BOSLUK
FOR KAYMA=1 TO (64-TOP_EN)/2 'yazıyı ortalatma
GOSUB KAYIT
NEXT KAYMA
GOSUB FLASH
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
ANM3_a: ' soldan giriş animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB YDK_KAYIT
TOP_EN=TOP_EN+1
ELSE
FOR KAYMA=0 TO 63
GOSUB SAGA_KAYDIR
NEXT KAYMA
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM3_b: ' soldan giriş animasyonu devamı
FOR KAYMA=0 TO (TOP_EN+(65-TOP_EN)/2)-1'yazıyı ortalatma
GOSUB SAGA_KAYDIR
NEXT KAYMA
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
ANM4_a: 'Yukarı kaydırma animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB YDK_KAYIT
TOP_EN=TOP_EN+1
ELSE
GOSUB YKR_KAYDIR
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM4_b: 'Yukarı kaydırma animasyonu devamı
GOSUB BOSLUK
FOR KAYMA=1 TO (64-TOP_EN)/2 'yazıyı ortalatma
GOSUB YDK_KAYIT
NEXT KAYMA
GOSUB YKR_KAYDIR
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
ANM5_a: 'Yukarı doldurma animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB YDK_KAYIT
TOP_EN=TOP_EN+1
ELSE
GOSUB YKR_EKLE
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM5_b: 'Yukarı doldurma animasyonu devamı
GOSUB BOSLUK
FOR KAYMA=1 TO (64-TOP_EN)/2 'yazıyı ortalatma
GOSUB YDK_KAYIT
NEXT KAYMA
GOSUB YKR_EKLE
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
ANM6_a: 'Aşağı kaydırma animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB YDK_KAYIT
TOP_EN=TOP_EN+1
ELSE
GOSUB ASG_KAYDIR
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM6_b: 'Aşağı kaydırma animasyonu devamı
GOSUB BOSLUK
FOR KAYMA=1 TO (64-TOP_EN)/2 'yazıyı ortalatma
GOSUB YDK_KAYIT
NEXT KAYMA
GOSUB ASG_KAYDIR
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
ANM7_a: 'Aşağı doldurma animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB YDK_KAYIT
TOP_EN=TOP_EN+1
ELSE
GOSUB ASG_EKLE
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM7_b: 'Aşağı doldurma animasyonu devamı
GOSUB BOSLUK
FOR KAYMA=1 TO (64-TOP_EN)/2 'yazıyı ortalatma
GOSUB YDK_KAYIT
NEXT KAYMA
GOSUB ASG_EKLE
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
ANM8_a: 'sağa ekle animasyonu
GOSUB KARAKTER
FOR KR_ENI=0 TO EN
IF TOP_EN<64 b="">THEN
GOSUB YDK_KAYIT
TOP_EN=TOP_EN+1
ELSE
GOSUB SAGA_EKLE
GOSUB SABIT
GOTO YAZI_SEC_SAYAC
ENDIF
NEXT KR_ENI
RETURN
ANM8_b: 'sağa ekle animasyonu devamı
GOSUB BOSLUK
FOR KAYMA=1 TO (64-TOP_EN)/2 'yazıyı ortalatma
GOSUB YDK_KAYIT
NEXT KAYMA
GOSUB SAGA_EKLE
GOSUB SABIT
secim=10
GOTO YAZI_SEC_SAYAC
KARAKTER:
'lookdown komutuyla alınan karaktere sıra numarası verilir
'branch komutuyla sıradaki karaktere göre karakter kodlarına gönderir
LOOKDOWN ALINAN_KR,["0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",_
"abcdefghijklmnopqrstuvwxyz!'#$%&()?- .:,<>@"],KR_SIRASI
BRANCHL KR_SIRASI,[SIFIR,BIR,IKI,UC,DORT,BES,ALTI,YEDI,SEKIZ,DOKUZ,_
A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,_
_a,_b,_c,_d,_e,_f,_g,_h,_i,_j,_k,_l,_m,_n,_o,_p,_q,_r,_s,_t,_U,_v,_w,_x,_y,_z,_
UNLEM,kesme,diyez,dolar,yuzde,ve,parantezac,parantezkapa,soru,_
TIRE,bosluk,nokta,ikinokta,virgul,kucuktur,buyuktur,guzele]
KAYIT:
FOR IN=0 TO 62
SUTUN[IN]=SUTUN[IN+1]
NEXT IN
SUTUN[63]=KR[1]
FOR IN=1 TO 5
KR[IN]=KR[IN+1]
NEXT IN
RETURN
YDK_KAYIT:
FOR IN=0 TO 62
YDK_SUTUN[IN]=YDK_SUTUN[IN+1]
NEXT IN
YDK_SUTUN[63]=KR[1]
FOR IN=1 TO 5
KR[IN]=KR[IN+1]
NEXT IN
RETURN
FLASH: 'çakar animasyonu
FOR ZE=0 TO 4
portb=255
PAUSE 50
FOR ZE1=0 TO 0
GOSUB TARAMA
NEXT ZE1
NEXT ZE
RETURN
SABIT:
FOR ZE=0 TO SBT
GOSUB TARAMA
NEXT ZE
RETURN
SOLA_KAYDIR:
FOR IN=0 TO 62
SUTUN[IN]=SUTUN[IN+1]
NEXT IN
SUTUN[63]=KR[1]
FOR IN=1 TO 5
KR[IN]=KR[IN+1]
NEXT IN
GOSUB TARAMA
RETURN
SAGA_KAYDIR: 'sağa kaydırma
FOR ZE=63 TO 1 STEP -1
SUTUN[ZE]=SUTUN[ZE-1]
NEXT ZE
SUTUN[0]=YDK_SUTUN[63-KAYMA]
GOSUB TARAMA
RETURN
YKR_KAYDIR: 'çakar animasyonu
FOR ZE=0 TO 7
FOR ZE1=0 TO 63
SUTUN[ZE1]=SUTUN[ZE1]>>1|YDK_SUTUN[ZE1]*128
NEXT ZE1
GOSUB TARAMA
FOR ZE1=0 TO 63
YDK_SUTUN[ZE1]=YDK_SUTUN[ZE1]>>1
NEXT ZE1
NEXT ZE
RETURN
ASG_KAYDIR: 'aşağı kaydırma animasyonu
FOR ZE=0 TO 7
FOR ZE1=0 TO 63
SUTUN[ZE1]=SUTUN[ZE1]<<1 b="">NEXT ZE1
GOSUB TARAMA
FOR ZE1=0 TO 63
YDK_SUTUN[ZE1]=YDK_SUTUN[ZE1]<<1 b="">NEXT ZE1
NEXT ZE
RETURN
SAGA_EKLE: 'sağa doldurma
FOR ZE=0 TO 63
SUTUN[ZE]=YDK_SUTUN[ZE]
GOSUB TARAMA
NEXT ZE
RETURN
YKR_EKLE: 'yukarı doldurma
USTEL=64
FOR ZE=0 TO 7
FOR ZE1=0 TO 63
SUTUN[ZE1]=SUTUN[ZE1]|(YDK_SUTUN[ZE1]&USTEL)
NEXT ZE1
USTEL=USTEL/2
GOSUB TARAMA
NEXT ZE
RETURN
ASG_EKLE: 'aşağı doldurma
USTEL=1
FOR ZE=0 TO 7
FOR ZE1=0 TO 63
SUTUN[ZE1]=SUTUN[ZE1]|(YDK_SUTUN[ZE1]&USTEL)
NEXT ZE1
USTEL=USTEL*2
GOSUB TARAMA
NEXT ZE
RETURN
TARAMA:
FOR TE=0 TO HIZ 'Tarama tekrar sayısı (kayma hızı ayarı)
FOR IN=0 TO 63
PORTC=IN
PORTB=~SUTUN[IN]
PAUSEUS TMR
portb=255
NEXT IN
NEXT TE
RETURN
YAZI_SEC_SAYAC:
YAZI_SEC=YAZI_SEC+1
IF YAZI_SEC=10 THEN YAZI_SEC=0 '(10) toplam yazı sayısı
GOTO SIRALA
SUTUN_SIFIRLA:
FOR IN=0 TO 63
SUTUN[IN]=0
YDK_SUTUN[IN]=0
NEXT IN
portb=255
PAUSE 500
RETURN
'*** KARAKTER KODLARI ***
A:
EN=5
KR[1]=126
KR[2]=9
KR[3]=9
KR[4]=9
KR[5]=126
KR[6]=0
RETURN
B:
EN=5
KR[1]=127
KR[2]=73
KR[3]=73
KR[4]=73
KR[5]=54
KR[6]=0
RETURN
C:
EN=5
KR[1]=62
KR[2]=65
KR[3]=65
KR[4]=65
KR[5]=34
KR[6]=0
RETURN
D:
EN=5
KR[1]=127
KR[2]=65
KR[3]=65
KR[4]=65
KR[5]=62
KR[6]=0
RETURN
E:
EN=5
KR[1]=127
KR[2]=73
KR[3]=73
KR[4]=73
KR[5]=65
KR[6]=0
RETURN
F:
EN=5
KR[1]=127
KR[2]=9
KR[3]=9
KR[4]=9
KR[5]=1
KR[6]=0
RETURN
G:
EN=5
KR[1]=62
KR[2]=65
KR[3]=73
KR[4]=73
KR[5]=58
KR[6]=0
RETURN
H:
EN=5
KR[1]=127
KR[2]=8
KR[3]=8
KR[4]=8
KR[5]=127
KR[6]=0
RETURN
I:
EN=3
KR[1]=65
KR[2]=127
KR[3]=65
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
J:
EN=4
KR[1]=32
KR[2]=64
KR[3]=65
KR[4]=63
KR[5]=1
KR[6]=0
RETURN
K:
EN=5
KR[1]=127
KR[2]=8
KR[3]=20
KR[4]=34
KR[5]=65
KR[6]=0
RETURN
L:
EN=5
KR[1]=127
KR[2]=64
KR[3]=64
KR[4]=64
KR[5]=64
KR[6]=0
RETURN
M:
EN=5
KR[1]=127
KR[2]=2
KR[3]=4
KR[4]=2
KR[5]=127
KR[6]=0
RETURN
N:
EN=5
KR[1]=127
KR[2]=4
KR[3]=8
KR[4]=16
KR[5]=127
KR[6]=0
RETURN
O:
EN=5
KR[1]=62
KR[2]=65
KR[3]=65
KR[4]=65
KR[5]=62
KR[6]=0
RETURN
P:
EN=5
KR[1]=127
KR[2]=9
KR[3]=9
KR[4]=9
KR[5]=6
KR[6]=0
RETURN
Q:
EN=5
KR[1]=62
KR[2]=65
KR[3]=65
KR[4]=97
KR[5]=126
KR[6]=0
RETURN
R:
EN=5
KR[1]=127
KR[2]=9
KR[3]=25
KR[4]=41
KR[5]=70
KR[6]=0
RETURN
S:
EN=5
KR[1]=38
KR[2]=73
KR[3]=73
KR[4]=73
KR[5]=50
KR[6]=0
RETURN
T:
EN=5
KR[1]=1
KR[2]=1
KR[3]=127
KR[4]=1
KR[5]=1
KR[6]=0
RETURN
U:
EN=5
KR[1]=63
KR[2]=64
KR[3]=64
KR[4]=32
KR[5]=127
KR[6]=0
RETURN
V:
EN=5
KR[1]=31
KR[2]=32
KR[3]=64
KR[4]=32
KR[5]=31
KR[6]=0
RETURN
W:
EN=5
KR[1]=63
KR[2]=64
KR[3]=56
KR[4]=64
KR[5]=63
KR[6]=0
RETURN
X:
EN=5
KR[1]=99
KR[2]=20
KR[3]=8
KR[4]=20
KR[5]=99
KR[6]=0
RETURN
Y:
EN=5
KR[1]=3
KR[2]=4
KR[3]=120
KR[4]=4
KR[5]=3
KR[6]=0
RETURN
Z:
EN=5
KR[1]=97
KR[2]=81
KR[3]=73
KR[4]=69
KR[5]=67
KR[6]=0
RETURN
_A: 'a
EN=5
KR[1]=32
KR[2]=84
KR[3]=84
KR[4]=84
KR[5]=120
KR[6]=0
RETURN
_B: 'b
EN=5
KR[1]=127
KR[2]=68
KR[3]=68
KR[4]=68
KR[5]=56
KR[6]=0
RETURN
_C: 'c
EN=5
KR[1]=56
KR[2]=68
KR[3]=68
KR[4]=68
KR[5]=40
KR[6]=0
RETURN
_D: 'd
EN=5
KR[1]=56
KR[2]=68
KR[3]=68
KR[4]=68
KR[5]=127
KR[6]=0
RETURN
_E: 'e
EN=5
KR[1]=56
KR[2]=84
KR[3]=84
KR[4]=84
KR[5]=24
KR[6]=0
RETURN
_F: 'f
EN=4
KR[1]=4
KR[2]=126
KR[3]=5
KR[4]=5
KR[5]=0
KR[6]=0
RETURN
_G: 'g
EN=5
KR[1]=8
KR[2]=84
KR[3]=84
KR[4]=84
KR[5]=56
KR[6]=0
RETURN
_H: 'h
EN=5
KR[1]=127
KR[2]=8
KR[3]=4
KR[4]=4
KR[5]=120
KR[6]=0
RETURN
_I: 'i
EN=3
KR[1]=68
KR[2]=125
KR[3]=64
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
_J: 'j
EN=3
KR[1]=32
KR[2]=68
KR[3]=61
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
_K: 'k
EN=4
KR[1]=127
KR[2]=16
KR[3]=40
KR[4]=68
KR[5]=0
KR[6]=0
RETURN
_L: 'l
EN=2
KR[1]=63
KR[2]=64
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
_M: 'm
EN=5
KR[1]=124
KR[2]=4
KR[3]=120
KR[4]=4
KR[5]=120
KR[6]=0
RETURN
_N: 'n
EN=5
KR[1]=124
KR[2]=8
KR[3]=4
KR[4]=4
KR[5]=120
KR[6]=0
RETURN
_O:
EN=5 'o
KR[1]=56
KR[2]=68
KR[3]=68
KR[4]=68
KR[5]=56
KR[6]=0
RETURN
_P: 'p
EN=5
KR[1]=124
KR[2]=20
KR[3]=20
KR[4]=20
KR[5]=8
KR[6]=0
RETURN
_Q: 'q
EN=5
KR[1]=8
KR[2]=20
KR[3]=20
KR[4]=20
KR[5]=124
KR[6]=0
RETURN
_R: 'r
EN=5
KR[1]=124
KR[2]=8
KR[3]=4
KR[4]=4
KR[5]=8
KR[6]=0
RETURN
_S: 's
EN=5
KR[1]=72
KR[2]=84
KR[3]=84
KR[4]=84
KR[5]=36
KR[6]=0
RETURN
_T: 't
EN=3
KR[1]=4
KR[2]=63
KR[3]=68
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
_U: 'u
EN=5
KR[1]=60
KR[2]=64
KR[3]=64
KR[4]=32
KR[5]=124
KR[6]=0
RETURN
_V: 'v
EN=5
KR[1]=28
KR[2]=32
KR[3]=64
KR[4]=32
KR[5]=28
KR[6]=0
RETURN
_W: 'w
EN=5
KR[1]=60
KR[2]=64
KR[3]=48
KR[4]=64
KR[5]=60
KR[6]=0
RETURN
_X: 'x
EN=5
KR[1]=68
KR[2]=40
KR[3]=16
KR[4]=40
KR[5]=68
KR[6]=0
RETURN
_Y: 'y
EN=5
KR[1]=12
KR[2]=80
KR[3]=80
KR[4]=80
KR[5]=60
KR[6]=0
RETURN
_Z: 'z
EN=5
KR[1]=68
KR[2]=100
KR[3]=84
KR[4]=76
KR[5]=68
KR[6]=0
RETURN
UNLEM:
EN=1
KR[1]=95
KR[2]=0
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
CIFTTIRNAK: ' "
EN=4
KR[1]=7
KR[2]=0
KR[3]=0
KR[4]=7
KR[5]=0
KR[6]=0
RETURN
KESME: ' '
EN=2
KR[1]=5
KR[2]=3
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
DIYEZ: '#
EN=5
KR[1]=20
KR[2]=127
KR[3]=20
KR[4]=127
KR[5]=20
KR[6]=0
RETURN
DOLAR : '$
EN=5
KR[1]=36
KR[2]=42
KR[3]=127
KR[4]=42
KR[5]=18
KR[6]=0
RETURN
YUZDE: ' %
EN=5
KR[1]=35
KR[2]=19
KR[3]=8
KR[4]=100
KR[5]=98
KR[6]=0
RETURN
VE: ' &
EN=5
KR[1]=54
KR[2]=73
KR[3]=85
KR[4]=34
KR[5]=80
KR[6]=0
RETURN
PARANTEZAC: ' (
EN=2
KR[1]=62
KR[2]=65
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
PARANTEZKAPA: ' )
EN=2
KR[1]=65
KR[2]=62
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
VIRGUL: ',
EN=2
KR[1]=80
KR[2]=48
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
TIRE: ' -
EN=4
KR[1]=8
KR[2]=8
KR[3]=8
KR[4]=8
KR[5]=0
KR[6]=0
RETURN
NOKTA: ' .
EN=2
KR[1]=96
KR[2]=96
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
IKINOKTA: ' :
EN=2
KR[1]=54
KR[2]=54
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
SORU: ' ?
EN=5
KR[1]=2
KR[2]=1
KR[3]=89
KR[4]=5
KR[5]=2
KR[6]=0
RETURN
BOSLUK:
EN=4
KR[1]=0
KR[2]=0
KR[3]=0
KR[4]=0
KR[5]=0
KR[6]=0
RETURN
KUCUKTUR: '<
EN=4
KR[1]=8
KR[2]=20
KR[3]=34
KR[4]=65
KR[5]=0
KR[6]=0
RETURN
BUYUKTUR: ' >
EN=4
KR[1]=65
KR[2]=34
KR[3]=20
KR[4]=8
KR[5]=0
KR[6]=0
RETURN
GUZELE: ' @
EN=5
KR[1]=62
KR[2]=65
KR[3]=93
KR[4]=85
KR[5]=94
KR[6]=0
RETURN
SIFIR: ' 0
EN=5
KR[1]=62
KR[2]=81
KR[3]=73
KR[4]=69
KR[5]=62
KR[6]=0
RETURN
BIR: ' 1
EN=4
KR[1]=66
KR[2]=66
KR[3]=127
KR[4]=64
KR[5]=0
KR[6]=0
RETURN
IKI: ' 2
EN=5
KR[1]=98
KR[2]=81
KR[3]=73
KR[4]=73
KR[5]=70
KR[6]=0
RETURN
UC: ' 3
EN=5
KR[1]=34
KR[2]=73
KR[3]=73
KR[4]=73
KR[5]=54
KR[6]=0
RETURN
DORT:
EN=5
KR[1]=24
KR[2]=20
KR[3]=18
KR[4]=127
KR[5]=16
KR[6]=0
RETURN
BES:
EN=5
KR[1]=47
KR[2]=69
KR[3]=69
KR[4]=69
KR[5]=57
KR[6]=0
RETURN
ALTI:
EN=5
KR[1]=62
KR[2]=73
KR[3]=73
KR[4]=73
KR[5]=50
KR[6]=0
RETURN
YEDI:
EN=5
KR[1]=113
KR[2]=9
KR[3]=5
KR[4]=3
KR[5]=1
KR[6]=0
RETURN
SEKIZ:
EN=5
KR[1]=54
KR[2]=73
KR[3]=73
KR[4]=73
KR[5]=54
KR[6]=0
RETURN
DOKUZ:
EN=5
KR[1]=38
KR[2]=73
KR[3]=73
KR[4]=73
KR[5]=62
KR[6]=0
RETURN
Dosyaları indirmek için tıklayınız...
Kayıtlar
0 Yorumlar