Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

CHƯƠNG VI:
THIẾT KẾ VÀ THI CÔNG
1.Khối nguồn:
F U SE

IC 1
1

VO U T

G N D

V IN

F 1

J18

3
C 3

C 4

33O u

104

1
2
3
4
5
6
7
8

2

J1

+5V

LM 7805

1
2

D 1

D 2

0

0

0


C O N 2

C O N 8

0
R 10
39K

IC 1
1

C 1

0

2200u

V IN

D 5

C 2

VO U T

J19

3

1

2

LED

1u

0

LM 7808
G N D

D 4

C 3

C 4

33O u

104

C O N 2

2

D 3

+5V

0


0

0

0

0

0

Nhiệm vụ của khối nguồn:
Cung cấp đủ nguồn cho mạch hoạt động
Trong mạch sử dụng cầu diode để chỉnh lưu nắn điện xoay chiều thành một
chiều.Sau đó dùng IC ổn áp 7805 và 7808 để ổn định điện áp cung cấp cho mạch
hoạt động.Các tụ có nhiệm vụ bù điện áp.Led chỉ thị nguồn đã được cấp.
2.Khối xử lí
VC C

R 18

C 7

R ESET
R C .0
R C .1
R C .2

1
1

1
1
2
2
2
2

R X
TX

5
6
7
8
3
4
5
6

R
R
R
R
R
R
R
R

PP
A0

A1
A2
A3
A4
A5
C
C
C
C
C
C
C
C

12

R
R
R
R
R
R
R
R

R
R
R
R
R

R
R
R

O S1
O S2

Y 1
C 5

32

0
1
2
3
4
5
6
7

VSS

13
14

V
R
R
R

R
R
R

U 4

VD D

1
2
3
4
5
6
7

VSS

R ST
A8
A9

VD D

U 3

R 19

B
B

B
B
B
B
B
B
D
D
D
D
D
D
D
D

7
6
5
4
3
2
1
0
7
6
5
4
3
2
1

0

R E0
R E1
R E2

4
3
3
3
3
3
3
3

0
9
8
7
6
5
4
3

3
2
2
2
2
2

2
1

0
9
8
7
2
1
0
9

D
D
D
D
D
D
D
D

0
1
2
3
4
5
6
7


2
3
4
5
6
7
8
9
h
h
h
h
h
h
h
h

c
c
c
c
c
c
c
c

11
1

8

7
6
5
4
3
2
1

8
9
10

D
D
D
D
D
D
D
D

U 5
0
1
2
3
4
5
6
7


LE
O E
74ABT573

Q
Q
Q
Q
Q
Q
Q
Q

0
1
2
3
4
5
6
7

1
1
1
1
1
1
1

1

9
8
7
6
5
4
3
2

A8
A9

10
9
8
7
6
5
4
3
25
24
21
23
2

R D
22

W R
27
VC C 20
26

A
A
A
A
A
A
A
A
A
A
A
A
A

0
1
2
3
4
5
6
7
8
9
10

11
12

D
D
D
D
D
D
D
D

O
W
C
C

E
E
S1
S2

0
1
2
3
4
5
6
7


1
1
1
1
1
1
1
1

1
2
3
5
6
7
8
9

D
D
D
D
D
D
D
D

0
1

2
3
4
5
6
7

6264
R D
W R

31

D 1

11

VC C

p ic 1 6 f 8 7 7
C 6

Nhiệm vụ của khối xử lí:
SVTH:Lê Minh Tâm-Lê Ngọc Thương

99


Đồ Án Tốt Nghiệp


GVHD:Bùi Thị Kim Chi

