آموزش گام به گام تابلوی چرخشی با 8 LED

[amir_moayeri]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

ای بابا
این چه حرفیه
یه وقتایی هست آدم اونقدر کار رو سرش میریزه که نمیدونه کدوم و اول انجام بده
من خودم خیلی دوست دارم PDF و شماتیک مدار و مرتب شده درست کنم ولی سیستمم خرابه DXP روش نصب نمیشه اعصابم خورده
همین دست نوشته هاتون خیلی عالیه و غنیمته
ای کاش ادامه ی این آموزشتون رو هرچه زودتر بذارین که همه چشم انتظارشن :job:
مرسی

با سلام

تا آموزش جناب شرفی ، آماده بشه ، جسارت کردم و چند عکس از ساخته خودم در این آدرس قرار دادم ، انشا الله که بتونه دیدگاهی مثبت باشه به همراه آموزش جناب شرفی .
لطفا بازبینی بفرمایید .
http://www.eca.ir/forum2/index.php?topic=20961.15

[pasheh_7]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

ای بابا

ای بابا نداره به نظر من اگه کسی نمی تونه آموزش بده (یعنی وقتشو نداره ) نباید آموزش بده اگه هم آموزش بده وقت و هزینه دیگران رو تلف کرده.

[bnmo]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام
ایا دوستان در مورد اساس کار این تابلو خبر دارند
مثلا کمی توضیح دهید شاید خودمون برنامشو نوشیم
مثلا سنسور های مادون قرمز چه کار بردی در این نوع پروژ ها دارد
چه جوری میشه که متن دیده میشه
یعنی اسا س اش چیه
مثلا در تابلو روان معمولی در جاروب سطری یک سطر فعال و دیتا فرستاده می شود و سطر دوم فعال و دیتای ان از ستون ها فرستاده میشه
که این کار انقدر ادامه می یابه که متن ثابت دیده میشه
....
غرضم از گفتن این مطلب این بود که ایا تابلوی گردان چنین است یا فرق می کند
کمی توضیح دهید

[amir_moayeri]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام
ایا دوستان در مورد اساس کار این تابلو خبر دارند
مثلا کمی توضیح دهید شاید خودمون برنامشو نوشیم
مثلا سنسور های مادون قرمز چه کار بردی در این نوع پروژ ها دارد
چه جوری میشه که متن دیده میشه
یعنی اسا س اش چیه
مثلا در تابلو روان معمولی در جاروب سطری یک سطر فعال و دیتا فرستاده می شود و سطر دوم فعال و دیتای ان از ستون ها فرستاده میشه
که این کار انقدر ادامه می یابه که متن ثابت دیده میشه
....
غرضم از گفتن این مطلب این بود که ایا تابلوی گردان چنین است یا فرق می کند
کمی توضیح دهید

با سلام

اصول نمایش مانند تابلو های روان معمولیه ، با این تفاوت که :
بطور مثال :
برای نمایش در تابلو روان( 8 سطر در 256 ستون ) ،

1- دیتای ستون اول روی ( سطرهای 1 تا 8 ) قرار گرفته
2- ستون 1 فعال شده
3- نمایش دیتای واقع در ستون 1
4- نمایش قطع شده ( اطلاعات جدید روی سطر ها قرار میگیرد ..................)
.
.
1- دیتای ستون 256 روی ( سطرهای 1 تا 8 ) قرار گرفته
2- ستون 256 فعال شده
3- نمایش دیتای واقع در ستون 256
4- نمایش قطع شده ( اطلاعات جدید روی سطر ها قرار میگیرد ..................)

برای نمایش در تابلو روان( دارای 8 سطر )

1- دیتای ستون اول روی ( سطرهای 1 تا 8 ) قرار گرفته
2- نمایش دیتای واقع در ستون 1
3- نمایش قطع شده ( اطلاعات جدید روی سطر ها قرار میگیرد ..................)
.
.
.
1- دیتای ستون 256 روی ( سطرهای 1 تا 8 ) قرار گرفته
2- نمایش دیتای واقع در ستون 256
3- نمایش قطع شده ( اطلاعات جدید روی سطر ها قرار میگیرد ..................)

