اطلاعیه

**lordsasi** · 2013-08-02T22:46:18

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

دقیقا مداری که شما گفتید برای 12 ولت بستم
فقط از bt138 استفاده کردم.
مدار فلاشر راه افتاد ولی چند تا ایراد داره.
1)نشتی داره یعنی وقتی که میکرو 1 نمیده به تریاک باز مقداری وصله و led ها با نور بسیار کم روشن میشوند.
2)سرعت عملکردش پایینه.مثلا وقتی من در برنامه سرعت خاموش روشن شدن رو 100ms گذاشتم پاسخ گو نیست و مثل حالت 600ms خاموش روشن میکنه.
(برای حالت های دور تابلو که سریع خاموش روشن می شه و خطای دید به وجود می آید پاسخ گو نیست)
سوال؟ نکنه من به جای bd139 از bt138 استفاده کردم این مشکلات به وجود آمده؟ :nerd: :nerd: :cry2:

**MReza.p** · 2013-08-03T03:00:26

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر

1-مشکل نشتی رو می پرسم از دوستان.
2-اگه اینطوره که شما میگین، ب احتمال زیاد فرکانس بالای برنامه با فرکانس تنظیمی پروگرمر یکی نیستن، اگه با 1000000 هرتز نوشتین، به 8000000 عوضش کنین و این مورد رو دوباره چک کنین. اگرم دقیقن می دونین پروگرمرتون رو چه حالتی تنظیم شده، همونو بالای برنامه ذکر کنید.
چواب سوال: افکت های فرکانس بالا تست نکردم حقیقتش، ولی افکت های معمولی رو مطمئن هستم جواب میده. ضمنن ترایاک BT138 ، 12 آمپره و ب احتمال زیاد جریان گیت بالایی لازم هست.
خروجی هر پایه ی میکرو رو با همون 1K و یک ترانزیستور معمولی مثبت BC327 مثلن، وصل کنین. امیتر ترانزیستور ب +5 و کلکتور به گیت ترایاک وصل میشه و تمام.
شماتیکشو لازم بود، بگین بکشم.
جای BT139، ترایاک BT136 هم بایس جواب بده کار_تون رو...

**lordsasi** · 2013-08-03T03:27:37

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

در مورد فرکانس درسته هر دو 8000000
در مورد استفاده از bc 327 سعی میکنم فردا تست کنم
احتمال میدم اگه به جای تریاک از ترانزیستور استفاده کنم بهتر باشه چون برای تنظیم زاویه آتش باید از اپتو تریاک استفاده کرد.
bd139 و tip41 و tip 122 هم میخوام تست کنم ببینم از کدوم نتیجه بهتری میتونم بگیرم. :read:
مرسی که جواب میدید

**mak3798** · 2013-08-15T13:04:40

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

سلام خدمت دوستان و آقای ارغوانی
اول بابت آموزش ها ممنون
یه مشکل دارم ممنون میشم کمکم کنید
کلا توی برنامه نویسی مشکل دارم (البته به روش شما!)
من خودم برنامه نویسی بلد نیستم و از یک فایل آماده برای این کار استفاده می کنم که فقط توی اون احتیاجه که 0 رو 1 کنی 1 رو 0 ! :biggrin:
الان می خوام افکت کم نورو پر نور هم به تابلوم بدم
ولی نمی دونم اون برنامه شما رو کجا بنویسم من برنامه خودم رو پلود می کنم اگه میشه لطف کنید بگید من اون برنامه کم نور و پر نوری که شما توضیح دادین رو کجا بنویسم؟
ممنون
http://www.7upload.ir/uploads/v32032_ATMEGA8.rar

**MReza.p** · 2013-08-20T10:11:29

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

نوشته اصلی توسط mak3798

سلام خدمت دوستان و آقای ارغوانی
اول بابت آموزش ها ممنون
یه مشکل دارم ممنون میشم کمکم کنید
کلا توی برنامه نویسی مشکل دارم (البته به روش شما!)
من خودم برنامه نویسی بلد نیستم و از یک فایل آماده برای این کار استفاده می کنم که فقط توی اون احتیاجه که 0 رو 1 کنی 1 رو 0 ! :biggrin:
الان می خوام افکت کم نورو پر نور هم به تابلوم بدم
ولی نمی دونم اون برنامه شما رو کجا بنویسم من برنامه خودم رو پلود می کنم اگه میشه لطف کنید بگید من اون برنامه کم نور و پر نوری که شما توضیح دادین رو کجا بنویسم؟
ممنون
http://www.7upload.ir/uploads/v32032_ATMEGA8.rar

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

