اطلاعیه

Collapse
No announcement yet.

راه اندازی 74595 با بسکام

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    راه اندازی 74595 با بسکام

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

    خوب همون طور که میبینید تو این مدار کلا 3 پین میکرو اشغال شده
    و اونایی که با میکرو کار کردن میدونن این یعنی چی
    و حالا برنامه:
    '====================='=====tablo markIII===
    
'=====================
    
$regfile = "m8def.dat"
    
$crystal = 8000000
    
'=====================
    
Config Portd = Output
    
'=====================
    
Stc Alias Portd.2
    
Dat Alias Portd.1
    
Shc Alias Portd.0
    
'=====================
    
Dim A As Byte
    
Dim D As Byte
    
Dim Index As Word , B As Word , I As Byte
    
'=====================
    
Declare Sub Show
    
Declare Sub 595
    
'=====================
    
Config Timer1 = Timer , Prescale = 8
    
Start Timer1
    
Enable Interrupts
    
Enable Ovf1
    
On Ovf1 Shift_l
    
Timer1 = 45535
    
'=====================
    
Do
    
Index = B
    
If B > 34 Then
    
B = 0
    
End If
    
Call Show
    
Loop
    
End
    
'*******************************************
    
Show:
    
A = &H80
    
For I = 0 To 7
    
D = Lookup(index , Jaber)
    
D = Not D
    

    

    
Waitus 1
    
Rotate A , Left
    
Incr Index
    
Call 595
    
D = &HFF
    
Next
    
Return
    
Shift_l:
    
Incr B
    
Timer1 = 45535
    
Return
    
'*******************************************
    
'==========================
    
Sub 595
    
Shiftout Dat , Shc , A , 1
    
Shiftout Dat , Shc , D , 1
    
Pulseout Portd , 2 , 5
    
End Sub
    
'==========================
    
Jaber:
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &h18, ' 0001  . . . # # . . .
    
Data &h1E, ' 0002  . . . # # # # .
    
Data &h1B, ' 0003  . . . # # . # #
    
Data &hD9, ' 0004  # # . # # . . #
    
Data &hD9, ' 0005  # # . # # . . #
    
Data &h1B, ' 0006  . . . # # . # #
    
Data &h18, ' 0007  . . . # # . . .
    
Data &h18, ' 0008  . . . # # . . .
    
Data &h1F, ' 0009  . . . # # # # #
    
Data &h1F, ' 000A  . . . # # # # #
    
Data &h00, ' 000B  . . . . . . . .
    
Data &h00, ' 000C  . . . . . . . .
    
Data &h1E, ' 000D  . . . # # # # .
    
Data &hD8, ' 000E  # # . # # . . .
    
Data &hD8, ' 000F  # # . # # . . .
    
Data &h18, ' 0010  . . . # # . . .
    
Data &h18, ' 0011  . . . # # . . .
    
Data &h3C, ' 0012  . . # # # # . .
    
Data &h60, ' 0013  . # # . . . . .
    
Data &h40, ' 0014  . # . . . . . .
    
Data &hC0, ' 0015  # # . . . . . .
    
Data &hC0, ' 0016  # # . . . . . .
    
Data &h40, ' 0017  . # . . . . . .
    
Data &H00                                                   ' 0018  . . . . . . . .
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00
    
Data &H00


    راستـــــــــــی این مدار رو عملی هم بستم بسیار عالی کار کرد ایشالله اگه خوشتون اومد بگین براتون عکسش رو میذارم
    جدیدترین ویرایش توسط sjaber; ۲۱:۴۷ ۱۳۹۵/۰۹/۱۷.
    برچسب ها: اندازی, با, بسکام, راه
    • تشکرها 4
    #2
    پاسخ : راه اندازی 74595 با بسکام

    امید وارم بدردتون بخوره ولی یادتون نره صلوات رو بفرستین
    • تشکرها 3

    دیدگاه

      #3
      پاسخ : راه اندازی ماتریس 8*8 تنها با سه پین میکروAVR

      نوشته اصلی توسط sjaber نمایش پست ها
      به نام خدا
      سلام دوستان
      امید وارم که این پروژم بدرد تون بخوره
      از قدیم گفتن مختصر و مفید ولی هر کس خواست براش برنامه رو خط به خط توضیح میدم
      تا حسابی کیف کنه
      راستی یاد تون نره استفاده از این برنامه شرط داره و شرطشم 3تا صلوات برا سلامتی آقا امام زمان
      پس بفرست و استفاده کن
      این عکس مدار:

      خوب همون طور که میبینید تو این مدار کلا 3 پین میکرو اشغال شده
      و اونایی که با میکرو کار کردن میدونن این یعنی چی
      و حالا برنامه:
      '====================='=====tablo markIII===
      