و الی اخر

در این نوع نمایشگر ، یک ستون بیشتر وجود ندارد و تمام دیتای 256 ستون با زمان بندی ، روی فقط 8 سطر یک ستون نمایش داده میشود

با دور موتور حدود 100 دور در دقیقه و یا کمتر هم ، تصویری که نمایش داده میشود ، نیز قابل تشخیص است .

این قضیه ، اونقدر هم که در ظاهر نشون میده ، پیچیده و بغرنج نیست . خیلی ساده تر از این حرفاست ، حتی اگه یه کاراکتر مثل X رو توی ماتریس نمایشی تعریف کنید ، در موقع نمایش ( حتی بدون نیاز به چرخش با موتور ) ، فقط با حرکت بورد به چپ و راست ، توسط دست ،نیز ، تصویر حرف X بوضوح دیده میشود .

[feshwari]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام دوستان.
واقعا از وقفه ای که پیش آمد معذرت می خواهم.

این هم برنامه تابلوی چرخشی.

dim X as byte

porta= &Hff
do
for x = 0 to 7
porta = lookup(x , ani)
waitus 50
next x
loop
end

ani:
data &H03 , &H00 , &Hff , ,,,,,,,,,,,,

در جدول ANI یک عکس باید به کد تبدیل شود. عددی که در حلقه FOR قرار می گیرد تعداد ستون ها می باشد
اگر سوالی بود در خدمتم. امشب یه نمونه کد می گدارم تا دوستان استفاده کنم. اخه الان سر کارم و وقت ندارم.
عکس هم امشب میزارم

محمد شرفی

[bnmo]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

پس سنسور مادون قرمز چی کاره است
یعنی برا چی می گذارنش
در ضمن اگر پروژ ه بالا را ببندم و با موتود بچر خانم کار می کنه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[khast khodaiebehnam]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

'-------------------------------------------------------------------------------
' DS1307.BAS
' shows how to use the ds1307 clock on the 2313 futurlec board
' it also shows the CONFIG CLOCK=USER option
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 8000000
'$baud = 9600
' modified lib

'configure the scl and sda pins
'Config Watchdog = 2048
Config Sda = Portd.4
Config Scl = Portd.3
Config Portb = Output
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
'Config Watchdog = 2048
Config Clock = User ' this will dim the bytes automatic
'dim other needed variables
Dim Weekday As Byte
Dim Omid As String * 9
Dim Sara As Word
Dim Led As Byte
Dim Dat As String * 1
Dim Tt As Byte
Dim A As Byte
Dim N As Byte

'Print "DS1307"
'Waitms 100
' assigning the time will call the SetTime routine
'------------------------------------------------------------------------------------
$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib"
'Waitms 100
Time$ = "1000" ' to watch the day changing value
'Date$ = "11-13-87"
'Print Time$
'Wait 3
'Print Time$
'Gosub Omid
Set Portd.0
Reset Portd.1
'Portb = 255
'Start Watchdog
'Omid = Time$
'Wait 2
'Goto Omid
'------------------------------------------------------------------------------
Ss:
N = 1
Ss22:
Gosub Getdatetime
Gosub Getdatetime
Omid = Time$
If Omid = "@5:@5:@5" Then
If N < 22 Then
Goto Ss22
End If
End If


Do

For N = 1 To 10

For Sara = 1 To 13


Tt = Len(omid)
Tt = Tt - 3
For A = 1 To Tt
Dat = Mid(omid , A , 1)
Gosub Adad

Portb = 0
Waitus 420
Next A
Waitms 1

Waitus 800
Reset Watchdog
Next Sara
Next Omid


Gosub Omid






Loop

End











Omid:
For Sara = 1 To 100
'------------------------------------------heart
Portb = 14
Waitus 230
Portb = 31
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 124
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 31
Waitus 230
Portb = 14
Waitus 230
Portb = 0
Reset Watchdog
Waitus 920
'Waitms 5

'Gosub Heart
Next Sara
' For Sara = 1 To 50 '--------------------------
' Portb = 253
'Waitus 250
'Portb = 0
'Waitus 420 'iran
' Portb = 255
'Waitus 250
'Portb = 9
'Waitus 250
'Portb = 9
'Waitus 250
'Portb = 30
'Waitus 250
'Portb = 228
'Reset Watchdog
'Waitus 250
'Portb = 0
'Waitus 420
'Portb = 252
'Waitus 250
'Portb = 10
'Waitus 250
'Portb = 9
'Waitus 250
'Portb = 10
'Waitus 250
'Portb = 252
'Waitus 250
'Portb = 0
'Waitus 420
' Portb = 255
'Waitus 250

'Portb = 4
'Waitus 250

'Portb = 8
'Waitus 250

'Portb = 16
'Waitus 250

'Portb = 32
'Waitus 250

'Portb = 255
'Waitus 250


'Portb = 0
'Waitus 220
'Waitms 4
'Reset Watchdog

'Waitus 300
'Next Sara

For N = 1 To 2
Reset Watchdog
Portb = 255
Waitms 50
Portb = 0
Waitms 50
Next N

'For Sara = 1 To 200

'Gosub S
'Gosub I
'Gosub M
'Gosub A

'Waitus 120
'Waitus 100
'Waitms 6
'Waitus 200
'Next
Gosub Getdatetime
Gosub Getdatetime
Omid = Time$
For N = 1 To 8

For Sara = 1 To 13
Reset Watchdog

Tt = Len(omid)
Tt = Tt - 3
For A = 1 To Tt
Dat = Mid(omid , A , 1)
Gosub Adad

Portb = 0
Waitus 420
Next A
Waitms 2

Waitus 100

Next Sara
Next Omid



For N = 1 To 2
Reset Watchdog
Portb = 1
Waitms 50
Portb = 129
Waitms 50

Portb = 131
Waitms 50

Portb = 195
Waitms 50

Portb = 199
Waitms 50

Portb = 231
Waitms 50

Portb = 239
Waitms 50

Portb = 255
Waitms 50
Next N


For Sara = 1 To 100
'------------------------------------------heart
Reset Watchdog
Portb = 14
Waitus 230
Portb = 31
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 124
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 31
Waitus 230
Portb = 14
Waitus 230
Portb = 0
Waitus 920
Next











For Sara = 1 To 28
Portb = 134
Waitus 230
Portb = 137
Waitus 230
Portb = 73
Waitus 230
Portb = 41
Waitus 230
Portb = 30
Waitus 230
Portb = 0
Waitms 4
Next


For Sara = 1 To 28
Portb = 102
Waitus 230
Portb = 137
Waitus 230
Portb = 137
Waitus 230
Portb = 137
Waitus 230
Portb = 102
Waitus 230
Portb = 0
Waitms 3
Waitus 700
Next




For Sara = 1 To 28
Portb = 1
Waitus 230
Portb = 241
Waitus 230
Portb = 9
Waitus 230
Portb = 5
Waitus 230
Portb = 3
Waitus 230
Portb = 0
Waitms 4
Next







For Sara = 1 To 28
Portb = 120
Waitus 230
Portb = 148
Waitus 230
Portb = 146
Waitus 230
Portb = 145
Waitus 230
Portb = 97
Waitus 230
Portb = 0
Waitms 3
Waitus 700
Next






For Sara = 1 To 28
Portb = 67
Waitus 230
Portb = 133
Waitus 230
Portb = 137
Waitus 230
Portb = 145
Waitus 230
Portb = 97
Waitus 230
Portb = 0
Waitms 4
Next










For Sara = 1 To 28
Portb = 24
Waitus 230
Portb = 20
Waitus 230
Portb = 18
Waitus 230
Portb = 255
Waitus 230
Portb = 16
Waitus 230
Portb = 0
Waitms 3
Waitus 700
Next


For Sara = 1 To 28
Portb = 65
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 141
Waitus 230
Portb = 115
Waitus 230
Portb = 0
Waitms 4
Next



