salam
kasi barnameye sa@t ba PicBasicPro ro dare(baraye Ic e PIC16F877A va IC e DS1307)? va namayeshe an dar pc!!!?
kasi barnameye sa@t ba PicBasicPro ro dare(baraye Ic e PIC16F877A va IC e DS1307)? va namayeshe an dar pc!!!?
-
-
پاسخ : کمک فوری برای برنامه ی ساعت با pic basic pro
سلام
1307 با میکرو پیک و نمایش در ال سی دی
http://www.iran-eng.com/showthread.php?t=10981
برای نمایش در کامپیوتر از ارتباط سریال RS232 استفاده کنید.
-
پاسخ : کمک فوری برای برنامه ی ساعت با pic basic pro
yani ba dasture seroute2 mesle in nemishe?
define OSC 4
define SER2_BITS8
include "modedefs.bas"
TRISC=%10111111
DP var PORTC.4
CP var PORTC.3
DB0 var byte[8]
gosub write_DS1307
read_DS1307:
I2CREAD DP,CP,$D1,$00,[STR DB0\8]
SEROUT2 PORTC.6,N9600,["Time=",hex2 DB0[2],":",hex2 DB0[1],":",hex2 DB0[0]]
SEROUT2 PORTC.6,N9600,["Date=",hex2 DB0[4],"/",hex2 DB0[5],"/",hex2 DB0[6]]
pause 1000
goto read_DS1307
end
'Set time & date to 10:45:00 Sunday 28th of December 2008
write_DS1307:
I2CWRITE DP,CP,$D0,$00,[$00,$45,$10,$00,$28,$12,$08,$90]
pause 10
RETURN
دیدگاه
-
پاسخ : کمک فوری برای برنامه ی ساعت با pic basic pro
سلام
برنامه ی صحیح به صورت زیز است:
define OSC 4
define I2C_SDA PORTC,4
define I2C_SCL PORTC,3
define SER2_BITS8
include "modedefs.bas"
DP var PORTC.4
CP var PORTC.3
DB0 var byte[8]
gosub write_DS1307
read_DS1307:
I2CREAD DP,CP,$D1,$00,[STR DB0\8]
SEROUT2 PORTC.6,84,["Time=",hex2 DB0[2],":",hex2 DB0[1],":",hex2 DB0[0]]
SEROUT2 PORTC.6,84,["Date=",hex2 DB0[4],"/",hex2 DB0[5],"/",hex2 DB0[6]]
pause 1000
goto read_DS1307
end
دیدگاه
دیدگاه