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
MSComm1.PortOpen = True 'MO CONG COM MSComm1.RThreshold = 1
MSComm1.InputLen = 0 End Sub
Private Sub hsbtang_Change() (adsbygoogle = window.adsbygoogle || []).push({});
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ỳ
Nhă xuất bản giõo dục
5. Tạp chớ tự động hoõ ngăy nay cõc số năm 2004,2005,2006
SVTH : Nguyễn Nhật Ânh- 01Đ2A (adsbygoogle = window.adsbygoogle || []).push({});
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 -