For Sara = 1 To 28

Portb = 194
Waitus 230
Portb = 161
Waitus 230
Portb = 145
Waitus 230
Portb = 137
Waitus 230
Portb = 134
Waitus 230
Portb = 0
Waitms 3
Waitus 700
Next







For Sara = 1 To 28
Portb = 0
Waitus 230
Portb = 130
Waitus 230
Portb = 255
Waitus 230
Portb = 128
Waitus 230
Portb = 0
Waitus 230
Portb = 0
Waitms 4
Next




























'-------------------------------------------------------------------omid
For Sara = 1 To 80
Reset Watchdog
Portb = 255
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 255
Waitus 230
Portb = 0
Waitus 420
'------------------------------ m
Portb = 255
Waitus 230
Portb = 2
Waitus 230
Portb = 4
Waitus 230
Portb = 8
Waitus 230
Portb = 16
Waitus 230
Portb = 8
Waitus 230
Portb = 4
Waitus 230
Portb = 2
Waitus 230
Portb = 255
Waitus 230
Portb = 0
Waitus 420
'----------------------------------i
Portb = 253
Waitus 230
Portb = 0
Waitus 420
'---------------------------------d
Portb = 255
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 66
Waitus 230
Portb = 60
Waitus 230
Portb = 0
Waitus 230
Portb = 0
Waitus 420





Waitus 220
Waitms 3

Next Sara
Portb = 0
N = 0
For Sara = 1 To 4
Reset Watchdog
Set Portb.n
N = N + 2
Waitms 50
Next

For Sara = 1 To 150
Reset Watchdog
'------------------------------------------heart
Portb = 14
Waitus 230
Portb = 31
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 124
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 31
Waitus 230
Portb = 14
Waitus 230
Portb = 0
Waitus 420
'Waitms 5

'Gosub Heart
Next Sara

N = 128
For Sara = 1 To 25
Reset Watchdog
Portb = N
Waitms 25
N = N / 2
If N < 2 Then N = 128
Next

'For Sara = 1 To 120

'Gosub O
'Gosub M
'Gosub I
'Gosub D

'Waitus 200
'Waitms 6
'Waitus 300
'Next Sara
Incr Led
If Led > 7 Then Led = 0
Gosub Led
Portb = 0
N = 0
For Sara = 1 To 4
Reset Watchdog
Set Portb.n
N = N + 2
Waitms 50
Next
'Gosub Getdatetime
'Gosub Getdatetime
'Omid = Time$
'For N = 1 To 8

'For Sara = 1 To 13
'Reset Watchdog

'Tt = Len(omid)
'Tt = Tt - 3
'For A = 1 To Tt
'Dat = Mid(omid , A , 1)
'Gosub Adad

'Portb = 0
'Waitus 420
'Next A
'Waitms 2

'Waitus 200

'Next Sara
'Next Omid

For N = 1 To 2
Reset Watchdog
Portb = 1
Waitms 50

Portb = 3
Waitms 50

Portb = 5
Waitms 50

Portb = 7
Waitms 50

Portb = 11
Waitms 50

Portb = 15
Waitms 50

Portb = 23
Waitms 50

Portb = 31
Waitms 50

Portb = 47
Waitms 50

Portb = 63
Waitms 50

Portb = 127
Waitms 50

Portb = 255
Reset Watchdog
Waitms 50
Next N
'--------------------------------
'Gosub Lozi




'For Sara = 1 To 350
'Gosub Heart

'Gosub S

'Gosub I

'Gosub M

'Gosub A

'Gosub Heart
'Reset Watchdog
'Waitms 6
'Next Sara
For Tt = 1 To 2
Reset Watchdog
N = 255
For Sara = 1 To 250
Reset Watchdog
Portb = N
Decr N
Waitus 400
Next Sara
Next Tt
Reset Watchdog
Goto Ss 'finishing omid


Led:
Select Case Led
Case 0:

Reset Portd.0
Reset Portd.1
Reset Portd.2

Case 1:

Set Portd.0
Reset Portd.1
Reset Portd.2


