Кн. Чай Кн. Кава Кн. Капучіно

Кн. Чай Кн. Кава Кн. Капучіно

«Вхідний сигнал – вихід»

Кн. Чай Кн. Кава Кн. Капучіно

0 0 0 0 0

0 0 0 1 1

0 0 1 1 1

0 0 1 1 1

Матриця переходу станів для вхідного сигналу 25 коп.

0 1 0 0

0 0 1 0

0 0 0 1

0 0 0 1

Код кавового автомата:

Private Sub CommandButton1_Click()

a = Val(TextBox1)

TextBox1 = a + 25

End Sub

Private Sub CommandButton2_Click()

a = Val(TextBox1)

TextBox1 = a + 50

End Sub

Private Sub CommandButton4_Click()

a = Val(TextBox1)

If (a >= 50) Then

TextBox1 = a - 50

MsgBox "Отримай свій чай!:)"

Else

b = 50 - a

MsgBox " Кидай ще " + Str(b) + " копійок! " + "якщо хочеш чаю..."

End If

End Sub

Private Sub CommandButton5_Click()

a = Val(TextBox1)

If (a >= 25) Then

TextBox1 = a - 25

MsgBox "Отримай свою каву!:)"

Else

b = 25 - a

MsgBox " Кидай ще " + Str(b) + " копійок! " + "якщо хочеш кави..."

End If

End Sub

Private Sub CommandButton6_Click()

a = Val(TextBox1)

If (a >= 75) Then

TextBox1 = a - 75

MsgBox "Отримай своє капучіно!:)"

Else

b = 75 - a

MsgBox " Кидай ще " + Str(b) + " копійок! " + "якщо хочеш капучіно..."

End If

End Sub

Private Sub Image1_Click()

End Sub

Private Sub TextBox1_Chan()

End Sub

Private Sub UserForm_Click()

End Sub

Кавовий автомат:

Висновок: Освоївши знання з теорії автоматів і використовуючи програму

Visual Basic ми запрограмували кавовий автомат.

Дата добавления: 2015-11-14