Проектирование системы

Министерство образования Республики Таджикистан

Таджикский Технический Университет им. ак. М. С. Осими

кафедра АСОИиУ

Лабораторная работа №2

«Проектирование системы»

Душанбе 2009

Задание

Требуется разработать средствами Rational Rose модель программного обеспечения встроенного микропроцессора для кодового замка, регулирующего доступ в помещение.

Кодовый замок состоит из панели с кнопками (цифры «0»...«9», кнопка «Вызов», кнопка «Контроль»), цифрового дисплея, электромеханического замка, звонка. Панель с кнопками устанавливается с наружной стороны двери, замок устанавливается с внутренней стороны двери, звонок устанавливается внутри охраняемого помещения.

В обычном состоянии замок закрыт. Доступ в помещение осуществляется после набора кода доступа, состоящего из четырех цифр. Во время набора кода введенные цифры отображаются на дисплея. Если код набран правильно, то замок открывается на некоторое время, после чего дверь снова закрывается. Содержимое дисплея очищается.

Кнопка «Вызов» используется для подачи звукового сигнала внутри помещения. Кнопка «Контроль» используется для смены кодов. Смена кода доступа осуществляется следующим образом. При открытой двери нужно набрать код контроля, состоящий из четырех цифр, и новый код доступа. Для смены кода контроля нужно при открытой двери и нажатой кнопке «Контроль» набрать код контроля, после чего - новый код контроля.

Листинг программы

Public Class Form1

Public pass As String

Public t, p, k As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("0")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("1")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("2")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("3")

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("4")

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("5")

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("6")

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("7")

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("8")

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If Len(TextBox1.Text) = 4 Then Exit Sub

TextBox1.AppendText("9")

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If p = 1 Then

If Len(TextBox1.Text) = 4 Then

pass = TextBox1.Text

p = 0

TextBox1.Text = ""

Label2.Text = "Пароль успешно изменён"

End If

End If

If Timer1.Enabled = True Then

If Len(TextBox1.Text) = 4 Then

If TextBox1.Text = pass Then

p = 1

TextBox1.Text = ""

Label2.Text = "Введите новый код доступа"

End If

End If

End If

If Len(TextBox1.Text) = 4 Then

If TextBox1.Text = pass And Timer1.Enabled = False Then

Call open()

Else

TextBox1.Text = ""

Beep()

End If

End If

End Sub

Private Sub open()

TextBox1.ForeColor = Color.Red

Label2.Text = "Замок открыт"

Button11.Enabled = False

Timer1.Enabled = True

t = 0

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Beep()

t += 1

If t = 10 Then

Timer1.Enabled = False

Label2.Text = "Замок закрыт"

Button11.Enabled = True

TextBox1.Text = ""

End If

End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

Beep()

Beep()

Beep()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

pass = "1111"

p = 0

End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

If Timer1.Enabled = True Then

TextBox1.Text = ""

Label2.Text = "Введите код доступа"

Else

Beep()

End If

End Sub

End Class