Text To Bitmap Software for LED Matrix
 

Hi all!

Rỗi rãi mình viết tặng các bạn chương trình chuyển Text sang Bitmap.
- Chương trình hỗ trợ Unicode 100% (tức là cả tiếng Việt, Tây, Tàu,...)
- Có thể copy qua lại với Word và Excel, có thể zoom to zoom nhỏ bằng cách giữ Ctrl và lăn chuột,...
- Hỗ trợ xuất ra dữ liệu bitmap đen trắng dạng mã C và dữ liệu kiểu Binary
- Rất nhẹ, 250kB, không cần cài đặt thêm bất cứ DLL hay OCX... gì cả (Viết bằng VC6)

Chương trình sẽ rất có ích với những ai đang làm LED matrix!

Have Fun!

Update for RTB version 1 - RichText to Bitmap Converter
 

Mình vừa cập nhật phần mềm RTB. Bản cập nhật này nói chung là hỗ trợ thêm một cửa sổ để view và copy mã C xuất ra. Bạn không nhất thiết phải lưu vào tệp để xem mã C nữa. Các bạn nhấn vào nút có biểu tượng 0101 để preview mã, nhấn copy để copy mã vào clipboard. Sau đó có thể paste vào source chương trình LED matrix của bạn. Cái này sẽ tiện cho việc thay đổi dữ liệu thường xuyên.
Để hoàn thiện phiên bản 1, hiện tại mình cũng đang ngâm cứu để hỗ trợ nốt những người lập trình Assembler và Basic bằng việc thêm tùy chọn xuất ra các loại file ASM và Basic cho một số loại trình dịch và vi điều khiển. Các bạn cần hỗ trợ loại nào thì xin đừng ngại cho ý kiến nhá. Mình sẵn sàng support và update phần mềm.


Phiên bản 2 sắp tới sẽ hỗ trợ preview và vẽ thủ công. Nó hứa hẹn sẽ là một công cụ thực sự đầy đủ, trực quan và tiện ích cho việc làm LED matrix. Rất mong mọi người đóng góp ý kiến!

Have Fun!

cái nì mà u thêm chức năng truyền xuống COM nữa thì đúng đỉnh lun , ng dùng chỉ cần gõ lên giao diện software , nhấn nút SEND thì bảng mã font đc truyền xuống , VDk chỉ việc nhận mã font từ SBUF và xuất ra matrix . Như vậy là ng dùng khỏi cần phải lập sẵn font .

Phần mềm u viết nếu k có chức năng truyền dữ liệu thì giống như software LCDFontMaker

RTB version 2 - Beta with Paint Editor demo
 

Thank you Mr.Bi đã góp ý. Thực ra cái nut send mình làm rồi nhưng lại bỏ đi. Lí do là để tập trung cho tính năng edit đã. Chắc chắn mình sẽ thêm vào. Thanks again!

Còn bây giờ đúng như đã hẹn, mình post lên RTB version 2 với tính năng preview và edit. Các bạn nhấn vào nút 0101 thì sẽ thấy khác biệt với version 1. Tuy nhiên đây chỉ là bản Beta để lấy ý kiến các bạn, bản hoàn chỉnh (hàng thực sự khủng) mình sẽ tung lên vài ngày nữa.

Have fun!

đó , cái chính là làm * software của u truyền đc mảng bitmapdata[] xuống COM để VDK nhận mảng ni . Như thế software của u mới là cái chính trong quang báo . Còn VDK chỉ là nhận và hiển thị , ko còn tra bãng mã , font lằng nhằng nữa . Gudlucky !

RTB version 2 - Finished
 

Hi all!
Phần mềm RTB version 2 đã hoàn chỉnh. Mình post lên cho các bạn dùng. Hi vọng nó sẽ giúp ích cho những người đang làm LED matrix và LCD.

Phiên bản 2 này có các chức năng chính như sau:
- Chuyển đổi Text (unicode) sang bitmap dạng đơn sắc, lưu dạng file C và binary.
- Cho phép xem trước và chỉnh sửa chi tiết từng điểm ảnh trên cửa sổ Pixel Editor, cho xem trước và copy mã C hoặc ASM.

Để mở cửa sổ Pixel Editor, các bạn nhấn nút có biểu tượng 0101.
Để chỉnh sửa trong cửa sổ Pixel Editor bạn dùng chuột trái (vẽ điểm ảnh) và chuột phải (xóa điểm ảnh). Sau khi chỉnh sửa xong xuôi, bạn nhất Refresh để cập nhật dữ liệu đã chỉnh sửa. Nut copy dùng để copy dữ liệu vào clipboard và paste vào source của bạn.

Phần mềm rất nhẹ, chỉ một file EXE duy nhất, 250k, không cần cài đặt bất kì DLL hay OCX nào. Chương trình chạy rất nhanh và tốn ít tài nguyên.

Với phần mềm này các bạn có thể dễ dàng tạo bitmap đen trắng và font cho các ứng dụng nhúng của bạn.

Have Fun!

Xin chào tất cả mọi người!

Sau những lần nâng cấp, RTB - phần mềm tiện ích chuyển đổi text thành bitmap và tạo font bitmap ứng dụng trong LCD và LED matrix - đã chính thức ra mắt phiên bản 3.

Nếu các bạn đã từng sử dụng LCD font maker rồi thì có thể tưởng tượng thế này, RTB v3 có thể làm được phần lớn những chức năng mà LCD font maker có thể làm, đồng thời có thêm tính năng view và Edit khá hấp dẫn.

Có thể liệt kê các tính năng của RTB v3 như sau:
- Hỗ trợ soạn, tải và lưu trữ thảo văn bản RichText làm đầu vào
- Tạo bitmap đơn sắc từ văn bản đã soạn thảo
- Tạo font bitmap từ mọi kiểu font TrueType sẵn có trên Windows, tức là hỗ trợ tiếng Việt, Tây, Tàu
- Font Wizard hỗ trợ tạo một lúc được bitmap của hàng nghìn kí tự theo nhiều tùy chọn.
- Chức năng tạo font ngoài việc tạo bitmap còn tạo thêm dữ liệu để hỗ trợ việc sắp xếp các kí tự gọn gàn và đẹp mắt hơn. Ví dụ, bình thường bạn hiển thị xâu với các kí tự cách đều nhau. Với RTB bạn có thêm dữ liệu về độ rộng của kí tự.
- Chỉnh sửa chi tiết từng điểm ảnh trên bitmap hoặc font bitmap được tạo ra
- Các tính năng chỉnh sửa gồm có: đảo mầu, vẽ/xóa điểm, đường thẳng, chữ nhật, elip
- Chức năng zoom to nhỏ, cuộn lên/xuống đối với cửa sổ preview rất tiện cho chỉnh sửa và nhìn ngắm
- Chọn kích thước bitmap và font dễ dàng
- Dữ liệu bitmap và font được tạo ra gồm có C/C++ và Assembler, và có rất nhiều tùy chọn để phù hợp với phần cứng của bạn.
- Hỗ trợ xem trước và copy cũng như lưu ra tệp đối với dữ liệu bitmap và font được tạo ra
- Giao diện được tổ chức đơn giản và dễ hiểu, nút bầm có biểu tượng và tooltip rất dễ dùng. Nói chung là không cần học cũng dùng được.

Phần mềm chắc chắn sẽ cực kì có ích cho những chuyên gia LED matrix cũng như graphic LCD.


Phiên bản 3 không miễn phí như phiên bản 1 và 2, bởi vì nó hướng vào người dùng là những người chuyên nghiệp và có ý định sử dụng phần mềm lâu dài vào mục đích phát triển sản phẩm thương mại. Nếu muốn sử dụng tất cả các tính năng thì phải đăng kí để lấy mã kích hoạt phần mềm.

TUY NHIÊN, trong đợt giới thiệu này, người dùng đăng kí trước ngày mùng 3 tháng 8 năm 2009 sẽ không phả trả bất kì phí nào để lấy mã kích hoạt phần mềm này. (free!!!)

Bạn vào phần about (Nút có biểu tượng dấu hỏi) sau đó lấy số seri (Serial Number) và soạn thư gửi về địa chỉ bvhoang42@yahoo.com với nội dung sau:

KH: <Tên bạn>
DKRTB: <Số Seri>

Trong thời gian nừa ngày đến 3 ngày, mã kích hoạt Activation ID sẽ được gửi đến bạn. Bạn có thể gọi điện trực tiếp theo số điện thoại tác giả để có thêm hướng dẫn về việc đăng kí cũng như sử dụng.