Case 2:

Reset Portd.0
Set Portd.1
Reset Portd.2


Case 3:

Set Portd.0
Set Portd.1
Reset Portd.2

Case 4:

Reset Portd.0
Reset Portd.1
Set Portd.2


Case 5:

Set Portd.0
Reset Portd.1
Set Portd.2
Case 6:

Reset Portd.0
Set Portd.1
Set Portd.2

Case 7:

Set Portd.0
Set Portd.1
Set Portd.2


End Select
Reset Watchdog
Return





Adad:
Select Case Dat
Case ":":
Portb = 0
Waitus 230
Portb = 0
Waitus 230
Portb = 20
Waitus 230
Portb = 0
Waitus 230
Portb = 0
Waitus 230


Case "0":
Portb = 126
Waitus 230
Portb = 161
Waitus 230
Portb = 145
Waitus 230
Portb = 137
Waitus 230
Portb = 126
Waitus 230




Case "1":
Portb = 0
Waitus 230
Portb = 130
Waitus 230
Portb = 255
Waitus 230
Portb = 128
Waitus 230
Portb = 0
Waitus 230






Case "2":
Portb = 194
Waitus 230
Portb = 161
Waitus 230
Portb = 145
Waitus 230
Portb = 137
Waitus 230
Portb = 134
Waitus 230


Case "3":
Portb = 65
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 141
Waitus 230
Portb = 115
Waitus 230


Case "4":
Portb = 24
Waitus 230
Portb = 20
Waitus 230
Portb = 18
Waitus 230
Portb = 255
Waitus 230
Portb = 16
Waitus 230


Case "5":
Portb = 67
Waitus 230
Portb = 133
Waitus 230
Portb = 137
Waitus 230
Portb = 145
Waitus 230
Portb = 97
Waitus 230


Case "6":
Portb = 120
Waitus 230
Portb = 148
Waitus 230
Portb = 146
Waitus 230
Portb = 145
Waitus 230
Portb = 97
Waitus 230


Case "7":
Portb = 1
Waitus 230
Portb = 241
Waitus 230
Portb = 9
Waitus 230
Portb = 5
Waitus 230
Portb = 3
Waitus 230


Case "8":
Portb = 102
Waitus 230
Portb = 137
Waitus 230
Portb = 137
Waitus 230
Portb = 137
Waitus 230
Portb = 102
Waitus 230


Case "9":
Portb = 134
Waitus 230
Portb = 137
Waitus 230
Portb = 73
Waitus 230
Portb = 41
Waitus 230
Portb = 30
Waitus 230


Case Else:
Portb = 255

End Select
Reset Watchdog
Return


O:
Portb = 255
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 255
Waitus 230
Portb = 0
Waitus 420

Return


M:

'------------------------------ m
Portb = 255
Waitus 230
Portb = 2
Waitus 230
Portb = 4
Waitus 230
Portb = 8
Waitus 230
Portb = 16
Waitus 230
Portb = 8
Waitus 230
Portb = 4
Waitus 230
Portb = 2
Waitus 230
Portb = 255
Waitus 230
Portb = 0
Waitus 420
Return




I:
'----------------------------------i
Portb = 253
Waitus 230
Portb = 0
Waitus 420
Return





D:
'---------------------------------d
Portb = 255
Waitus 230
Portb = 129
Waitus 230
Portb = 129
Waitus 230
Portb = 66
Waitus 230
Portb = 36
Waitus 230
Portb = 60
Waitus 230
Portb = 0
Waitus 420
Return

A:
'----------------------------------a
Portb = 252
Waitus 230
Portb = 10
Waitus 230
Portb = 9
Waitus 230
Portb = 10
Waitus 230
Portb = 252
Waitus 230
Portb = 0
Waitus 420
Return

S:
Portb = 98
Waitus 230
Portb = 133
Waitus 230
Portb = 137
Waitus 230
Portb = 145
Waitus 230
Portb = 161
Waitus 230
Portb = 70
Waitus 230
Portb = 0
Waitus 420
Return



