سلام به دوستان عزیز من یه کد نوشتم برای راهندازی ولی متاسفانه کار نمی کنه اگه بشه عزیزان منو راهنمایی کنند
کد:
$regfile = "xm64a3def.dat" $crystal = 32000000 '32MHz $hwstack = 64 $swstack = 40 $framesize = 40 $lib "xmega.lib" : $external _xmegafix_clear : $external _xmegafix_rol_r1014 Config Osc = Enabled , Pllosc = Disabled , Extosc = Disabled , 32khzosc = Disabled , 32mhzosc = Enabled '32MHz Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1 '32MHz Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2 Cls Cursor Off 'CONFIG saat-------------------------------------------------------------------- Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled , Hi = Enabled Dim Twi_start As Byte Open "TWIC" For Binary As #2 'PortC.0 'PortC.1 Config Twic = 400000 I2cinit #2 Dim Seco As Byte , Mine As Byte , Hour As Byte 'Locate 1 , 1 : Lcd Hour ; ":" ; Mine ; ":" ; Seco Do I2cstart #2 I2cwbyte &HD0 , #2 I2cwbyte 0 , #2 I2cstart #2 I2cwbyte &HD1 , #2 I2crbyte Seco , Ack , #2 I2crbyte Mine , Ack , #2 I2crbyte Hour , Nack , #2 I2cstop #2 Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour) Locate 1 , 1 : Lcd Hour ; ":" ; Mine ; ":" ; Seco Loop End
دیدگاه