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

این پروژه شبیه پروژه ال سی دی روان میباشد منتها برای مداراتی که از سون سگمنت آند مشترک و با تعداد ارقام مثلا 6 رقم باشد .البته میتوان آن را در برنامه تغییر داد.

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

شماتیک

سورس برنامه :

*************************************
Name : LED Rawan
Type : 6-Digit - 7SEG-CA
Designer : ESMAEIL MOHAMMAD ZADEH
Mobile : 09139545140
Mail : Esmaeil_AVR@yahoo.com
*************************************

$regfile = "m32def.dat" : $crystal = 8000000 : Enable Interrupts
Configuration:

Config Timer1 = Timer , Prescale = 64 : Enable Timer1 : On Ovf1 Ovf1_int

Config Porta = Output : 7seg Alias Porta
Config Portc = Output : Anod Alias Portc
Var:
Dim Puls As Byte , Z As Byte , Y As Byte , I As Byte , Puls_new As Byte
Dim Num_of_7seg As Byte , Num_of_char As Byte

************************************ Tabligh **********************************
Tabligh1:
Puls_new = 0 : I = 0 : Z = 0 : Puls = 0 : Y = 0

Tabligh:
Do
For I = 1 To 6
Anod = Lookup(i , Anod_dta)
Z = Y + I
7seg = Lookup(z , Tabligh_dta)
Waitms 2
Next I
Loop Until Puls_new <> Puls
Puls_new = Puls
Y = Y + 1
If Y => 21 Then Jmp Tabligh1
jmp Tabligh
*******************************************************************************
Ovf1_int:
Incr Puls
Return
************************************* DATA
Anod_dta:
Data &H00 , &H01 , &H02 , &H04 , &H08 , &H10 , &H20 , &H40 , &H80
-------------------------------------------------------------------------------
Tabligh_dta:
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &H87 , &H86 , &HC7 , &HB7
Data &HC0 , &H90 , &HF9 , &HB0 , &H90 , &H92 , &H99 , &H92 , &HF9 , &H99 , &HC0
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF

END