ايران ويج

Dim A As Byte , B1 As Byte , C As Integer , D As Byte
Config Portd = Output

Aaa:
Portd = 00
C = 0
For C = 1 To 10
Portd = 00
Restore Javad
For A = 1 To 82
Read B1 : Portd = B1
Waitus 950
Next
Next

الان d0 تا d7 میشه سطر یک تا هشت بعدش چجوری میشه ؟

شرمنده بازم طولانی شد

موفق باشید

Javad :

Data &H00, '0001 ........
Data &HFF, '0002 ########
Data &HFF, '0003 ########
Data &H18, '0004 ...##...
Data &H18, '0005 ...##...
Data &H18, '0006 ...##...
Data &H18, '0007 ...##...
Data &HFF, '0008 ########
Data &HFF, '0009 ########
Data &H00, '000A ........
Data &H00, '000B ........
Data &H00, '000C ........
Data &H00, '000D ........
Data &HFF, '000E ########
Data &HFF, '000F ########
Data &H99, '0010 #..##..#
Data &H99, '0011 #..##..#
Data &H99, '0012 #..##..#
Data &H99, '0013 #..##..#
Data &H00, '0014 ........
Data &H00, '0015 ........
Data &H00, '0016 ........
Data &H00, '0017 ........
Data &HFF, '0018 ########
Data &HFF, '0019 ########
Data &HC0, '001A ##......
Data &HC0, '001B ##......
Data &HC0, '001C ##......
Data &HC0, '001D ##......
Data &H00, '001E ........
Data &H00, '001F ........
Data &H00, '0020 ........
Data &H00, '0021 ........
Data &HFF, '0022 ########
Data &HFF, '0023 ########
Data &HC0, '0024 ##......
Data &HC0, '0025 ##......
Data &HC0, '0026 ##......
Data &HC0, '0027 ##......
Data &H00, '0028 ........
Data &H00, '0029 ........
Data &H00, '002A ........
Data &H00, '002B ........
Data &HFF, '002C ########
Data &HFF, '002D ########
Data &HC3, '002E ##....##
Data &HC3, '002F ##....##
Data &HC3, '0030 ##....##
Data &HC3, '0031 ##....##
Data &HFF, '0032 ########
Data &HFF, '0033 ########
Data &H00, '0034 ........
DaData &H00, '0057 ........