Toplam 6 adet sonuctan sayfa basi 1 ile 6 arasi kadar sonuc gösteriliyor
  1. #1
    forum üyesi
    Üyelik tarihi
    Mayıs.2008
    Mesajlar
    23

    Standart DS18B20 Sıcaklık Ölçümü Simülasyon Yardım!

    Arkadaşlar
    Aşağıdaki PICBASIC PRO ile yazdığım program hiç bir sorun ve yanlışlık olmamasına rağmen Proteusta simulasyon yaparken çalışmıyor. Programın çalıştığından emin olmak için PICe yükledim ve çalıştı. Yani kısacası bu program simülasyonda çalışmıyor ama gerçekte PICe yükleyince çalışıyor. Sizce bu neden olabilir daha önce böyle bir durumla karşılaşan oldumu bana yardım edebilirseniz çok sevinirim.
    Bunu bi halletsem devamını geliştireceğim programın. Bide işin diğer yanı hoca programı simülasyon ortamında istiyor yanı devre olarak istemiyor onun için biraz zor durumda kaldım Yardım ederseniz çok sevinirim şimdiden teşekkürler.

    Kod:
    DEFINE LCD_DREG PORTB 'LCD data port 
    DEFINE LCD_DBIT 0 'LCD data starting bit 0 or 4 
    DEFINE LCD_RSREG PORTB 'LCD register select port 
    DEFINE LCD_RSBIT 6 'LCD register select bit 
    DEFINE LCD_EREG PORTB 'LCD enable port 
    DEFINE LCD_EBIT 7 'LCD enable bit 
    DEFINE LCD_BITS 4 'LCD bus size 4 or 8 
    DEFINE LCD_LINES 2 'Number lines on LCD
    DEFINE LCD_COMMANDUS 2000 'Command delay time in us 
    DEFINE LCD_DATAUS 50 'Data delay time in us
    
    DQ      var PORTB.5
    deger   var word
    derece  var word
    CMCON=7
    
        LCDOUT $FE ,$01, "    SICAKLIK    "
    basla:
        GOSUB ds18b20yi_oku
        GOTO BASLA
    ds18b20yi_oku:
        owout dq, 1,[$CC, $44]
        pause 750
        owout dq, 1,[$CC, $BE]
        owin DQ, 0, [deger.lowbyte, deger.highbyte]
        DERECE=DEGER/16
        LCDOUT $FE ,$C0, DEC DERECE
        RETURN
    DS18B20 kaça ayarlanmış olrsa olsun LCDde 4095ten başka sayı görünmüyor.

  2. #2
    Electronic Programmer
    Üyelik tarihi
    Eylül.2008
    Nereden
    İZMİR
    Mesajlar
    195

    Thumbs up Cevap: DS18B20 Sıcaklık Ölçümü Simülasyon Yardım!

    Merhabalar;

    Sana rom kod ile okuma yöntem tavsiye edeyim daha sağlıklı oluyor. Genelede pek kullamıyorlar bu yöntemi DS sensörlerin en büyük özelliği aynı hatta istenildiği kadar sensör bağlayıp bunları rom kodları ile okumak. Bu sayede hangi tip sensör olduğunu anlayıp ona göre hesaplama yapılır. piyasa DS1820, DS1822, DS18B20 sensörleri mevcuttur. DS18B20 ile DS1822 nin çevirim hesaplamsı aynıdır DS1820 nin ise farklıdır. (Bakınız kataloglarına).
    Programın ilk başına rom kod okutma işlemini yapıp hem kodunu hemde family kodu yani hangi tip olduğunu anlarız. Bunu için Rom kode okuma işlemi şöyledir;
    Kod:
            OWrite DsDQ, 1, [$33]
            ORead DsDQ, 0, [DS_FAM,DS_SER[1],DS_SER[2],DS_SER[3],DS_SER[4],DS_SER[5],DS_SER[6],DS_CRC]
    burada DS_FAM kodu
    $28 ise DS18B20
    $22 ise DS1822
    $10 ise DS1820

    Isı okuma işlemi ise
    Kod:
            OWrite DsDQ, 1, [$55,DS_FAM,DS_SER[1],DS_SER[2],DS_SER[3],DS_SER[4],DS_SER[5],DS_SER[6],DS_CRC,$44]
            ORead DsDQ, 4, [DS_Mesgul]
            If DS_Mesgul = 0 Then Return ' meşgul ise alt programdan çık
            OWrite DsDQ, 1, [$55,DS_FAM,DS_SER[1],DS_SER[2],DS_SER[3],DS_SER[4],DS_SER[5],DS_SER[6],DS_CRC,$BE]
            ORead DsDQ, 0, [temperature.LowByte, temperature.HighByte, skip 6, CRC]
    Daha sonra sensör karşılaştırması yapıp kataloğundaki bilgilere göre hesaplama işlemi yapılır.
    Yani senin yaptıın hesaplamayı if DS_FAM = $28 karşılaştırmasının içine yerleştirebilirsin...

  3. #3
    transformator
    Üyelik tarihi
    Nisan.2008
    Nereden
    dünyanın merkezinden
    Mesajlar
    135

    Standart Cevap: DS18B20 Sıcaklık Ölçümü Simülasyon Yardım!

    kardeş, benim proteusta sorunsuz çalıştı. işte dosyalar:
    Eklenen Dosyalar Eklenen Dosyalar
    bir admin atasözü derki: "biliyorsan paylaş mod yapsınlar. bilmiyorsan sus banlamasınlar"

  4. #4
    professionals
    Üyelik tarihi
    Mart.2007
    Nereden
    Afyon
    Mesajlar
    124

    Standart Cevap: DS18B20 Sıcaklık Ölçümü Simülasyon Yardım!

    arkadaşlar paylaşımlar için tşk..
    Her konuda mütavazi ol!!!!!
    Mütavazilikte Toprak gibi ol!!!
    (Hayatı güzelleştirmek bizim elimizde)

  5. #5
    forum üyesi
    Üyelik tarihi
    Eylül.2008
    Nereden
    ısparta
    Mesajlar
    23

    Standart Cevap: DS18B20 Sıcaklık Ölçümü Simülasyon Yardım!

    Alıntı elektrofizik Nickli Üyeden Alıntı Mesajı göster
    kardeş, benim proteusta sorunsuz çalıştı. işte dosyalar:
    devrede sıcaklık sıfırın altına düsünce okudugu deger sapıtıyor

    bence bunu dene + ve - degeride gösterir

    [PHP]SYMBOL DS1822 = PORTA.1
    DERECE CON 223
    MESGUL VAR BIT
    OKUNAN VAR WORD
    HESAPLANAN VAR BYTE
    ISARET_BITI VAR OKUNAN.BIT11
    ISARET VAR BYTE

    basla:
    OWOUT DS1822,1,[$CC, $44]

    BEKLE:
    OWIN DS1822,0,[MESGUL]
    IF MESGUL=1 THEN GOTO BEKLE

    OWOUT DS1822,1,[$CC, $BE]
    OWIN DS1822,0,[OKUNAN.LOWBYTE,OKUNAN.HIGHBYTE]

    IF ISARET_BITI=1 THEN
    ISARET="-"
    HESAPLANAN=($FFFF-OKUNAN+1)/16
    ELSE
    ISARET="+"
    HESAPLANAN=OKUNAN/16
    ENDIF

    LCDOUT $FE,$80, "SICAKLIK= ",ISARET,DEC3 HESAPLANAN,DERECE,"C"
    GOTO basla[/PHP]
    Konu profahmet tarafından (16.Kasım.2008 Saat 02:11 ) değiştirilmiştir. Sebep: kod içine alındı

  6. #6
    forum üyesi
    Üyelik tarihi
    Temmuz.2010
    Mesajlar
    9

    Question Cevap: DS18B20 Sıcaklık Ölçümü Simülasyon Yardım!

    En üstte cizim vermişsiniz.DS18B20 parcasını nasıl bağlıcamı gösterebilirmisiniz?Yani biraz daha acık bi şekilde bu çizimi alma şansım varmı?özellikle kaynak olarak 2 kalem pil kullanmak istiyorum.kaynağı ve parcaları nasıl bağlıcam?

 

 

Konu Bilgileri

Bu Konuya Gözatan Kullanıcılar

Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)

Benzer Konular

  1. 10 CM 7 Segment Display DS18B20 & DS1302 Saat Termometre
    Konu Sahibi aliveli Forum PIC UYGULAMALARI
    Cevap: 5
    Son Mesaj : 14.Şubat.2010, 15:36
  2. Ortamın Sıcaklık Kontrolu Visual basic Projesi
    Konu Sahibi elektrobilim Forum ELEKTRONİK-ELEKTRİK PROJELER
    Cevap: 5
    Son Mesaj : 25.Haziran.2009, 14:49
  3. 4 konumdan sıcaklık ölçmek için ter.
    Konu Sahibi bilal01 Forum PIC YARDIM SORU VE İSTEKLER
    Cevap: 13
    Son Mesaj : 05.Nisan.2009, 23:26
  4. Dijital havya sıcaklık kontrol devresi
    Konu Sahibi yildizelektronik Forum PIC UYGULAMALARI
    Cevap: 0
    Son Mesaj : 21.Mart.2008, 19:26

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •