Изменить калькулятор, чтобы данные вводились в одну строку - VB
Формулировка задачи:
Я сделал калькулятор, он работает, но я хочу переделать его так чтобы все данные вводились в 1 строчку а не в 2 как у меня, тоесть вводишь 1 число нажимаешь + и второе число, а у меня надо ввести 2 числа и потом только +, кто знает помогите пожалуйста!
вот код моего
Листинг программы
- Public Class Form1
- Dim n As Long
- Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox2.Text = "" Then MsgBox("Введите первое число")
- If TextBox3.Text = "" Then MsgBox("Введите второе число")
- TextBox1.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
- End Sub
- Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
- If Len(TextBox2.Text) > 40 Then MsgBox("Много знаков")
- End Sub
- Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
- If Len(TextBox2.Text) > 40 Then MsgBox("Много знаков")
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- If TextBox2.Text = "" Then MsgBox("Введите первое число")
- If TextBox3.Text = "" Then MsgBox("Введите второе число")
- TextBox1.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- If TextBox2.Text = "" Then MsgBox("Введите первое число")
- If TextBox3.Text = "" Then MsgBox("Введите второе число")
- TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- If TextBox2.Text = "" Then MsgBox("Введите первое число")
- If TextBox3.Text = "" Then MsgBox("Введите второе число")
- If TextBox2.Text > 0 Then TextBox1.Text = Val(TextBox2.Text) / Val(TextBox3.Text)
- If TextBox3.Text = 0 Then TextBox1.Text = "На нуль делить нельзя"
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- If TextBox2.Text = "" Then MsgBox("Введите число")
- TextBox1.Text = Math.Sin(Val(TextBox2.Text))
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- If TextBox2.Text = "" Then MsgBox("Введите число")
- TextBox1.Text = Math.Cos(Val(TextBox2.Text))
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- If TextBox2.Text = "" Then MsgBox("Введите число")
- TextBox1.Text = Math.Tan(Val(TextBox2.Text))
- End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
- If TextBox2.Text = "" Then MsgBox("Введите число")
- TextBox1.Text = Math.Sqrt(Val(TextBox2.Text))
- End Sub
- Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
- If TextBox2.Text = "" Then MsgBox("Введите число")
- If TextBox3.Text = "" Then MsgBox("Введите Степень числа")
- TextBox1.Text = Val(TextBox2.Text) ^ Val(TextBox3.Text)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
- End Sub
- Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
- If TextBox2.Text = "" Then MsgBox("Введите число")
- n = TextBox2.Text
- TextBox1.Text = fakt(n)
- End Sub
- Function fakt(ByVal n)
- If n = 1 Then fakt = 1 Else fakt = fakt(n - 1) * n
- End Function
- Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
- End Sub
- End Class
Решение задачи: «Изменить калькулятор, чтобы данные вводились в одну строку»
textual
Листинг программы
- If znak = "/" Then TextBox1.Text = temp / Val(TextBox2.Text)
- If znak = "^" Then TextBox1.Text = temp ^ Val(TextBox2.Text)
- If znak = "-" Then TextBox1.Text = temp - Val(TextBox2.Text)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д