Hướng dẫn sơ qua về sử dụng:
- Chương trình có 2 nút chức năng là tạo bitmap và tạo font. Các bạn click vào đó sẽ tự khắc biết sẽ làm gì
- Trong cửa sổ pixel editor, bạn có thể lăn chuột để cuộn dọc, giữ shift lăn chuột để cuộn ngang, giữ ctrl lăn chuột để zoom to nhỏ.
- Với các công cụ vẽ, chuột trái dùng để vẽ, chuột phải dùng để xóa. Khi dang vẽ dở đường thẳng, chữ nhật, elip, mà muốn thôi thì nhấn phím ESC.
- Phim space dùng để refresh dữ liệu mới vẽ.


Hướng dẫn sử dụng chi tiết sẽ được post lên sau.
Bây giờ bạn có thể tải về và dùng ngay được rồi.
Have fun!

Anh chắc là làm về quang báo cũng nhiều rồi nhỉ. Em là dân mới vào nghề và muốn làm quang báo nếu có thể anh cho em sơ đồ nguyên lý anh đã làm và cho em đoạn chương trình mẫu anh đã lập trình thì cho em với để em học. Thanks anh nhiều. mail của em: htlongbkdn@gmail.com

Nếu là phần mềm thương phẩm, đề nghị bạn quảng cáo ở box "Quảng cáo và bán sản phẩm".

Thân,

Ngày xưa cũng có làm quang báo, nhưng hồi đó mạch nguyên lý là do cộng sự làm, mình chỉ code firmware và software thôi. Nói chung là nếu bạn muốn làm LED ma trận thì trên khắp các diễn đàn đều có hướng dẫn từ cơ bản đến nâng cao. Bên diendandientu cũng có rất nhiều. Bạn nên tham khảo ở đó.

Còn về software, mình sẽ post các đoạn chương trình mẫu. Bạn cần gì cứ hỏi, mình sẽ trả lời trên luồng khác. Mình không định làm tutorial ở đây, thứ nhất là vì trên này cũng có nhiều tutorial rồi. thứ hai là kiến thức cũng như những công cụ mình dùng hơi cũ. Nếu làm theo kiểu của mình thì vất vả và mất thời gian lắm.


P/S: không biết lúc nãy ai đăng kí Activation ID mà spam mình liên tục vậy?

Chào bác Nam, em cũng có suy nghĩ. Nhưng bác đừng xóa bài của em vội nhá. Bởi vì hiên tại em đang cho free Activation ID qua email. Vì vậy, hiện tại em quảng cáo nhưng lại cho không chư không "quảng cáo và bán sản phẩm". Cá nhân cũng đang đợi thư của bác Nam xem bác có lấy không. Nếu bác lấy dùng và lại còn cho ý kiến nữa thì đó quả là vinh dự.

Thank you đã nhắc nhở! Nhớ mail cho em nhá, anytime! You pro are always welcome

Bạn yên tâm, tôi chỉ nhắc bạn dùng đúng chức năng của các box thôi. Hiện tại phần mềm của bạn chưa phải là thương phẩm, vì bạn chưa bán nó. Hiện thời tôi không có nhu cầu về sản phẩm loại này, lần trước download phiên bản 2 cũng chỉ là để dành cho sinh viên khi có nhu cầu. Rất cám ơn tinh thần vì cộng đồng của bạn.

Thân,

Chào bạn debuger

Sao mình dùng chương trình RTB pro có crack, để mở file *.bmp nhưng không thấy được ảnh, mình thử mở cả nhưng hình có sẵn trong MikroC cũng ko dc. Bạn hướng dẫn cách tạo ảnh đơn sắc dùng phần mềm này nhé. Thanks

Trời, phần mềm mình đang cho không mà đã có crack rồi sao!!!

Mình xin lỗi, RTB phiên bản 3 hiện tại chưa hỗ trợ load bitmap. Bản 3.6 mới hỗ trợ cơ. Mình đang có trong tay bản 3.6, tuy nhiên sẽ up lên sau. Nhưng bạn yên tâm, bạn đã có "crack" rồi thì vẫn có thể dùng bản 3.6 được, không phải "crack" lại đâu. Vì mỗi lần nâng cấp phiên bản chính (major version) lên bản 4, bản 5,... thì mới phải thay Activation ID thôi.

Trời! bạn gửi crack vào mail mình mà chóng quên nhỉ? hehe

Mình thấy bạn demo ở mục (Tạo ảnh cho GLCD 128*64) nên mình cứ nghĩ là làm được
như thế. Thế là mọi người phải chờ bản 3.6, Thank bạn đã gửi crack cho mình. Trong lúc chờ bản 3.6 mình dùng ACD see pro2.5 vậy

bó tay ông luôn :eek: ,tác giả cho free mà crack riếc gì :D

RTB 3.6 Released
 

Hi all!

RTB 3.6 chính thức ra mắt với tính năng nhập và xuất ảnh bitmap monochrome.

- Thao tác nhập ảnh:
Dùng mspaint hoặc bất kì trình chỉnh sửa ảnh nào để tạo ra file bitmap monochrome.
Trong cửa sổ chính của RTB, các bạn chọn kích thước, rồi click nút create bitmap... Trong cửa sổ pixel editor nhấn nút insert bitmap from file... Chọn file bitmap đơn sắc để mở.
- Để lưu ảnh ra bitmap đơn sắc các bạn nhấn nút save bitmap to file... và chọn type là monochrome bitmap.
- Để xóa ảnh và làm mới, các bạn dùng nút create bitmap... bên cửa sổ chính.

* So với các bản cũ thì bản 3.6 sử dụng màu vẽ khác nhau cho chế độ font (màu vàng) và bitmap (màu xanh truyền thống) ở cửa sổ Pixel Editor. Việc này có tác dụng giúp người dùng dễ dàng phân biệt được là mình đang tạo font hay tạo bitmap. Các bạn nhấn nút dưới cùng, bên phải để thay đổi mode sẽ thấy rõ sự thay đổi này.

Have Fun!

RTB v3.8 with Serial Interface
 

Hi All!

Chức năng truyền dữ liệu xuống cổng COM đã chính thức xuất hiện trên RTB v3.8.
Với chức năng này, RTB đã kiêm luôn hai vai trò: phần mềm cho nhà phát triển LED ma trận và phần mềm dành cho người dùng LED ma trận.

Chức năng flood fill (tô màu) và undo (một lần) cũng được thêm vào RTB v3.8.

Giới thiệu chi tiết và Hướng dẫn sử dụng cùng với giao thức truyền qua cổng COM sẽ được công bố trong một hai ngày nữa. Các bạn down về và dùng thử nhé.

P/S: Các bạn có thắc mắc gì cứ hỏi nha!

k biết bác nì vs nick bvhoang bên dientuvietnam.net có quan hệ j k ta ?

RTB - Giao thức truyền dữ liệu ra LED matrix
 

Hi All!

BLDS là giao thức truyền dữ liệu xuống LED matrix của phần mềm RTB. Các bạn cứ làm bảng LED matrix tuân thủ đúng giao thức BLDS này là có thể dùng phần mềm của mình điều khiển LED matrix được rồi!

Có thể dùng lại Serial Number của bản 3.6 để activate cho bản 3.8.

Phần mềm chưa activate cũng có thể dùng được giao thức này bình thường nên việc test các bảng LED sẽ không bị giới hạn, chỉ có điều ảnh bitmap sinh ra sẽ bị gạch chéo vài phát.

Mình post lên đây bản 3.8 xịn nhất cùng với tài liệu về giao thức BLDS.

RTB v3 is now FREE!
 

Hi All,

RTB v3 Professional bây giờ là phần mềm miễn phí! Ai cần thì mail cho bvhoang42@yahoo.com nhé!

(Chà chà, bài viết lần này ngắn gọn quá!)

RTB cho matrận led 1 cột?
 

Xin cảm ơn bác Hoàng về RTB thật tuyệt.
Đây là sản phẩm demo ứng dụng từ RTB V3.0.
http://www.youtube.com/profile?user=.../0/eQ1FiNSKGV8
Bao giờ bác mới tung ra RTB V4? Nó có upload bitmap màu được không? đặc biệt là ứng dụng cho matrận 1 cột led xoay tròn? nghĩa là từ 1 hình bitmap color thành một matrận color hình chữ nhật 360 cột(32 bit).
Thanks.Lamz
0908049920
Một lần nữa xin cảm ơn bác rất nhiều.

ma trận kiểu ni hơi bị đc đó . tui phải làm thử xem sao . đơn giản mà hiệu quả bất ngờ

Chao các bạn! Mình hiện tại đấ đi làm rồi, không có nhiều thời gian để tìm hiểu. Nhưng hôm nay vào đọc trang này của các bạn. MÌnh rất thích và muốn tìm hiểu về mạch quảng cáo Matrix Led. Mong các bạn giúp đỡ mình!
Thankyou!

