su dung cong noi tiep
ĐIỀU KHIỂN LED 7 THANH sử DỤNG CỔNG nối TIẾP
... (Chr(j Mod 256)) send (Chr(j \ 256)) End Sub Private Sub Command4_Click() Text1.Text = send ("@") send (Chr(0 Mod 256)) send (Chr(0 \ 256)) End Sub Private Sub Command5_Click() i = Text1.Text j=i-1 ... tính Page 15 Khoa Điện Tử Private Sub Command2_Click() Dim i As Integer i = Text1.Text send ("@") send (Chr(i Mod 256)) send (Chr(i \ 256)) End Sub Private Sub Command1_Click() If MSComm1.PortOpen ... End Sub Private Sub Form_Load() MSComm1.CommPort = MSComm1.Settings = "1200,N,8,1" MSComm1.InputMode = MSComm1.SThreshold = If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If End Sub...
- 18
- 1,027
- 5
THIẾT kế VOLTMET điện tử sử DỤNG CỔNG nối TIẾP
... Chng II: Gii thiu chng trỡnh iu khin bng Visual Basic Tng quan v Visual Basic: Visual Basic (Visual Basic) l sn phm ca Microsoft, mt thnh phn phn ca b Visual Studio Chc nng: L mt ngụn ng lp trỡnh ... = volt End If End Sub 'chuyen doi ky tu phia ben phai ma Private Sub Start_Click() MSComm1.Output = "@" ve = True Hthi.Caption = "Nhan Stop de dung hien thi" End Sub Private Sub Stop_Click() ve ... Stop_Click() ve = False Hthi.Caption = "Nhan Start de tiep tuc - Nhan Exit de thoat" End Sub Private Sub Exit_Click() End End Sub Public Sub dothidienap(dienap As Single) dem = dem + x = x +...
- 33
- 495
- 0
volmeter sử dụng cổng nối tiếp
... If End Sub Private Sub Start_Click() MSComm1.Output = "@" ve = True Hthi.Caption = "Nhan Stop de dung hien thi" End Sub Private Sub Stop_Click() ve = False Hthi.Caption = "Nhan Start de tiep tuc ... False Hthi.Caption = "Nhan Start de tiep tuc - Nhan Exit de thoat" End Sub Private Sub Exit_Click() End End Sub Public Sub dothidienap(dienap As Single) dem = dem + X = X + 90 Lp in t 4_k5 14 ... 1))-(X, Y), &HFFFF& Next X=0 array_y(0) = Y dem = End Sub Private Sub TimerDoThi_Timer() If ve = True Then dothidienap (volt) End If End Sub II Chơng trình vi điều khiển #include #include...
- 19
- 387
- 0
THIẾT KẾ ĐỒNG HỒ ĐIÊN TỬ SỬ DỤNG CỔNG NỐI TIẾP HIỂN THỊ BẰNG LED 7 ĐOẠN (ĐỒ ÁN MÔN HỌC ĐO LƯỜNG VÀ ĐIỀU KHIỂN BẰNG MÁY TÍNH ( ĐỒ ÁN MÔN HỌC ĐO LƯỜNG VÀ ĐIỀU KHIỂN BẰNG MÁY TÍNH)
... MsgBox "LOI NHAP SAI NGAY" Text2.SetFocus Exit Sub End If End Sub Private Sub Command3_Click() Text4.Text = Format(Now, "hh:nn:ss ") End Sub Private Sub Command4_Click() If IsDate(Text4.Text) Then ... "hh:nn:ss") Else MsgBox "LOI NHAP SAI GIO" Text4.SetFocus Exit Sub End If End Sub Private Sub Command6_Click() End End Sub Private Sub Form_Load() MSComm1.CommPort = MSComm1.Settings = "9600,N,8,1" ... N2 As Integer Dim N3 As Integer Dim N4 As Integer Private Sub Command1_Click() Text2.Text = Format(Now, "dd/mm/yyyy") End Sub Private Sub Command2_Click() If IsDate(Text2.Text) Then Date = Format(Text2.Text,...
- 20
- 1,167
- 2
THIẾT KẾ BỘ ĐO TẦN SỐ XUNG VUÔNG SỬ DỤNG CỔNG NỐI TIẾP (BÁO CÁO MÔN GNMT )
... tanso As Long Private Sub Command1_Click() run = True End Sub Private Sub Command2_Click() If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End End If End Sub Private Sub Form_Load() With ... End If Index = End If End If End Sub Private Sub Timer1_Timer() 'ham thoi gian Label13.Caption = Format(Now, " dd / mmm / yyyy ") & Format(Now, "hh:nn:ss") End Sub ĐÁNH GIÁ ĐỀ TÀI 4.1 ƯU ĐIỂM: ... Timer1.Enabled = True Timer1.Interval = 300 Text1.Text = " " Text2.Text = " " Index = End Sub Private Sub MSComm1_OnComm() Dim x As String x = MSComm1.Input If MSComm1.CommEvent = Then mang(Index)...
- 31
- 633
- 0
ĐỀ TÀI:THIẾT KẾ ĐỒNG HỒ ĐIÊN TỬ SỬ DỤNG CỔNG NỐI TIẾP HIỂN THỊ BẰNG LED 7 ĐOẠN
... www.doko.vn/luan-van/thiet-ke-dong-ho-dien-tu -su- dung- cong- noi- tiep- hien-thi-bang-led-7-doan-242168 8/22 13/01/2014 Thiết kế đồng hồ điện tử sử dụng cổng nối tiếp hiển thị led đoạn www.doko.vn/luan-van/thiet-ke-dong-ho-dien-tu -su- dung- cong- noi- tiep- hien-thi-bang-led-7-doan-242168 ... www.doko.vn/luan-van/thiet-ke-dong-ho-dien-tu -su- dung- cong- noi- tiep- hien-thi-bang-led-7-doan-242168 11/22 13/01/2014 Thiết kế đồng hồ điện tử sử dụng cổng nối tiếp hiển thị led đoạn www.doko.vn/luan-van/thiet-ke-dong-ho-dien-tu -su- dung- cong- noi- tiep- hien-thi-bang-led-7-doan-242168 ... www.doko.vn/luan-van/thiet-ke-dong-ho-dien-tu -su- dung- cong- noi- tiep- hien-thi-bang-led-7-doan-242168 14/22 13/01/2014 Thiết kế đồng hồ điện tử sử dụng cổng nối tiếp hiển thị led đoạn www.doko.vn/luan-van/thiet-ke-dong-ho-dien-tu -su- dung- cong- noi- tiep- hien-thi-bang-led-7-doan-242168...
- 22
- 830
- 0
ĐỒ ÁNThiết kế bộ điều khiển động cơ điện 1 chiều sử dụng cổng nối tiếp
... Me.ButtonStop.Enabled = False End Sub Private Sub ButtonDung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDung.Click Me.SerialCOM.Write("Q") End Sub Private Sub ButtonChay_Click(ByVal ... End If End Sub Private Sub RadioButton5V_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5V.CheckedChanged Me.ChonNguonDC() End Sub Private Sub RadioButton12V_CheckedChanged(ByVal ... Tính End Sub Private Sub RadioButton24V_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton24V.CheckedChanged Me.ChonNguonDC() End Sub Private Sub ButtonStart_Click(ByVal...
- 18
- 285
- 0
Thiết kế đồng hồ thời gian thực hiển thị LCD sử dụng cổng nối tiếp
... SCON = 0x52; // cong noi tiep hoat dong o che TMOD = 0x21; // timer1 hoat dong o che 2-8 bit tu nap lai,timer hoat dong che 16 bit TH1=TL1= -3; // tao toc duong truyen cho cong noi tiep baud=9600 ... // cho phep ngat toan bo va cho phep ngat port noi tiep, cho phep ngat ngoai 0, IT0 = 1; // cho phep ngat suon am IP = 0x01;// uu tien ngat cong noi tiep khoitao(); write_command(0x01); // xoa man ... End Sub Private Sub Command7_Click() 'hien thi phut giay Timer1.Enabled = False Timer2.Enabled = True Timer3.Enabled = False Timer4.Enabled = False Timer2.Interval = 100 End Sub Private Sub Command8_Click()...
- 22
- 459
- 0
Thiết kế bộ đo vận tốc của vật chuyển động tịnh tiến sử dụng cổng nối tiếp
... PHẦN CỨNG I,SƠ ĐỒ NGUYÊN LÝ 11 II,CHƯƠNG TRÌNH ĐIỀU KHIỂN 1,PHẦN VISUA BASIC Private Sub Command1_Click() End 12 End Sub Private Sub Form_Load() MSComm1.CommPort = MSComm1.Settings = "9600,n,8,1" ... MSComm1.InputLen = MSComm1.PortOpen = True End Sub Private Sub MSComm1_OnComm() If Me.MSComm1.CommEvent = comEvReceive Then Label3.Caption = Asc(MSComm1.Input) End If End Sub 2,CODE C #include unsigned...
- 16
- 280
- 1
Quản trị mạng tập trung trên nền WEB sử dụng công nghệ SNMP, CGI, CORBA cho hệ thống cung cấp dịch vụ Digital Subscriber Line (DSL) của Bưu điện Hà Nội
... giá trị là: • noError (0) • tooBig (l) • noSuchName (2) • badVaIue (3) • readOnly (4) • genEn(5) Giá trị sử dụng ErrorStatus khác không để mô tả bổ sung 34/116 Luận văn thạc sỹ Xử lý thông tin ... Basic Object Adapter BGP Border Gateway Protocol CCITT International Telegraph and Telephone Consultative Comittee CGI Common Gateway Interface CORBA Common Object Request Broker Architecture ... Protocol SHA Secure Hash Algorithm SMB Server Message Block SHDSL Symmetric High-speed Digital Subscriber Line SMI Structure of Management Information SNMP Simple Network Management Protocol...
- 119
- 779
- 5
Sử dụng công cụ SQL 2005 trong ứng dụng DataMining cho việc phát triển các thuê bao điện thoại cố định ở Hà Nội
... Xây dựng Cube sử dụng theo mô hình star schema snowflake schema c Measures, Attributes and Hierarchies (kỹ thuật UDM) - Measures: thông tin cần phân tích - Attributes: thông tin chiều cần phân ... muốn) Hỗ trợ khả tích hợp cách linh hoạt, sử dụng Query để phụ giúp cho trình tích hợp liệu, bổ sung liệu mà có liên quan tới liệu có CSDL(dữ liệu có tính tham chiếu) 2.3 SQL Analysis Là công ... tắc phân loại, nguyên tắc kết hợp mô hình liệu tuần tự, v.v Đánh giá kết mẫu (Evaluation of Result) Là giai đoạn cuối trình khai phá liệu Các mẫu liệu chiết xuất phần mềm khai phá liệu Không...
- 38
- 797
- 2
Quyết định Về việc ban hành quy chế tổ chức hoạt động ứng dụng công nghệ thông tin, sử dụng mạng nội bộ (LAN), MegaWAN và mạng Internet
... thư mục Share không mang tính chất “mật”, không chứa nội dung xấu dạng file virus Người sử dụng thư mục Share phải chịu trách nhiệm đối nội dung share Mạng MegaWAN Sở phục vụ cho việc trao đổi thông ... liệu tới Sở, Ban, Ngành toàn Tỉnh Vì cán công chức có trách nhiệm đảm bảo mạng hoạt động thông su t, mạng LAN phải đảm bảo hoạt động tốt phục vụ cho mạng MegaWAN Mạng Internet Sở mục đích phục ... thông tin Mạng Internet phục vụ hành Cán truy cập, khai thác thông tin Internet phải hợp lệ, nội dung truy cập khai thác, nghiên cứu phải phù hợp với công tác chuyên môn Chương IV Xử lý cố máy...
- 4
- 694
- 3
Tài liệu Sử dụng công cụ phân tích kết nối từ xa cho Exchange Server – Phần 2 pptx
... Anywhere Outlook (trước gọi RPC HTTP) Test sử dụng đặc biệt cho việc test thử RPC HTTP lý bạn cần bổ sung thêm thông tin tiện ích so với thực test trước Test sử dụng để test RPC HTTP Exchange Server ... viên tạo tài khoản giả để sử dụng cho ExRCA, cấu hình tài khoản Hide from Exchange Address Lists su t trình test ExRCA RPC over HTTP, lỗi thể hình xuất Để giải vấn đề này, cần bảo đảm người dùng ... Microsoft Exchange ActiveSync Autodiscover Test kích Next Điền vào trang thông tin quan trọng người dung test kết nối ActiveSync với Server cách kích Perform Exchange ActiveSync Test, test kết nối...
- 14
- 452
- 0
Tìm thêm: hệ việt nam nhật bản và sức hấp dẫn của tiếng nhật tại việt nam xác định các nguyên tắc biên soạn khảo sát các chuẩn giảng dạy tiếng nhật từ góc độ lí thuyết và thực tiễn khảo sát chương trình đào tạo gắn với các giáo trình cụ thể xác định thời lượng học về mặt lí thuyết và thực tế điều tra đối với đối tượng giảng viên và đối tượng quản lí điều tra với đối tượng sinh viên học tiếng nhật không chuyên ngữ1 khảo sát thực tế giảng dạy tiếng nhật không chuyên ngữ tại việt nam khảo sát các chương trình đào tạo theo những bộ giáo trình tiêu biểu nội dung cụ thể cho từng kĩ năng ở từng cấp độ xác định mức độ đáp ứng về văn hoá và chuyên môn trong ct mở máy động cơ lồng sóc mở máy động cơ rôto dây quấn hệ số công suất cosp fi p2 đặc tuyến mômen quay m fi p2 đặc tuyến dòng điện stato i1 fi p2 thông tin liên lạc và các dịch vụ phần 3 giới thiệu nguyên liệu chỉ tiêu chất lượng theo chất lượng phẩm chất sản phẩm khô từ gạo của bộ y tế năm 2008 chỉ tiêu chất lượng 9 tr 25