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

[الماسی]

سلام بچه ها
من یه برنامه نوشتم که کد باینری را از روی مموری کارت میخونه و روی تابلو نشون میده.حالا مشکلم اینه که وقتی عکس جیفم تموم میشه باید از اول شروع کنه به نمایش که این اتفاق نمی افته.یعنی بعدش همه ledها خاموش میشه.
میخواستم شمااساتید بزرگ بررسی کنید ببینید مشکلی داره برنامم
تصاویر را با برنامه اقای تفرشی تبدیل به کد باینری میکنم

$regfile = "m32def.DAT" : $crystal = 1000000
'$baud = 4800
'$swstack = 32
'$hwstack = 64
'$framesize = 64

Config Porta = Output
Config Portd = Output
Config Portc = Output

Dim T1 As Integer , Frc As Integer , Dly As Integer , Cnt As Byte
Dim Dp1(14) As Byte , Dp2(14) As Byte , Dp3(14) As Byte , Dp4(14) As Byte
 Dim Ltemp As Long

$include "CONFIG_AVR-DOS.Bas"
$include "config_mmc.bas"

  Portd = 0
  Porta = 0
  Set Portc.0
  Set Portd.0
If Drivecheck() <> 0 Then
  Porta = 4
  End                           'end program
End If
  Set Portd.1
'************Drive init******************
If Driveinit() <> 0 Then
  Porta = 4
  End                           'end program
End If
  Set Portd.2
'*************Initfilesystem*******************
If Initfilesystem(1) <> 0 Then
  Porta = 4
  End                           'end program
End If
  Set Portd.3
'*********************************************************


Open "Tdata.txt" For Binary As #2

Star:
Get #2 , Frc
For Ltemp = 1 To Frc
  Get #2 , Dly
  Dly = Dly / 10

  For Cnt = 1 To 14
   Get #2 , Dp1(cnt)
   Get #2 , Dp2(cnt)
   Get #2 , Dp3(cnt)
   Get #2 , Dp4(cnt)
  Next Cnt

For T1 = 1 To Dly
  For Cnt = 1 To 14
   Portd = 0
   Set Portc.0
   Set Portc.1
   Set Portc.6
   Set Portc.7
   Reset Portc.0
   Reset Portc.1
   Reset Portc.6
   Reset Portc.7
   Porta = 14 - Cnt

   Set Portc.0
   Portd = Dp1(cnt)
   Reset Portc.0
   Set Portc.1
   Portd = Dp2(cnt)
   Reset Portc.1
   Set Portc.6
   Portd = Dp3(cnt)
   Reset Portc.6
   Set Portc.7
   Portd = Dp4(cnt)
   Reset Portc.7

   Waitms 1
  Next Cnt
Next T1
Next Ltemp

  'ltemp = Seek(#2)
  'Ltemp = 28
  'Seek #2 , Ltemp
  'Ltemp = Seek(#2)
  'Get #2 , Frc
Ltemp = 1
Seek #2 , Ltemp

Goto Star

[eca.samani]

پاسخ : مشکل با برنامه نویسی تابلوروان

سلام.
در برنامه چندان دقیق نشدم ولی تو نرم افزار های آقای تفرشی تعداد فرم ها هم مشخصه.
میتونید از این مقدار اسفاده کنید و بعد از نشون دادن این مقدار فریم برید از اول نشون بدید.

[mahdi421]

پاسخ : مشکل با برنامه نویسی تابلوروان

سلام
قسمت اصلی برنامه که فایل رو باز میکنید و ازش میخونید رو باید داخل یه حلقه بزارید

Do

Open "test.TXT" For Binary As #128

While Eof(#128) = 0

Get #128 , X

Wend

Close #128

Loop

[الماسی]

پاسخ : مشکل با برنامه نویسی تابلوروان

سلام.
در برنامه چندان دقیق نشدم ولی تو نرم افزار های آقای تفرشی تعداد فرم ها هم مشخصه.
میتونید از این مقدار اسفاده کنید و بعد از نشون دادن این مقدار فریم برید از اول نشون بدید.

سلام داداش.ممنون که راهنمایی کردی.خیلی ممنون.
منم همین کارو کردم،تعداد فریم هارو میشماره بعد وقفه فریمها و شروع بکار میکنه
اقای تفرشی برنامه ای تقریبا حرفه ای نوشتند.بخصوص ورژن اخری که ارائه کردن
باز ممنون مهدی جان.

[الماسی]

پاسخ : مشکل با برنامه نویسی تابلوروان

مهدی 421 ممنون که جواب دادی و مارو از خماری در اوردی.
امروز برم ویرایش کنم ببینم چی میشه
باز دستت دردنکنه

[الماسی]

پاسخ : مشکل با برنامه نویسی تابلوروان

سلام. من تازه خوردم به مشکل تازه. اقا ما برناممون 7،8فریم پخش میکنه
مثلا از 45 فریم ،12فریم را پخش میکنه
دلیل چیست؟؟؟؟؟؟؟؟؟؟؟کمک کنید. اگر چیزی ناقصه بگید تا درست کنم

[الماسی]

پاسخ : مشکل با برنامه نویسی تابلوروان

به به . عزیزان کسی نبود به داد ما برسه؟؟؟؟؟؟؟

[mahdi421]

پاسخ : مشکل با برنامه نویسی تابلوروان

یکم در مورد برنامه و کاری که میخواین انجام بدین توضیح بدین تا اگه تونستیم کمک کنیم