Optik hız ölçer

taless · 27 Nisan 2006, 01:04:32

arkadaşlar pic 16f877 ile optik hız ölçer yapmak istiyorum. yapmak istediğim şey tam olarak şöyle.
iki tane giriş butonu koyucam.bu giriş butonlarından ilkine basıldığında pic içerisindeki timer saymaya başlayacak.ikinci butona bastığım zaman ise timer duracak.ayrıca koyduğum iki giriş butonu ile(bunu aşağı yukarı sayıcı mantığı olarak düşünebiliriz)3 adet displaye bir değer yazdırıp bu değeri bir butonla hafızaya alıcam.ve bu hafızaya aldığım değerle timer da elde ettiğim değeri bölüp sonucu displayde görücem.timerde elde ettiğim değerin birimini mikrosaniye hafızaya aldığım değerin birimini ise cm olarak kabul edip bölüm sonucunu displayde km/saat olarak görmek istiyorum.bununla ilgili program yardımına ihtiyacım var. arkadaşlar yardımınızı bekliyorum...

Mod Notu: Başlığınız konuya uygun olarak değiştirilmiştir. Biraz daha dikkatli olalım.

ismetelk · 27 Nisan 2006, 12:23:59

16 bitlik tmr1 sayıcısını kullnarak sayma işlemini yasparsın 1. butona basıp sonrada diğer butona basma işi en azında saniye mertebesinde olacaktır.( tabi max ve min. surelerini bilmek lazım. şimdi)
buda senin ekstra birkaç sayaç belirleyip onlarıda artırarak işin sonunda onları okuman demektir.
ayrıca 877 kullanıcaksan kendin gireceğin sayı için tuş takımı kullan derim. 3x4 tuş takımında artan iki tuşun biirini enter olarak kullanıp bolme işlemini onla yaptırabilirsin diğerininde delete olarak kullanırsın. tuş takımı kullanmıycaksan 16f628 le işini halledebilirsin sanırım.
kolay gelsin

Erol YILMAZ · 27 Nisan 2006, 17:36:25

Konunun birden çok yerde açılması takibiin zorlaştırıyor.
Tek bir noktada olması hem bulunabilirlik açısından hem de database açısından iyi olur.
Şimdi sizin sorunun cevabına gelelim.
Midrane Reference Manual da Capture ile ilgili bir püf noktası vermişler.
Aslında buna benzer birşey bana da lazımdı. Yaptım, önemli bir ayrıntının nasıl çalıştığını anlayamıyordum, sayende onu da öğrenmiş oldum.

Pic için hangi programlama dilini kullanıyorsunuz ? yada kullanacaksınız ?

taless · 27 Nisan 2006, 20:43:00

teşekkürlererol hocam.
programı tam olarak buldum.devreside tamam fakat bir sorun var.proteusta devreyi kurup çalıştırdığım zaman bir hata ile karşılaşıyorum.sorunun ne olduğunu tam olarak çözemedim.HATA MESAJI ŞÖYLE:
SIMULATION LOG
==============
Design: C:\PROTEUS\PROTEUS - PROGRAMLARI\DENEME.DSN
Doc. no.: <NONE>
Revision: <NONE>
Author: <NONE>
Created: 17/02/05
Modified: 27/04/06

Compiling source files...
Build completed OK.
Compiling netlist...
Linking netlist...
Partition analysis...

Simulating partition 1 [7B4228CE]...
Animation started sucessfully...
PROSPICE Release 6.2 SP0 (C) Labcenter Electronics 1993-2002.
SPICE Kernel Version 3f5. (C) Berkeley University ERL.

Reading netlist...
Net VDD taken as alias for VCC
Net VSS taken as alias for GND
Reading SPICE models...
Building circuit...
Instantiating SPICE models...
[U1] PIC16 model release 6.01.00 simulating PIC1684 device.
[U1] Loaded 64 bytes of persistent EEPROM data.
[U1] Loading HEX file '..\..\Documents and Settings\ARİSTOTALESS\Desktop\bitti\BBSPD14.HEX'.
FATAL: [U1] Program or EEPROM data has invalid address [4000] for this device

Real Time Simulation failed to start

Real Time Simulation FAILED.

