Nüve Forum


Elektrik ve Elektronik Mühendisliği Bölümü hakkinda pic voltmetre ile ilgili bilgiler


[coverattach=1]kodlari '25.09.2004 '4 KANAL LCD 0-50V VOLTMETRE DEVICE 16F877 Declare XTAL 4 'OSILATOR FRKANSI 4MHz OLARAK BELIRLENIR 'ADC PORTU TANIMLAMALARI 'DEFINE ADC_BITS 10 ' adc cozunurugu 'DEFINE ADC_CLOCK 3 '

Like Tree4Likes
  • 3 Post By parametre
  • 1 Post By CiwCiw

Cevapla

 

LinkBack Seçenekler Stil
  #1  
Alt 11.09.09, 16:00
parametre - ait kullanıcı resmi (Avatar)
Genel Yönetici
 
Üyelik tarihi: Sep 2009
Nereden: Kocaeli
İletiler: 568
parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.parametre için ne kadar gurur duyulsa azdır.
Standart pic voltmetre

[coverattach=1]kodlari

'25.09.2004
'4 KANAL LCD 0-50V VOLTMETRE

DEVICE 16F877

Declare XTAL4
'OSILATOR FRKANSI 4MHz OLARAK BELIRLENIR

'ADC PORTU TANIMLAMALARI
'DEFINE ADC_BITS 10 ' adc cozunurugu
'DEFINE ADC_CLOCK 3 ' saat kaynagi (rc = 3)
'DEFINE ADC_SAMPLEUS 50 ' ornekleme zamani us

'2x16 LCD icin ayarlar tanimlanir
'4 bit baglanti
Declare
LCD_DTPINPortD.4
Declare
LCD_RSPINPortD.1
Declare
LCD_ENPINPortD.0
Declare
LCD_INTERFACE4
Declare
LCD_LINES2

'ADC icin tanimlamalar
Declare
ADIN_RES10
Declare
ADIN_TADFRC
Declare
ADIN_STIME100

'EKRANA YAZDIRILACAK ADC DEGISKENLERI TANIMLANIR
DIM ADC_KANAL1 AS FLOAT
DIM ADC_KANAL2 AS FLOAT
DIM ADC_KANAL3 AS FLOAT
DIM ADC_KANAL4 AS FLOAT

'ISLEMLER ICIN GEREKLI GECICI DEGISKENLER TANIMLANIR
DIM TEMP1 AS BYTE
DIM W1 AS WORD
DIM W2 AS FLOAT

'OLCUM VOLTAJI
DIM OLCUM_VOLTAJI AS
50 '*** ölçülecek maksimum giriş gerilimini buradan belirleyin

DIM ADC_ORNEKSAYISI AS
100

GOTO RESET_VECTOR

;************************************************* *******************
PRJ_LOOP:
ASM
NOP
NOP
CLRWDT
NOP
NOP
ENDASM
call adc_oku
DELAYMS
1
GOTO PRJ_LOOP

;************************************************* *******************
'BU BOLUMDE ISLEMCININ BASLANGIC AYARLARI YAPILIR
RESET_VECTOR:
ASM
BCF
INTCON,GIE
BTFSC
INTCON,GIE
GOTO RESET_VECTOR
ENDASM

;ENERJI HATLARINDAKI PARAZITIK ETKI ICIN ACILIS GECIKMESI
PAUSE
1000


OPTION_REG = %00000001 ' Enable PORTB pullups
TRISA=%00111111
ADCON1 = %10000010 ' Set PORTA analog and right
INTCON=%00100000
LCDOUT
, 1 ;lcd temizlenir

TEMP1=ADC_ORNEKSAYISI
ADC_KANAL1=
0
ADC_KANAL2=
0
ADC_KANAL3=
0
ADC_KANAL4=
0

GOTO PRJ_LOOP

;************************************************* *******************
ADC_OKU:
'ORNEKLER ALINIR VE ORTALAMA DEGER HESAPLANIR
'BU EN DOGRU DEGERI YAKALAK VE
'ADC GORUNTULEME HIZINI YAVASLATMAK ICINDIR

ADC_OKU_1:
ADCIN
0,W1
ADC_KANAL1=ADC_KANAL1+W1

ADCIN
1,W1
ADC_KANAL2=ADC_KANAL2+W1

ADCIN
2,W1
ADC_KANAL3=ADC_KANAL3+W1

