Profil: vardar07 | DonanımHaber Forum

Şimdi Ara

@vardar07

Takip Et 0 takipçi

Özel Mesaj

Onbaşı

02 Temmuz 2011
Tarihinde Katıldı

Takip Ettikleri
0 üye

Görüntülenme
Toplam: 3 (Bu ay: 0)

Fırsat Ekle

Gönderileri

Tümü (4)

Sadece Konular (4)

Sadece Bağlantılar (0)

vardar07 (mustafa vardar) · Elektronik altına konu açtı. 13 yıl

4011 ile geciktirme.

1 Yanıt

Yanıtla

Favorilere Ekle

vardar07 (mustafa vardar) · Elektronik altına konu açtı. 13 yıl

16F628 ile LCD TERMO TİMER İÇİN YARDIM

Selam arkadaşlar programlamada fazla bilgim yok ama kendi çapımda bir şeyler yapmaya çalıştım.
Fakat hesaplama kısmını beceremedim.Birde sıralamada yanlışlık varmı?
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

'****************************************************************
'* Name : TERMO_TİMER.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 15.05.2012 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
@ DEVICE pic16f628, WDT_OFF
@ DEVICE pic16f628, PWRT_OFF
@ DEVICE pic16f628, BOD_OFF
@ DEVICE pic16f628, LVP_OFF
@ DEVICE pic16F628, PROTECT_OFF
@ DEVICE pic16f628, MCLR_OFF
@ DEVICE pic16f628, INTRC_OSC_NOCLKOUT
Include "modedefs.bas"
DEFINE OSC 4 '4 Mhz hızında çalışıyoruz.
SENSOR VAR PORTB.0 'Sensör PORTB.0'ye bağlı
LED VAR PORTA.5 'LED PORTA.5'ya bağlı
TUS VAR PORTA.3
MESGUL VAR BYTE 'Çeşitli değişken tanımlamaları
BILGI VAR WORD
ISARET VAR BYTE
ONDA1 VAR WORD
ARA VAR WORD
DEGER VAR BYTE
DEFINE LCD_DREG PORTB 'LCD Veri pinleri PORTB'ye bağlı.
DEFINE LCD_DBIT 4 'LCD'nin D0 pini PORTB.4'a bağlı
DEFINE LCD_RSREG PORTB 'RS PİNİ PORTB'ye bağlı
DEFINE LCD_RSBIT 1 'RS PİNİ = PORTB.1
DEFINE LCD_EREG PORTB 'ENABLE PİNİ PORTB'ye bağlı
DEFINE LCD_EBIT 3 'ENABLE PİNİ = PORTB.3
DEFINE LCD_RWREG PORTB 'RW PİNİ KULLANILMIYOR - Kullanılmayan bir pin tanımlandı.
DEFINE LCD_RWBIT 2 'RW PİNİ KULLANILMIYOR - Kullanılmayan bir pin tanımlandı.
DEFINE LCD_BITS 4 'LCD 4 BİT SÜRÜLÜYOR
DEFINE LCD_LINES 2 'LCD 2 SATIRLIK
TRISA=00000 'PORT giriş-çıkış tanımalamları
TRISB=00000001

PAUSE 500 'Ekranın hazır olması için biraz bekliyoruz.
LCDOUT $FE,$40,6,9,9,6,0,0,0,0 'Derece gösterimi için özel karakteri LCD'ye yüklüyoruz.
LCDOUT $FE,$48,4,0,14,4,4,4,14,0 'İ karakterini LCD'ye yüklüyoruz.
LCDOUT $FE,$50,0,0,4,4,4,4,4,0 'ı karakterini LCD'ye yüklüyoruz.
LCDOUT $FE,1," MUSTAFA" 'İlk satıra İzoelektronik yaz.
LCDOUT $FE,$C0," VARDAR" 'İkinci satıra yaz.
PAUSE 1000 'Biraz bekle
LCDOUT $FE,1," "
LCDOUT $FE,$C0," "
HIGH PORTA.0
A:
IF TUS=0 THEN
LOW PORTA.1
LOW PORTA.2
else
LCDOUT $FE,1,"CIHAZ", " ON"
HIGH PORTA.1
HIGH PORTA.2
PAUSE 1500
LCDOUT $FE,1,"CIHAZ" , " OFF"
LOW PORTA.1
LOW PORTA.2
PAUSE 300
LOW PORTA.1
LOW PORTA.2
PAUSE 500
IF PORTA.3=1 THEN
GOTO A
ELSE
GOTO C
ENDIF
ENDIF
C:

