Ghép nối máy tính sử dụng cổng song song LPT

Mục lục
1) Tham khảo giáo trình, tìm tư liệu trên mạng liên quan..............................................1
2) Hiểu mạch nguyên lý, thiết kế mạch nguyên lý và mạch in bằng phần mềm Altium.
........................................................................................................................................1
3) Triển khai làm mạch ( bao gồm chuẩn bị linh kiện điện tử, trang thiết bị phục vụ
làm mạch: bàn là, mỏ hàn, nhựa thông, axeton….)........................................................3
4) Mạch được cấp nguồn bởi cục pin 9V.......................................................................4
5) Test mạch bằng phần mềm Lptdebug – web: />6) Lập trình ghép nối bằng phần mềm Visual Basic 6.0................................................5
7) Hình ảnh sản phẩm...................................................................................................10
8) Đánh giá về sản phẩm..............................................................................................12

Trình tự thực hiện:
1) Tham khảo giáo trình, tìm tư liệu trên mạng liên
quan.
2) Hiểu mạch nguyên lý, thiết kế mạch nguyên lý và
mạch in bằng phần mềm Altium.

SƠ ĐỒ MẠCH NGUYÊN LÝ

1


SƠ ĐỒ MẠCH IN

2


3) Triển khai làm mạch ( bao gồm chuẩn bị linh kiện
điện tử, trang thiết bị phục vụ làm mạch: bàn là,
mỏ hàn, nhựa thông, axeton….)

3


4) Mạch được cấp nguồn bởi cục pin 9V

5) Test mạch bằng phần mềm Lptdebug – web:
/>Chú ý trước khi chương trình có thể chạy được phải copy file IO.dll vào thư
mục C:\WINDOWS\system32

Giao diện phần mềm

4


6) Lập trình ghép nối bằng phần mềm Visual Basic
6.0

Giao diện chính

Giao diện cài đặt thời gian
Chương trình chính:
Private Declare Sub Out32 Lib "inpout32.dll" (ByVal PortAddress As Integer, ByVal
Value As Integer)
Private Declare Function Inp32 Lib "inpout32.dll" (ByVal PortAddress As Integer) As
Integer
'khai bao thu vien inpout.dll
Private Sub Command1_Click()
'hien thi theo phut giay
If Timer2.Enabled = False Then
Timer2.Enabled = True

Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
End If
End Sub
Private Sub Command2_Click()
'hien thi theo gio phut
If Timer3.Enabled = False Then
Timer3.Enabled = True
Timer5.Enabled = False
Timer2.Enabled = False
Timer4.Enabled = False

5


End If
End Sub
Private Sub Command3_Click()
'hien thi theo thang ngay
If Timer4.Enabled = False Then
Timer4.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer5.Enabled = False
End If
End Sub
Private Sub Command4_Click()
'hien thi theo nam thang
If Timer5.Enabled = False Then

Timer5.Enabled = True
Timer3.Enabled = False
Timer4.Enabled = False
Timer2.Enabled = False
End If
End Sub
Private Sub Command5_Click()
Out32 &H37A, &H4
Out32 &H378, &H0
End Sub
Private Sub Command6_Click()
Form2.Show
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:nn:ss")
Label2.Caption = Format(Now, "dd/mm/yyyy")
End Sub
Private Sub Timer2_Timer()
Dim phut As Integer
Dim giay As Integer
phut = Format(Now, "nn")
giay = Format(Now, "ss")
Call truyen(Val(phut), Val(giay))
End Sub
Private Sub Timer3_Timer()
Dim gio As Integer
Dim phut As Integer
phut = Format(Now, "nn")

6

