3 .1Thu thập dữ liệu
4.2Phần giao tiếp mây tính card:
4. Mơ hình của hệ thống điều khiển, giâm sât thay đổi nấc phđn âp của
4.2Phần giao tiếp mây tính card:
4.2.1 Giao diện trín mây tính:
Trín măn hình mây tính vẽ sơ đồ mây biến âp. Khi muốn thao tâc ta click chuột văo thiết bị, lúc năy sẽ có một xung gởi đi thực hiện thao tâc chuyển nấc phđn âp, đồng thời chỉ thị nấc phđn âp của thiết bị trín măn hình cũng thay đổi.
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 83 - Mây Tính Max232 AT89C51 thiết bị mạch động lực card
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 84 -
4.2.2 Chuơng trình: Option Explicit Dim tam1 As Integer Dim tam As Integer Dim data As Integer Dim bl As Integer
Private Sub cmdClose_Click() Dim message, title As String
Dim dialogType, response As Integer
message = "ban chac chan la ban muon thoat khoi chuong trinh??" title = "thong bao"
dialogType = 4 + 32
response = MsgBox(message, dialogType, title) If response = 6 Then End Unload frmForm1 Unload frmForm2 End If End Sub
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 85 -
Private Sub Form_Load()
frmimage.Caption = Space(100) & "chuong trinh dieu khien thay doi nac phan ap may bien ap "
End Sub
Private Sub imgmay1_Click() frmForm1.Show
End Sub
Private Sub Timer1_Timer()
frmimage.Caption = Right(frmimage.Caption, Len(frmimage.Caption) - 1) If frmimage.Caption = " " Then
frmimage.Caption = Space(100) & "chuong trinh dieu khien va giam sat thay doi nac phan ap may bien ap "
End If End Sub
Private Sub cmdClose_Click() frmimage.Show
End Sub
Private Sub cmdOK_Click() frmForm2.Show
End Sub
Private Sub cmdClose_Click() Unload Me
End Sub
Private Sub Form_Load() tam = 2
MSComm1.CommPort = 2 'DUNG COM MSComm1.Settings = "9600,n,8,1" 'SETTING COM MSComm1.OutBufferSize = 1 (adsbygoogle = window.adsbygoogle || []).push({});
MSComm1.PortOpen = True 'MO CONG COM MSComm1.RThreshold = 1
MSComm1.InputLen = 0 End Sub
Private Sub hsbtang_Change()
txt2.Text = CStr(hsbtang.Value) 'gia tri ban dau cho thanh cuon End Sub
Private Sub hsbtang_Scroll() txt2.Text = CStr(hsbtang.Value) End Sub
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 86 -
Private Sub txt2_Change()
If txt2.Text = CStr(hsbtang.Value) Then Dim message, title As String
Dim dialogType, response As Integer If (hsbtang.Value > tam) Then
tam = hsbtang.Value
message = "ban co chac chan la tang nac phan ap khong?" End If
If (hsbtang.Value < tam) Then tam = hsbtang.Value
message = "ban co chac chan la giam nac phan ap khong?" End If
title = "thong bao" dialogType = 4 + 32
response = MsgBox(message, dialogType, title) If response = 6 Then data = txt2.Text MSComm1.Output = Chr(data) Else Unload Me End If End If End Sub Kết Luận
Âp dụng công nghệ tự động hoâ trạm biến âp ở nước ta hiện nay lă một công việc cần thiết để nđng cao độ tin cậy cung cấp điện, giảm thiệt hại do mất điện, giảm chi phí vận hănh, bảo dưỡng thiết bị, tạo tiền đề cho việc liín kết câc trạm thănh hệ thống. Đđy lă lĩnh vực khâ mới mẻ, đòi hỏi chúng ta cần phải nghiín cứu ứng dụng trong việc lắp đặt lâm sao câc vốn đầu tư giảm đến mức thấp nhất có thể, đồng thời phải tạo thuận lợi cho công tâc vận hănh, sửa chửa sau năy.
Với nội dùng đề tăi đê đưa ra những đặc điểm chung nhất về nguyín lý của một hệ thống bảo vệ vă điều khiển tích hợp trạm biến âp, trín cơ sở đó nghiín cứu thiết kế chế tạo thiết bị thực hiện được yíu cầu điều khiển vă giâm sât. Mơ hình điều khiển thay đổi nấc phđn âp của mây biến âp phần năo hình dùng được điều khiển mây biến âp bằng mây tính.
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 87 -
Mặc dù rất cố gắng nhưng khơng thể trânh khỏi những thiếu sót do trình độ vă năng lực có hạn của bản than. Rất mong nhận được ý kiến đóng góp của thầy cơ vă tất cả câc bạn để em nhìn nhận vấn đề sđu hơn.
Đă Nẵng ngăy 1 thâng 6 năm 2006 Sinh viín thực hiện
Nguyễn Nhật Ânh
Tăi Liệu Tham Khảo
1. Mạng Truyền Thông Công Nghiệp_Hoăng Minh Sơn
Nhă xuất bản khoa học vă kỹ thuật _2001
2. Hệ Thống Điều Khiển Tích Hợp cho Trạm Biến Âp
Tăi Liệu Kỹ Thuật Số ICS03-04
3. Lập Trình Ghĩp Nối Mây Tính Trong Window_Ngơ Diín Tập Nhă xuất bản khoa học vă kỹ thuật Hă Nội
4. Kỹ thuật lập trình Visua Basic_Nguyễn Tiến,Ngơ Quốc Việt,Phạm Nguyễn Tuấn Kỳ (adsbygoogle = window.adsbygoogle || []).push({});
Nhă xuất bản giâo dục
5. Tạp chí tự động hơ ngăy nay câc số năm 2004,2005,2006
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 88 -
6. Họ vi điều khiển 8051_Tống Văn On,Hoăng Đức Hải Nhă xuất bản Lao động- Xê hội Hă Nội_2001
Câc trang Web:
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 89 -
SVTH : Nguyễn Nhật Ânh- 01Đ2A
Trang - 90 -