http://s1.picofile.com/file/7900803117/Effect01.rar.html

من داخل فایلتون 2 تا قسمت اضافه کردم.
قسمت اول متغیر هایی که برنامه لازم داره و ضمنن یکی از خط های بالای برنامه خودتون هم عوض شد.
قسمت دوم برنامه ی کم نور و پرنور بصورت ملایم و تکرار 5 مرتبه. برای همه ی پایه های پورت D.

عبارت
Set Portd.0
Set Portd.1
Set Portd.2
Set Portd.3
Set Portd.4
Set Portd.5
Set Portd.6
Set Portd.7
رو بصورت:
portd=&b11111111
هم می تونین بنویسین
که هدف درک بهتر برنامه بوده و مثلن برای اضافه کردن پورت B همراه D پایه های مورد نظرتون رو در هر مرحله ذکر کنید.

بقیه ی بخش ها رو هم به همین منوال میتونین استفاده کنین.
2 قسمتی که اضاف شدن داخل 2 تا *************' هستن.

Buena suerte¡

**amir1389** · 2013-09-08T18:50:47

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

سلام خدمت شما هم رشته گرامی محمدرضا ارغوانی
من همه مطالب شما رو خوندم ولی متاسفانه فقط c بلدم اگر امکانش هست یه فایل کدویژن واسم بفرستید نیاز شدید دارم ممنون

**mojtaba334455** · 2013-09-09T12:19:02

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED

با سلام کسی هست که به تواند این دو برنامه را با هم ترکیب کند یعنی اوا فلاشر رقص نور و بعد فلاشر pwm عمل کند
هر دو این برانامه ها رو از اینترنت دانلود کردم ولی نمی توانم با هم ترکیبشون کنم :angry: :angry: :angry: :angry: :sad: :sad: :sad:

:cry: :cry:
لطفا اگر کسی توانست فایل بست رو به صورت پیغام خصوصی برام ارسال کنه که ببینم چه طوری با هم ترکیب شدن ...

رقص نور

