اینم برنامه تست شده و عملی تابلو روان 16 * 64

[hafez2007]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

سلام
دوست عزیز از بابت زحمات شما سپاسگزارم
اگر امکانش برای شما فراهم شد در مورد برنامه اصلی که با بسکام نوشتید یه توضیحی بدهید .سوالی که برایم پیش اومده اینه که چرا برای استفاده از لچ ها از دو پورت استفاده کردید .مگر با یک پورت امکانش نبود ؟ چرا ؟
سوال دوم:
برای نوشتن برروی کارت sd حتما باید از نرم افزار مخصوصی که شما نوشتید بهره گرفت یا روش دیگری هم نیز موجود است؟

خیلی متشکرم

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

اماده شد؟ :surprised: :surprised: :surprised: :surprised:

[starsoheil]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

با سلام ببخشید دیر شد .

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

http://starsoheil2007.persiangig.com...loo-Mosbat.zip

البته برنامه هم نیاز مند یک تغییر کوچولو هست که ذتا فردا ادونم آمادش میکنم.

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

سلام من برنامه تابلو رو خودم دست کاری کردم جواب می ده حالا میزارمش روی سایت نظرتو درباره ی برنامه بگو
ببین تو عمل کار می کنه یا نه
http://uploadkon.ir/?file=tabloooo.rar

[starsoheil]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

فکر نکنم جواب بده .

شما جای ماریساتو عوض کن ببین جواب میده یا نه . الان همون ماتریسا های قبلی هست یعنی منفی ها سطر ها ... که واسه شما اشتباهه . حالا من درستش میکنم و میذارم . ان شا الله تا فردا پس فردا .

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

من منتظرم
دوست عزیز

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

درخواست کمک فوری
1. اطلاعات مموری کارت را چگونه باید روی مموری( رم ) ریخت به صورت واقعی نه مجازی
2. خازن های عدسی روی کدام پورت میکرو میباشد ؟
3. ماتریس ها رو برعکس کردم یعنی 1024 تا ال یدی رو برعکس کردم مثل پروژ شما شد
4. این شماره منه09365638166 کارتون دارم یک تک بزنید میزنگم

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

من تابلو رو درست کردم کار نمی کنه چندتا led چشمک میزنه چکارش کنم

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

:angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry:

[پراو]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

سلام جناب starsoheil
اگه ممکنه در مورد نحوه عملکرد دو دستور زیر توضیح بدید :
Open "tablo.stf" For Input As #1
Line Input #1 , Samp

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

سلام
فکر کنم رم رو نمی شناسه
ووقتی بهش ولتاژ میدم چندتا چراغ روشن میشه همین
ولتاژ درسته اما جواب نمی ده لطفا کمک کنیم

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

:angry: :angry: :angry: :angry: :angry: :angry:

[soheyl_60]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

آمن یه سوال داشتم که معمولا کمتر بهش پرداخته شده
این قاب دور تابلو رو کسی میدونه باید چطور ساخت بخصوص اگه ال ای دی ها در قالب ماژولهای 8*16 باشن اگه یه عکسم از داخل و بیرون قاب بزارین مرسی؟اینجاییکه ما هستیم کسی از این قابا نمیزنه. :cry:
با تشکر

[kamali9783]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

اقای ستاره سهیل کجایی نیستی؟؟؟؟؟؟؟؟//////////////////////////////

[پراو]

پاسخ : اینم برنامه تست شده و عملی تابلو روان 16 * 64

اینم عیدی

برنامه کامل همراه با شبیه سازی در پروتئوس .

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

با این نرم افزار دیگه نیازی به بلد بودن سوئیش ندارید .

http://uplod.ir/ml25s4kd1hd4/STAR_TABLOO_RAVAN.zip.htm

$regfile = "m32def.dat"
$crystal = 16000000

Config Porta = Output
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.5 = Output
Config Portb.6 = Input
Config Portb.7 = Output
Config Portc = Output
Config Portd = Output