Bác có lời khen. Hy vọng Bác Bi làm được nó, để có hàng cạnh tranh chứ.thì phải có sản phẩm cạnh tranh chứ đúng không, ăn thua giá cả và chất lượng thôi. vì một sản phẩm muốn tồn tại Khi nào Bác làm được thì nhớ trình làng cho anh em biết tham khảo nhé.
Đây là loại quang báo trong tương lai gần phải không các bác. Em chưa tung ra thị tường sản phẩm nào hết nên mọi người hãy cùng khám phá nó đi, thật thú vị lắm đó. màu sắc của nó tuyệt đẹp đấy, vì quay bằng webcam nên nó hơi xấu.
Thanks.

Wow, mình rất vui vì RTB có ích cho các bạn!

Mình thấy bạn đã đi trước mọi người một bước rồi đấy! Có thể miếng bánh của bạn sẽ bị thu hẹp theo thời gian, nhưng điều quan trọng là nếu luôn luôn sáng tạo thì sẽ luôn tìm được cái bánh mới trước người khác!
Chúc bạn thành công với sản phẩm đẹp và lạ mắt này trong mùa giáng sinh sắp tới!

hi bác. như trong mail em gởi cho Bác. Nếu Bác nói yes về RTB4 cho sản phẩm của em, em em bắt tay vào thiết kế phần cứng và mềm cho nó ok rồi.
Hiện em đã hoàn thành thiết kế cột led 32 RGB outdoor cho quạt cánh 1 m rồi. vài ngày nữa gắn lên quạt 1m sẽ post video lên cho mọi người xem. hứa hẹn nhiều hiệu ứng rất đẹp mắt. chỉ thiếu mỗi cái RTB V4 để hiển thị ảnh nữa thôi.
Ước gì có nhà thờ nào chịu đầu tư cho ngôi sao 3~4 m kiểu này nhỉ, em chỉ tính tiền linh kiện thôi, free soft. mở rộng lên 120 led thì tuyệt vời.
Mong RTBV4 sớm ra mắt.
Thanks, Lamz
Note: Nếu RTB V4 ra mắt. Em sẽ ủng hộ ngay 10 số active đầu tiên. và sẽ cùng hợp tác với bác dài lâu.

không load được hình
 

chào bác Hoàng. em test thử RTB V3.8, mục chọn hình bmp sao không được, nó đòi phải chuyển sang dạng đơn sắc. em đã convert mấy cái hình sang trắng đen rồi nhưng vẫn không load được ảnh lên. Giá như RTB của bác tự convert luôn thì sẽ tuyệt hơn nhiều. em vẫn đang bị "pó tay.com" với nó, mặc dù nó chưa đáp ứng được cho led matrix tròn. nhưng viết ra để Bác có thể chỉnh sửa đôi chút giúp cho nhiều gnười khác dễ dàng sử dụng nó hơn. Nếu như nó còn có thể load được cả hình jpg nữa thì càng dễ ứng dụng hơn nữa. Khi đó nò sẽ là phần mềm hữu ích nhất cho led matrix.
Thanks, Lamz

hi Hoàng,
mình save as monochrome trong paint, và load lên rtb được rồi. nhưng cho hình không rõ.
có cách nào convert cho hình rõ nét hơn như hình cô gái của bạn ko?
Thanks,Lamz

Em mới học về cái này. Em vẫn chưa hiểu nghiên lý hoạt động của nó. Anh em nào có tài liệu và mạch nguyên lý không cho em em xem được không ạ.
Em cảm ơn!

Mình cũng chỉ là "đệ tử nhập môn" mới đây thôi nên không giám viết gì nhiều vì kiến thức còn hạn hẹp, chỉ là góp một chút kinh nghiệm thôi.
Ý bạn là về led matrix đó hả. Mình cũng học từ các diễn đàn thôi. Mình không nhớ rõ link, nhưng bạn cứ vào google, đánh tutorial led matrix, sẽ có rất nhiều cái cho bạn bắt đầu tìm hiểu. Còn nếu led matrix cho motor thì bạn phải lên diễn đàn tiếng anh mới có, ở Việt Nam cũng có ở bên diễn đàn ANT7 có mô hình cho 8 led (red) có mạch in luôn, và code viết bằng Asm, hình như dùng 8951 thì phải. Mình cũng tự học hết, tất cả đều có từ "google" thôi. . Nhưng có 1 điều tiên quyết mà bạn cần phải có để có thể làm được nó là phải đam mê + tài chính.
Chúc bạn vui.