PROGRAM İSE ŞU ŞEKİLDE YAZILMIŞ AMA NEDEN ÇALIŞMIYOR ANLAMDIM HENÜZ.PİC 16F84 KULLANIYORUM BU ARADA:
;
; 'eÂÂ¬ÂvÂ\[ÂX bb_speed.asm 1.4
;
; for PIC16F84@20MHz
;
; Â{ÂvÂÂOÂÂÂÂÂÃÂgÂCÂKÂ"ÂÃ"ÂŽÃÂÂ³ÂÃªÂÃ©BB'eÂÃÂÂÂ¬ÂÂ¨ÂÃ¦ÂÃÂAŽÃÂÂ¬"xÂÂª'Ã¨ÂÃÂpÂÃÂÂ·B
; ÂÜÂÂ½ÂÜÂÂ½ÂÜÂÂ½ÂÃ¡ÂÃÂÂ²ÂÃÂÂÂ{Â\[ÂXÂÃHÂŽÂÃPA.EXEÂg'Â£ÂCÂ"ÂXÂgÂÂÂNÂVÂÂÂ"ÂğŽgÂpÂÂµÂÃ
; ÂÂ¨ÂÃ¨ÂÜÂÂ·ÂÃÂÃÂ ÂÂµÂÂ©ÂçÂÂ¸B   2000.11 (c) RUU
;
; ÂÃXÂÂÂğ
;      2002.04   (1.4) ÂÂª'Ã¨Â¸"xÂÃÂüÃ£(ÂJÂEÂ"ÂgŽüÂÃº=1.8usÂÃÂÃX)
;      2002.02   (1.3) ÂÂª'Ã¨Â¸"xÂÃÂüÃ£(ÂJÂEÂ"ÂgŽüÂÃº=3.2usÂÃÂÃX)
;      2002.02 (1.2) ÂAŽÃÂÂ¬"xÂÃÂÂª'Ã¨Â@"\'ÇÂÃAÂÂ»ÂÃÂÂ¼ÂüÂÇB
;      2000.12 (1.1) ÂvÂÂÂXÂP[ÂÂÂğŽgÂpÂÂµÂÃÂJÂEÂ"ÂgŽüÂÃºÂğ12.8usÂÃÂÂ·ÂÃ©B
;                ÂÂ±ÂÃªÂÃÂÃ¦ÂÃ¨TMR0ÂÂÂÃ¨žÂİÂğÂâÂÃÂÃmain"Ã ÂÃÂoÂÃŽžÂÃÂJÂEÂ"ÂgÂÃÂÃXB
;      2000.11 (1.0) ÃÂÂÃÂo[ÂWÂÂÂ"
;

         .include   16F84.h
         .osc      hs
         .wdt      off
         .pwrt      on
         .protect   off

PT1         equ      ra.3      ; "üÂûÂÂ¤ÂtÂHÂgÂgÂÂ
PT2         equ      ra.4      ; oÂûÂÂ¤

CNT_MIN      equ      45         ; Ã'Ã¡ÂJÂEÂ"Âg'l = 45 (ÂvÂÂªÃÂÃ¥ 987m/s)
CNT_MAX0   equ      64         ; ÂAŽÃÂJÂEÂ"ÂgÃÂÃ¥(high byte) = 4000h(ÃÂÃ¥ 5.24Âb)

WAIT_CNT   equ      162         ; 100usÂÃwaitÂJÂEÂ"Âg
BB_MIN      equ      10         ; BB'eÃ'Ã¡dÂÃ(=0.10g)
BB_MAX      equ      50         ; BB'eÃÂÃ¥dÂÃ(=0.50g)
BB_CNT_MIN   equ      2         ; Ã'Ã¡ÂAŽÃ'e"
BB_CNT_MAX   equ      20         ; ÃÂÃ¥ÂAŽÃ'e"

         org      0ch

res         ds      1         ; ÂÂÂUÂÂÂgÂR[Âh
SW2         equ      res.0      ;    Â\ŽÂ¦ÃÂÃ¨ÂÖÂÂ¦/UP
SW3         equ      res.1      ;    'edÂÃSET/DOWN
SW1         equ      res.2      ;    RESET/OK

led_opt      ds      1         ; LEDÂ\ŽÂ¦ÂIÂvÂVÂÂÂ" Âebit=1ÂÃ"_""
MSLED      equ      led_opt.0   ;    m/sÂ\ŽÂ¦
JLED      equ      led_opt.1   ;    JÂ\ŽÂ¦
P1         equ      led_opt.2   ;    Â¬""_1ÂÂÂÃ
P2         equ      led_opt.3   ;    Â¬""_2ÂÂÂÃ

bcdbuf      ds      5         ; BCD(10i)Âi"[ÂGÂÂÂA 5bytes
disp_buf   ds      1         ; Â\ŽÂ¦ÂpÂoÂbÂtÂ@
keta_cnt   ds      1         ; Â\ŽÂ¦ÂÂÂJÂEÂ"Â^
count      ds      2         ; PT1-PT2'ÃÂÃŽžÂÃÂJÂEÂ"Â^(16bit)
work      ds      1         ; ÂÃªŽžŽgÂpÂ[ÂN
cnt         ds      1         ; 32bitÂÂŽZÂÂ¨ÂÃ¦ÂÃwaitÂpÂJÂEÂ"Â^
xd64      ds      4         ; 64bitÂÂŽZÂp(xd64+xd32=64bit)
xd32      ds      4         ; 32bitÂÂŽZÂp
xs32      ds      4         ; V
y32         ds      4         ; V
bb_weight   ds      1         ; BB'edÂÃ(*100g)
bb_cnt_num   ds      1         ; ÂAŽÃÂÂª'Ã¨'e"
bb_cnt      ds      1         ; ÂAŽÃ'e"ÂJÂEÂ"Â^
wsave      ds      1         ; WÂÂÂWÂXÂ^ÂŞ"ğ
stsave      ds      1         ; STATUSÂŞ"ğ

         eeorg   0
         eedata   25,10      ; EEPROMÂÂÃº'l(BB'edÂÃ=0.25g, ÂAŽÃÂÂª'Ã¨'e"=10)
         eedata   'BB_Speed 1.4 by RUU -- http://www.mars.dti.ne.jp/~ogura/'

         org      0
         goto   main
         org      4
         goto   intproc

;;;;;;;;;;;; ÂÂÂÃ¨žÂİÂÂ intproc ;;;;;;;;;;;;
intproc                                 ; ÂAŽÃÂÂ¬"xÂÂª'Ã¨ÂÃÂJÂEÂ"ÂgÂAÂbÂvÂpÂÂÂÃ¨žÂİÂÂ
         mov      wsave,w                  ; WÂÂÂWÂXÂ^ÂŞ"ğ
         mov      stsave,status                  ; STATUSÂŞ"ğ

         sub      tmr0,#100 - 2            ; tmr0Ãİ'Ã¨(3.2us*100=0.32msÂÃÂuÂÃÂÂÂÃ¨žÂİ)
         clrb   t0if
         incsz   count[1]               ; ÂJÂEÂ"ÂgÂAÂbÂv
         goto   int_end
         inc      count[0]               ; High byteÂÖÂÂÃ£ÂÂªÂÃ¨
int_end
         mov      status,stsave            ; STATUSÂÃÂÂ·
         mov      w,wsave                  ; WÂÃÂÂ·
         retfie                        ; ÂÂÂA

;;;;;;;;;;;; main ;;;;;;;;;;;;
main
         ;; ÂÂÃºÂÂ»
init
         ;; I/OÂ|[Âgİ'Ã¨
         mov      !ra,#00011000b            ; PT1,PT2ÂğINÂÃASEG1`3selectÂğOUTÂÃ
         mov      !rb,#00000111b            ; RB0`2(SW)Âğ"üÂÃARB3,RB4`7(BCDoÂÃ)ÂğoÂÃÂÃ
         clr      ra
         clr      rb

         ;; OPTIONÂÂÂWÂXÂ^İ'Ã¨
         setb   rp0
         mov      option,#00000011b         ; Â|[ÂgBÂvÂÂÂAÂbÂvAÂvÂÂÂXÂP[ÂÂ(1:16)
         clrb   rp0

         ;; ÂÂÂÃ¨žÂİİ'Ã¨
         mov      intcon,#00100000b         ; Â^ÂCÂ}0ÂÂÂÃ¨žÂİÂÂÂÃAÂOÂ[ÂoÂÂÂÂÂÃ¨žÂİÂÖŽ~

         ;; EEPROMÂf[Â^(BB'eŽÂ¿ÂÃ,ÂAŽÃÂÂª'Ã¨'e")Â[Âh
         clr      eeadr
         call   eeprom_read
         mov      bb_weight,eedata
         inc      eeadr
         call   eeprom_read
         mov      bb_cnt_num,eedata

         call   get_key                  ; SW1ÂğÂÂÂÂµÂÃÂÂªÂç"dÂÂ¹ONÂÃÂçÂAŽÃÂÂª'Ã¨ÂÂ[ÂhÂÖ
         jb      SW1,mode_single

         ;; -------- ÂAŽÃÂÂ¬"xÂÂª'Ã¨ÂÂ[Âh --------
mode_series
         clr      count[0]               ; ÂJÂEÂ"Â^ÂNÂÂÂA
         clr      count[1]
         mov      bb_cnt,#1
         clr      res                     ; ÂÂÂUÂÂÂgÂR[ÂhÂNÂÂÂA
loop_0
         jnb      PT1,keychk_0            ; 'e"ÂŽÃ?
         mov      tmr0,#155               ; TMR0ÂÂÃºİ'Ã¨(100ÂJÂEÂ"Âg=0.32ms)
         setb   gie                     ; ÂOÂ[ÂoÂÂÂÂÂÃ¨žÂİÂÂÂÃ
         goto   strt_count_0            ; 'ÃÂÃŽžÂÃÂÃÂJÂEÂ"ÂgÂJŽn
keychk_0
         call   get_key                  ; SW3ÂÂªÂÂÂÂ³ÂÃªÂÂ½ÂçÂAŽÃ"İ'Ã¨ÂğsÂÂ¤
         jb      SW3,loop_0
         clrb   gie

wait_off_0
         call   get_key
         jnb      SW3,wait_off_0            ; SW3ÂÂªÂÂ£ÂÂ³ÂÃªÂÃ©ÂÜÂÃÂÃÂÃ
         call   set_bb_count
         goto   mode_series

strt_count_0                           ; ÂAŽÃ"ÂÃÂJÂEÂ"Âg
         jb      PT2,next_loop            ; 'eÂÃ'ÃÂÃÂÃÂÂ¿
         cja      count[0],#CNT_MAX0,err_0   ; ÂoÂÃŽžÂÃÂ`ÂFÂbÂN
         goto   strt_count_0
next_loop
         jnb      PT1,chk_count_0            ; ŽÂÂÃ'eÂÃÂÂ¿
         inc      bb_cnt
         cje      bb_cnt,bb_cnt_num,end_count_0   ; ÂÂª'Ã¨ÂAŽÃ"ÂÃ'BÂÂµÂÂ½ÂçÂJÂEÂ"ÂgIÂÂ¹
         goto   strt_count_0

chk_count_0
         cja      count[0],#CNT_MAX0,err_0   ; ÂoÂÃŽžÂÃÂ`ÂFÂbÂN
         goto   next_loop

end_count_0
         ;; ÂAŽÃÂÂ¬"x("Â/sec)Â\ŽÂ¦
         clrb   gie

         clr      xd32[0]
         mov      xd32[1],#04h            ; xd32=312500
         mov      xd32[2],#0c4h
         mov      xd32[3],#0b4h

         clr      y32[0]                  ; y32=ÂAŽÃ"
         clr      y32[1]
         clr      y32[2]
         mov      y32[3],bb_cnt_num

         call   mul64                  ; xd32=312500*ÂAŽÃ"

         clr      y32[0]                  ; y32=count
         clr      y32[1]
         mov      y32[2],count[0]
         mov      y32[3],count[1]

         call   div32                  ; "Â/sec(*100)=312500*ÂAŽÃ"/count

         call   conv_bcd
         mov      fsr,#bcdbuf
         mov      led_opt,#1               ; 'PÂÃ="Â/sec
         call   disp_num
         jnb      SW3,wait_off_0            ; SW3ÂÂªÂÂÂÂ³ÂÃªÂÂ½ÂçÂAŽÃ"İ'Ã¨ÂğsÂÂ¤
         goto   mode_series

err_0
         clrb   gie
         call   disp_err
         goto   mode_series

         ;; -------- 'P"ÂE'eÂÂ¬ÂÂª'Ã¨ÂÂ[Âh --------
mode_single
         clr      count[0]               ; ÂJÂEÂ"Â^ÂNÂÂÂA
         clr      count[1]
         clr      res                     ; ÂÂÂUÂÂÂgÂR[ÂhÂNÂÂÂA

loop
         jb      PT1,strt_count            ; 'e"ÂŽÃ?
keychk
         call   get_key                  ; SW3ÂÂªÂÂÂÂ³ÂÃªÂÂ½ÂçBB'edÂÃİ'Ã¨ÂğsÂÂ¤
         jb      SW3,loop

wait_off
         call   get_key
         jnb      SW3,wait_off            ; SW3ÂÂªÂÂ£ÂÂ³ÂÃªÂÃ©ÂÜÂÃÂÃÂÃ
         call   set_weight
         goto   loop

strt_count                              ; 'ÃÂÃŽžÂÃÂÃÂJÂEÂ"Âg
         jb      PT2,end_count            ; 2
         inc      count[1]               ; 1
         snz                           ; 1(2)
         inc      count[0]               ; 1
         snz                           ; 1(2)
         goto   err                     ; (1)   ÂJÂEÂ"Â^ÂI[Âo[ÂtÂ[
         goto   strt_count               ; 2      Âv9cycle=1.8us

end_count
         cjne   count[0],#0,disp_ms         ; ÂJÂEÂ"Âg'lÂÃ"ÃÂÃÂ`ÂFÂbÂN
         cjb      count[1],#CNT_MIN,err

         ;; ÂÂ¬"x(m/s)Â\ŽÂ¦
disp_ms
         clr      xd32[0]                  ; xd32=4444444
         mov      xd32[1],#043h
         mov      xd32[2],#0d1h
         mov      xd32[3],#01ch

         clr      y32[0]                  ; y32=count
         clr      y32[1]
         mov      y32[2],count[0]
         mov      y32[3],count[1]

         call   div32                  ; m/s(*100)=4444444/count

         call   conv_bcd
         mov      fsr,#bcdbuf
         mov      led_opt,#1               ; 'PÂÃ=m/s
         call   disp_num

         jnb      SW1,mode_single
         jnb      SW2,disp_j
         call   set_weight
         goto   disp_ms

         ;; ÂpÂ[(J)Â\ŽÂ¦
disp_j
         clr      xd32[0]                  ; xd32=count
         clr      xd32[1]
         mov      xd32[2],count[0]
         mov      xd32[3],count[1]
         clr      y32[0]                  ; y32=count
         clr      y32[1]
         mov      y32[2],count[0]
         mov      y32[3],count[1]

         call   mul64                  ; xd32=count^2

         mov      xs32[0],xd32[0]            ; xd32ÂğÂÃ"ğ
         mov      xs32[1],xd32[1]
         mov      xs32[2],xd32[2]
         mov      xs32[3],xd32[3]

         clr      xd32[0]                  ; xd32=987654
         mov      xd32[1],#00fh
         mov      xd32[2],#012h
         mov      xd32[3],#006h

         clr      y32[0]                  ; y32=bb_weight
         clr      y32[1]
         clr      y32[2]
         mov      y32[3],bb_weight

         call   mul64                  ; xd32=987654*bb_weight

         mov      y32[0],xs32[0]            ; y32=count^2
         mov      y32[1],xs32[1]
         mov      y32[2],xs32[2]
         mov      y32[3],xs32[3]

         call   div32                  ; J(*100)=(987654*bb_weight)/(count^2)

         call   conv_bcd
         mov      fsr,#bcdbuf
         mov      led_opt,#2               ; 'PÂÃ=J
         call   disp_num

         jnb      SW1,mode_single
         jnb      SW2,disp_ms
         call   set_weight
         goto   disp_j

err
         call   disp_err
         goto   mode_single

;;;;;;;;;;;; disp_err ;;;;;;;;;;;;;;
disp_err                                    ; ÂGÂÂ[i'0.00' ÂğÂ\ŽÂ¦A'PÂÃÃ""j
         clr      xd32[0]
         clr      xd32[1]
         clr      xd32[2]
         clr      xd32[3]
         call   conv_bcd
         mov      fsr,#bcdbuf
         clr      led_opt
         call   disp_num
         ret

;;;;;;;;;;;; set_weight ;;;;;;;;;;;;;;
set_weight                              ; BB'eÂÃdÂÃİ'Ã¨ÂğsÂÂ¤
         clr      xd32[0]
         clr      xd32[1]
         clr      xd32[2]
         mov      xd32[3],bb_weight

         call   conv_bcd
         mov      fsr,#bcdbuf
         mov      led_opt,#3               ; 'PÂÃ=g
         call   disp_num

         jnb      SW1,write_weight
         jnb      SW2,up_cnt

down_cnt
         cje      bb_weight,#BB_MIN,set_weight
         dec      bb_weight
         goto   set_weight
up_cnt
         cje      bb_weight,#BB_MAX,set_weight
         inc      bb_weight
         goto   set_weight
write_weight                           ; EEPROMÂÃÂÂÂ«žÂŞ
         clr      eeadr
         mov      eedata,bb_weight
         call   eeprom_write
         ret

;;;;;;;;;;;; set_bb_count ;;;;;;;;;;;;;;
set_bb_count                           ; ÂAŽÃÂÂª'Ã¨ŽžÂÃ'e"İ'Ã¨ÂğsÂÂ¤
         clr      xd32[0]
         clr      xd32[1]
         clr      xd32[2]
         mov      xd32[3],bb_cnt_num

         clr      y32[0]
         clr      y32[1]
         clr      y32[2]
         mov      y32[3],#100

         call   mul64

         call   conv_bcd
         mov      fsr,#bcdbuf
         mov      led_opt,#3               ; 'PÂÃ="Â
         call   disp_num

         jnb      SW1,write_count
         jnb      SW2,up_cnt0

down_cnt0
         cje      bb_cnt_num,#BB_CNT_MIN,set_bb_count
         dec      bb_cnt_num
         goto   set_bb_count
up_cnt0
         cje      bb_cnt_num,#BB_CNT_MAX,set_bb_count
         inc      bb_cnt_num
         goto   set_bb_count
write_count                              ; EEPROMÂÃÂÂÂ«žÂŞ
         mov      eeadr,#1
         mov      eedata,bb_cnt_num
         call   eeprom_write
         ret

;;;;;;;;;;;; conv_bcd ;;;;;;;;;;;;;;
conv_bcd                              ; xd32ÂğBCDÂÃÂÂ·ÂÂµÂÃbcdbuf(5ÂÂ)ÂÃÂi"[ÂÂ·ÂÃ©
         mov      fsr,#bcdbuf+4            ; 'Fxd32,xs32,y32ÂÂ¢ÂÂ¸ÂÃªÂÃ ÂÃXÂÂ³ÂÃªÂÃ©
         clr      y32[0]
         clr      y32[1]
         clr      y32[2]
         mov      y32[3],#10               ; y32 = 10
conv_loop
         call   div32                  ; xd32Â10ÂÃÂ]ÂÃ¨ÂğbcdbufÂÃ5ÂÂÂÃÂÂ©ÂçÂtÂÂÃÂi"[
         mov      indirect,xs32[3]
         cje      fsr,#bcdbuf,conv_end      ; 5ÂÂÂÂªÂÃÂÂ·
         dec      fsr
         goto   conv_loop
conv_end
         ret

;;;;;;;;;;;; get_key ;;;;;;;;;;;;;;
get_key
         mov      res,rb
         and      res,#00000111b
         ret

get_key2
         mov      !rb,#00000111b            ; RB0`2(SW1`3)Âğ"üÂÃÂÃÃÂÃ¨ÂÖÂÂ¦
         mov      cnt,#10                  ; SW"üÂÃÂ|[ÂgÂÃ'Ã¨ÂÃÂÂ½ÂÃÂÃWait
         call   wait100
         mov      res,rb
         and      res,#00000111b
         mov      !rb,#00000000b            ; RB0`2(LED)ÂğoÂÃÂÃÂÂ·ÂÃ©
         ret

;;;;;;;;;;;; disp_num ;;;;;;;;;;;;;;
disp_num                              ; fsrÂÂ©Âç5ÂÂÂÂªÂÃBCD(3ÂÂ+Â¬""_ÂÃÂÂº2ÂÂ)ÂğÂLÂÃ¸3ÂÂÂÃÂ\ŽÂ¦ÂÂ·ÂÃ©
         mov      !rb,#00000000b            ; RB0`2(LED)ÂğoÂÃÂÃÂÂ·ÂÃ©
         and      led_opt,#00000011b
         cjne   indirect,#0,disp_3_0      ; Â¬""_ÂÃ'uÂÂ'Ã¨
         inc      fsr
         cje      indirect,#0,disp_1_2
disp_2_1
         setb   P2
         goto   disp_3_0
disp_1_2
         setb   P1
         inc      fsr
disp_3_0
         clc
         mov      keta_cnt,#1
disp_loop                              ; 3ÂÂÂÂªÂ\ŽÂ¦
         mov      disp_buf,indirect
         swap   disp_buf
         or      disp_buf,led_opt
         clr      ra
         mov      rb,disp_buf
         mov      ra,keta_cnt
         mov      cnt,#50
         call   wait100
         jb      keta_cnt.2,key_chk
         inc      fsr
         rl      keta_cnt
         goto   disp_loop
key_chk                                 ; SWÂÂÂÂºÂÃÂÂÂ^[Â"ÂÂ·ÂÃ©
         clr      ra
         call   get_key2
         cjne   res,#07h,disp_end
         sub      fsr,#2
         goto   disp_3_0
disp_end
         mov      !rb,#00000111b            ; RB0`2(SW1`3)Âğ"üÂÃÂÃÃÂÃ¨ÂÖÂÂ¦
         mov      work,res
wait_key_off
         call   get_key
         cjne   res,#07h,wait_key_off
         mov      res,work               ; ÂÂÂÃÂÃresÂÃ"üÂÃÂÃÂÂ¢ÂÃ©
         clr      ra
         clr      rb
         ret

;;;;;;;;;;;; div32 ;;;;;;;;;;;;;;
div32                                 ; xd32 Â y32 ÂÃÂ¤Âğ xd32ÂÃAÂ]ÂÃ¨Âğxs32ÂÃÂi"[ÂÂ·ÂÃ©
         clr      xs32[0]
         clr      xs32[1]
         clr      xs32[2]
         clr      xs32[3]
         mov      cnt,#32
div32_loop
         clc                           ; ÂLÂÂÂÂ[ÂğÂNÂÂÂA
         rl      xd32[3]                  ; xd32<<1 bitÂVÂtÂg
         rl      xd32[2]
         rl      xd32[1]
         rl      xd32[0]
         rl      xs32[3]                  ; ÂÂÂ ÂÃÂÃªÂÃxs32ÂÃ"[ÂÃÂÃ©
         rl      xs32[2]
         rl      xs32[1]
         rl      xs32[0]

         mov      W,y32[0]               ; xs32 >= yd32ÂÂ©?
         subwf   xs32[0],0
         jnc      div32_nxt
         jnz      div32_sub
         mov      W,y32[1]
         subwf   xs32[1],0
         jnc      div32_nxt
         jnz      div32_sub
         mov      W,y32[2]
         subwf   xs32[2],0
         jnc      div32_nxt
         jnz      div32_sub
         mov      W,y32[3]
         subwf   xs32[3],0
         jnc      div32_nxt

div32_sub                              ; then xs32 = xs32 - y32
         call   sub32
         setb   xd32[3].0               ; xd32[3].0ÂÃÂrÂbÂgÂğÂÂ§ÂÃÂÃ©

div32_nxt                              ; else
         djnz   cnt,div32_loop            ; 32bitÂÂªÂÂ[Âv
         ret

;;;;;;;;;;;; sub32 ;;;;;;;;;;;;;;
sub32                                 ; xs32 ÂÂ©Âç y32 ÂğÂÂ¸ŽZÂÂµAÂÂÂÃÂğxs32ÂÃÂi"[ÂÂ·ÂÃ©
         sub      xs32[3],y32[3]            ; xs-y [3] ÃIÂÂÂÃÂvŽZ
         jc      sub32_2                  ; ÂÂÂÃÂÂªÂ³ÂÃÂç[2]ÂÂÂvŽZÂÖ
         sub      xs32[2],#1               ; ÂÂÂÃÂçÂOÂÃÂÂÂÂ©Âç1ÂÃ¸ÂÂ(Žc"OÂÃÂÂªÂçdecfÂÃŽgÂÂ¦ÂÃÂÂ¢)
         jc      sub32_2
         sub      xs32[1],#1
         jc      sub32_2
         dec      xs32[0]
sub32_2
         sub      xs32[2],y32[2]            ; [2]ÂÂÂÃÂvŽZ
         jc      sub32_1
         sub      xs32[1],#1
         jc      sub32_1
         dec      xs32[0]
sub32_1
         sub      xs32[1],y32[1]            ; [1]ÂÂÂÃÂvŽZ
         jc      sub32_0
         dec      xs32[0]
sub32_0
         sub      xs32[0],y32[0]            ;

ÂÂÂÃÂvŽZ
         ret

;;;;;;;;;;;; mul64 ;;;;;;;;;;;;;;
mul64                                 ; xd32[0,1,2,3](32bit)ÂÃy32[0,1,2,3](32bit)ÂÃÃÂğxd64[0,1,2,3,4,5,6,7](64bit)ÂÃÂi"[ÂÂ·ÂÃ©
         clr      xd64[0]
         clr      xd64[1]
         clr      xd64[2]
         clr      xd64[3]
         mov      cnt,#32
mul64_loop
         clc
         jnb      xd32[3].0,mul64_nxt
         add      xd64[3],y32[3]
         jnc      mul64_2
         inc      xd64[2]
         jnz      mul64_2
         inc      xd64[1]
         snz
         inc      xd64[0]

mul64_2      add      xd64[2],y32[2]
         jnc      mul64_1
         inc      xd64[1]
         snz
         inc      xd64[0]

mul64_1      add      xd64[1],y32[1]
         snc
         inc      xd64[0]

         add      xd64[0],y32[0]
mul64_nxt
         rr      xd64[0]
         rr      xd64[1]
         rr      xd64[2]
         rr      xd64[3]
         rr      xd32[0]
         rr      xd32[1]
         rr      xd32[2]
         rr      xd32[3]
         djnz   cnt,mul64_loop            ; 32bitÂÂªÂÂ[Âv
         ret

;;;;;;;;;;;; wait100;;;;;;;;;;;;
wait100                                 ; 100ÂÃs * cnt ŽžÂÃÂğÃ"Ã¯
loop_n
         mov      work,#WAIT_CNT
loop100
         decsz   work
         goto   loop100
         decsz   cnt
         goto   loop_n
         ret

;;;;;;;;;;;; eeprom_read;;;;;;;;;;;;
eeprom_read
         setb   rp0
         setb   eecon1.0
         clrb   rp0
         ret

;;;;;;;;;;;; eeprom_write;;;;;;;;;;;;
eeprom_write
         setb   rp0
         setb   eecon1.2
         mov      eecon2,#55h
         mov      eecon2,#0aah
         setb   eecon1.1
writeloop
         snb      eecon1.1
         goto   writeloop
         clrb   rp0
         ret

;;;;;;;;;;;;;;;;;;; ÂÂ¨ÂÂµÂÜÂÂ¢ ;;;;;;;;;;;;;;;;;;;;;;

HOCAM NEDEN HATA VERDİĞİ KONUSUNDA YARDIMCI OLABİLİRMİSİNİZ ACABA PROTEUS KULLANIMINDAMI HATA YAPIYORUM.
İYİ ÇALIŞMALAR..!!!

e3 · 27 Nisan 2006, 20:57:17

Alıntı yapılan: "taless"...SIMULATION LOG
==============
Design: C:\PROTEUS\PROTEUS - PROGRAMLARI\DENEME.DSN
Doc. no.: <NONE>
Revision: <NONE>
Author: <NONE>
Created: 17/02/05
Modified: 27/04/06

Compiling source files...
Build completed OK.
Compiling netlist...
Linking netlist...
Partition analysis...

Simulating partition 1 [7B4228CE]...
Animation started sucessfully...
PROSPICE Release 6.2 SP0 (C) Labcenter Electronics 1993-2002.
SPICE Kernel Version 3f5. (C) Berkeley University ERL.

Reading netlist...
Net VDD taken as alias for VCC
Net VSS taken as alias for GND
Reading SPICE models...
Building circuit...
Instantiating SPICE models...
[U1] PIC16 model release 6.01.00 simulating PIC1684 device.
[U1] Loaded 64 bytes of persistent EEPROM data.
[U1] Loading HEX file '..\..\Documents and Settings\ARİSTOTALESS\Desktop\bitti\BBSPD14.HEX'.
FATAL: [U1] Program or EEPROM data has invalid address [4000] for this device...

Taless arkadaşım ARİSTOTALES adında bir kullanıcı adına sahipsin anladığım kadarıyla.Proteus Türkçe karakter sorunu çıkarıyor.Yani Sistem deki klasör adlarınız Türkçe Karakter İçermemeli..Birinci sorun bu anladığım kadarıyla..Ancak ikinci sorun olan kodların garipliğine bi anlam veremedim..İyi günler..Kolay gelsin..

Picproje Elektronik Sitesi

Haberler:

Optik hız ölçer

taless

ismetelk

Erol YILMAZ

taless

e3