Khối xử lí bao gồm Vi Điều Khiển PIC 16F877A giữ nhiệm vụ điều khiển
chính, nhận dữ liệu từ máy vi tính chuyển xuống ,xử lí, lưu trữ,và xuất dữ liệu ra
các port điều khiển hiển thị led ma trận.Đây là phần tử chính trong mạch. Nó chứa
trong ROM phần mềm điều khiển bao gồm việc giải mã ký tự tù ASCII để đưa ra
bảng Led, chứa bộ font cho bảng Led mã hóa cho chữ cái và các số, kí tự đặc biệt
khác. Ngoài ra còn chứa phần mềm giao tiếp máy tính cho việc cập nhật dữ liệu.
Port D được sử dụng để xuất dữ liệu ra khối hiển thị, các tín hiệu này sẽ
truyền xuống IC ULN2803 sau đó được khuếch đại bởi TIP127 xuất ra Led.
Port A (RA),RA1) và Port D được dùng để truy xuất các địa chỉ ô nhớ của Ram
6264
Port E (RE1,RE2) dùng để điều khiển việc đọc hay ghi lên Ram 6264 thông
qua IC chốt 74HC573.

Pin
2,3,4,5,6,7,8,9
11
1
10
12,13,14,15,16,17,18,19
20

Kí hiệu
Do-D7
LE
OE
GND
Qo-Q7
Vcc


Tên và chức năng
Dữ liệu vào
Cho phép ngõ vào tích cực mức 1
Cho phép ngõ ra tích cực mức 0
Nối mass 0V
Chốt ngõ ra ( 3 trạng thái)
Nguồn 5V

Dựa vào bảng trạng thái ta nhận thấy dữ liệu mới chỉ được phép truyền qua
IC khi cả hai chân điều khiển (LE và OE) ở mức logic thích hợp: LE ở mức logic
cao, OE ở mức logic thấp. Khi cả hai chân điều khiển ở trạng thái này thì dữ liệu ở
ngõ vào sẽ được đưa vào bên trong IC (truyền qua các Flip-Flop) và đưa thẳng ra
ngoài thông qua các cổng đệm ngõ ra 3 trạng thái.
Khi chân OE ở mức logic thấp (cho phép) mà chân LE cũng ở mức logic
thấp (cấm) thì dữ liệu ở ngõ ra của IC là dữ liệu cũ (vừa mới được truyền qua IC).
Lúc này dữ liệu mới ở ngõ vào sẽ không được phép nhập vào IC.
Ngược lại, khi chân OE ở mức logic cao thì ngõ ra của IC sẽ ở trạng thái
tổng trở cao, bất chấp trạng thái logic của các ngõ vào còn lại. Mặc dù ngõ ra ở
trạng thái tổng trở cao nhưng dữ liệu ở ngõ vào (nếu có) vẫn được phép đưa vào
SVTH:Lê Minh Tâm-Lê Ngọc Thương

100


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

IC (đưa đến ngõ ra của các Flip-Flop ở bên trong IC). Dữ liệu này sẽ được phép

truyền đến ngõ ra khi chân OE về lại mức logic thấp.
Khi cả hai chân điều khiển đều ở trạng thái cấm (chân OE ở mức logic cao,
chân LE ở mức logic thấp) thì ngõ ra sẽ ở trạng thái tổng trở cao và ngõ vào sẽ
không được phép nhập dữ liệu mớivào. Như vậy, ở trạng thái này thì IC hoàn toàn
không giao tiếp với bất kỳ linh kiện nào khác ở cả ngõ vào và ngõ ra.

SRAM 6264

SVTH:Lê Minh Tâm-Lê Ngọc Thương

101


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

Việc truy xuất Ram thể hiệ thông qua bảng chân trị

Dao động:
dùng thạch anh 12M và tụ 33p. Tạo xung nhịp dao dộng cho Vi Điều Khiển.Do
các xung dao động do thạch anh tạo ra không ổn định nên phải dùng tụ lọc

12M

33p

33p

Mạch reset:

dùng reset cho mạch,ngõ ra của mạch reset nối với chân 1 của vi điều khiển Pic
16f877a: chân MLCLR/Vpp. Khi nút nhấn được tác động thì chân MCLR sẽ nối
mass và vi điều khiển sẽ được reset.
SVTH:Lê Minh Tâm-Lê Ngọc Thương

102


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

VC C

R 19
D 1

R 18
C 7
R ESET

3.Khối giao tiếp
Nhiệm vụ của khối giao tiếp:
J1

M A X232
TX-PIC 1 1

R x D _ P IC


1

