bu pusula modülü ülkemizde var mı?

'****************************************************************


'*  name    : compass.bas                                      *


'*  author  : [e.t.e]                                           *


'*  notice  : copyright (c) 2006 [ete]                          *


'*          : all rights reserved                               *


'*  date    : 16.05.2006                                        *


'*  version : 1.0                                               *


'*  notes   :                                                   *


'*     http://www.robot-electronics.co.uk/htm/cmps3doc.shtml    *


'****************************************************************


defıne lcd_dreg      portb   'lcd data bacakları hangi porta bağlı?


defıne lcd_dbıt      4      'lcd data bacakları hangi bitten başlıyor?


defıne lcd_rsreg   portb   'lcd rs bacağı hangi porta bağlı ?


defıne lcd_rsbıt   2      'lcd rs bacağı hangi bite bağlı ?


defıne lcd_ereg      portb   'lcd enable bacağı hangi porta bağlı?


defıne lcd_ebıt      3      'lcd enable bacağı hangi bite bağlı ?


defıne lcd_bıts      4      'lcd 4 bit mi yoksa 8 bit olarak bağlı?


defıne lcd_lınes   2      'lcd kaç sıra yazabiliyor


optıon_reg.7=1





cmcon=7





@ devıce pic16f628


@ devıce pic16f628, wdt_on


@ devıce pic16f628, pwrt_on


@ devıce pic16f628, protect_off


@ devıce pic16f628, mclr_off


@ devıce pic16f628, ıntrc_osc_noclkout





portb=0


trısb=0


porta=0


trısa=0





symbol clk=porta.0  


symbol dta=porta.1





compass con $c0


deg     con 223


acı     var word


temp    var byte





lcdout $fe,1


pause 200


lcdout $fe,2,"lutfen bekleyın"


pause 2000





basla:





      lcdout $fe,2," konum: ",dec temp,"      " 'burdaki temp 8 bitlik açı değeridir.


      ı2cread  dta,clk,compass,0,[temp,temp,acı.byte1,acı.byte0]


      


      lcdout $fe,$c0,dec acı/10,",",dec1 acı//10,deg,"derece    "


      


      pause 200


      goto basla


      


      pals=acı*10/18 'ölçülen açıyı 10 ile çarp ve 18 e böl kaç pals lık dönecek bul


      ıf acı>180 then 'ise sağa küçük ise sola dönülecek


         gosub ters 'burada ters step kodlarını okyu


      else


         gosub duz


      endıf


      


      for ı=1 to pals


        portb=a(ı)


      next