Terial کردن سورس های بسکام

[armstk]

سلام
من یک سری سورس از اینترنت گرفتم که زمانی هستند،یعنی مثلا وقتی آی سی رو پروگرام می کنیم بعداز 5 دقیقه دیگه آی سی کار نمیکه بعد باید دوباره پروگرم بشه :cry:
کسی میدونه چطوری این کا رو انجام میدن؟یعنی راهی هستش که غیر فعالش کنم؟

[saeed bagherani]

پاسخ : Terial کردن سورس های بسکام

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

[armstk]

پاسخ : Terial کردن سورس های بسکام

سورسش با بسکامه

[saeed bagherani]

پاسخ : Terial کردن سورس های بسکام

برنامه رو بزار بچه ها یک نگاهی بندازن
یا شاید هم ایراد از جای دیگه ای باشه :mrgreen: :mrgreen: :mrgreen:

[armstk]

پاسخ : Terial کردن سورس های بسکام

اینم برنامه

'---------------------------------------------------------------
'Digital Frequency Meter (1Hz to 1GHz) <Freq1GHz.bas>
'Programmer: Behnam Zakizadeh (Behnamzaki@hotmail.com) AVR64.com
'Compiler : BASCOM 1.11.9.1
'Creation Date: Sep 23, 2009 (1388.07.01)
'Copyright: (C) 2009 By www.avr64.com
'License: This Is A Free Firmware, Ver: 1.00
'---------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 11059200
$hwstack = 64
$swstack = 64
$framesize = 64

'LCD
Config Lcdpin = Pin , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = _
Pinc.0 , E = Pinc.4 , Rs = Pinc.5
Config Lcd = 16 * 2
Cursor Off : Cls

'Serial Port To PC
Open "comb.5:9600,8,n,1,inverted" For Output As #1
Print #1 , "serial output test"

'I/O
Config Pinb.0 = Input 'Key
Set Portb.0 'Set PullUp Res

'Timer
Config Timer1 = Counter , Edge = Falling
Config Timer0 = Timer , Prescale = 64
Enable Interrupts
Enable Timer0
Enable Timer1
On Ovf1 Pulse
On Ovf0 Ov0

'Variables
Dim A As Long , I As Long , B As Byte , C As Single

'Pre Load
Cls
Cursor Off
Home : Lcd " Digital"
Lowerline
Lcd "Frequency Meter"
Waitms 500
Cls : Home : Lcd " www.avr64.com"
Lowerline
Lcd "Software Ver:1.0"
Waitms 500
Start Timer0

Do
Loop
End

Ov0:
Incr I
If I = 675 Then

Stop Timer0
A = B * 65536
A = A + Counter1
Cls : Home
If Pinb.0 = 0 Then
Lcd "High: 1MHz-1GHz"
Lowerline
A = A * 12800
C = A / 1000000
Lcd "F= " ; Fusing(c , "#.&&&&&&&quot ; "MHz"
Print #1 , "~"
Print #1 , "F= " ; Fusing(c , "#.&&&&&&&quot ; "MHz"
Else
Lcd "Low: 1Hz-1MHz"
Lowerline
If A < 1000 Then
Lcd "F= " ; A ; " Hz"
Print #1 , "~"
Print #1 , "F= " ; A ; "Hz"
End If
If A > 1000 Then
C = A / 1000
Lcd "F= " ; Fusing(c , "#.&&&&quot ; " KHz"
Print #1 , "~"
Print #1 , "F= " ; Fusing(c , "#.&&&&quot ; "KHz"
End If
End If
Counter1 = 0 : B = 0 : I = 0
Start Timer0
End If
Return

Pulse:
Incr B
Counter1 = 0
Return

[saeed bagherani]

پاسخ : Terial کردن سورس های بسکام

کلیه دستورات print رو از برنامه حذف کن ببین درست میشه