$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Dim A1 As Byte
Dim A2 As Byte
Dim A3 As Byte
Dim A4 As Byte
Dim A5 As Byte
Dim A6 As Byte
Dim A7 As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim B3 As Byte
Dim B4 As Byte
Dim B5 As Byte
Dim B6 As Byte
Dim B7 As Byte
Dim Al1 As Byte
Dim Al0 As Byte
Dim K1 As Byte
Dim K2 As Byte
Dim C1 As Byte
Dim C2 As Byte
Dim C3 As Byte
Dim C4 As Byte
Dim C5 As Byte
Dim C6 As Byte
Dim D1 As Byte
Dim D2 As Byte
Dim D3 As Byte
Dim D4 As Byte
Dim D5 As Byte
Dim D6 As Byte
Dim E1 As Byte
Dim E2 As Byte
Dim E3 As Byte
Dim E4 As Byte
Dim E5 As Byte
Dim F1 As Byte
Dim F2 As Byte
Dim F3 As Byte
Dim G1 As Byte
Dim G2 As Byte
Dim G3 As Byte
Dim H1 As Byte
Dim H2 As Byte
A1 = &B10000000
A2 = &B11000000
A3 = &B11100000
A4 = &B11110000
A5 = &B11111000
A6 = &B11111100
A7 = &B11111110
B1 = &B00000010
B2 = &B00000110
B3 = &B00001110
B4 = &B00011110
B5 = &B00111110
B6 = &B01111110
B7 = &B11111110
K1 = &B11100000
K2 = &B00011110
Al0 = &B00000000
Al1 = &B11111110.
C1 = &B00000010
C2 = &B00000100
C2 = &B00001000
C3 = &B00010000
C4 = &B00100000
C5 = &B01000000
C6 = &B10000000
D1 = &B10000010
D2 = &B10000100
D3 = &B10001000
D4 = &B10010000
D5 = &B10100000
D6 = &B11000000
E1 = &B11000010
E2 = &B11000100
E3 = &B11001000
E4 = &B11010000
E5 = &B11100000
F1 = &B11100010
F2 = &B11100100
F2 = &B11101000
F3 = &B11110000
G1 = &B11110010
G2 = &B11110100
G3 = &B11111000
H1 = &B11111010
H2 = &B11111100
Do
Portd = A1
Waitms 100
Portd = A2
Waitms 100
Portd = A3
Waitms 100
Portd = A4
Waitms 100
Portd = A5
Waitms 100
Portd = A6
Waitms 100
Portd = A7
Waitms 100
Portd = Al1
Wait 2
Portd = B1
Waitms 100
Portd = B2
Waitms 100
Portd = B3
Waitms 100
Portd = B4
Waitms 100
Portd = B5
Waitms 100
Portd = B6
Waitms 100
Portd = B7
Waitms 100
Portd = Al1
Wait 2
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = K1
Waitms 500
Portd = K2
Waitms 500
Portd = K1
Waitms 400
Portd = K2
Waitms 400
Portd = K1
Waitms 300
Portd = K2
Waitms 300
Portd = K1
Waitms 200
Portd = K2
Waitms 200
Portd = K1
Waitms 150
Portd = K2
Waitms 150
Portd = K1
Waitms 100
Portd = K2
Waitms 100
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = Al1
Wait 2
Portd = C1
Waitms 80
Portd = C2
Waitms 80
Portd = C3
Waitms 80
Portd = C4
Waitms 80
Portd = C5
Waitms 80
Portd = C6
Waitms 80
Portd = D1
Waitms 80
Portd = D2
Waitms 80
Portd = D3
Waitms 80
Portd = D4
Waitms 80
Portd = D5
Waitms 80
Portd = D6
Waitms 80
Portd = E1
Waitms 80
Portd = E2
Waitms 80
Portd = E3
Waitms 80
Portd = E4
Waitms 80
Portd = E5
Waitms 80
Portd = F1
Waitms 80
Portd = F2
Waitms 80
Portd = F3
Waitms 80
Portd = G1
Waitms 80
Portd = G2
Waitms 80
Portd = G3
Waitms 80
Portd = H1
Waitms 80
Portd = H2
Waitms 80
Portd = Al1
Wait 1
Portd = C1
Waitms 80
Portd = C2
Waitms 80
Portd = C3
Waitms 80
Portd = C4
Waitms 80
Portd = C5
Waitms 80
Portd = C6
Waitms 80
Portd = D1
Waitms 80
Portd = D2
Waitms 80
Portd = D3
Waitms 80
Portd = D4
Waitms 80
Portd = D5
Waitms 80
Portd = D6
Waitms 80
Portd = E1
Waitms 80
Portd = E2
Waitms 80
Portd = E3
Waitms 80
Portd = E4
Waitms 80
Portd = E5
Waitms 80
Portd = F1
Waitms 80
Portd = F2
Waitms 80
Portd = F3
Waitms 80
Portd = G1
Waitms 80
Portd = G2
Waitms 80
Portd = G3
Waitms 80
Portd = H1
Waitms 80
Portd = H2
Waitms 80
Portd = Al1
Wait 1
Portd = C1
Waitms 80
Portd = C2
Waitms 80
Portd = C3
Waitms 80
Portd = C4
Waitms 80
Portd = C5
Waitms 80
Portd = C6
Waitms 80
Portd = D1
Waitms 80
Portd = D2
Waitms 80
Portd = D3
Waitms 80
Portd = D4
Waitms 80
Portd = D5
Waitms 80
Portd = D6
Waitms 80
Portd = E1
Waitms 80
Portd = E2
Waitms 80
Portd = E3
Waitms 80
Portd = E4
Waitms 80
Portd = E5
Waitms 80
Portd = F1
Waitms 80
Portd = F2
Waitms 80
Portd = F3
Waitms 80
Portd = G1
Waitms 80
Portd = G2
Waitms 80
Portd = G3
Waitms 80
Portd = H1
Waitms 80
Portd = H2
Waitms 80
Portd = Al1
Wait 1
Portd = C1
Waitms 50
Portd = Al0
Waitms 50
Portd = C1
Waitms 50
Portd = Al0
Waitms 50
Portd = C1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al0
Waitms 50
Portd = C2
Waitms 50
Portd = Al0
Waitms 50
Portd = C2
Waitms 50
Portd = Al0
Waitms 50
Portd = C2
Waitms 50
Portd = Al0
Waitms 50
Portd = C3
Waitms 50
Portd = Al0
Waitms 50
Portd = C3
Waitms 50
Portd = Al0
Waitms 50
Portd = C3
Waitms 50
Portd = Al0
Waitms 50
Portd = C4
Waitms 50
Portd = Al0
Waitms 50
Portd = C4
Waitms 50
Portd = Al0
Waitms 50
Portd = C4
Waitms 50
Portd = Al0
Waitms 50
Portd = C5
Waitms 50
Portd = Al0
Waitms 50
Portd = C5
Waitms 50
Portd = Al0
Waitms 50
Portd = C5
Waitms 50
Portd = Al0
Waitms 50
Portd = C6
Waitms 50
Portd = Al0
Waitms 50
Portd = D1
Waitms 50
Portd = Al0
Waitms 50
Portd = D1
Waitms 50
Portd = Al0
Waitms 50
Portd = D1
Waitms 50
Portd = Al0
Waitms 50
Portd = D2
Waitms 50
Portd = Al0
Waitms 50
Portd = D2
Waitms 50
Portd = Al0
Waitms 50
Portd = D2
Waitms 50
Portd = Al0
Waitms 50
Portd = D3
Waitms 50
Portd = Al0
Waitms 50
Portd = D3
Waitms 50
Portd = Al0
Waitms 50
Portd = D3
Waitms 50
Portd = Al0
Waitms 50
Portd = D4
Waitms 50
Portd = Al0
Waitms 50
Portd = D4
Waitms 50
Portd = Al0
Waitms 50
Portd = D4
Waitms 50
Portd = Al0
Waitms 50
Portd = D5
Waitms 50
Portd = Al0
Waitms 50
Portd = D5
Waitms 50
Portd = Al0
Waitms 50
Portd = D5
Waitms 50
Portd = Al0
Waitms 50
Portd = D6
Waitms 50
Portd = Al0
Waitms 50
Portd = D6
Waitms 50
Portd = Al0
Waitms 50
Portd = D6
Waitms 50
Portd = Al0
Waitms 50
Portd = E1
Waitms 50
Portd = Al0
Waitms 50
Portd = E1
Waitms 50
Portd = Al0
Waitms 50
Portd = E1
Waitms 50
Portd = Al0
Waitms 50
Portd = E2
Waitms 50
Portd = Al0
Waitms 50
Portd = E2
Waitms 50
Portd = Al0
Waitms 50
Portd = E2
Waitms 50
Portd = Al0
Waitms 50
Portd = E3
Waitms 50
Portd = Al0
Waitms 50
Portd = E3
Waitms 50
Portd = Al0
Waitms 50
Portd = E3
Waitms 50
Portd = Al0
Waitms 50
Portd = E4
Waitms 50
Portd = Al0
Waitms 50
Portd = E4
Waitms 50
Portd = Al0
Waitms 50
Portd = E4
Waitms 50
Portd = Al0
Waitms 50
Portd = E5
Waitms 50
Portd = Al0
Waitms 50
Portd = E5
Waitms 50
Portd = Al0
Waitms 50
Portd = E5
Waitms 50
Portd = Al0
Waitms 50
Portd = F1
Waitms 50
Portd = Al0
Waitms 50
Portd = F1
Waitms 50
Portd = Al0
Waitms 50
Portd = F1
Waitms 50
Portd = Al0
Waitms 50
Portd = F2
Waitms 50
Portd = Al0
Waitms 50
Portd = F2
Waitms 50
Portd = Al0
Waitms 50
Portd = F2
Waitms 50
Portd = Al0
Waitms 50
Portd = F3
Waitms 50
Portd = Al0
Waitms 50
Portd = F3
Waitms 50
Portd = Al0
Waitms 50
Portd = F3
Waitms 50
Portd = Al0
Waitms 50
Portd = G1
Waitms 50
Portd = Al0
Waitms 50
Portd = G1
Waitms 50
Portd = Al0
Waitms 50
Portd = G1
Waitms 50
Portd = Al0
Waitms 50
Portd = G2
Waitms 50
Portd = Al0
Waitms 50
Portd = G2
Waitms 50
Portd = Al0
Waitms 50
Portd = G2
Waitms 50
Portd = Al0
Waitms 50
Portd = G3
Waitms 50
Portd = Al0
Waitms 50
Portd = G3
Waitms 50
Portd = Al0
Waitms 50
Portd = G3
Waitms 50
Portd = Al0
Waitms 50
Portd = H1
Waitms 50
Portd = Al0
Waitms 50
Portd = H1
Waitms 50
Portd = Al0
Waitms 50
Portd = H1
Waitms 50
Portd = Al0
Waitms 50
Portd = H2
Waitms 50
Portd = Al0
Waitms 50
Portd = H2
Waitms 50
Portd = Al0
Waitms 50
Portd = H2
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Loop
End

