مشکل عجیب با da1307

[SILVER MAN]

سلام
من تو 1قسمت از برنامم از ساعت استفاده میکنم
برنامه ds1307رو جدا که مینویسم جواب میده اما وقتی داخل برنامه ازش استفاده میکنم این error اعصاب خورد کنو میگیره : angry: :angry:
forward jump out of range

[narek]

پاسخ : مشکل عجیب با da1307

اگه میتونی برنامتو بذار یه نگاه بکنیم، اینطوری که نمیشه چیزی گفت...

[SILVER MAN]

پاسخ : مشکل عجیب با da1307

اگه میتونی برنامتو بذار یه نگاه بکنیم، اینطوری که نمیشه چیزی گفت...

'-------------------------------------------------------------------------------
' FlashCard-Demo.BAS
' This sample file shows how the AVR-DOS library from Josef Franz V?gel
' can be used.
' Because the FAT code needs RAM buffers, you need a Mega103, Mega128
' or a micro with external memory.
'-------------------------------------------------------------------------------

$regfile = "M32Def.dat"
$crystal = 4000000
$external Waitms
$lib "mcsbyte.lbx"
$lib "ds1307clock.lbx"
$sim ' one of the libs needs the waitms code
'$external _cf_read

$swstack = 32
$hwstack = 64
$framesize = 64


'00000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000000000 0

Config Sda = Portc.1
Config Scl = Portc.0

'Address Of Ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1

Config Clock = User


'*****************************************dim ************************************************


Dim Eror As Byte , Temp1 As Byte
Dim S As String * 60 , Fl As String * 12 , Ff As Byte , T As String * 12
Dim Weekday As Byte

'****************************************conf ig***********************************************


'$lib "ds1307clock.lbx"
Time$ = "2359" ' to watch the day changing value
Date$ = "11-13-02"

'Time$ = "2359" ' to watch the day changing value
'Date$ = "11-13-02"

' Check XRAM enabled/disabled and XRAM Size if changing switch XRAMDrive; 1 needs 64kB XRAM enabled
' If use real card in PIN-Mode, you must disable XRAM !!!!!
'Const Xramdrive = 0
Waitms 1000 ' 1 for XRAM Drive

'Declare Sub Directorylist(pstr1 As String , Byval Pdays As Word)
'Declare Sub Testsb(byval Bx As Byte)

'----------------------------------------------------------------------------------------------
Enable Interrupts
Waitms 100



'---------------------------------------------------------------------------------------------




Config Date = Dmy , Separator = . ' the file system uses date and times
'Config Clock = Soft ' real clock installed
Enable Interrupts

'Time$ = "12:00:00" : Date$ = "05.05.03" ' set the time and date
'when you have a clock, the date and time of the clock will be used


'#if Xramdrive = 0
'$include "rtc.bas"

'$include "ds1307.bas"
T = Time$
T = Date$

$include "CONFIG_FlashCardDrive.bas"

$include "CONFIG_AVR-DOS.Bas"
' some constants
'Portc.0 = 1

' Init Port and Card
'Print #1 , "Setup Port and Reset Card ... ";

If Drivecheck() = 0 Then
'Portc.1 = 1 ' we have a card detected
' Print #1 , "OK"
_temp1 = Driveinit() ' init the drive
Else
'end program
End If


' The card is now setup and the low level card driver routine could be used
' such as ReadSector, WriteSector etc.
' We use the AVD-DOS Filesystem which is compatible with DOS/Windows
' Make sure your CF card is 32MB or bigger. It needs to be formatted with FAT 16
' Smaller cards can only be formatted with FAT12


'Dim T As Byte
'Dim P As String * 5


Dim Gbtemp1 As Byte ' scratch byte
Gbtemp1 = Initfilesystem(1)


Fl = "mmh.txt"

S = "hm.txt"

Open Fl For Output As #1

Print #1 , S

Close #1