RX-PIC 1 2
16
1
4

J2
1

C 3

C 2

C 1

2

10uF

10uF

10uF

N g u o àn 5 V

R
V
C
C


1
C
1
2

J3

T1O U T

O U T
C
+
+

R 2O U T
T 2 IN
C 2C 1V+

R 1 IN

14
13

RX-PC
1
T X - P2C
C O N 2

G N D

R 2 IN
T2O U T

15
8
7

C 4

6

0

9
10
5
3
2

T 1 IN

V-

P IC _ 1 6 F 8 7 7 A

U 1

T x D _ P IC

2


1uF

0

Làm nhiệm vụ giao tiếp giữ Vi Điều Khiển với máy vi tính khi cần nhập, thay đổi
thông tin hiển thị. Giao tiếp được dùng là thông qua cổng COM của máy
tính.Dùng IC đệm là Max232.
Khi ghép cổng COM máy tính với vi điều khiển hay mạch TTL cần phải có mạch
chuyển mức TTL sang 232 và ngược lại . Lí do là vi điện áp của cổng COM máy
tính là mức 15V trong khi mức điện áp tham chiếu tín hiệu vủa vi điều khiển hay
mạch TTL là 5V. Các vi mạch thường dùng là MC1488, MC1489, MAX232,
DS275…Loại MAX232 là thông dụng hơn cả vì chỉ cần nguồn 5v .
Các giá trị tụ C1,C2, C3,C4 = 1 uF do nh sản xuất đề xuất .
4.Khối xuất dữ liệu hàng:

SVTH:Lê Minh Tâm-Lê Ngọc Thương

103


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi
VC C

Q 12
Q 11
Q 10
U 2

hc
hc
hc
hc
hc
hc
hc
hc

1
2
3
4
5
6
7
8
12v

1
2
3
4
5
6
7
8
10

IN

IN
IN
IN
IN
IN
IN
IN

U LN 2803
1
2
3
4
5
6
7
8

O
O
O
O
O
O
O
O

U
U
U

U
U
U
U
U

T1
T2
T3
T4
T5
T6
T7
T8

1
1
1
1
1
1
1
1

8
7
6
5
4
3

2
1

R
R
R
R
R
R
R
R

8
9
12
13
14
15
16
17

Q 9
J2
H
H
H
H
H
H
H

H

Q 13

C O M

1
2
3
4
5
6
7
8

1
2
3
4
5
6
7
8

Q 14
H AN G
Q 15
Q 16
VC C


Nhiệm vụ của khối là đưa dữ liệu cần hiển thị ra hàng
Các transitor được dùng trong mạch là TIP 127

Bên trong linh kiện này tích hợp 2 transitor mắc darlington nhằm tạo ra hệ số
khếch đại lớn (hfe=1000).

SVTH:Lê Minh Tâm-Lê Ngọc Thương

104


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

Ngõ vào điều khiển của Trans được mắc với IC ULN2803 làm nhiệm vụ đệm dòng
cho TIP127 vì dòng do vi điều khiển không đủ để cấp.IC này nhận tín hiệu trực
tiếp từ vi điều khiển PIC 16f877A.

SVTH:Lê Minh Tâm-Lê Ngọc Thương

105


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

5.Khối hiển thị:
U 1

h
h
h
h
h
h
h
h

1
2
3
4
5
6
7
8

9
14
8
12
1
7
2
5

H
H
H

H
H
H
H
H

1
2
3
4
5
6
7
8

m a t r ix 8 x 8

C
C
C
C
C
C
C
C

8
7
6
5

4
3
2
1

1
2
3
4
5
6
7
8

J1

1
5
6

c
c
c
c
c
c
c
c

1

2
3
4
5
6
7
8

1
3
4
1
6
1
1
1

0

3

C O N 8

8
7
6
5
4
3
2

1

V C C

sdi
sdi
ck
c lr

3

ck

13
12

c lr

8

S D I

V D D

U 5

J2

2


V C C

C K
S TR O B E
C LR
6B 595

O
O
O
O
O
O
O
O

U
U
U
U
U
U
U
U

T
T
T
T
T

