Etepic

'****************************************************************
'*  Name    : COKCIKIS.BAS                                      *
'*  Author  : [ETE]                                             *
'*  Notice  : Copyright (c) 2005 [ERO]                          *
'*          : All Rights Reserved                               *
'*  Date    : 26.06.2005                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
PORTA=255:portb=0
TRISB=0   'PortB tamamı giriş yapıldı.
TRISA=%00000000  'A portu tamamı çıkış yapıldı.
'-----------------------------------------------------------------
DEVICE 16F628a                      'işlemci 16F628                                
cmCON = 7
symbol CLK=PortA.0
SYMBOL DTA=PORTA.1

symbol CLK2=Portb.0
SYMBOL DTA2=PORTb.1
SYMBOL AKTAR2=PORTb.2

dim BILGI as  WORD
dim TamPon as word 
dim SaTiR as  byte
dim DiGit as byte

PORTA=0:
bILGI = 1
satir = 0
digit = 0


BASLA:
    IF BILGI=256 THEN
    BILGI=0
endif
    SHOUT DTA,CLK,1,[BILGI]
    Gosub Yolla
if bilgi = 0 then 
    bilgi = 1 
    inc satir
    goto basla
endif
    BILGI=BILGI*2
    
    delayms 50
    GOTO BASLA
        
YoLLa: 'BILGI ÇIKIŞA AKTARILDI
if satir = 8 then satir = 0
LOOKUP SATir,[1,2,4,8,16,32,64,128],tampon
IC_SeC:
    SHOUT DTA2,CLK2,1,[tampon]
    HIGH AKTAR2
    delayus 5
    LOW AKTAR2
    SHOUT DTA2,CLK2,1,[digit]
    HIGH AKTAR2
    delayus 5
    LOW AKTAR2 
return    
end

@ DEVICE PIC16F877a                      'işlemci 16F877a                               
@ DEVICE PIC16F877a, WDT_on              'Watch Dog timer açık
@ DEVICE PIC16F877a, PWRT_ON             'Power on timer açık
@ DEVICE PIC16F877a, PROTECT_OFF         'Kod Protek kapalı
@ DEVICE PIC16F877a, XT_OSC              'XT osilatör kullanılacak
@ DEVICE pic16F877a, BOD_ON             ' Brown-Out Detect

DEFINE LCD_DREG		PORTd	'LCD data bacakları hangi porta bağlı?
DEFINE LCD_DBIT		0		'LCD data bacakları hangi bitten başlıyor?
DEFINE LCD_RSREG	PORTd	'LCD RS Bacağı Hangi Porta bağlı ?
DEFINE LCD_RSBIT	4		'LCD RS bacağı Hangi Bite bağlı ?
DEFINE LCD_EREG		PORTd	'LCD Enable Bacağı Hangi Porta bağlı?
DEFINE LCD_EBIT		5		'LCD Enable Bacağı Hangi bite bağlı ?
DEFINE LCD_BITS		4		'LCD 4 bit mi yoksa 8 bit olarak bağlı?
DEFINE LCD_LINES	2		'LCD Kaç sıra yazabiliyor
DEFINE LCD_COMMANDUS 2000 'Command delay time in us 
DEFINE LCD_DATAUS 50 'Data delay time in us 
DEFINE OSC 4                '4mhz osilatör

OPTION_REG.7=0

TRISB=%11110000
TRISD=0
TRISC=1
TRISA=0


Symbol YATAY_A= PORTB.0
Symbol YATAY_B= PORTB.1
Symbol YATAY_C= PORTB.2
Symbol YATAY_D= PORTB.3
Symbol DIKEY_1= PORTB.4
Symbol DIKEY_2= PORTB.5
Symbol DIKEY_3= PORTB.6
TUS VAR WORD
I var BYTE

ILK:
LCDOUT $FE,1,"SIFRE"
PAUSE100
I=0

SIFREGIR1:
GOSUB KEYPATH
IF TUS >9 THEN SIFREGIR1
LCDOUT $FE,$C0+I,#TUS
I=I+1
PAUSE 200
IF I<4 THEN GOTO SIFREGIR1
ENTER: GOSUB KEYPATH
IF TUS <>12 THEN ENTER
GOTO ILK


KEYPATH:
YATAY_A=0
If DIKEY_1=0 THEN
Tus=1
While DIKEY_1=0
Wend
Endif
If DIKEY_2=0 Then
Tus=2
While DIKEY_2=0
Wend
Endif
If DIKEY_3=0 Then
Tus=3
While DIKEY_3=0
Wend
Endif
High YATAY_A
YATAY_B=0
If DIKEY_1=0 Then
Tus=4
While DIKEY_1=0
Wend
Endif
If DIKEY_2=0 Then
Tus=5
While DIKEY_2=0
Wend
Endif
If DIKEY_3=0 Then
Tus=6
While DIKEY_3=0
Wend
Endif
High YATAY_B
YATAY_C=0
If DIKEY_1=0 Then
Tus=7
While DIKEY_1=0
Wend
Endif
If DIKEY_2=0 Then
Tus=8
While DIKEY_2=0
Wend
Endif
If DIKEY_3=0 Then
Tus=9
While DIKEY_3=0
Wend
Endif
High YATAY_C
YATAY_D=0
If DIKEY_1=0 Then
Tus=11
While DIKEY_1=0
Wend
Endif
If DIKEY_2=0 Then
Tus=0
While DIKEY_2=0
Wend
Endif
If DIKEY_3=0 Then
Tus=12
While DIKEY_3=0
Wend
Endif
High YATAY_D
pause 100
RETURN



END