'=====================
      
$regfile = "m8def.dat"
      
$crystal = 8000000
      
'=====================
      
Config Portd = Output
      
'=====================
      
Stc Alias Portd.2
      
Dat Alias Portd.1
      
Shc Alias Portd.0
      
'=====================
      
Dim A As Byte
      
Dim D As Byte
      
Dim Index As Word , B As Word , I As Byte
      
'=====================
      
Declare Sub Show
      
Declare Sub 595
      
'=====================
      
Config Timer1 = Timer , Prescale = 8
      
Start Timer1
      
Enable Interrupts
      
Enable Ovf1
      
On Ovf1 Shift_l
      
Timer1 = 45535
      
'=====================
      
Do
      
Index = B
      
If B > 34 Then
      
B = 0
      
End If
      
Call Show
      
Loop
      
End
      
'*******************************************
      
Show:
      
A = &H80
      
For I = 0 To 7
      
D = Lookup(index , Jaber)
      
D = Not D
      

      

      
Waitus 1
      
Rotate A , Left
      
Incr Index
      
Call 595
      
D = &HFF
      
Next
      
Return
      
Shift_l:
      
Incr B
      
Timer1 = 45535
      
Return
      
'*******************************************
      
'==========================
      
Sub 595
      
Shiftout Dat , Shc , A , 1
      
Shiftout Dat , Shc , D , 1
      
Pulseout Portd , 2 , 5
      
End Sub
      
'==========================
      
Jaber:
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &h18, ' 0001  . . . # # . . .
      
Data &h1E, ' 0002  . . . # # # # .
      
Data &h1B, ' 0003  . . . # # . # #
      
Data &hD9, ' 0004  # # . # # . . #
      
Data &hD9, ' 0005  # # . # # . . #
      
Data &h1B, ' 0006  . . . # # . # #
      
Data &h18, ' 0007  . . . # # . . .
      
Data &h18, ' 0008  . . . # # . . .
      
Data &h1F, ' 0009  . . . # # # # #
      
Data &h1F, ' 000A  . . . # # # # #
      
Data &h00, ' 000B  . . . . . . . .
      
Data &h00, ' 000C  . . . . . . . .
      
Data &h1E, ' 000D  . . . # # # # .
      
Data &hD8, ' 000E  # # . # # . . .
      
Data &hD8, ' 000F  # # . # # . . .
      
Data &h18, ' 0010  . . . # # . . .
      
Data &h18, ' 0011  . . . # # . . .
      
Data &h3C, ' 0012  . . # # # # . .
      
Data &h60, ' 0013  . # # . . . . .
      
Data &h40, ' 0014  . # . . . . . .
      
Data &hC0, ' 0015  # # . . . . . .
      
Data &hC0, ' 0016  # # . . . . . .
      
Data &h40, ' 0017  . # . . . . . .
      
Data &H00                                                   ' 0018  . . . . . . . .
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00
      
Data &H00


      راستـــــــــــی این مدار رو عملی هم بستم بسیار عالی کار کرد ایشالله اگه خوشتون اومد بگین براتون عکسش رو میذارم
      سلام دوست عزیز نذرتون قبول ، بهتر نبود یه توضیحی میدادین که کلا قضیه چیه ؟
      • تشکرها 2

      دیدگاه

        #4
        پاسخ : راه اندازی 74595 با بسکام

        ممنون دوست عزیز
        اگه در یک کلمه بخوایین بفهمین کلا قضیه چیه باید بگم
        گسترش پورت های avr که البته این شد سه کلمه...
        که من اون رو با مثال آوردم.
        • تشکرها 2

        دیدگاه

          #5
          پاسخ : راه اندازی 74595 با بسکام

          سلام دوستان
          به امامت رسیدن حضرت مهدی رو بهتون تبریک میگم
          یه تابلوروان دیگر هم درست کردم که براتون میذارم
          البته ابعادش 8 *32
          امیدوارم خوشتون بیاد
          این برنامه:
          [FONT=Yekan]'====tablo8*32=========[/FONT]'====markIV======
          
$regfile = "m8def.dat"
          
$crystal = 4000000
          
'========================
          

          

          
Config Portc = Output
          

          

          
'========================
          
Dim Index As Byte
          
Dim A As Byte , I As Byte , R As Byte , R2 As Byte
          
'===========================
          
Declare Sub Show
          
Declare Sub 595
          
'===========================
          
Shc Alias Portc.0
          
Ds Alias Portc.1
          
Stc Alias Portc.2
          
'===========================
          
A = &H80
          
'===========================
          
Do
          
R = &B11110111
          
Call Show
          
R = &B11111011
          
Call Show
          
R = &B11111101
          
Call Show
          
