Chương 6 nguyên lý hoạt động và lưu đồ giải thuật

CHƯƠNG 6NGUYÊN LÝ HOẠT ĐỘNG VÀ LƯU ĐỒ GIẢI THUẬT 6.1.. NGUYÊN LÝ HOẠT ĐỘNG CỦA MẠCH QUANG BÁO Khi khởi động nguồn quang báo, đầu tiên vi điều khiển sẽ cập nhật cấu hình của quang báotro

CHƯƠNG 6

NGUYÊN LÝ HOẠT ĐỘNG VÀ LƯU ĐỒ GIẢI THUẬT

6.1 NGUYÊN LÝ HOẠT ĐỘNG CỦA MẠCH QUANG BÁO

Khi khởi động nguồn quang báo, đầu tiên vi điều khiển sẽ cập nhật cấu hình của quang báotrong đó có thiết lập cổng giao tiếp RS232

Sau đó quang báo sẽ cập nhật dữ liệu cho hiển thị và chạy chữ mặc định Trong khi chạynếu có ngắt giao tiếp với máy tính thì chương trình sẽ chuyển sang chế độ nhập chữ từ máy tínhthông qua giao tiếp với cổng Com của máy tính với Pic16F877A tùy vào người điều khiển Nếukhông có sự kiện nào phát sinh thì quang báo sẽ chạy vòng lặp hiển thị là vô tận

Việc hiển thị trên bảng led là động Tức là trong một thời điểm chỉ có một cột được sáng.Nhưng khi quét nhanh ở tần số 50Hz trở thì mắt thường coi như là sáng liên tục trên toàn bảng

Kỹ thuật quét led :

Là cấp tín hiệu điều khiển theo dạng xung theo kiểu quét cho các cột cần hiển thị tần sốcho mỗi chu kỳ khoảng 50Hz nhằm bảo đảm cho mắt thấy các led sáng đều không nhấp nháy

Dữ liệu phông chữ, hình được đổ qua hàng

Khi quét hết 32 cột thì được một hình

Khi chạy chữ chỉ cần hiển thị một hình khác đã được dịch đi một cột

6.2 LƯU ĐỒ GIẢI THUẬT CỦA CHƯƠNG TRÌNH

N

Y

Hình 6.1 Lưu đồ giải thuật chương trình chính

Khai báo các chươngtrình con

6.2 CODE CHƯƠNG TRÌNH

//****************************************************************************//****************************************************************************//*****************************Cấu hình cho Pic*********************************

//truong cdkt cao thang

int8 const a[181]={

6.3 CODE VISUAL BASIC

Private Sub CmdEXIT_Click()

For i = 1 To Len(S1) Step 1

S(i) = Mid(S1, i, 1) 'Mid(chuoi,vitri,n ky tu)

'cho ra so thap phan

CodeAscii = Asc(S(i)) 'ham tra ve gia tri la ma ASCII cua ky tự

Select Case CodeAscii

Case 32 'Space

MSComm1.Output = Chr$(255)

MSComm1.Output = Chr$(255)

MSComm1.Output = Chr$(255)

MSComm1.RThreshold = 0 ' khong dung su kien OnComm nhận

MSComm1.SThreshold = 0 ' không dùng sự kiện OnComm truyen