pwm

$regfile = "M8DEF.DAT"
$crystal = 8000000

Config Portb.1 = Output
Config Portb.2 = Output
Config Portd = Output

Declare Sub Efct00
Declare Sub Initial_set
Declare Sub Initial_reset

Dim Rpt_cnt_00 As Byte , Rpt_cnt_01 As Byte , Rpt_cnt_02 As Byte
Dim Pwm_t_on As Byte , Pwm_t_of As Byte

Do
Call Efct00
Wait 1
Call Initial_reset
Loop

Sub Efct00:
Pwm_t_on = 99
Pwm_t_of = 1
For Rpt_cnt_00 = 1 To 100
For Rpt_cnt_01 = 0 To 5
Call Initial_set
For Rpt_cnt_02 = 0 To Pwm_t_on
Waitus 50
Next
Call Initial_reset
For Rpt_cnt_02 = 0 To Pwm_t_of
Waitus 50
Next
Next
Pwm_t_on = Pwm_t_on - 1
Pwm_t_of = Pwm_t_of + 1
Next
Call Initial_reset
End Sub

Sub Initial_set:
Set Portb.1
Set Portb.2
Portd = 255
End Sub

Sub Initial_reset:
Reset Portb.1
Reset Portb.2
Portd = 0
End Sub