'***************************************libra ry***********************************************
$include "CONFIG_AVR-DOS.Bas"
$include "Config_MMC.bas"
'******************************************** ***********************************
Dim Scan As Byte
Dim Scan2 As Byte
Dim Refresh As Byte
Dim B As Byte
Dim Strd As String * 4
Dim Strd2 As String * 4
Dim Samp As String * 128
Dim Samp2 As String * 128
Dim Ltemp As String * 1
Dim Ltemp2 As String * 1
Dim Countbyte As Word
Dim Countbyte2 As Word
Declare Sub Myport(byval I As Byte)
Declare Sub Zero()
'-------------------------------------------------------------------------------

Porta = &H00
Portc = &H00
Portb = &H00
'******************************************** ********************
For Countbyte2 = 1 To 2
If Drivecheck() <> 0 Then
Porta = 10011110
Call Myport(0)
Wait 3
Porta = 0
Call Myport(15)

End If
If Driveinit() <> 0 Then
Porta = 10011110
Call Myport(2)
Wait 3
Porta = 0
Call Myport(15)
End If
If Initfilesystem(1) <> 0 Then
Porta = 10011110
Call Myport(4)
Wait 3
Porta = 0
Call Myport(15)
End If
Next
'******************************************** ********************
Call Myport(15)
Call Zero()
'******************************************** ********************
Do
Open "tablo.stf" For Input As #1
Do
Line Input #1 , Samp
Line Input #1 , Samp2
Countbyte = 1
Scan = &H80
Scan2 = 0
For Refresh = 0 To 7
Porta = 0
Portc = 0
For B = 0 To 7
Porta = 0
Portc = 0
Strd = Mid(samp , Countbyte , 2)
Strd2 = Mid(samp2 , Countbyte , 2)
Porta = Hexval(strd)
Portc = Hexval(strd2)
'SCAN LATCH
Call Myport(scan2)
Countbyte = Countbyte + 2
Call Myport(15)
Incr Scan2
If Scan2 = 8 Then
Scan2 = 0
End If
Next B
Porta = 0
Portc = 0
Portd = Scan
Rotate Scan , Right
Waitms 1
Portd = &H00

Next Refresh
' Print "palse"
Loop Until Eof(#1) <> 0
Close #1
Loop
End
'******************************************** ********************
Sub Myport(byval I As Byte) As Byte
Select Case I
Case 0 : Portb.0 = 0
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
Case 1 : Portb.0 = 1
Portb.1 = 0
Portb.2 = 0
Portb.3 = 0
Case 2 : Portb.0 = 0
Portb.1 = 1
Portb.2 = 0
Portb.3 = 0
Case 3 : Portb.0 = 1
Portb.1 = 1
Portb.2 = 0
Portb.3 = 0
Case 4 : Portb.0 = 0
Portb.1 = 0
Portb.2 = 1
Portb.3 = 0
Case 5 : Portb.0 = 1
Portb.1 = 0
Portb.2 = 1
Portb.3 = 0
Case 6 : Portb.0 = 0
Portb.1 = 1
Portb.2 = 1
Portb.3 = 0
Case 7 : Portb.0 = 1
Portb.1 = 1
Portb.2 = 1
Portb.3 = 0
Case Else : Portb.0 = 1
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
End Select
End Sub
'******************************************** ********************
Sub Zero()
Porta = 0
Portc = 0
Dim Co As Byte
Co = 0

While Co < 8
Call Myport(co)
Co = Co + 1
Wend
End Sub

سلام و با عرض تشکر
من برنامه رو چک کردم بهضی قسمتاش اضافیه و ایراد داره (شاید هم من درست نفهمیدم )
1- مقدار دهی اولیه به پرت ها مخصوصا پرت b که یک پایشم به عنوان ورودی تعریف شده (b.6) کار اضافی میباشد
2- متغیرهای ltemp1 و ltemp اضافی هستند و در برنامه ازشون استفاده نشده
3- قبل از حلقه do ...loop اصلی چه لزومی داره هر دو زیر برنامه فراخوانی بشن ؟
لطفا این ها رو جواب بدید تا برم سراغ قسمت هایی از برنامه که برام گنگه :agree: