سلام کسی از دوستان با این سنسور کار کرده؟
من میخوام فقط یه محور x رو روی ال سی دی نشون بدم
با بسکام کار میکنم
در مورد رجیستری ها راهنمایی می خواستم که کدوم ها رو باید ست کنم
برای شروع هم این رو نوشتم اما جواب نداد
من میخوام فقط یه محور x رو روی ال سی دی نشون بدم
با بسکام کار میکنم
در مورد رجیستری ها راهنمایی می خواستم که کدوم ها رو باید ست کنم
برای شروع هم این رو نوشتم اما جواب نداد
کد:
$regfile = "m8def.dat" $crystal = 8000000 Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.3 , _ Db6 = Portb.2 , Db7 = Portb.1 , E = Portd.3 , Rs = Portd.2 Cursor Off Dim X As Word Dim Fif As Word Dim Dat As Word Dim Y2 As Byte Cls Config Sda = Portd.6 Config Scl = Portd.7 Config I2cdelay = 10 Const Senw = &H3A Const Senr = &H3B I2cstart ' Generate start code I2cwbyte Senw ' send address I2cwbyte &H31 ' starting address in 1307 I2cwbyte &H05 ' Send Data to SECONDS I2cstop I2cstart ' Generate start code I2cwbyte Senw ' send address I2cwbyte &H2D ' starting address in 1307 I2cwbyte &H08 ' Send Data to SECONDS I2cstop Do I2cstart ' start address in 1307 ' Generate start code I2cwbyte Senr ' send address I2crbyte Dat , Nack I2cstop Locate 1 , 5 Lcd Dat I2cstart ' Generate start code I2cwbyte Senw ' send address I2cwbyte 57 I2cstart ' start address in 1307 ' Generate start code I2cwbyte Senr I2crbyte Fif , Nack I2cstop Locate 2 , 5 Lcd Fif I2cstart ' Generate start code I2cwbyte Senw ' send address I2cwbyte &H32 I2cstart ' start address in 1307 ' Generate start code I2cwbyte Senr ' send address I2crbyte X , Nack I2cstop Cls Locate 1 , 1 Lcd X Loop End
دیدگاه