End
ویرایش

**tirajheh** · 2013-09-13T11:17:25

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

سلام دوستان
من ساخت فلاشر تا 8 کانال رو بلدم
اگه بیشتر از 8 تا باشه چطوریه 9 تا 10 تا یا بیشتر
با ATmega 8 یه نمونه برنامه و نقشه مدار میزارید که متوجه بشم .

**mojtaba334455** · 2013-09-15T14:36:57

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED

تو رو خدا یکی جواب بده 3 هفته است رو سایته یعنی کسی بلد نیست ..............خیلی گیر کردم ............کمک کنید .....

quote author=mojtaba334455 link=topic=74083.msg507273#msg507273 date=1378712942]
با سلام کسی هست که به تواند این دو برنامه را با هم ترکیب کند یعنی اوا فلاشر رقص نور و بعد فلاشر pwm عمل کند
هر دو این برانامه ها رو از اینترنت دانلود کردم ولی نمی توانم با هم ترکیبشون کنم :angry: :angry: :angry: :angry: :sad: :sad: :sad:

:cry: :cry:
لطفا اگر کسی توانست فایل بست رو به صورت پیغام خصوصی برام ارسال کنه که ببینم چه طوری با هم ترکیب شدن ...

رقص نور

$regfile = "m8def.dat"
$crystal = 1000000
Config Portd = Output
Dim A1 As Byte
Dim A2 As Byte
Dim A3 As Byte
Dim A4 As Byte
Dim A5 As Byte
Dim A6 As Byte
Dim A7 As Byte
Dim B1 As Byte
Dim B2 As Byte
Dim B3 As Byte
Dim B4 As Byte
Dim B5 As Byte
Dim B6 As Byte
Dim B7 As Byte
Dim Al1 As Byte
Dim Al0 As Byte
Dim K1 As Byte
Dim K2 As Byte
Dim C1 As Byte
Dim C2 As Byte
Dim C3 As Byte
Dim C4 As Byte
Dim C5 As Byte
Dim C6 As Byte
Dim D1 As Byte
Dim D2 As Byte
Dim D3 As Byte
Dim D4 As Byte
Dim D5 As Byte
Dim D6 As Byte
Dim E1 As Byte
Dim E2 As Byte
Dim E3 As Byte
Dim E4 As Byte
Dim E5 As Byte
Dim F1 As Byte
Dim F2 As Byte
Dim F3 As Byte
Dim G1 As Byte
Dim G2 As Byte
Dim G3 As Byte
Dim H1 As Byte
Dim H2 As Byte
A1 = &B10000000
A2 = &B11000000
A3 = &B11100000
A4 = &B11110000
A5 = &B11111000
A6 = &B11111100
A7 = &B11111110
B1 = &B00000010
B2 = &B00000110
B3 = &B00001110
B4 = &B00011110
B5 = &B00111110
B6 = &B01111110
B7 = &B11111110
K1 = &B11100000
K2 = &B00011110
Al0 = &B00000000
Al1 = &B11111110.
C1 = &B00000010
C2 = &B00000100
C2 = &B00001000
C3 = &B00010000
C4 = &B00100000
C5 = &B01000000
C6 = &B10000000
D1 = &B10000010
D2 = &B10000100
D3 = &B10001000
D4 = &B10010000
D5 = &B10100000
D6 = &B11000000
E1 = &B11000010
E2 = &B11000100
E3 = &B11001000
E4 = &B11010000
E5 = &B11100000
F1 = &B11100010
F2 = &B11100100
F2 = &B11101000
F3 = &B11110000
G1 = &B11110010
G2 = &B11110100
G3 = &B11111000
H1 = &B11111010
H2 = &B11111100
Do
Portd = A1
Waitms 100
Portd = A2
Waitms 100
Portd = A3
Waitms 100
Portd = A4
Waitms 100
Portd = A5
Waitms 100
Portd = A6
Waitms 100
Portd = A7
Waitms 100
Portd = Al1
Wait 2
Portd = B1
Waitms 100
Portd = B2
Waitms 100
Portd = B3
Waitms 100
Portd = B4
Waitms 100
Portd = B5
Waitms 100
Portd = B6
Waitms 100
Portd = B7
Waitms 100
Portd = Al1
Wait 2
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = K1
Waitms 500
Portd = K2
Waitms 500
Portd = K1
Waitms 400
Portd = K2
Waitms 400
Portd = K1
Waitms 300
Portd = K2
Waitms 300
Portd = K1
Waitms 200
Portd = K2
Waitms 200
Portd = K1
Waitms 150
Portd = K2
Waitms 150
Portd = K1
Waitms 100
Portd = K2
Waitms 100
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = K1
Waitms 50
Portd = K2
Waitms 50
Portd = Al1
Wait 2
Portd = C1
Waitms 80
Portd = C2
Waitms 80
Portd = C3
Waitms 80
Portd = C4
Waitms 80
Portd = C5
Waitms 80
Portd = C6
Waitms 80
Portd = D1
Waitms 80
Portd = D2
Waitms 80
Portd = D3
Waitms 80
Portd = D4
Waitms 80
Portd = D5
Waitms 80
Portd = D6
Waitms 80
Portd = E1
Waitms 80
Portd = E2
Waitms 80
Portd = E3
Waitms 80
Portd = E4
Waitms 80
Portd = E5
Waitms 80
Portd = F1
Waitms 80
Portd = F2
Waitms 80
Portd = F3
Waitms 80
Portd = G1
Waitms 80
Portd = G2
Waitms 80
Portd = G3
Waitms 80
Portd = H1
Waitms 80
Portd = H2
Waitms 80
Portd = Al1
Wait 1
Portd = C1
Waitms 80
Portd = C2
Waitms 80
Portd = C3
Waitms 80
Portd = C4
Waitms 80
Portd = C5
Waitms 80
Portd = C6
Waitms 80
Portd = D1
Waitms 80
Portd = D2
Waitms 80
Portd = D3
Waitms 80
Portd = D4
Waitms 80
Portd = D5
Waitms 80
Portd = D6
Waitms 80
Portd = E1
Waitms 80
Portd = E2
Waitms 80
Portd = E3
Waitms 80
Portd = E4
Waitms 80
Portd = E5
Waitms 80
Portd = F1
Waitms 80
Portd = F2
Waitms 80
Portd = F3
Waitms 80
Portd = G1
Waitms 80
Portd = G2
Waitms 80
Portd = G3
Waitms 80
Portd = H1
Waitms 80
Portd = H2
Waitms 80
Portd = Al1
Wait 1
Portd = C1
Waitms 80
Portd = C2
Waitms 80
Portd = C3
Waitms 80
Portd = C4
Waitms 80
Portd = C5
Waitms 80
Portd = C6
Waitms 80
Portd = D1
Waitms 80
Portd = D2
Waitms 80
Portd = D3
Waitms 80
Portd = D4
Waitms 80
Portd = D5
Waitms 80
Portd = D6
Waitms 80
Portd = E1
Waitms 80
Portd = E2
Waitms 80
Portd = E3
Waitms 80
Portd = E4
Waitms 80
Portd = E5
Waitms 80
Portd = F1
Waitms 80
Portd = F2
Waitms 80
Portd = F3
Waitms 80
Portd = G1
Waitms 80
Portd = G2
Waitms 80
Portd = G3
Waitms 80
Portd = H1
Waitms 80
Portd = H2
Waitms 80
Portd = Al1
Wait 1
Portd = C1
Waitms 50
Portd = Al0
Waitms 50
Portd = C1
Waitms 50
Portd = Al0
Waitms 50
Portd = C1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al0
Waitms 50
Portd = C2
Waitms 50
Portd = Al0
Waitms 50
Portd = C2
Waitms 50
Portd = Al0
Waitms 50
Portd = C2
Waitms 50
Portd = Al0
Waitms 50
Portd = C3
Waitms 50
Portd = Al0
Waitms 50
Portd = C3
Waitms 50
Portd = Al0
Waitms 50
Portd = C3
Waitms 50
Portd = Al0
Waitms 50
Portd = C4
Waitms 50
Portd = Al0
Waitms 50
Portd = C4
Waitms 50
Portd = Al0
Waitms 50
Portd = C4
Waitms 50
Portd = Al0
Waitms 50
Portd = C5
Waitms 50
Portd = Al0
Waitms 50
Portd = C5
Waitms 50
Portd = Al0
Waitms 50
Portd = C5
Waitms 50
Portd = Al0
Waitms 50
Portd = C6
Waitms 50
Portd = Al0
Waitms 50
Portd = D1
Waitms 50
Portd = Al0
Waitms 50
Portd = D1
Waitms 50
Portd = Al0
Waitms 50
Portd = D1
Waitms 50
Portd = Al0
Waitms 50
Portd = D2
Waitms 50
Portd = Al0
Waitms 50
Portd = D2
Waitms 50
Portd = Al0
Waitms 50
Portd = D2
Waitms 50
Portd = Al0
Waitms 50
Portd = D3
Waitms 50
Portd = Al0
Waitms 50
Portd = D3
Waitms 50
Portd = Al0
Waitms 50
Portd = D3
Waitms 50
Portd = Al0
Waitms 50
Portd = D4
Waitms 50
Portd = Al0
Waitms 50
Portd = D4
Waitms 50
Portd = Al0
Waitms 50
Portd = D4
Waitms 50
Portd = Al0
Waitms 50
Portd = D5
Waitms 50
Portd = Al0
Waitms 50
Portd = D5
Waitms 50
Portd = Al0
Waitms 50
Portd = D5
Waitms 50
Portd = Al0
Waitms 50
Portd = D6
Waitms 50
Portd = Al0
Waitms 50
Portd = D6
Waitms 50
Portd = Al0
Waitms 50
Portd = D6
Waitms 50
Portd = Al0
Waitms 50
Portd = E1
Waitms 50
Portd = Al0
Waitms 50
Portd = E1
Waitms 50
Portd = Al0
Waitms 50
Portd = E1
Waitms 50
Portd = Al0
Waitms 50
Portd = E2
Waitms 50
Portd = Al0
Waitms 50
Portd = E2
Waitms 50
Portd = Al0
Waitms 50
Portd = E2
Waitms 50
Portd = Al0
Waitms 50
Portd = E3
Waitms 50
Portd = Al0
Waitms 50
Portd = E3
Waitms 50
Portd = Al0
Waitms 50
Portd = E3
Waitms 50
Portd = Al0
Waitms 50
Portd = E4
Waitms 50
Portd = Al0
Waitms 50
Portd = E4
Waitms 50
Portd = Al0
Waitms 50
Portd = E4
Waitms 50
Portd = Al0
Waitms 50
Portd = E5
Waitms 50
Portd = Al0
Waitms 50
Portd = E5
Waitms 50
Portd = Al0
Waitms 50
Portd = E5
Waitms 50
Portd = Al0
Waitms 50
Portd = F1
Waitms 50
Portd = Al0
Waitms 50
Portd = F1
Waitms 50
Portd = Al0
Waitms 50
Portd = F1
Waitms 50
Portd = Al0
Waitms 50
Portd = F2
Waitms 50
Portd = Al0
Waitms 50
Portd = F2
Waitms 50
Portd = Al0
Waitms 50
Portd = F2
Waitms 50
Portd = Al0
Waitms 50
Portd = F3
Waitms 50
Portd = Al0
Waitms 50
Portd = F3
Waitms 50
Portd = Al0
Waitms 50
Portd = F3
Waitms 50
Portd = Al0
Waitms 50
Portd = G1
Waitms 50
Portd = Al0
Waitms 50
Portd = G1
Waitms 50
Portd = Al0
Waitms 50
Portd = G1
Waitms 50
Portd = Al0
Waitms 50
Portd = G2
Waitms 50
Portd = Al0
Waitms 50
Portd = G2
Waitms 50
Portd = Al0
Waitms 50
Portd = G2
Waitms 50
Portd = Al0
Waitms 50
Portd = G3
Waitms 50
Portd = Al0
Waitms 50
Portd = G3
Waitms 50
Portd = Al0
Waitms 50
Portd = G3
Waitms 50
Portd = Al0
Waitms 50
Portd = H1
Waitms 50
Portd = Al0
Waitms 50
Portd = H1
Waitms 50
Portd = Al0
Waitms 50
Portd = H1
Waitms 50
Portd = Al0
Waitms 50
Portd = H2
Waitms 50
Portd = Al0
Waitms 50
Portd = H2
Waitms 50
Portd = Al0
Waitms 50
Portd = H2
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Portd = Al1
Waitms 50
Portd = Al0
Waitms 50
Loop
End

