سلام ، منم شماتیک مدار رو قرار میدم البته پارازیت درست شد
که سر فرصت برای شما توضیح خواهم داد
سلام ، منم شماتیک مدار رو قرار میدم البته پارازیت درست شد
که سر فرصت برای شما توضیح خواهم داد
برای رفع پارازیت بعدایان اجرای هر بلوک output_enable را رست کردیم برنامه درست شد
شماتیک مدار در پروتوس را برای شما گذاشتم البته به طور جزیی فقط دو تا شیفت رجیستر
کار با پروتوس گیج کننده است بقیه شیفت رجیستر ها را هم می توانید در امتداد قرار دهید
فیلمی از کار مدار را نیز گذاشتم
$regfile = "m8def.dat"
$crystal = 8000000
Dim I As Byte , D As Byte
Dim Z As Byte , K As Byte , M As Byte
Config Portc = Output
Config Portd = Output
Dta0 Alias Portd.0
Strb Alias Portd.1
Dta Alias Portd.2
Clk Alias Portd.3
Strb0 Alias Portd.4
Oe1 Alias Portc.3
Oe2 Alias Portc.4
Dim B As Byte , A As Byte , C As Byte , Fram As Byte
Do
For C = 0 To 15
For Fram = 0 To 19
Set Oe1
For B = 0 To 3
K = C + B
A = Lookup(k , Dat1)
Shiftout Dta , Clk , A , 1 , 8
Next B
Strb = 1
nop
nop
Strb = 0
Waitms 1
Reset Oe1
Set Oe2
For B = 4 To 7
K = C + B
A = Lookup(k , Dat1)
Shiftout Dta0 , Clk , A , 1 , 8
Next B
Strb0 = 1
nop
nop
Strb0 = 0
Waitms 1
Reset Oe2
Next Fram
Next C
Loop
End
Dat1:
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00111000
Data &B00011100
Data &B00001100
Data &B01101100
Data &B01101100
Data &B00001100
Data &B00011100
Data &B00111000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
8d8register.rar
DSCF0009.rar
دیودی که استفاده کردید از چه نوعی است
ما از اوال lt استفاده کردیم
مثلا تابلویی با 2000 ال ای دی زمان پر کردن این همه ای سی چقدر است
این زمان بین دو فریم مشکل ایجاد نمی کند
چه توضیحی برای حل این مشکل دارید در روشی که استفاده کردید
سلام، led مورد استفاده ما اوال درجه یکه روز دید
نرم افزاری که ما استفاده می کنیم خودومون نوشتیم از نرم افزار خاصی استفاده نمی کنیم فونت ها رو هم من تغییر مید هم و به بهترین شکل با توجه به ارتفاع تابلو در میارم
اره دیدم خوب بود مرسی
نوع دیود مورد استفاده رو نگفتید
به نظر شما غیر از shiftout و spiout راه دیگری هم هست که بشه اطلاعات رو فرستاد؟
یه مشکل
وقتی ما تابلو رو به دو بلوک 4 در 8 تبدیل کردیم و خواستیم که ابتدا همه اطلاعات رو به شیفت رجیستر ها بدیم
متوجه شدیم که یه بلوک خاموش است البته با توجه به ترتیب
به نظر شما مشکل از چیه ؟
البته ما تا حدودی متوجه ایراد شدیم
استفاده از shiftout در دادن اطلاعات به بلوک دوم باعث میشه بلوک اول خاموش بمونه
ممکن از clock باشه ؟
برنامه رو تو پستها ی قبل گذاشتم
سلام
دوست گرامی ما از led اوال مارک LT استفاده می کنیم که دانه ای 70 تومان است و آخرین فیلم آنرا هم گذاشتم .در برنامه تغییراتی دادیم . به جای استفاده از دستور Shiftout از حلقه ای استفاده می کنیم که بیت به بیت اطلاعات را به شیفت رجیستر انتقال می دهیم
و همچنین از دو بلوک استفاده کردیم .من نمی دانم چرا اکثراً دنبال نور زیاد هستند .آخه اینا تابلو هستن نه نور افکن .ضمناً نور مناسب (نه کم نه زیاد) دید بهتری می دهد .و مصرف وتلفات انرژی کمتری دارد . و هزینه ساخت تابلو با شیفت رجیستر حدود 15 درصد بیشتر است .چون به ازای هر 8 دیود یک آی _سی لازم داریم . موفق باشید .
سلام
دلیل تقسیم به دو بلوک صرفاً تمرینی بود برای برنامه نویسی تابلو های بزرگتر البته که تا 500 ال ای دی هم نیازی به تقسیم نیست اما ما تابلو ساخته ایم با 2200 ا.ا.د و خواستیم تمرین کنیم نتیجه کارو ببینیم ثانیا در تابلوهای بزرگ تقسیم جریان مسئله مهمی است تا نور یکنواخت شود .اما درمورد راههای مختلف تغذیه شیفت رجیستر ها روش حلقوی بیت به بیت بهترین روش است در این روش نیاز به کنترل Oe نیست و برای هر بلوک دو پین مستقل و برای همه یک پین کلاک نیاز دارید .در صورت استفاده از ( ) shiftout شما برای هر بلوک نیاز به پین Oe هم دارید که سه تا برای هر بلوک مشود فکر کنم سرعت ان هم زیاد است از نظر کد برای هر بلوک یک حلقه فور نیاز داریم .ما در تابلو سازی موفقیت هایی بدست اورده ایم اما مشکل بازار یابی و فروش تابلو داریم آیا " در شهر کسی هست " که راهنمایی مان کند متشکر از همه...
با سلام البته اینهم برنامه جدید راستی به جای ای سی 4094 از 74HC595 استفاده کردیم نور عالی شد
$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Config Portd = Output
Dta0 Alias Portd.0
Strb Alias Portd.1
Dta Alias Portd.2
Clk Alias Portd.3
Strb0 Alias Portd.4
Oe1 Alias Portc.3
Oe2 Alias Portc.4
Dim B As Byte
Dim I As Byte , D As Byte
Dim Z As Byte , K As Byte , M As Byte
Oe1 = 1
Oe2 = 1
Do
For K = 0 To 108
For B = 0 To 3
Z = B + K
D = Lookup(z , Dat1)
For I = 0 To 7
Z = D And &H01
Shift D , Right , 1
Dta = Z
Clk = 1
nop
nop
Clk = 0
Next I
Next B
Strb = 1
nop
nop
Strb = 0
For B = 4 To 7
Z = B + K
D = Lookup(z , Dat1)
For I = 0 To 7
Z = D And &H01
Shift D , Right , 1
Dta0 = Z
Clk = 1
nop
nop
Clk = 0
Next I
Next B
Strb0 = 1
nop
nop
Strb0 = 0
Waitms 30
Next K
Loop
End
Dat1:
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &H38
Data &H24
Data &H24
Data &H00
Data &H70
Data &HC0
Data &H80
Data &H00
Data &H7C
Data &H98
Data &H80
Data &H00
Data &H00
Data &H38
Data &H24
Data &H24
Data &H00
Data &H00
Data &H38
Data &HA0
Data &H20
Data &H70
$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Output
Config Portd = Output
Dta0 Alias Portd.0
Strb Alias Portd.1
Dta Alias Portd.2
Clk Alias Portd.3
Strb0 Alias Portd.4
Oe1 Alias Portc.3
Oe2 Alias Portc.4
Dim B As Byte
Dim I As Byte , D As Byte
Dim Z As Byte , K As Byte , M As Byte
Oe1 = 1
Oe2 = 1
Do
For K = 0 To 108
For B = 0 To 3
Z = B + K
D = Lookup(z , Dat1)
For I = 0 To 7
Z = D And &H01
Shift D , Right , 1
Dta = Z
Clk = 1
nop
nop
Clk = 0
Next I
Next B
Strb = 1
nop
nop
Strb = 0
For B = 4 To 7
Z = B + K
D = Lookup(z , Dat1)
For I = 0 To 7
Z = D And &H01
Shift D , Right , 1
Dta0 = Z
Clk = 1
nop
nop
Clk = 0
Next I
Next B
Strb0 = 1
nop
nop
Strb0 = 0
Waitms 30
Next K
Loop
End
Dat1:
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &B00000000
Data &H38
Data &H24
Data &H24
Data &H00
Data &H70
Data &HC0
Data &H80
Data &H00
Data &H7C
Data &H98
Data &H80
Data &H00
Data &H00
Data &H38
Data &H24
Data &H24
Data &H00
Data &H00
Data &H38
Data &HA0
Data &H20
Data &H70
با تشکر از برنامه اگه میشه فایل پروتئوسش رو هم اگه داری بزار در ضمن شما مشکل سرعت نمایش بین شبیه سازی وسخت افزار داری؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
سلام به همه
مداری روی بورد موقت ساخته ام که از دو شیفت رجیستر 4094 و 595 مشترکا استفاده شده شرایط برای هردو یکی است مگر اینکه برای دیودهای 8 تایی 4094 از مقاومت 10 اهمی و برای دیودهای 8 تایی بسته شده به 595 مقاومت 20 اهمی بسته شده حال نور را مقایسه کنید .دیود های سمت چپ به ای سی 595 وصل شده.