Chương trình tạo FONT cho Led Matrix

[bvhoang]

chan ghe

Tránh mọi hiểu lầm, chương trình từ lâu đã free rồi. Cập nhật cho mọi người biết!

Thank you for using RTB!

[bvhoang]

RTB is now FREE

Bản 3.9 nâng cấp từ bản 3.9 và hoàn toàn miễn phí cho nhà phát triển

[loclehuu]

Anh Hoàng có thể cho cái font width nhỏ hơn 8(1,2,3,4,5,6,7) được không ạ?

[bvhoang]

Anh Hoàng có thể cho cái font width nhỏ hơn 8(1,2,3,4,5,6,7) được không ạ?

Cái này đơn giản mà bạn. Bạn biết là mỗi chữ cái nằm trong 1 hình chữ nhật, bạn có thể coi chiều rộng là chiều cao, và ngược lại. Sau đó bạn chọn chiều của chữ cái để tiện cho cách quét của bạn.

Have Fun!

[thaielectric]

-Hôm trước bạn linhnc308 có hỏi mình về Code của chương trình của mình. Vậy xin tiết lộ luôn. Ct của mình dùng hàm cơ bản nhất là
GetPixel(picFont.hdc, X, Y)
Hàm trả về giá trị mầu của điểm ảnh có tọa độ (X,Y) của picbox, giá trị trả về là số hexa 3byte. Đầu tiên mình print lên picFont một ký tự có mã Ascii là n, sau đó dùng 2 vòng lặp for lồng nhau để quét hết cái picFont, giá trị trả về mình quan tâm xem là đen hay trắng rồi lưu vào 1 bảng MSFlexGrid1, rồi từ bảng này có thể vẽ ra thành các điểm tròn trên màn hình, lưu thành file *.hex, *.bin… hoặc đẩy luôn vào con chip. Để vẽ ra màn hình máy tính các bạn nên dùng hàm picbox.PaintPicture cho ứng dụng đc nhẹ.
Với hàm GetPixel các bạn có thể dễ dàng đưa ký tự, logo thậm chí cả 1 hình ảnh jpg ra LED đc. Các bạn tham khảo thêm VB6 tại : http://caulacbovb.com/forum/
Chúc các bạn thành công.
Hãy cùng nhau phát triển.

Hàm Getpixel mình đã làm và thấy nó chậm lắm. Hàm Getpixel ko ứng dụng cho những bitmap lớn được.

[pvhanh]

Hàm Getpixel mình đã làm và thấy nó chậm lắm. Hàm Getpixel ko ứng dụng cho những bitmap lớn được.

Bạn đừng nên lấy file bitmap lớn quá, chon file vừa đủ với kích thước của matrix thôi, mình thấy hàm này đủ dùng mà

[httuan86]

Các file được viết bằng vb.net hay c# đều có thể dễ dàng bị dịch ngược, các bạn nên chọn ngôn ngữ để viết cho hợp lý, bảo mật cao.

Private Sub display(ByVal rt2 As Graphics, ByVal pen As Pen)
Me.init
Dim i As Integer = 0
Do While (i < (Me.collums * Me.sizeLed))
Dim k As Integer = 0
Do While (k < (Me.rows * Me.sizeLed))
rt2.DrawRectangle(pen, CInt((i + Me.sizeLed)), CInt((k + (Me.sizeLed * 2))), CInt((8 * Me.sizeLed)), CInt((8 * Me.sizeLed)))
k = (k + (8 * Me.sizeLed))
Loop
i = (i + (8 * Me.sizeLed))
Loop
Dim j As Integer = 0
Do While (j < (Me.collums * Me.sizeLed))
Dim m As Integer = 0
Do While (m < (Me.rows * Me.sizeLed))
If (Me.bmp.GetPixel((j / Me.sizeLed), (m / Me.sizeLed)).A <> 0) Then
Me.circle((j + Me.sizeLed), (m + (Me.sizeLed * 2)), Color.Red)
Else
Me.circle((j + Me.sizeLed), (m + (Me.sizeLed * 2)), Color.Black)
End If
m = (m + Me.sizeLed)
Loop
j = (j + Me.sizeLed)
Loop
End Sub

Đây là 1 đoạn code đã được dịch ngược từ chương trình "FontCreate".

[lethang85]

Các file được viết bằng vb.net hay c# đều có thể dễ dàng bị dịch ngược, các bạn nên chọn ngôn ngữ để viết cho hợp lý, bảo mật cao.


Đây là 1 đoạn code đã được dịch ngược từ chương trình "FontCreate".

Cũng không dễ dàng dịch ngược đâu nếu tác giả dùng chương trình chống dịch ngược: như Dotfuscator hoặc Eazfuscator.

[hoangdai]

Đa phần thấy CT mấy bác toàn quét cột, nếu nó tùy biến đc quét cột hay hàng thì hay quá, tụi mình lại phải xoay led, can thiệp lập trình 1 chút mới hoàn hảo đc, các bác mà đưa thêm đc mấy cái tùy biến đó thì hay lắm. Nếu ko có thì tụi mình xử lí bằng phần mềm cũng đc nhưng đôi khihơi rối 1 tí vì đâu phải con led matrix nào cũng chân cẳng chuẩn đâu_có lần mua mà chân tay lộn ngược_hic

[bvhoang]

Đa phần thấy CT mấy bác toàn quét cột, nếu nó tùy biến đc quét cột hay hàng thì hay quá, tụi mình lại phải xoay led, can thiệp lập trình 1 chút mới hoàn hảo đc, các bác mà đưa thêm đc mấy cái tùy biến đó thì hay lắm. Nếu ko có thì tụi mình xử lí bằng phần mềm cũng đc nhưng đôi khihơi rối 1 tí vì đâu phải con led matrix nào cũng chân cẳng chuẩn đâu_có lần mua mà chân tay lộn ngược_hic

Bạn chạy chương trình RTB, mở cửa sổ pixel editor ra sẽ thấy phía dưới cùng có phím thứ 2 từ bên trái vào dùng để thay đổi chế độ mã hóa theo hàng hoặc theo cột

[hoangdai]

Oh_Minh moi down bản Free của bạn về dùng. Tại mình đang hướnh dẫn mấy người khóa dưới lập trình về matrix led_Thự sự phần mềm của bạn rất thuận tiện.Thanks!

[hieu1303]

em cung đang làm soft giong anh bvhoang,
thực hiện tren LED matrix, cách làm thì giống với cạch tạo file GIF trong Photoshop.làm xong xuất ra file C:\LEDm.hex. vẫn còn 1 số lỗi nhỏ trong đó,bác nào thấy gì chỉ giúp em với .
tiếc là em chỉ làm dc 7 frames thoi là đã tràn bộ nhớ gùi, vậy em phải xử lí thế nào dây, hay là đổi chip khác hay là dùng cai j khac nưã ạh. ???

https://www.yousendit.com/download/a...MGtFc0pFQlE9PQ

[matrix]

Các bác cho em hỏi chút, em muốn viết một phần mềm ứng dụng cho led matrix thì phải học ngôn ngữ gi vậy? em hơi gà chút >"<

[hieu1303]

ngôn ngữ nào cũng đc, wan trong là ý tưởng và cách hiện thực hóa no thôi.giống như soft minh viết trên đó vậy,viết = vb6, code cơ bản, ko có gi gọi là nâng cao hết áh, nếu mấy bưã nưã xong mình sẽ up source len cho bạn xem mẫu hen ^^

[matrix]

ngôn ngữ nào cũng đc, wan trong là ý tưởng và cách hiện thực hóa no thôi.giống như soft minh viết trên đó vậy,viết = vb6, code cơ bản, ko có gi gọi là nâng cao hết áh, nếu mấy bưã nưã xong mình sẽ up source len cho bạn xem mẫu hen ^^

Bác viết xong up code cho em tham khảo nha, bác có tài liệu VB nào up lên cho em được chứ, thanks!