E7: Cls Cursor Noblink Lcd " DOWN " ; P3 ; ":" ; P4 Gosub E Locate 2 , 8 Lcd P5 ; ":" ; P6 Waitms 400 If P5 = 0 And P6 = 0 Then Goto E8 Else Goto E7 End If E: I2cstart ' Generate start code I2cwbyte &HD0 ' send address I2cwbyte 0 ' start address in 1307 I2cstart ' Generate start code I2cwbyte &HD1 ' send address I2crbyte _sec , Ack I2crbyte _min , Ack ' MINUTES I2crbyte _hour , Ack ' Hours I2crbyte Weekday , Ack ' Day of Week I2crbyte _m_day , Ack ' Day of Month I2crbyte _m_month , Ack ' Month of Year I2crbyte _year , Nack ' Year I2cstop _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour) Print _sec Decr P6 If P6 = 255 Then P6 = 59 Decr P5 Else Goto E6 End If E6: Return E8: Cls Lcd "good luck" End
دیدگاه