T
T
T

0
1
2
3
4
5
6
7

4
5
6
7

18

E
N D
N D
N D

S D O

4
5
6

7
1
1
1
1

9
10
11
19

O
G
G
G

C O N 8

Nhiệm vụ của khối là hiển thị các kí tự trên màn hình Led ma trận, sử dụng
phương pháp quét cột và xuất dữ liệu ra hàng
IC trong mạch là 6B595,IC này làm nhiệm vụ quét cột

Số
1
2
3

Tên chân
NC
logic supply

Serial data in

Chức năng
Chân không dùng
Điện áp nguồn (5V)
Dữ liệu vào nối tiếp

SVTH:Lê Minh Tâm-Lê Ngọc Thương

106


Đồ Án Tốt Nghiệp
4-7
8
9
10
11
12
13
14-17
18
19
20

Out0-3
Clear
Output Enable
Ground
Ground

Stroke
Clock
Out4-7
Serial data out
Ground
NC

GVHD:Bùi Thị Kim Chi
Ngõ ra (cực máng để hở)
Thanh ghi được xóa, tích cực mức thấp(0)
Cho phép ngõ ra, tích cực mức thấp
Nối mass, điện áp tham chiếu ngõ ra 0-3
Nối mass, điện áp tham chiếu ngõ ra 4-7
Dữ liệu thanh ghi dịch được chốt tại cạnh lên
Ngõ vào xung clock
Ngõ ra (cực máng để hở)
Dữ liệu ra nối tiếp
Nối mass
Chân không dùng

Cách điều khiển IC được thể hiện thông qua bảng chân trị

