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 mạng liên quan 2) Hiểu mạch nguyên lý, thiết kế mạch nguyên lý mạch in phần mềm Altium 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….) 4) Mạch cấp nguồn cục pin 9V .4 5) Test mạch phần mềm Lptdebug – web: http://stadi.hu/sw/lptdebug_en.html 6) Lập trình ghép nối phần mềm Visual Basic 6.0 7) Hình ảnh sản phẩm 10 8) Đánh giá 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 mạng liên quan 2) Hiểu mạch nguyên lý, thiết kế mạch nguyên lý mạch in phần mềm Altium SƠ ĐỒ MẠCH NGUYÊN LÝ SƠ ĐỒ MẠCH IN 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….) 4) Mạch cấp nguồn cục pin 9V 5) Test mạch phần mềm Lptdebug – web: http://stadi.hu/sw/lptdebug_en.html Chú ý trước chương trình chạy phải copy file IO.dll vào thư mục C:\WINDOWS\system32 Giao diện phần mềm 6) Lập trình ghép nối phần mềm Visual Basic 6.0 Giao diện 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 End If End Sub Private Sub Command3_Click() 'hien thi theo thang 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") gio = Format(Now, "hh") Call truyen(Val(gio), Val(phut)) End Sub Private Sub Timer4_Timer() Dim thang As Integer Dim As Integer thang = Format(Now, "mm") = 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 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 tu 0-9 For i = To 200 i=i+1 led1 = n \ 10 led2 = n Mod 10 led3 = m \ 10 led4 = m Mod 10 Out32 &H37A, &HCC 'mo led Out32 &H378, Mang(led1) 'truyen gia tri cong du lieu Call delay(240000) 'tre Out32 &H37A, &HC0 Out32 &H378, Mang(led2) Call delay(240000) 'mo led Out32 &H37A, &HC6 Out32 &H378, Mang(led3) Call delay(240000) 'mo led Out32 &H37A, &HC5 Out32 &H378, Mang(led4) Call delay(240000) 'mo led Next End Sub Sub delay(y) Dim x As Long For x = 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 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 7) Hình ảnh sản phẩm 10 11 8) Đánh giá sản phẩm Ưu điểm: Mạch thiết kế sử dụng cổng LPT để giao tiếp với máy tính hiển thị thời gian led Mạch thiết kế cho linh kiện đáp ứng yêu cầu chất lượng, giá thành công cần thiết Nhược điểm: Cổng LPT kết nối truyền thông kiểu cũ, có máy tính có cổng này, nên việc phổ biến thiết kế ứng dụng liên quan đến cổng LPT hạn chế mang tính chất học hỏi hiểu ghép nối Hướng đồ án hướng tới toán để phát triển sang dạng giao tiếp khác hiển thị thiết bị khác nhau, mạch dễ dàng kết nối với mạch ghép nối nối tiếp, đơn giản việc thiết kế với đầu cổng LPT 12 USB MÁY TÍNH VI ĐIỀU KHIỂN LPT CÁI LPT ĐỰC – MẠCH LED THANH CO M Dowload: Chuong trinh Mach nguyen ly + mach in -XIN CHÂN THÀNH CẢM ƠN- 13 ... thị thiết bị khác nhau, mạch dễ dàng kết nối với mạch ghép nối nối tiếp, đơn giản việc thiết kế với đầu cổng LPT 12 USB MÁY TÍNH VI ĐIỀU KHIỂN LPT CÁI LPT ĐỰC – MẠCH LED THANH CO M Dowload: Chuong... LPT kết nối truyền thông kiểu cũ, có máy tính có cổng này, nên việc phổ biến thiết kế ứng dụng liên quan đến cổng LPT hạn chế mang tính chất học hỏi hiểu ghép nối Hướng đồ án hướng tới toán để phát... thiết kế sử dụng cổng LPT để giao tiếp với máy tính hiển thị thời gian led Mạch thiết kế cho linh kiện đáp ứng yêu cầu chất lượng, giá thành công cần thiết Nhược điểm: Cổng LPT kết nối truyền