R = &B11111110
          
Call Show
          
If Index> 31 Then
          
Index = 0 : End If
          
Loop
          
'================================
          
End
          
'================================
          
Show:
          
For I = 0 To 7
          
R2 = Lookup(index , Dat)
          
R2 = Not R2
          
Waitus 200
          

          

          
Rotate A , Left
          
Incr Index
          
Call 595
          
Next
          
Return
          
'==========================
          
Sub 595
          
Shiftout Ds , Shc , R , 1
          
Shiftout Ds , Shc , R2 , 1
          
Shiftout Ds , Shc , A , 1
          
Pulseout Portc , 2 , 5
          
End Sub
          
'==========================
          
'***********************************************
          
Dat:
          
Data &HFF,                                                  ' 0001  # # # # # # # #
          
Data &H81,                                                  ' 0002  # . . . . . . #
          
Data &H99,                                                  ' 0003  # . . # # . . #
          
Data &HD1,                                                  ' 0004  # # . # . . . #
          
Data &H91,                                                  ' 0005  # . . # . . . #
          
Data &HDF,                                                  ' 0006  # # . # # # # #
          
Data &H81,                                                  ' 0007  # . . . . . . #
          
Data &HB9,                                                  ' 0008  # . # # # . . #
          
Data &HA9,                                                  ' 0009  # . # . # . . #
          
Data &HB9,                                                  ' 000A  # . # # # . . #
          
Data &H91,                                                  ' 000B  # . . # . . . #
          
Data &H91,                                                  ' 000C  # . . # . . . #
          
Data &HBD,                                                  ' 000D  # . # # # # . #
          
Data &HAB,                                                  ' 000E  # . # . # . # #
          
Data &HBD,                                                  ' 000F  # . # # # # . #
          
Data &H91,                                                  ' 0010  # . . # . . . #
          
Data &H91,                                                  ' 0011  # . . # . . . #
          
Data &H91,                                                  ' 0012  # . . # . . . #
          
Data &H99,                                                  ' 0013  # . . # # . . #
          
Data &HA5,                                                  ' 0014  # . # . . # . #
          
Data &HA5,                                                  ' 0015  # . # . . # . #
          
Data &H81,                                                  ' 0016  # . . . . . . #
          
Data &H81,                                                  ' 0017  # . . . . . . #
          
Data &H89,                                                  ' 0018  # . . . # . . #
          
Data &HA5,                                                  ' 0019  # . # . . # . #
          
Data &HD9,                                                  ' 001A  # # . # # . . #
          
Data &HC1,                                                  ' 001B  # # . . . . . #
          
Data &HC1,                                                  ' 001C  # # . . . . . #
          
Data &HC1,                                                  ' 001D  # # . . . . . #
          
Data &HB9,                                                  ' 001E  # . # # # . . #
          
Data &H81,                                                  ' 001F  # . . . . . . #
          
[FONT=Yekan]Data &HFF,                                                  ' 0020  # # # # # # # #
          
[/FONT]

          اینم فایل شبیه ساز و بسکام و هگز:
          دانلود کنید.

          راستی 3 تا صلوات یادتون نره
          • تشکرها 4

          دیدگاه

            #6
            پاسخ : راه اندازی 74595 با بسکام

            سلام اگه ممکن است کمک کنید من تابلو 16*40 را راه اندازی کنم من برنامه نویسی بلد نیستم تابلو من به این صورته ازدو پورت A ,C

            برای سطر با ULN2003 استفاده شده و ستونها با ریجستر 74595 که پایه ها به این صورت به پورت B میکرو چیب وصل شده
            پایه DS به PB5
            پایه MR به مثبت
            "" OE به PB0
            ''''' ST-CP به PB1
            '''''' SH-CP به PB7
            وپایه 9میکرو RXD وپایه 10 میکر TXD
            به آی سی RS232
            اگه کسی کمک کنه برنامه ای بده سپاسگزارم shatal باتشکر
            • تشکرها 1

            دیدگاه

              #7
              پاسخ : راه اندازی 74595 با بسکام

              دوست عزیز باید کمی صبر کنی من درگیر امتحانات میان ترم هستم
              بزودی نحوه ساخت تابلو 32 *16 رو خواهم گذاشت که شما میتونی با کمک
              دوستان خوبمون در این سایت تابلو مورد نظرتون رو بسازین
              بازم شرمنده
              • تشکرها 2

              دیدگاه

                #8
                پاسخ : راه اندازی 74595 با بسکام

                دوستان اینم ورژن جدید تابلو روان با سه سیم من
                مثل همیشه سه تا صلوات یادتون نره
                دانلود کنید.
                • تشکرها 2

                دیدگاه

                قبلی template بعدی
                لطفا صبر کنید...
                X