Akım Sensörü Uygulaması Yardımı (Yazılım ve Çizimi Mevcuttur)

[nssanli]

Merhabalar,

Yazılımı aşağıdaki gibi olan ACS755-050 akım sensörü uygulamamı isiste denedim lakin akımda çok sapmalar oluşmakta işin içinden de bir türlü çıkamadım. Yardımlarınız için şimdiden teşekkür ederim.
NOT: Isis devresi de ektedir.


Yazılım--------------------------------------------------------------

'****************************************************************
'*  Name    : AkimDeneme.BAS                                                                           
'*  Author  : [eNeS]                                                                                               
'*  Notice   : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS]                       
'*               : All Rights Reserved                                                                           
'*  Date      : 10.05.2015                                                                                     
'*  Version  : 1.0                                                                                                   
'*  Notes    : ADC Hatası?                                                                                       
'*                                                                                                                     
'****************************************************************
Device 18F4550
XTAL 20

Declare LCD_DTPIN PORTD.0     ' Used for 4-line interface.
Declare LCD_ENPIN PORTD.4     ' Used for 4-line interface.
Declare LCD_RSPIN PORTD.5     ' Used for 8-line interface.
Declare LCD_INTERFACE 4
Declare LCD_LINES 4


;*********************analog dijital ayarları **********************
ADCON0.0 = 1      ;ADC modulu etkin                                *
ADCON1.5 = 0      ;- voltaj referans noktası olarak vss ayarlandı  *
ADCON1.4 = 0      ;+ voltaj referans noktası olarak vdd ayarlandı  *
ADCON1.3 = 0      ;bütün pinler analog olarak ayarlandı            *
ADCON1.2 = 0      ;bütün pinler analog olarak ayarlandı            *
ADCON1.1 = 0      ;bütün pinler analog olarak ayarlandı            *
ADCON1.0 = 0      ;bütün pinler analog olarak ayarlandı            *
ADCON2.7 = 1      ;sonuç sağa yanaşık olarak ayarlandı             *
ADCON2.5 = 0      ;örnekleme zamanı seçme biti                     *
ADCON2.4 = 0      ;örnekleme zamanı seçme biti                     *
ADCON2.3 = 0      ;örnekleme zamanı seçme biti                     *
ADCON2.2 = 0      ;ad dönüşüm osilatör olarak Fosc/2 ayarlandı     *
ADCON2.1 = 0      ;ad dönüşüm osilatör olarak Fosc/2 ayarlandı     *                             
ADCON2.0 = 0      ;ad dönüşüm osilatör olarak Fosc/2 ayarlandı     *
;*******************************************************************


Dim akim1 As Float 
Dim akim2 As Byte 
Dim ham As Word
akim1=0



Dim x As Byte
Dim kontrol As Bit


Dim i As Byte

Symbol donusum ADCON0.1
Symbol Setet PORTC.2
TRISC.2 = 0
kontrol = 1
x = 1

Print $FE, $40,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F  ' Dolu karakter tanımlandı
High Setet
DelayMS 10
Print At 1,1,"        AKIM        "
Print At 2,1,"       SENSORU      "
Print At 3,1,"      ACS755-50     "   
Print At 4,1,"                    "
DelayMS 3000
Print $FE,1
Print At 1,1,"Veriler aktariliyor "
DelayMS 1000
Print $FE,1

ekrana_yaz:

GoSub akim_Al               ;akim2 değişkeni döner

Print At 2,1,"AKIM SENSORU AKTIF"
Print At 3,1,"Akim= ",Dec akim2,"Amp"             

GoTo ekrana_yaz

akim_Al:

'Akim Hesabım Arduino İçin:
'ACS755-050 Akım Sensörü Hassasiyeti    > 26mV/A
'ACS755-050 Akım Sensörü Boşta Çalışma  > 0.6 Volt      ;ACS712 Akım Sensörü Boşta Çalışma  > 0.5x5=2.5 Volt idi.
'50 Amperlik Sensör Olduğu İçin Maksimum Amperde > 50(A)x26(mV/A)=1300 mV Olur.
'Değer Skalamız 0-5V Arası Olduğu İçin veya 0-1024 Desimal Değer Olduğundan, Sensörün 0-1.3V Olan Skalasını Bu Skalaya Eşitlemek İçin
'5000(mV)/26(mV)=192,30 Olur ve 1024/192,30=5,325 Değerini Çarpan Olarak Alırız.


For i=0 To 49
    ADCIN 0,ham
    akim1=ham+akim1

Next i
    akim1=akim1/50
    akim1=akim1*0.05200195313
    akim2=akim1
Return

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