Trước tiên là đưa 1 bit dữ liệu vào chần SDI (serial data in),tạo một cạnh dương ở
chân CK để dịch dữ liệu đó vào, quá trình này lặp đi lặp lại cho đến khi toàn bộ dữ
liệu được dịch vào các IC 6B595(IC tiếp theo cũng sẽ dịch dữ liệu được đưa thông
qua pin SDO (serial data out ) của vi điều khiển trước và bằng cách dùng lệnh lặp
“for” trong lúc lập trình ta sẽ được vòng quét vô tận.. Đồng thời lúc này pin
STROKE cũng được tác động (vì hai pin STROKE và CK được nối chung với
nhau ) nên dữ liệu lập tức được đưa ra các các cột của led ma trận.
6.Phần lập trình

chương trình cho pic:
#include <16f877a.h>
#fuses xt,nowdt
#use delay(clock=12000)
#use fast_io(a)
#use fast_io(b)
#use fast_io(c)
#use fast_io(d)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

107


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

#use fast_io(e)
#define RW PORTE.F1
#define RD PORTE.F2
#define ALE PORTE.F0
#define SDI PORTC.F0
#define SCL PORTC.F1
#define CLR PORTC.F2
unsigned char i,data;
unsigned int solan,lap,tocdo,add;
unsigned char const mang1[]={
124,138,146,162,124,// 0
0,66,254,2,0
,// 1

66,134,138,146,98 ,// 2
132,130,162,226,156,// 3
24,40,72,254,8 ,// 4
228,162,162,162,156,// 5
60,82,146,146,12 ,// 6
128,142,144,160,192,// 7
108,146,146,146,108,// 8
96,146,146,148,120 ,// 9
126,144,144,144,126,// A
254,146,146,146,108,// B
124,130,130,130,68 ,// C
254,130,130,130,124,// D
254,146,146,146,146,// E
254,144,144,144,144,// F
124,130,146,146,92 ,// G
254,16,16,16,254 ,// H
0,130,254,130,0 ,// I
132,130,130,130,252,// J
254,16,40,68,130 ,// K
254,2,2,2,2
,// L
254,64,32,64,254 ,// M
254,64,32,16,254 ,// N
124,130,130,130,124,// O
254,144,144,144,96 ,// P
124,130,134,130,125,// Q
254,144,152,148,98 ,// R
100,146,146,146,76 ,// S
128,128,254,128,128,// T
252,2,2,2,252

,// U
SVTH:Lê Minh Tâm-Lê Ngọc Thương

108


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

248,4,2,4,248
,// V
254,4,8,4,254
,// W
198,40,16,40,198 ,// X
192,32,30,32,192 ,// Y
134,138,146,162,194,// Z
0,224,15,240,31,248,63,124,124,12,96,12,96,4,64,12,64,12,96,28,96,60,48,124,16,
0,0,0,64,0,112,0,124,128,71,224,7,252,4,252,7,248,79,224,127,0,127,0,124,0,112,
0,64,0,0,224,15,240,31,248,63,124,124,12,96,4,64,4,64,12,96,124,124,248,63,240,
31,224,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,64,4,96,252,127,252,127,252,127,12,64,4,6
4,12,96,12,96,124,124,248,63,240,31,224,15,0,0,0,64,0,112,0,124,128,71,224,7,25
2,4,252,7,248,79,224,127,0,127,0,124,0,112,0,64,0,0,12,64,12,64,252,127,60,64,1
24,64,248,0,240,3,224,7,128,15,4,31,12,62,252,127,4,0,0,0,224,15,240,31,248,63,
124,124,12,112,12,96,4,64,4,64,12,66,12,102,28,126,60,62,0,2,0,2,0,0,0,0,0,0,0,0,
0,0,0,0,4,0,12,0,124,0,252,1,252,7,244,31,192,127,0,126,0,31,196,7,252,0,60,0,4,0
,4,0,4,64,12,96,252,127,252,127,252,127,12,96,4,64,4,64,4,64,252,127,252,127,25
2,127,4,97,132,67,196,71,236,111,12,96,60,112,60,120,0,8,12,64,12,64,252,127,6
0,64,124,64,248,0,240,3,224,7,128,15,4,31,12,62,252,127,4,0,0,0,0,0,0,0,0,0,0,0,0,
0,4,64,4,96,252,127,252,127,252,127,12,64,4,64,12,96,12,96,124,124,248,63,240,

31,224,15,0,0,224,15,240,31,248,63,124,124,12,96,4,64,4,64,12,96,124,124,248,6
3,240,31,224,15,0,0,0,0,12,64,12,64,252,127,60,64,124,64,248,0,240,3,224,7,128,
15,4,31,12,62,252,127,4,0,0,0,224,15,240,31,248,63,124,124,12,112,12,96,4,64,4,
64,12,66,12,102,28,126,60,62,0,2,
};
void WriteRam (unsigned int address, unsigned char dataram) {
TRISB = 0X00;
//DDRA= 0xff; //Config PORTB as Output
RD = 1;
RW = 1;
PORTB = address;
//PORTa = (address >> 8) | 0x60 ;
ALE = 1;
delay_us(20);
ALE = 0; //Chot du lieu
PORTB = dataram;
RW = 0;
delay_us(50);
RW = 1;
// DDRA
= 0x00; //Low Address as input
// DirPC
= 0xe0; //High Address as input while RD,WR,ALE as output
}
//******************
unsigned char ReadRam (unsigned int address) {
SVTH:Lê Minh Tâm-Lê Ngọc Thương

109



Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

unsigned char dataram;
TRISB = 0X00;
//DDRA = 0xff;
RD = 1;
RW = 1;
PORTB = address;
//PORTa = (address >> 8) | 0x60 ;
delay_us(20);
ALE = 1;
delay_us(2);
ALE = 0;
TRISB = 0Xff;
//DDRA = 0x00; //PortB Nhan du lieu
RD = 0;
delay_us(5);
DATARAM =PORTB; //Nhan du lieu
portd=dataram ;
RD = 1;
return (dataram);
}
//CHUONG TRINH CHINH
void main() {
TRISA = 0x00; //config ngo vao ra cua pic
TRISB = 0x00;
TRISD = 0x00;

TRISC = 0x00;
TRISE = 0x00;
portd=0xff;
Usart_Init(2400); // khoi tao toc do bause
// ghi vao eeprom cua pic dia chi bat dau la 0000h
add=0;
for (i=0;i<230;i++)
{
portd=0x00;
//EEprom_Write(i,mang1[i]);
}
while(1) {
for (solan=0;solan<256;solan++)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

110


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

for (tocdo=0;tocdo<40;tocdo++)// dieu chinh toc do chay cua led
{
SDI=1;
//cho chhan input cua 6b len muc cao
for(i=0;i<35;i++)
//so cot muon hien thi
{
if (Usart_Data_Ready())

{ // If data is received
data = Usart_Read();
// Read the received data
add++;
// tang dia chi cua eeprom
SOLAN=0;
// cho ma tran chay lai tu dau
EEprom_Write(add,data); //ghi vao eeprom
if (add==256)
// so sanh ney bang thi chay lai tu dau
{add=0;}
//dia chi bang 0000h
}
PORTd = Eeprom_Read(i+solan);
//
Delay_us(200);
//delay hien thi
CLR=1;
//cho chan clr cua 6b595 lenn muc aco de
hien thi
portd=0;
//tat led chong lem
Delay_us(10);
// delay chong lem
SCL=1;
//
SCL=0;
SDI=0;
}
}

}
}
}

SVTH:Lê Minh Tâm-Lê Ngọc Thương

111


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

code visual basic:
Private Sub cmdSEND2_Click()
Dim S(1 To 10000) As String
Dim S1 As String
Dim i As Long
Dim CodeAscii As Long
Dim L As Long
Dim L1 As Long
Dim L2 As Long
S1 = "
" + Text1.Text + " " '11+TEXT1+1'
L = ChieuDai(S1) * 6 'Chieu dai byte truyen tinh luon co dau
L1 = Int(L / 256) 'Chieu dai byte cao
L2 = L - L1 * 256 'Chieu Dai byte thap
MSComm1.Output = Chr$(1)
MSComm1.Output = Chr$(L1)
MSComm1.Output = Chr$(L2)

For i = 1 To Len(S1) Step 1
S(i) = Mid(S1, i, 1) 'ky tu
CodeAscii = Asc(S(i)) 'cho ra so thap phan
Select Case CodeAscii
Case 97
i=i+1
S(i) = Mid(S1, i, 1) 'ky tu
CodeAscii = Asc(S(i)) 'cho ra so thap phan
Select Case CodeAscii
Case 32 'Space
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr$(0)
Case 33 '!
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr$(125)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 34 '"
MSComm1.Output = Chr(0)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

112



Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr$(112)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr$(112)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr(0)
Case 35 '#
MSComm1.Output = Chr$(20)
MSComm1.Output = Chr$(127)
MSComm1.Output = Chr$(20)
MSComm1.Output = Chr$(127)
MSComm1.Output = Chr$(20)
MSComm1.Output = Chr$(0)
Case 36 '$
MSComm1.Output = Chr$(18)
MSComm1.Output = Chr$(42)
MSComm1.Output = Chr$(127)
MSComm1.Output = Chr$(42)
MSComm1.Output = Chr$(36)
MSComm1.Output = Chr$(0)
Case 37 '%
MSComm1.Output = Chr$(98)
MSComm1.Output = Chr$(100)
MSComm1.Output = Chr$(8)
MSComm1.Output = Chr$(16)
MSComm1.Output = Chr$(35)
MSComm1.Output = Chr$(3)

MSComm1.Output = Chr$(0)
Case 38 '&
MSComm1.Output = Chr$(54)
MSComm1.Output = Chr$(73)
MSComm1.Output = Chr$(53)
MSComm1.Output = Chr$(2)
MSComm1.Output = Chr$(5)
MSComm1.Output = Chr$(0)
Case 39 'Dau '
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr$(104)
MSComm1.Output = Chr$(112)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr(0)
Case 40 '(
MSComm1.Output = Chr(0)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

113


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr$(28)
MSComm1.Output = Chr$(34)
MSComm1.Output = Chr$(65)
MSComm1.Output = Chr$(0)

