1 Attachment(s)
bisiklet hız ölçer (bicycle speedmetre )
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
?????????????????????????????????????????????????? ??
Hi, Zaferakbay
What's the problem ???
a flat tire ??? a bent handlebar ???
...
Alain
There is more on this forum!
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,
Quote:
Originally Posted by
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.
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?
--------------------
Biziklet pompavélo raccord percé ...
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
English is not only Language which is speeking in the worl
Arkadaşlar siz onların dediğine aldırmayın Türkçe yazabilirsiniz.Bunlar Dünyanın sadece kendilerine ait olduğunu sanıyorlar. Burada bizlerde varız .
Hi Everyone.
The man who post his message in his own language maybe has alittle bit english word that enought to use pic.(as me) But he want to sahare his paroject or want help from others.This is free forum area and he can send his message .If you do not know his language and want to read his message you want help who know his language to translate in english.
English is not only language speeking allover the World.We learn english why you do not learn other language_?......
which was first ??? The Egg ... or the Hen ???
Hi, Sayzer
...
And how did you find this Forum, if not speaking English ... ???
...
LOL
For the "small history" ... I just understood the word "bisiklet" ... cause it sounds quite like in French !!!
Just understood the rest while reading the program commands ... which are written in ... ENGLISH !!!
By the way ... How could I know it was Turkish language ??? for me : were just unknown letters ...
Regards
Alain
PS: " and with a little help from my friends ..." ... everything runs better !!!
Babel tower on tracks ...
Mhhhh,
for the answer ... how many languages officially to translate into ???
try being serious ... for once !!!
Alain