Bác dùng PaintShop Pro ý. Em vẫn dùng bản cũ, bản 8, free. Bản này cùng thời với Photoshop 7 nhưng mạnh không kém và rất dễ dùng. Bác mở ảnh ra, vào menu, chọn Image/Decrease Color Depth/2 Colors (1bit)... Sẽ có nhiều tùy chọn để xuất hình rõ nét chỉ với 2 màu đen và trắng.

Have Fun!

Thật tuyệt ! Bác Lamz có demo đẹp wa. Bác có mở lớp dạy quang báo nho nhỏ ko vậy?

RTB is now FREE
 

Việc trước đây RTB không miễn phí là do 1 số sức ép. Phiên bản 3.9 được nâng cấp, sửa lỗi từ phiên bản 3.8 và không cần Activate ID. Phần mềm là tự do, các bạn sử dụng tùy ý.


Have Fun!


À quên, hiện tại nó vẫn chưa có phần help, mình sẽ rất vui nếu ai viết phần help và post lên cho mọi người mới bắt đầu dễ dùng.

Bạn có thể cho mình xin code VB của nó phần mềm RTB được ko, bạn cũng Free nó, thì Free luôn code VB đi.

Cảm ơn bạn nhiều nhé.

Nghe hơi căng nhỉ, cho hết chắc debuger giải nghệ

Phần mềm tạo font.c dùng cho 595.
 

Dũng mới viết xong nè. nhưng thủ công hơn, không được Pro như bạn, mình dùng VB6
cập nhật chỉnh sửa - 12-11-2009.

haizz....man phep cac bac...nhung em co chut y kien ve cai phan mem RTB3.9 cua bac debugger....cai phan mem cua bac hay thi co hay that nhung sao ma kho dung qua!moi~ lan` em copy code la` do? het' ca? tay.hihix...

RTB v4
 

Hi all,

Với phiên bản mới này, các bạn có thể tự làm mạch LED ma trận để thương mại, và yên tâm là đã có 1 phần mềm miễn phí hỗ trợ khách hàng của bạn thay đổi nội dung hiển thị, hiệu ứng và thời gian hiển thị.

Phần mềm cũng cho phép nhà phát triển hiển thị chữ kí của họ trên giao diện.

Để giao tiếp được với RTB và biến nó thành phần mềm đi kèm mạch LED ma trận của bạn, mời các bạn đọc tài liệu về giao thức mở BLDSv4 mình gửi kèm.

@chienthan88: copy code trong RTB là việc dễ nhất từng có. bạn chỉ việc nhấn nút "copy text to clipboard" là xong.

mấy a ơi e đang làm led matrix 16x128 có đoạn code nhờ mấy a chi' dùm với????
$mod51
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxx
; chuong trinh xuat du lieu len bang ma tran
; ngang gom co 16 Led matrix 8x8 = 16*8 =128 cot
; cao gom co2Led matrix 8x8 =2*8 =16 hang
; Xuat tin hieu ra cot dung IC 74HC595 gom N con mat noi tiep
;Quet hang dung 1 con IC 74HC154
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxx
; A bit p1.0
; B bit p1.1
; C bit p1.2
; D bit p1.3
E bit p1.4
Clock bit p2.0
Din bit p2.1
Lacth bit p2.2
Colume equ 30h
bodem equ 31h
contro equ 32h
Row equ 33h
ABCD equ 34h
Length equ 35h
contro1 equ 36h
org 0000h

KhoiTao:
mov Length, #600
mov Colume, #40
mov bodem, #0
mov contro, #0
mov row, #0
mov ABCD, #00h
mov dptr, #DuLieu
mov contro1, #0
mov r1, #5


;''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''
Main:
call Xoamanhinh
Call Xuat_Frame
call delay
inc Row
inc ABCD
mov a, Row
cjne a, #8, main
mov ABCD, #00h
mov Row, #0
djnz r1, main
mov r1,#5
inc contro
mov a, contro
cjne a, Length,main
jmp Khoitao
;''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
DATA_Cot:

mov r2, colume
mov r3, Row
clr Lacth
dichcot: mov a, contro
add a, bodem
movc a, @a+dptr
clr Clock
call LuaDong
mov Din, c
setb Clock
inc bodem
djnz r2, dichcot
mov bodem, #0
mov r2, colume
setb Lacth

