RPM 7 segment ile otomobil ve motorsiklet için motor devir sayacı

[FUNKY]

merhabalar  lada samara  otomobilimde devir sayacı yoktu 4x7 sement ile  yaptım  .    şimdilik masamda sorunsuz çalışıyor yarın arabaya montaj edeceğim . tetiklemeyi   bobinden çıkıp bujiye giden  kablonun üzerine saracağım  bir kablo ile  almayı düşünüyorum . blandajlı  kablo olacak  sardığım kısım  sadece içteki canlı uç olacak.
[IMG]http://img254.imageshack.us/img254/8181/rpmv.jpg[/img]

Uploaded with ImageShack.us

'****************************************************************
'*  Name    : RPM.BAS                                           *
'*  Author  : FUNKY - JAZZ(EROL DAĞCI)                          *
'*  Notice  : Copyright (c) 2009 Proton Compiler Ver. 3.4.0.8   *
'*          : All Rights Reserved                               *
'*  Date    : 25.01.2011                                        *
'*  Version : 1.0                                               *
'*  Notes   :otomobil ve motorsiklet için motor devir sayacı         *
'*          :                                                   *
'****************************************************************
        Device 16F628A
        Declare Xtal 4
       
        Config WDT_OFF, PWRTE_ON,  BODEN_OFF , LVP_OFF, CP_ON ,INTRC_OSC_NOCLKOUT

        TRISA = %00000000
        TRISB = %00000001
        PORTA =0
        PORTB =0
        CMCON =7
        Dim e As Byte
        Dim yaz As Byte
        Dim sayi As Word
        Dim Timer_sayi As Word
        Dim Timer_temp As Word
        Dim sayici As Dword
        Dim Veri1 As Byte
        Dim Veri2 As Byte
        Dim s As Word
        Dim x As Word

        Symbol GIE  = INTCON.7
        Symbol PEIE = INTCON.6
        Symbol INTE = INTCON.4
        Symbol INTF = INTCON.1
        Symbol TMR1IE = PIE1.0
        Symbol TMR1IF = PIR1.0
        On_Interrupt GoTo kes
         
        OPTION_REG = %00000000
        T1CON = %00100001 
        TMR1IF = 0
        INTF = 0 
        TMR1IE = 1 
        INTE = 1
        PEIE = 1
        GIE  = 1
        DelayUS 500
       
basla:
       
        sayici = Timer_temp * 4  
        sayici = 1000000/sayici 
        sayi= sayici*60         ' 60 sn =1 dk  daki devir sayısı
        If sayi >5000  Then       ' devir limit sayısı, devir> 5000  ikaz et
        GoSub ikaz
        EndIf
        For x = 0 To 3
        yaz= Dig sayi,x
        PORTA= LookUpL x,[1,2,4,8]
        PORTB= LookUpL yaz ,[128,242,72,96,50,36,4,240,0,32] 
        
       DelayMS 5
      Next
  GoTo basla
  kes: 
        Context Save 
        If INTF = 1 Then   
            GIE=0
            PEIE = 0
            Timer_temp.LowByte = TMR1L
            Timer_temp.HighByte = TMR1H
            TMR1L = 0
            TMR1H = 0
            INTF = 0
            GIE=1
            PEIE = 1
            
         End If 
    
        If TMR1IF = 1 Then    
           Timer_temp= 0
           TMR1L = 0
           TMR1H = 0
           TMR1IF = 0
        End If 
		Context Restore
 
  ikaz:
  
  High PORTA.7                      'led
  Sound PORTA.6,[110,5,80,10,110,5] 'sinyal
  DelayMS 50
  Return
 
  End
  
  
 

[resulkosar]

kolay gelsin...
projenizi çalıştırdınız mı?
bende yapmayı düşünüyorumda...

[FUNKY]

kolay gelsin...
projenizi çalıştırdınız mı?
bende yapmayı düşünüyorumda...

denedim fakat  bobin kablolarından  blendajlı kablo ile tetikleme almak istedim maalesef  olmuyor  oradaki manyetik alan pic i resetliyor  şimdi arabanın  elektronik ateşlemesine zarar vermeden   hall sensor  gibi başka bir yerden  işaret almak için bakıyorum . devre   signal generator  ile sinyal uygulayınca  normalde çalışıyor.

[Mucit23]

Neden plantinden almıyorsunuz.Daha iyi olmazmı?

[FUNKY]

Neden plantinden almıyorsunuz.Daha iyi olmazmı?

platin yok elektronik ateşleme   TCI (Transistorised Coil Ignition ) sistem .

[Mucit23]

Anladım.

[mengu190]

bobinin eksi ucundan arada bi diyot ile alırsanız çalışır herhangi bi zararıda olmaz