pwm

$regfile = "M8DEF.DAT"
$crystal = 8000000

Config Portb.1 = Output
Config Portb.2 = Output
Config Portd = Output

Declare Sub Efct00
Declare Sub Initial_set
Declare Sub Initial_reset

Dim Rpt_cnt_00 As Byte , Rpt_cnt_01 As Byte , Rpt_cnt_02 As Byte
Dim Pwm_t_on As Byte , Pwm_t_of As Byte

Do
Call Efct00
Wait 1
Call Initial_reset
Loop

Sub Efct00:
Pwm_t_on = 99
Pwm_t_of = 1
For Rpt_cnt_00 = 1 To 100
For Rpt_cnt_01 = 0 To 5
Call Initial_set
For Rpt_cnt_02 = 0 To Pwm_t_on
Waitus 50
Next
Call Initial_reset
For Rpt_cnt_02 = 0 To Pwm_t_of
Waitus 50
Next
Next
Pwm_t_on = Pwm_t_on - 1
Pwm_t_of = Pwm_t_of + 1
Next
Call Initial_reset
End Sub

Sub Initial_set:
Set Portb.1
Set Portb.2
Portd = 255
End Sub

Sub Initial_reset:
Reset Portb.1
Reset Portb.2
Portd = 0
End Sub