MSComm1.Output = Chr(0)
Case 41 ')
MSComm1.Output = Chr(0)
MSComm1.Output = Chr$(65)
MSComm1.Output = Chr$(34)
MSComm1.Output = Chr$(28)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr(0)
Case 42 '*
MSComm1.Output = Chr$(42)
MSComm1.Output = Chr$(28)
MSComm1.Output = Chr$(127)
MSComm1.Output = Chr$(28)
MSComm1.Output = Chr$(42)
MSComm1.Output = Chr$(0)
Case 43 '+
MSComm1.Output = Chr$(16)
MSComm1.Output = Chr$(16)
MSComm1.Output = Chr$(124)
MSComm1.Output = Chr$(16)
MSComm1.Output = Chr$(16)
MSComm1.Output = Chr$(0)
Case 44 'Dau ,
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr$(13)
MSComm1.Output = Chr$(14)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr(0)
Case 45 'Dau MSComm1.Output = Chr(0)

MSComm1.Output = Chr$(8)
MSComm1.Output = Chr$(8)
MSComm1.Output = Chr$(8)
MSComm1.Output = Chr$(8)
MSComm1.Output = Chr$(0)
Case 46 'Dau .
MSComm1.Output = Chr(0)
MSComm1.Output = Chr$(0)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

114


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr$(3)
MSComm1.Output = Chr$(3)
MSComm1.Output = Chr$(0)
MSComm1.Output = Chr(0)
Case 47 'Dau /
MSComm1.Output = Chr$(1)
MSComm1.Output = Chr$(2)
MSComm1.Output = Chr$(4)
MSComm1.Output = Chr$(8)
MSComm1.Output = Chr$(16)
MSComm1.Output = Chr$(0)
Case 48 '0
MSComm1.Output = Chr(62)

MSComm1.Output = Chr(69)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(81)
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(0)
Case 49 '1
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(33)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 50 '2
MSComm1.Output = Chr(39)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(49)
MSComm1.Output = Chr(0)
Case 51 '3
MSComm1.Output = Chr(34)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(54)
MSComm1.Output = Chr(0)
Case 52 '4
MSComm1.Output = Chr(12)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(36)

SVTH:Lê Minh Tâm-Lê Ngọc Thương

115


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr(127)
MSComm1.Output = Chr(4)
MSComm1.Output = Chr(0)
Case 53 '5
MSComm1.Output = Chr(114)
MSComm1.Output = Chr(81)
MSComm1.Output = Chr(81)
MSComm1.Output = Chr(81)
MSComm1.Output = Chr(78)
MSComm1.Output = Chr(0)
Case 54 '6
MSComm1.Output = Chr(30)
MSComm1.Output = Chr(41)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(6)
MSComm1.Output = Chr(0)
Case 55 '7
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(71)
MSComm1.Output = Chr(72)

MSComm1.Output = Chr(80)
MSComm1.Output = Chr(96)
MSComm1.Output = Chr(0)
Case 56 '8
MSComm1.Output = Chr(54)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(54)
MSComm1.Output = Chr(0)
Case 57 '9
MSComm1.Output = Chr(48)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(74)
MSComm1.Output = Chr(60)
MSComm1.Output = Chr(0)
Case 58 ':
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(27)
MSComm1.Output = Chr(27)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

116


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi


MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 59 ';
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(109)
MSComm1.Output = Chr(110)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 60 '<
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(34)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(0)
Case 61 '=
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(0)
Case 62 '>
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(34)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(8)

MSComm1.Output = Chr(0)
Case 63 '?
MSComm1.Output = Chr(32)
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(69)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(48)
MSComm1.Output = Chr(0)
Case 64 '@
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(93)
MSComm1.Output = Chr(85)
MSComm1.Output = Chr(60)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

117


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr(0)
Case 65 'A
MSComm1.Output = Chr(63)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(63)

MSComm1.Output = Chr(0)
Case 66 'B
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(54)
MSComm1.Output = Chr(0)
Case 67 'C
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(34)
MSComm1.Output = Chr(0)
Case 68 'D
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(0)
Case 69 'E
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(0)
Case 70 'F

MSComm1.Output = Chr(127)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(0)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

118


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

Case 71 'G
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(46)
MSComm1.Output = Chr(0)
Case 72 'H
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(0)
Case 73 'I