ADCIN
3,W1
ADC_KANAL4=ADC_KANAL4+W1
TEMP1=TEMP1-
1
IF TEMP1>
0 THEN RETURN

ADC_KANAL1=ADC_KANAL1/ADC_ORNEKSAYISI
ADC_KANAL2=ADC_KANAL2/ADC_ORNEKSAYISI
ADC_KANAL3=ADC_KANAL3/ADC_ORNEKSAYISI
ADC_KANAL4=ADC_KANAL4/ADC_ORNEKSAYISI

W2=OLCUM_VOLTAJI
W2=W2/
1023
ADC_KANAL1=ADC_KANAL1*W2
ADC_KANAL2=ADC_KANAL2*W2
ADC_KANAL3=ADC_KANAL3*W2
ADC_KANAL4=ADC_KANAL4*W2

CALL EKRANI_YAZ

TEMP1=ADC_ORNEKSAYISI
ADC_KANAL1=
0
ADC_KANAL2=
0
ADC_KANAL3=
0
ADC_KANAL4=
0

RETURN
;************************************************* *******************
EKRANI_YAZ:

'LCDOUT , 1ELAYMS 30 'LCD CLS
CLS 'VEYA BU KOMUTTA KULLANILABILIR 30ms

IF
PORTB.0=0 THEN
LCDOUT
, $80 'BIRINCI SATIR BASI
LCDOUT
"1=", DEC1 ADC_KANAL1,"V"
ENDIF

IF
PORTB.1=0 THEN
LCDOUT
,$88
LCDOUT
"2=",DEC1 ADC_KANAL2,"V"
ENDIF

IF
PORTB.2=0 THEN
LCDOUT
, 'IKINCI SATIR BASI
LCDOUT
"3=",DEC1 ADC_KANAL3,"V"
ENDIF

IF
PORTB.3=0 THEN
LCDOUT
,
LCDOUT
"4=",DEC1 ADC_KANAL4,"V"
ENDIF

RETURN

END
'25.09.2004
'4 KANAL LCD 0-50V VOLTMETRE

DEVICE 16F877

Declare XTAL4
'OSILATOR FRKANSI 4MHz OLARAK BELIRLENIR

'ADC PORTU TANIMLAMALARI
'DEFINE ADC_BITS 10 ' adc cozunurugu
'DEFINE ADC_CLOCK 3 ' saat kaynagi (rc = 3)
'DEFINE ADC_SAMPLEUS 50 ' ornekleme zamani us

'2x16 LCD icin ayarlar tanimlanir
'4 bit baglanti
Declare
LCD_DTPINPortD.4
Declare
LCD_RSPINPortD.1
Declare
LCD_ENPINPortD.0
Declare
LCD_INTERFACE4
Declare
LCD_LINES2

'ADC icin tanimlamalar
Declare
ADIN_RES10
Declare
ADIN_TADFRC
Declare
ADIN_STIME100

'EKRANA YAZDIRILACAK ADC DEGISKENLERI TANIMLANIR
DIM ADC_KANAL1 AS FLOAT
DIM ADC_KANAL2 AS FLOAT
DIM ADC_KANAL3 AS FLOAT
DIM ADC_KANAL4 AS FLOAT

'ISLEMLER ICIN GEREKLI GECICI DEGISKENLER TANIMLANIR
DIM TEMP1 AS BYTE
DIM W1 AS WORD
DIM W2 AS FLOAT

'OLCUM VOLTAJI
DIM OLCUM_VOLTAJI AS
50 '*** ölçülecek maksimum giriş gerilimini buradan belirleyin

DIM ADC_ORNEKSAYISI AS
100

GOTO RESET_VECTOR

;************************************************* *******************
PRJ_LOOP:
ASM
NOP
NOP
CLRWDT
NOP
NOP
ENDASM
call adc_oku
DELAYMS
1
GOTO PRJ_LOOP

;************************************************* *******************
'BU BOLUMDE ISLEMCININ BASLANGIC AYARLARI YAPILIR
RESET_VECTOR:
ASM
BCF
INTCON,GIE
BTFSC
INTCON,GIE
GOTO RESET_VECTOR
ENDASM

;ENERJI HATLARINDAKI PARAZITIK ETKI ICIN ACILIS GECIKMESI
PAUSE
1000