End
ویرایش
[/quote]

**mak3798** · 2013-09-15T20:26:40

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

سلام
دوستان توی برنامه برا زمان بندی می تونیم کمتر از 100 میلی ثانیه هم بهش اختصاص بدیم؟
ممنون

**saeidnm** · 2013-09-22T23:13:47

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

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

**mak3798** · 2013-09-23T11:31:40

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

نوشته اصلی توسط mak3798

سلام
دوستان توی برنامه برا زمان بندی می تونیم کمتر از 100 میلی ثانیه هم بهش اختصاص بدیم؟
ممنون

دوستان کسی جواب منو نمیده؟

**tester_t** · 2013-09-23T19:38:10

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

نوشته اصلی توسط mak3798

دوستان کسی جواب منو نمیده؟

سلام
بله میشه

**mak3798** · 2013-09-23T23:11:01

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

چطوری؟
بجای 100 بنویسم 50؟

**tester_t** · 2013-09-25T01:05:37

پاسخ : آموزش خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(قسمت 3 اضافه شد)

نوشته اصلی توسط mak3798

چطوری؟
بجای 100 بنویسم 50؟

من دقیق متوجه منظورتون نمیشم اما تاخیر دادن به این صورته که دستور waitms جلوش یک عدد بر حسب میلی ثانیه قرار میگیره بین 1 تا 999 اگر بازم کمتر خواستید که اینجا کاربردی نداره waitus هست که عددی که بعدش قرار میگیره بر حسب میکرو ثانیه هست و ...

اطلاعیه

[آموزش] خلاصه برنامه نویسی و ساخت فلاشر تابلو LED ثابت(لینک ها اصلاح شد)

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه