گروه مجستیک الکترونیک

ساخت تابلو روان میتواند برای هر علاقمند به الکترونیک جداب باشد(البته مهندس های مبتکر و خلاق که جای خود دارن)!!!

در این پست هم ما یک پروژه ساده و در عین حال آموزشی و مفید را برای شما علاقمندان آماده نموده ایم که امیدواریم بهره کافی را از آن ببرید.در این پروژه شما خواهید توانس یک شبه تابلو روان با 36 ال ای دی را بسازید که تمامی فایلهای مربوطه آماده گردیده است و شما کافیست همت کنید و این پروژه را برای خود بسازید.

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

موفق باشید...مجستیک

ساخت مدار اکولایزر میتواند برای شما عزیزان جذاب و جالب باشد.امروز هم یک مدار اکولایزر led در خدمت شما هستیم تا رضایت شما دوستان را جلب نماییم...

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

در این مدار از ترانزیستورهای  TIP استفاده شده است(فرقی نمیکند چه شماره ای) و مقاومت ها 100 کیلو در نظر گرفته شود...

دیودها هم 1N4148 هست!!!

برنامه تابلو روان 8 در 16 با زبان بسکام جهت اشنایی بیشتر شما با ساخت و عملکرد این نمایشگرها

‘*************************************
$ regfile = “M32def.dat”
$crystal = 8000000
‘*************************************
Config Porta = Output
Config Portb = Output
Config Portc = Output
‘*************************************
Dim Buf(16) As Byte
Dim K As Byte
Dim H16 As Byte
Dim Ref As Byte
Dim P As Word
Dim I As Word
Dim Endmatn As Word
‘*******************************************************************************
‘*******************************************************************************
Do
P = 0
Endmatn = 208
For I = 1 To 16
Buf(i) = Lookup(p , Jb)
Incr P
Next
M1:
Gosub Nama
For K = 1 To 15
Buf(k) = Buf(k + 1)
Next
Buf(16) = Lookup(p , Jb)
Incr P
If P = Endmatn Then P = 0
If P < Endmatn Then Goto M1
Loop
End
‘*******************************************************************************
‘*******************************************************************************
Nama:
For Ref = 1 To 16
For H16 = 1 To 16
Select Case H16
Case 1 : Porta = &B11111110
Case 2 : Porta = &B11111101
Case 3 : Porta = &B11111011
Case 4 : Porta = &B11110111
Case 5 : Porta = &B11101111
Case 6 : Porta = &B11011111
Case 7 : Porta = &B10111111
Case 8 : Porta = &B01111111
Case 9 : Portc = &B11111110
Porta = &B11111111
Case 10 : Portc = &B11111101
Case 11 : Portc = &B11111011
Case 12 : Portc = &B11110111
Case 13 : Portc = &B11101111
Case 14 : Portc = &B11011111
Case 15 : Portc = &B10111111
Case 16 : Portc = &B01111111
End Select
Portb = Buf(h16)
Waitus 400
Portb = 0
Next H16
Next Ref
Return
‘*******************************************************************************
‘*******************************************************************************
Jb:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data &B00011000
Data &B00001100
Data &B00011000
Data &B00001100
Data &B00011000
Data &B00001100
Data &B00001100
Data &B11111000
Data &B01111100
Data &B00001100
Data &B00001100
Data &B00001100
Data &B00001100
Data &B11111100

تابلوروان آموزشی

تابلوروان آموزشی