maschinarium0
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Legio
немного непонятно, причем тут вообще типы данных? мне просто нужно, чтобы последовательно могли выполняться более трех действий одновременно. а не посредством нажатия кнопки "=", чтобы повторялось предыдущее действие
если можете, то объясните хоть на словах с помощью чего это можно сделать, полжалуйста.. . Очень надо
_Код (часть) ______
Private Sub equally_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equally.Click
y = txt.Text
If order = 1 Then z = x + y
If order = 2 Then z = x - y
If order = 3 Then z = x * y
If order = 4 Then z = x / y
txt.Text = z
If (x / 0 = z) Then
txt.Text = " "
MsgBox("На ноль делить нельзя!", MsgBoxStyle.Information, "Ошибка")
End If
If x = "" Or y = "" Then txt.Text = ""
MsgBox("Введите данные")
End Sub
_____
Private Sub plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plus.Click
x = txt.Text
txt.Text = ""
order = 1
End Sub
|
