DS18B20.dll

[kamil_220]

DS18B20.dll  dosyasını  nasıl download edicez hiç biyerde bulamadım yardımcı olursanız sevinirim. . .

[necati]

http://www.4shared.com/file/78100107/3c2ae93a/DS18B20.html

[kamil_220]

tesekkürlerrr

[kamil_220]

ds18b20'deki veriyi lcd.ye nasıl aktarabilriz.. uğraştım ama bi türlü olmadı biraz bilgi verirseniz sevinirim...

[OG]

Forumda bolca örnek ve bilgi var.

[kamil_220]

zaten baktım urda pek fazla bişey yok gibi hep c dili  var b pbp kullanıorumm ve yeni başladımm:S o yüzden yani

[tyildizak]

Şu örnekte pbp owin-owout komutları ile yapılmış:
http://www.melabs.com/resources/samples/pbp/onewire.bas



bit banging ile de şöyle iletişim kuruluyordu:

'****************************************************************
'*  Name    : ds1820.BAS                                        *
'*  Author  : Turgut Yıldızak                                   *
'*  Date    : 29.04.2006                                        *
'****************************************************************

;mc tanımlarını  yapın(tip, osc, config vs)

          KOMUT   var     byte            
          I       var     byte            
          SICAKLIK     var     word 
          DQ      var     PORTB.0    ;iletişim pini, hangisiyse burada değiştirin
          DQ_DIR  var     TRISB.0 

;burada  lcd tanımlamalarını yapın, lcd'yi init edin,500ms bekleyin

START:
        Gosub INIT1820
        komut = $CC :  Gosub YAZ1820
        komut = $44 :  Gosub yaz1820
        Pause 2000
        Gosub init1820
        komut = $CC :  Gosub yaz1820
        komut = $BE :  Gosub yaz1820 
        Gosub oku1820        
        
	Lcdout $FE,2,dec(SICAKLIK >> 1),".",dec(SICAKLIK.0 * 5)," DERECE"

        Goto START  ;ya da her nereye ise..
                               
INIT1820:
        Low DQ
        Pauseus 500
        DQ_DIR = 1
        Pauseus 100
        If DQ = 1 Then
                Lcdout $FE,2, "   SENSOR YOK!"
                Pause 500
                Goto START
        Endif
        Pauseus 400
        Return
YAZ1820:
        For i = 1 to 8
                If komut.0 = 0 Then
                        Gosub yaz0
                Else
                        Gosub yaz1
                Endif
                komut = komut >> 1 
        Next i
        Return
YAZ0:
        Low DQ
        Pauseus 60 
        DQ_DIR = 1
        Return
YAZ1:
        Low DQ
@       NOP 
        DQ_DIR = 1
        Pauseus 60              
        Return
OKU1820:
        For i = 1 to 16 
                SICAKLIK = SICAKLIK >> 1
                Gosub okubit  
        Next i
        Return
OKUBIT:
        SICAKLIK.15 = 1 
        Low DQ 
@       NOP   
        DQ_DIR = 1  
        If DQ = 0 Then
                SICAKLIK.15 = 0 
        Endif
        Pauseus 60  
        Return
END

zaten baktım urda pek fazla bişey yok gibi hep c dili  var b pbp kullanıorumm ve yeni başladımm:S o yüzden yani

forumda pbp ile  birsürü örnek var, öyle ki, ds1820 bölümü açılsa yeridir

[kamil_220]

tesekkürler