bisiklet hız ölçer (bicycle speedmetre )

[zaferakbay]

arkadaşlar merhaba
yaptığım bisiklet hız ölçer şemasını sizinle paylaşmak istedim

ekte (attachments)
proteus and hex file

'************************************************* ***************
'* Name : BISIKLET_HIZ.BAS *
'* Author : [Elektronik Teknisyeni Zafer AKBAY] *
'* Notice : Copyright (c) 2007 [set under view...options] *
'* : All Rights Reserved *
'* Date : 02.06.2007 *
'* Version : 1.0 *
'* Notes : pic 16f628 include osc. *
'* : *
'************************************************* ***************
@ DEVICE MCLR_OFF, INTRC_OSC_NOCLKOUT, WDT_ON, LVP_OFF, BOD_ON, PWRT_ON, PROTECT_ON
;mclr pini giriş olarak kullanılacak

DEFINE LCD_DREG PORTB 'LCD data bacakları PortB de bağlı
DEFINE LCD_DBIT 4 'LCD data bacakları 4. bitten başlıyor
DEFINE LCD_EREG PORTB 'LCD Enable Bacağı PortB de bağlı
DEFINE LCD_EBIT 3 'LCD Enable Bacağı 3. bite bağlı
DEFINE LCD_RSREG PORTB 'LCD RS Bacağı PortB de bağlı
DEFINE LCD_RSBIT 1 'LCD RS bacağı 1. Bite bağlı

DEFINE LCD_BITS 4 'LCD 4 bit olarak bağlı
DEFINE LCD_LINES 2 ;LCD 2 sıra olarak çalışıyor.

DEFINE LCD_COMMANDUS 2000 'Command delay time in us
DEFINE LCD_DATAUS 50 'Data delay time in us

trisa=255 'porta giriş
trisb=0 'portb çıkış

BIRTUR VAR BYTE ;tekerlek çapına göre çevre=pi * R den bulacaksın
GIRIS VAR BYTE ;ham sayıcı girişi
GIDILEN VAR word ;gidilen cm
HIZ VAR WORD ;Gidilen hız formüllenecek olan


SIFIRLA var PORTB.2 ;sayıcı reset ucu

;-----değişkenleri sıfırla-----
GIRIS=0
birtur=220 ;cm
gidilen=0
hiz=0

SIFIRLA=1 ;sayım yapmasın




LCDOUT $FE,1 ;Önce Ekranı siliyoruz.

basla:
lcdout $FE, 2, "Zafer AKBAY"
lcdout $FE, $C0 ,"HIZ:" , DEC hiz dig 4 ,DEC hiz dig 3,".",DEC hiz dig 2," km"
LCDOUT $FE,$10
sifirla=0 ;sayıma başla
pause 2000
GOSUB HIZOKU
goto basla


HIZOKU:
GIRIS=PORTA
sifirla=1 ;sayımı durdur
gidilen=giris * birtur ;burası 2 saniyede kaç cm gittiğini buldu
hiz=(gidilen*36)/2 ;al sana km hesabı
RETURN