MSComm1.Output = Chr(0)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 74 'J
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(2)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(126)
MSComm1.Output = Chr(0)
Case 75 'K
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(34)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(0)
Case 76 'L
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(0)
Case 77 'M
SVTH:Lê Minh Tâm-Lê Ngọc Thương


119


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr(127)
MSComm1.Output = Chr(32)
MSComm1.Output = Chr(24)
MSComm1.Output = Chr(32)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(0)
Case 78 'N
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(16)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(4)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(0)
Case 79 'O
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(0)
Case 80 'P
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(72)

MSComm1.Output = Chr(72)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(48)
MSComm1.Output = Chr(0)
Case 81 'Q
MSComm1.Output = Chr(62)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(69)
MSComm1.Output = Chr(67)
MSComm1.Output = Chr(63)
MSComm1.Output = Chr(0)
Case 82 'R
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(72)
MSComm1.Output = Chr(76)
MSComm1.Output = Chr(74)
MSComm1.Output = Chr(49)
MSComm1.Output = Chr(0)
Case 83 'S
MSComm1.Output = Chr(50)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

120


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr(73)

MSComm1.Output = Chr(73)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(38)
MSComm1.Output = Chr(0)
Case 84 'T
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(0)
Case 85 'U
MSComm1.Output = Chr(126)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(126)
MSComm1.Output = Chr(0)
Case 86 'V
MSComm1.Output = Chr(124)
MSComm1.Output = Chr(2)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(2)
MSComm1.Output = Chr(124)
MSComm1.Output = Chr(0)
Case 87 'W
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(2)
MSComm1.Output = Chr(12)
MSComm1.Output = Chr(2)

MSComm1.Output = Chr(127)
MSComm1.Output = Chr(0)
Case 88 'X
MSComm1.Output = Chr(99)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(20)
MSComm1.Output = Chr(99)
MSComm1.Output = Chr(0)
Case 89 'Y
MSComm1.Output = Chr(96)
MSComm1.Output = Chr(16)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

121


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr(15)
MSComm1.Output = Chr(16)
MSComm1.Output = Chr(96)
MSComm1.Output = Chr(0)
Case 90 'Z
MSComm1.Output = Chr(67)
MSComm1.Output = Chr(69)
MSComm1.Output = Chr(73)
MSComm1.Output = Chr(81)

MSComm1.Output = Chr(97)
MSComm1.Output = Chr(0)
Case 91 '[
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 92 '\
MSComm1.Output = Chr(32)
MSComm1.Output = Chr(16)
MSComm1.Output = Chr(8)
MSComm1.Output = Chr(4)
MSComm1.Output = Chr(2)
MSComm1.Output = Chr(0)
Case 93 ']
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(65)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 94 '^
MSComm1.Output = Chr(16)
MSComm1.Output = Chr(32)
MSComm1.Output = Chr(64)
MSComm1.Output = Chr(32)
MSComm1.Output = Chr(16)
MSComm1.Output = Chr(0)

Case 95 '_
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

122


Đồ Án Tốt Nghiệp

GVHD:Bùi Thị Kim Chi

MSComm1.Output = Chr(1)
MSComm1.Output = Chr(1)
MSComm1.Output = Chr(0)
Case 96 '`
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(112)
MSComm1.Output = Chr(104)
MSComm1.Output = Chr(0)
MSComm1.Output = Chr(0)
Case 97 'a
MSComm1.Output = Chr(2)
MSComm1.Output = Chr(21)
MSComm1.Output = Chr(21)
MSComm1.Output = Chr(21)
MSComm1.Output = Chr(15)
MSComm1.Output = Chr(0)

Case 98 'b
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(6)
MSComm1.Output = Chr(0)
Case 99 'c
MSComm1.Output = Chr(6)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(2)
MSComm1.Output = Chr(0)
Case 100 'd
MSComm1.Output = Chr(6)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(127)
MSComm1.Output = Chr(0)
Case 101 'e
MSComm1.Output = Chr(6)
MSComm1.Output = Chr(9)
MSComm1.Output = Chr(11)
MSComm1.Output = Chr(13)
SVTH:Lê Minh Tâm-Lê Ngọc Thương

123