OPTION_REG = %00000001 ' Enable PORTB pullups
TRISA=%00111111
ADCON1 = %10000010 ' Set PORTA analog and right
INTCON=%00100000
LCDOUT
, 1 ;lcd temizlenir

TEMP1=ADC_ORNEKSAYISI
ADC_KANAL1=
0
ADC_KANAL2=
0
ADC_KANAL3=
0
ADC_KANAL4=
0

GOTO PRJ_LOOP

;************************************************* *******************
ADC_OKU:
'ORNEKLER ALINIR VE ORTALAMA DEGER HESAPLANIR
'BU EN DOGRU DEGERI YAKALAK VE
'ADC GORUNTULEME HIZINI YAVASLATMAK ICINDIR

ADC_OKU_1:
ADCIN
0,W1
ADC_KANAL1=ADC_KANAL1+W1

ADCIN
1,W1
ADC_KANAL2=ADC_KANAL2+W1

ADCIN
2,W1
ADC_KANAL3=ADC_KANAL3+W1

ADCIN
3,W1
ADC_KANAL4=ADC_KANAL4+W1
TEMP1=TEMP1-
1
IF TEMP1>
0 THEN RETURN

ADC_KANAL1=ADC_KANAL1/ADC_ORNEKSAYISI
ADC_KANAL2=ADC_KANAL2/ADC_ORNEKSAYISI
ADC_KANAL3=ADC_KANAL3/ADC_ORNEKSAYISI
ADC_KANAL4=ADC_KANAL4/ADC_ORNEKSAYISI

W2=OLCUM_VOLTAJI
W2=W2/
1023
ADC_KANAL1=ADC_KANAL1*W2
ADC_KANAL2=ADC_KANAL2*W2
ADC_KANAL3=ADC_KANAL3*W2
ADC_KANAL4=ADC_KANAL4*W2

CALL EKRANI_YAZ

TEMP1=ADC_ORNEKSAYISI
ADC_KANAL1=
0
ADC_KANAL2=
0
ADC_KANAL3=
0
ADC_KANAL4=
0

RETURN
;************************************************* *******************
EKRANI_YAZ:

'LCDOUT , 1ELAYMS 30 'LCD CLS
CLS 'VEYA BU KOMUTTA KULLANILABILIR 30ms

IF
PORTB.0=0 THEN
LCDOUT
, $80 'BIRINCI SATIR BASI
LCDOUT
"1=", DEC1 ADC_KANAL1,"V"
ENDIF

IF
PORTB.1=0 THEN
LCDOUT
,$88
LCDOUT
"2=",DEC1 ADC_KANAL2,"V"
ENDIF

IF
PORTB.2=0 THEN
LCDOUT
, 'IKINCI SATIR BASI
LCDOUT
"3=",DEC1 ADC_KANAL3,"V"
ENDIF

IF
PORTB.3=0 THEN
LCDOUT
,
LCDOUT
"4=",DEC1 ADC_KANAL4,"V"
ENDIF

RETURN

END
dort girisli olması okuma hatasının enaz olması içindir

bu uygulamayı voltaj kontrolu veya degişken verilerin kontrolunde çok rahat kullanabilirsiniz
Eklenmiş Resim
Dosya tipi: gif p2403.gif (40,2 KB (Kilobyte), 24x kez indirilmiştir)
Alıntı ile Cevapla
  #2  
Alt 11.09.09, 17:09
Administrator
 
Üyelik tarihi: Aug 2006
İletiler: 21.463
Blog Başlıkları: 13
CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!CiwCiw öyle bir şöhrete sahip ki kendinden önce namı yürüyor!
Standart Cevap: pic voltmetre

teşekkürler hocam
__________________
NEVART AKADEMİ
www.nevart.net
Güzel Sanatlar Fakültesi/Lisesi Yetenek Sınavlarına Hazırlık Kursu
Resim Yağlı Boya Hobi Kursu
Hızlı ve Etkili Okuma Kursu
Çocuklar için Hızlı Okuma Kursu
Çocuklar için Resim Kursu
Disleksi Eğitimi
Okuma Güçlüğü
Alıntı ile Cevapla
Cevapla

Tags
pic, voltmetre

Seçenekler
Stil

Yetkileriniz
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Bütün zaman ayarları WEZ +2 olarak düzenlenmiştir. Şu anki saat: 01:43 .