LCDOUT $FE,1,"SICAKLIK" 'Ekranı temizleyip, üst satıra Sıcaklık: yaz.
BASLA: 'Dongüye gir.
ISARET="+"
OWOUT SENSOR,1,[$CC,$44] 'Sensöre sıcaklığı okumasını söyle.
BEKLE: 'Sensör hazır olana kadar bekle.
OWIN SENSOR,4,[MESGUL]
IF MESGUL=0 THEN
GOTO BEKLE
ENDIF
DEVAM:
OWOUT SENSOR,1,[$CC,$BE] 'Sensöre okuduğu değeri göndermesini söyle.
OWIN SENSOR,0,[BILGI.LOWBYTE,BILGI.HIGHBYTE] 'Gelen 16 bitlik bilgiyi al.
IF BILGI.BIT13=1 THEN 'Sıcaklık negatif ise
ISARET="-" 'İşaret artık + değil -
BILGI=~BILGI 'Gelen bilgideki bitleri tersle, 1->0, 0->1
BILGI=BILGI+1 'Bilgiyi 1 arttır.
ENDIF
ARA=BILGI*512 '12 bit hassasiyet kullandığımız için her değer 0.0625 santigrat dereceye denk geliyor.
DEGER=DIV32 1000
ARA=BILGI*1000
ONDA1= DIV32 12

ONDA1=ONDA1-(DEGER*1)
LCDOUT $FE,$C0," " 'LCD ekranın alt satırını temizle
LCDOUT $FE,$C0,ISARET, #DEGER,".",#ONDA1," ",0,"C"
HIGH LED 'LEDi yakıp söndürerek döngünün bittiğini belirt.
PAUSE 500
LOW LED
PAUSE 500
GOTO A
END

1 Yanıt

Yanıtla

Favorilere Ekle

vardar07 (mustafa vardar) · Elektronik altına konu açtı. 13 yıl

555 ve 4541 beraber kullanma

7 Yanıt

Yanıtla

Favorilere Ekle

vardar07 (mustafa vardar) · Network altına konu açtı. 14 yıl

2 ADET Aztech DSL605EW İLE WDS Kurulum için yardım

Yanıt Yok

Yanıtla

Favorilere Ekle

Resimler

https://forum.donanimhaber.com/cache-v2?path=https%3a%2f%2fforum.donanimhaber.com%2fstore%2f94%2fa1%2f96%2f94a19647bfd33cd758ced51b6351035b.jpg&t=1&text=0&width=87

https://forum.donanimhaber.com/cache-v2?path=https%3a%2f%2fforum.donanimhaber.com%2fstore%2f0c%2fdd%2fad%2f0cddadeda16a45d1317a187f43c602fe.jpg&t=1&text=0&width=87

https://forum.donanimhaber.com/cache-v2?path=https%3a%2f%2fforum.donanimhaber.com%2fstore%2f85%2f8b%2f5d%2f858b5d17ada91994366b6e6f46124034.jpg&t=1&text=0&width=87

https://forum.donanimhaber.com/cache-v2?path=https%3a%2f%2fforum.donanimhaber.com%2fstore%2f7d%2f0c%2f0b%2f7d0c0b9cbe7f5bae8ff7784d1873987a.jpg&t=1&text=0&width=87

4 Galeride Göster

Temel Bilgiler ve İstatistikler

Aktiflik: Şu anda DH'de değil
Son Giriş: 7 yıl önce
Son Mesaj Zamanı: 13 yıl
Mesaj Sayısı: 22
Gerçek Toplam Mesaj Sayısı: 24
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 458 (Bu ay: 5)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Donanım / Hardware

Mesajları

İkinci El Referansları