gio = Format(Now, "hh")
Call truyen(Val(gio), Val(phut))
End Sub
Private Sub Timer4_Timer()
Dim thang As Integer
Dim ngay As Integer
thang = Format(Now, "mm")
ngay = Format(Now, "dd")
Call truyen(Val(thang), Val(ngay))
End Sub
Private Sub Timer5_Timer()
Dim nam4, nam2, chuc, dv As Integer
Dim thang As Integer
thang = Format(Now, "mm")
nam4 = Format(Now, "yyyy")
chuc = ((nam4 Mod 1000) Mod 100) \ 10
dv = ((nam4 Mod 1000) Mod 100) Mod 10
nam2 = chuc * 10 + dv
Call truyen(Val(nam2), Val(thang))
End Sub
Sub truyen(n As Integer, m As Integer)
'Ham con truyen du lieu
Dim Mang As Variant
Dim led1, led2, led3, led4, i As Integer
Mang = Array(&H40, &H79, &H24, &H30, &H19, &H12, &H2, &H78, &H0,
&H10) ' ma truyen led 7 thanh tu 0-9
For i = 0 To 200
i=i+1

led1 = n \ 10
led2 = n Mod 10
led3 = m \ 10
led4 = m Mod 10
Out32 &H37A, &HCC
'mo led 1
Out32 &H378, Mang(led1)
'truyen gia tri ra cong du lieu
Call delay(240000)
'tre
Out32 &H37A, &HC0
Out32 &H378, Mang(led2)
Call delay(240000)

'mo led 2

Out32 &H37A, &HC6
Out32 &H378, Mang(led3)
Call delay(240000)

'mo led 3

Out32 &H37A, &HC5
Out32 &H378, Mang(led4)
Call delay(240000)

'mo led 4

7

Next
End Sub
Sub delay(y)
Dim x As Long
For x = 0 To y
x=x+1
Next
End Sub

' ham tre

Chương trình cài đặt thời gian
Private Sub Command1_Click()
Dim DatThoigian As String 'HAM DAT THOI GIAN VA NGAY
Dim DatNgay As String
Time = TimeSerial(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))
'Time = DatThoigian
Date = DateSerial(Val(Text6.Text), Val(Text5.Text), Val(Text4.Text))
' Date = DatNgay
Timer1.Enabled = True
Form2.Hide
End Sub
Private Sub Command2_Click()
Form2.Hide
End Sub
Private Sub Form_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()

Timer1.Enabled = True
End Sub
Private Sub text1_Click()
Timer1.Enabled = False
End Sub
Private Sub Text2_click()
Timer1.Enabled = False
End Sub
Private Sub Text3_click()
Timer1.Enabled = False
End Sub
Private Sub Text4_click()
Timer1.Enabled = False
End Sub

8


Private Sub Text5_Click()
Timer1.Enabled = False
End Sub
Private Sub Text6_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Hour(Time)
Text2.Text = Minute(Time)
Text3.Text = Second(Time)
Text4.Text = Day(Date)
Text5.Text = Month(Date)

Text6.Text = Year(Date)
End Sub

'DAT THOI GIAN CHO TEXTBOX

9


7) Hình ảnh sản phẩm

10


11


8) Đánh giá về sản phẩm.
Ưu điểm: Mạch được thiết kế sử dụng cổng LPT để giao tiếp với máy
tính và hiển thị thời gian trên led 7 thanh. Mạch được thiết kế sao cho
linh kiện ít và đáp ứng được yêu cầu về chất lượng, giá thành cũng như
công năng cần thiết.
Nhược điểm: Cổng LPT là kết nối truyền thơng kiểu cũ, hiện có rất ít máy
tính có cổng này, nên việc phổ biến trong các thiết kế ứng dụng liên quan
đến cổng LPT đều hạn chế và chỉ mang tính chất học hỏi và hiểu là ghép
nối
Hướng của đồ án là hướng tới là bài toán cơ bản để phát triển sang các
dạng giao tiếp khác cũng như hiển thị trên các thiết bị khác nhau, mạch
này sẽ dễ dàng kết nối được với mạch ghép nối nối tiếp, đơn giản bằng
việc thiết kế với 1 đầu là cổng LPT cái.

12


USB

MÁY TÍNH

VI ĐIỀU KHIỂN

LPT
CÁI

LPT ĐỰC
– MẠCH
LED 7
THANH

CO
M

Dowload:

Chuong trinh
Mach nguyen ly + mach in

-XIN CHÂN THÀNH CẢM ƠN-

13