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

[T.Jackson]

I think it's a bit rude coming to a multicultural, English speaking forum, posting stuff in your own native language only. Probably better to either post two versions, one in English and the other in your own language, or alternatively, just make use of the forums primary fundamental language. English.

[Acetronics2]

Hi, Zaferakbay

What's the problem ???

a flat tire ??? a bent handlebar ???

...

Alain

[sayzer]

This is not the first time people are posting in their own language.

But, since I am Turkish, let me translate what is written above (for free).

Our friend says that he made a device that measures the speed of his bicycle.

He says he wanted to share it here.


------------------------------------

Also,

I think it's a bit rude coming to a multicultural, English speaking forum, posting stuff in your own native language only. Probably better to either post two versions, one in English and the other in your own language, or alternatively, just make use of the forums primary fundamental language. English.

A multicultural forum is not entitled to one language (in this case to English).

Speaking about "multicultural" requires us to think about the meaning of "multi".

Since we know very well about what "multi" means, then we can not say "English speaking multicultural forum".

Yes, English is one language widely spoken. But, why should someone supposed to speak English to post on a multicultural forum?




--------------------

[Acetronics2]

Bonjour Jules,

c'est vraiment très gentil à lui.

N'oublies pas de le remercier pour moi, dans sa langue maternelle, bien entendu.

Amitiés et à bientôt

Alain

[skimask]

But, since I am Turkish, let me translate what is written above (for free).
Our friend says that he made a device that measures the speed of his bicycle.
He says he wanted to share it here.

And here I was...spending the last couple of days using Babelfish (and other translation type sites) to try to translate the Turkish (is that correct?), thinking that there might've been a code problem the guy was trying to figure out...

[Pic_User]

Hi Zaferakbay,
gerçekten güzel uygulama teşekkür ediyorum.
Nice work,
-Adam-