Picbasic pro Hmc6352 pusula projesi

[zengar]

Hmc6352 pusulası ile yaptığım projeyi paylaşmak istedim
Selam ve dua ile,
Dualarınıza muhtaç kardeşiniz Halit.



"Bizim düşmanımız; cehalet, zaruret, ihtilaftır. Bu üç düşmana karşı sanat, marifet, ittifak silahıyla cihad edeceğiz."  Said Nursi



Define I2C_HOLD 1
ADCON1=7

DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 5
DEFINE LCD_BITS 4
DEFINE LCD_LINES 4




SDA    Var    PORTB.1                    ' Data pin
SCL    Var    PORTB.4                    ' Clock pin
a  Var word
cmd  Var Byte
addr Var Byte
cont Var Byte
   cmd = $41   ' Ascii A harfi ni sensöre gönderirseniz direk 2 baytlık
   'pusula bilgisi okuyabilirsiniz
   Pause 100                 
basla:
    pause 200  'sanırım sensör saniyede 20 defa
    'okuma yapabiliyor ona göre zamanınızı ayarlayın
                     
           I2CWRITE SDA, SCL, $42, [cmd]   'sensörün klavuzundan Eepromun yazma
           'adresinin 42 olduğunu görebilirsiniz


    pauseus 6000
     I2CREAD SDA, SCL, $43,[a.HIGHBYTE,a.LOwbyte]  'sensörün klavuzundan Eepromun okuma
           'adresinin 43 olduğunu görebilirsiniz

   
     a=(a-(a//10))/10 'yeni a değerini bulmak istiyorum, sensör noktadan sonra
     'bir hane hassasiyetinde yani mesela 320,5 gibi ve a değerinin orjinal değeri
     '3205 şeklinde ama ben noktadan sonra hane mane istemiyorum bu denklem onun için.
      Lcdout $FE, 1, "Pusula degeri: ",# a                           
   
    goto basla
   
    End


*********************************
*********************************
*********************************
Picbasicpro HMC6352

[F®T]

güzel bir örnek eline sağlık.Allah razı olsun.

[Bülent]

Paylaşım için tşk.ler. gy-26 modülü ile benzer işi yapmayı düşünmüştüm, bu daha uygun galiba. Bu modülü nereden alabiliriz, kaç TL civarı acaba? Modülden alınan bilgiyi LCD' ye 16F877 ' mi aktarıyor ?

[zengar]

Evet, 877A ile yapabilirsin. Google dan biraz arasan bulursun. Satan bir kaç site var fiyatı 70-100 tl arasında.   

[musa]

ellerine sağlık bende hmc5883l sensörü ile  uğraşıyorum yazılımı ccs ile yapmaya calışıyorum bağlantı kurdum fakat değerleri sağlıklı bir şekilde alamıyorum 

[zengar]

Bende ccs ye 4 aydır başladım işime lazım olan konuları çalışıyorum, yani I2C protokolüne daha giriş yapmadım. İnternette onunla ilgili  çalıştıranların hazır ccs kodlarını bulmuştum. İşin gerçeği  bende aynısından 13 gün önce aldım. Singapurdan Türkiye ye gelmiş, gümrükte şuan bekliyoruz bakalım 
Çalıştırırsam paylaşacam İnşaallah.
Selametle.