ret

;-----------------------------------------------------------
Xuat_Frame:

call DATA_cot
mov p1, ABCD


ret
;----------------------------------------------------------
XoaManHinh:

mov r2, colume
clr Lacth
xoa: clr clock
clr Din
setb clock
djnz r2, xoa
setb Lacth


ret
;----------------------------------------------------------
LUADONG:
cjne r3, #0, dong1
mov c, acc.0
mov din, c
call nhay12
sjmp het
dong1: cjne r3, #1, dong2
mov c, acc.1
mov din, c
call nhay10
sjmp het
dong2: cjne r3, #2, dong3
mov c, acc.2
mov din, c
call nhay8
sjmp het
dong3: cjne r3, #3, dong4
mov c, acc.3
mov din, c
call nhay6
sjmp het
dong4: cjne r3, #4, dong5
mov c, acc.4
mov din, c
call nhay4
sjmp het
dong5: cjne r3, #5, dong6
mov c, acc.5
mov din, c
nop
nop
sjmp het
dong6: cjne r3, #6, dong7
mov c, acc.6
mov din, c
sjmp het
dong7: cjne r3, #7, het
mov c, acc.7
mov din, c
het: ret
;-------------------------------------------------
NHAY:
nhay14: nop
nop
nhay12: nop
nop
nhay10: nop
nop
nhay8: nop
nop
nhay6: nop
nop
nhay4: ret



DELAY:
mov r7,#15
laplai: mov r6, #60
djnz r6, $
djnz r7, laplai
ret
Delay1:
mov r5, #2
mov r4, #2
tt: djnz r4, $
djnz r5, tt
ret
;--------------------------------------------------------
DULIEU:
DB 0H,0FFH,0FFH,2H,4H,0FFH,0H,0H
DB 0H,7EH,0FFH,0C3H,0D3H,72H,0H,0H
DB 0H,7AH,85H,85H,85H,7AH,0H,0H
DB 3H,1H,1H,0FFH,0FFH,1H,1H,3H
DB 0H,0FFH,0FFH,11H,31H,4EH,80H,0H
DB 0H,7FH,0FFH,80H,80H,7FH,0H,0H
DB 0H,0FFH,0FFH,2H,4H,0FFH,0H,0H
DB 0H,7EH,0FFH,0C3H,0D3H,72H,0H,0H
DB 0H,0FFH,0FFH,18H,18H,0FFH,0FFH,0H
DB 0H,0H,0H,0FDH,0FDH,0H,0H,0H
DB 0H,0FFH,0FFH,99H,99H,99H,0H,0H
DB 0H,7FH,0FFH,80H,80H,7FH,0H,0H
DB 0H,54H,38H,7CH,38H,54H,0H,0H
DB 0H,54H,38H,7CH,38H,54H,0H,0H
DB 0H,54H,38H,7CH,38H,54H,0H,0H
DB 0H,0FFH,0FFH,2H,4H,2H,0FFH,0H
DB 0H,0FCH,12H,12H,12H,0FCH,0H,0H
DB 0H,3H,1H,0FFH,0FFH,1H,1H,2H
DB 80H,0FFH,91H,11H,0B1H,0CEH,80H,0H
DB 0H,0H,0H,0FDH,0FDH,0H,0H,0H
DB 81H,0C3H,0A5H,18H,18H,0A5H,0C3H,81H
DB 3CH,52H,0A5H,0A1H,0A1H,0A5H,52H,3CH
DB 18H,3CH,5AH,18H,18H,18H,3CH,7EH
DB 3FH,7FH,80H,60H,80H,40H,3FH,0H
DB 0H,0FEH,92H,92H,92H,0H,0H,0H
DB 0H,0FEH,80H,80H,80H,40H,0H,0H
DB 0H,0FEH,80H,80H,80H,40H,0H,0H
DB 0H,3CH,42H,81H,81H,81H,42H,0H
DB 0H,7CH,82H,82H,82H,7CH,0H,0H
DB 0H,0FEH,4H,8H,4H,0FEH,0H,0H
DB 0H,0FEH,92H,92H,92H,0H,0H,0H
DB 0H,54H,38H,0FEH,38H,54H,0H,0H
DB 0H,54H,38H,0FEH,38H,54H,0H,0H
DB 0H,54H,38H,0FEH,38H,54H,0H,0H

end
cám ơn nhiều