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 |