R:
Portb = 255
Waitus 230
Portb = 9
Waitus 230
Portb = 9
Waitus 230
Portb = 30
Waitus 230
Portb = 228
Waitus 230
Portb = 0
Waitus 420
Return


N:
Portb = 255
Waitus 230

Portb = 4
Waitus 230

Portb = 8
Waitus 230

Portb = 16
Waitus 230

Portb = 32
Waitus 230

Portb = 255
Waitus 230


Portb = 0
Waitus 420
Return

Eheart:
'------------------------------------------heart
Portb = 14
Waitus 230
Portb = 31
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 124
Waitus 230
Portb = 62
Waitus 230
Portb = 62
Waitus 230
Portb = 31
Waitus 230
Portb = 14
Waitus 230
Portb = 0
Waitus 420
'Waitms 5

Return


'lllllllllllllllllllllllllllll
Lozi:
For N = 1 To 180
Portb = 24
Waitus 230
Portb = 60
Waitus 230
Portb = 126
Waitus 230
Portb = 255
Waitus 230
Portb = 126
Waitus 230
Portb = 60
Waitus 230
Portb = 24
Waitus 230
Portb = 0
Waitms 10
Reset Watchdog
Next N
Return






'called from ds1307clock.lib
Getdatetime:
Reset Watchdog
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Reset Watchdog
Return


'Setdate:
' _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
'I2cstart ' Generate start code
'I2cwbyte Ds1307w ' send address
'I2cwbyte 4 ' starting address in 1307
'I2cwbyte _day ' Send Data to SECONDS
'I2cwbyte _month ' MINUTES
'I2cwbyte _year ' Hours
'I2cstop
' Reset Watchdog
'Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Reset Watchdog
Return



Goto Ss


من بدون سنسور ساختم
برنامش به هم ریختس ولی 100 در 100 عملیه

[bnmo]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

کاش شماتیک
و به همراه تو ضیحات را می گذاشتی

[bnmo]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام
من برنامه بالا را در قالب فایل قرار دادم


http://rapidshare.com/files/15885339...clock.zip.html

[feshwari]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام دوستان
این هم برنامه که اگه اجرا بشه می نویسه " SHARAFI "
امیدوارم که دوستان مشکلی نداشته باشند
ممنون

http://www.4shared.com/file/68993182/bbc5d8d1/Magic_show.html?

[bnmo]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام
خواهشا دوست عزیزم شماتیک را هم قرار دهید
در ضمن نقش سنسور را در این نوع پروژ ه ها بیان کنید
اصلا برا چی سنسور مادون قرمز را می گذارند
نگذاشتن اش چه ضرری دارد

[bnmo]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام
ایا از سنسور مادون قرمز برای بدست اورد زمان دیلای استفاده میشه

[roozi99]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

دقیقا

[سعید خیری]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام
من برنامه بالا را در قالب فایل قرار دادم


http://rapidshare.com/files/15885339...clock.zip.html

شرمنده فایل ها تو Rapidshare کار نمیکنن
ممنون میشم اگه تو 4SHARE قرار بدین

[bahramicq]

پاسخ : آموزش گام به گام تابلوی چرخشی با 8 LED

سلام دوستان.
واقعا از وقفه ای که پیش آمد معذرت می خواهم.

این هم برنامه تابلوی چرخشی.

dim X as byte

porta= &Hff
do
for x = 0 to 7
porta = lookup(x , ani)
waitus 50
next x
loop
end

ani:
data &H03 , &H00 , &Hff , ,,,,,,,,,,,,

در جدول ANI یک عکس باید به کد تبدیل شود. عددی که در حلقه FOR قرار می گیرد تعداد ستون ها می باشد
اگر سوالی بود در خدمتم. امشب یه نمونه کد می گدارم تا دوستان استفاده کنم. اخه الان سر کارم و وقت ندارم.
عکس هم امشب میزارم

محمد شرفی

توی این برنامه در مورد کانفیگ سنسوری که به کار بردین کدی نیست میشه نحوه پیکر بندیش رو تو ضیح بدین