Open Fl For Input As #1
Do
Line Input #1 , S
Loop Until Eof(#1 ) <> 0
Close #1

Open S For Output As #1

Print #1 , S

Close #1
Mkdir "dir_1"
Mkdir "dir_2."

End


Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

Settime:
'S = 13 : M = 6 : H = 3
'_sec = S : _min = M : _hour = H
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return


'End

[حمیدرضا رضایی]

پاسخ : مشکل عجیب با da1307

این خطا میگه پرش رو به جلو تون خیلی طولانیه
باید برنامتون رو تغییر بدید

[parsa921]

پاسخ : مشکل عجیب با da1307

از ورژن 1.11.9.8 استفاده کن! حل میشه...

[SILVER MAN]

پاسخ : مشکل عجیب با da1307

از ورژن 1.11.9.8 استفاده کن! حل میشه...

تغییر دادم فایده نداشت. میتونم بپرسم چرا؟ مگه ورژن بالاتر چه تاثیری داره؟ :eek: :eek: :eek:
راستی برنامم بالا پایین کردم جواب نداد :cry2: :cry2: :cry2:

[mohsenjooon]

پاسخ : مشکل عجیب با da1307

همون طور که دوست عزیز آقای حمیدرضا رضائی گفتن احتمالا طول پرش خیلی زیاده .
من تو اسمبلی با چنین مشکلی برخوردم که مجبور شدم از دو تا پرش جامپ استفاده کنم .
یعنی جامپ اولی رو تو آدرس نزدیک تر گذاشتم و و با رسیدن برنامه به این جامپ ، جامپ دومی رو به مقصد مورد نظر پرش دادم .

[حمیدرضا رضایی]

پاسخ : مشکل عجیب با da1307

من در مورد AVR با اسمبلی کار نکردم ولی تو 8051 ، دو نوع پرش داریم: پرش بلند و پرش کوتاه
پرش بلند میآتونه به تمام حافظه باشه ولی پرش کوتاه محدودیت داره
البته فکر نمیآکنم AVR هم این جوری باشه

[parsa921]

پاسخ : مشکل عجیب با da1307

من یه عالمه نمونه برنامه بیسکام دارم!!! هدفت رو بگو شاید تو خورجینم یه چیزی برات پیدا کردم!!!

[SILVER MAN]

پاسخ : مشکل عجیب با da1307

میخوام با استفاده از avr dos روی فلش فایل بسازم احتیاج به زمان دقیق دارم. :cry2: :cry2:
جالبه که خط ds1307.lib$ رو که برمیدارم error نمیگیره اما زمان درست رو نشون نمیده oo:

[parsa921]

پاسخ : مشکل عجیب با da1307

$regfile = "m8def.dat"
$crystal = 1000000
'------------------------ lcd -----------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pind.0 , E = Pind.1 , Db4 = Pind.2 , Db5 = Pind.3 , Db6 = Pind.4 , Db7 = Pind.5
Cls

'--------------------------- ds 1307 -----------------------------------------
$lib "ds1307clock.lib"
'configure the scl and sda pins
Config Sda = Portd.7
Config Scl = Portd.6
'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
'------------------------------ key --------------------------------------------
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
'------------------------------------------------------------------------------
Config Debounce = 30

Dim A As Byte , B As Byte , Data1 As Byte , C As Byte

Dim Seco As Byte , Mine As Byte , Hour As Byte

'----------------------------------------------------------------------------
Cursor Off
'-----------------------------
Cls
Locate 1 , 6
Lcd "Hello"
Locate 2 , 1
Lcd "Parsa"
Wait 2

For A = 1 To 15
Shiftlcd Left
Waitms 300
Next

Cls
'-------------------------------------------------------------------------------
Main:
Do
Gosub Ds1307
Gosub 24_12
Gosub Chekkey

Loop
'-------------------------------------------------------------------------------
Ds1307:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte Seco , Ack 'sec
I2crbyte Mine , Ack ' MINUTES
I2crbyte Hour , Nack ' Hours
I2cstop

Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour)

If Seco > 59 Then Seco = 0
If Mine > 59 Then Mine = 0
If Hour > 23 Then
Hour = 0
Gosub Seco
End If

Return
'-------------------------------------------------------------------------------
24_12:
If Pinc.4 = 1 Then Gosub Disply_24
If Pinc.4 = 0 Then Gosub Disply_12
Return
'-------------------------------------------------------------------------------
Disply_24:

Locate 1 , 1
Lcd "Time = " ; Hour ; ":" ; Mine ; ":" ; Seco ; " "
Locate 2 , 6
Lcd "(24)"
Return

'-------------------------------------------------------------------------------
Disply_12:

If Hour = 0 Then Hour = 12
If Hour > 12 Then Hour = Hour - 12

Locate 1 , 1
Lcd "Time = " ; Hour ; ":" ; Mine ; ":" ; Seco ; " "
Locate 2 , 6
Lcd "(12)"
Return
'-------------------------------------------------------------------------------
Chekkey:

Debounce Pinc.1 , 0 , Seco , Sub
Debounce Pinc.2 , 0 , Mine , Sub
Debounce Pinc.3 , 0 , Hour , Sub


Return
'---------------------------------------------
Seco:
Incr Seco
If Seco > 59 Then Seco = 0
Seco = Makebcd(seco)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte Seco
I2cstop
Return

'-------------------------------------
Mine:
Incr Mine
If Mine > 59 Then Mine = 0
Mine = Makebcd(mine)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 1 ' starting address in 1307
I2cwbyte Mine
I2cstop
Return
'-------------------------------------

Hour:
Incr Hour
If Hour > 23 Then Hour = 0
Hour = Makebcd(hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 2 ' starting address in 1307
I2cwbyte Hour
I2cstop

Return
'-------------------------------------

End

[parsa921]

پاسخ : مشکل عجیب با da1307

این یه برنامه کلی و استاندارد واسه ساعته