سلام
من یه تابلو روان 16*8 درست کردم و می خواهم با استفاده از پورت سریال متن تابلو رو عوض کنم .من کار با rs232 و پورت سریال در vb رو تقریبا بلدم
اما نمی دونم چطور باید فابل hex متن رو به تابلو بدم چون وقتی میکرو اطلاعات رو از pc میگیره میریزه توی یه متغییر ولی من از جدول lookup استفاده
می کنم که اونم از label خودش استفاده می کنه نه از یه متغییر که فایل hex بهش نسبت داده شده ممنون میشم اگر دوستان اطلاعاتی در این ضمینه دارند به بنده هم کمک کنند
اینم برنامه
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Config Portc = Output
Config Portd = Output
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim Scan As Byte
Do
For A = 0 To 29
B = A + 7
For E = 0 To 7
Scan = &H01
For C = A To B
For F = 0 To 3
D = F * 8
D = D + C
Portd = Lookup(d , H)
Portb = 2 ^ F
Portb = 0
Next F
Portc = Scan
Waitus 750
Rotate Scan , Left , 1
Portc = &H00
Next A
Next E
Next B
Loop
End 'end program
H:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H1F , &H3F , &H68 , &HC8 , &HC8 , &H68 , &H3F , &H1F
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
من یه تابلو روان 16*8 درست کردم و می خواهم با استفاده از پورت سریال متن تابلو رو عوض کنم .من کار با rs232 و پورت سریال در vb رو تقریبا بلدم
اما نمی دونم چطور باید فابل hex متن رو به تابلو بدم چون وقتی میکرو اطلاعات رو از pc میگیره میریزه توی یه متغییر ولی من از جدول lookup استفاده
می کنم که اونم از label خودش استفاده می کنه نه از یه متغییر که فایل hex بهش نسبت داده شده ممنون میشم اگر دوستان اطلاعاتی در این ضمینه دارند به بنده هم کمک کنند
اینم برنامه
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output
Config Portc = Output
Config Portd = Output
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim Scan As Byte
Do
For A = 0 To 29
B = A + 7
For E = 0 To 7
Scan = &H01
For C = A To B
For F = 0 To 3
D = F * 8
D = D + C
Portd = Lookup(d , H)
Portb = 2 ^ F
Portb = 0
Next F
Portc = Scan
Waitus 750
Rotate Scan , Left , 1
Portc = &H00
Next A
Next E
Next B
Loop
End 'end program
H:
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H1F , &H3F , &H68 , &HC8 , &HC8 , &H68 , &H3F , &H1F
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
دیدگاه