Изменить калькулятор, чтобы данные вводились в одну строку - VB

Узнай цену своей работы

Формулировка задачи:

Я сделал калькулятор, он работает, но я хочу переделать его так чтобы все данные вводились в 1 строчку а не в 2 как у меня, тоесть вводишь 1 число нажимаешь + и второе число, а у меня надо ввести 2 числа и потом только +, кто знает помогите пожалуйста! вот код моего
Листинг программы
  1. Public Class Form1
  2. Dim n As Long
  3. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  4. End Sub
  5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  6. If TextBox2.Text = "" Then MsgBox("Введите первое число")
  7. If TextBox3.Text = "" Then MsgBox("Введите второе число")
  8. TextBox1.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
  9. End Sub
  10. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
  11. If Len(TextBox2.Text) > 40 Then MsgBox("Много знаков")
  12. End Sub
  13. Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
  14. If Len(TextBox2.Text) > 40 Then MsgBox("Много знаков")
  15. End Sub
  16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  17. If TextBox2.Text = "" Then MsgBox("Введите первое число")
  18. If TextBox3.Text = "" Then MsgBox("Введите второе число")
  19. TextBox1.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
  20. End Sub
  21. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  22. If TextBox2.Text = "" Then MsgBox("Введите первое число")
  23. If TextBox3.Text = "" Then MsgBox("Введите второе число")
  24. TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
  25. End Sub
  26. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  27. If TextBox2.Text = "" Then MsgBox("Введите первое число")
  28. If TextBox3.Text = "" Then MsgBox("Введите второе число")
  29. If TextBox2.Text > 0 Then TextBox1.Text = Val(TextBox2.Text) / Val(TextBox3.Text)
  30. If TextBox3.Text = 0 Then TextBox1.Text = "На нуль делить нельзя"
  31. End Sub
  32. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  33. If TextBox2.Text = "" Then MsgBox("Введите число")
  34. TextBox1.Text = Math.Sin(Val(TextBox2.Text))
  35. End Sub
  36. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  37. If TextBox2.Text = "" Then MsgBox("Введите число")
  38. TextBox1.Text = Math.Cos(Val(TextBox2.Text))
  39. End Sub
  40. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  41. If TextBox2.Text = "" Then MsgBox("Введите число")
  42. TextBox1.Text = Math.Tan(Val(TextBox2.Text))
  43. End Sub
  44. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  45. If TextBox2.Text = "" Then MsgBox("Введите число")
  46. TextBox1.Text = Math.Sqrt(Val(TextBox2.Text))
  47. End Sub
  48. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
  49. If TextBox2.Text = "" Then MsgBox("Введите число")
  50. If TextBox3.Text = "" Then MsgBox("Введите Степень числа")
  51. TextBox1.Text = Val(TextBox2.Text) ^ Val(TextBox3.Text)
  52. End Sub
  53. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  54. End Sub
  55. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
  56. End Sub
  57. Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
  58. If TextBox2.Text = "" Then MsgBox("Введите число")
  59. n = TextBox2.Text
  60. TextBox1.Text = fakt(n)
  61. End Sub
  62. Function fakt(ByVal n)
  63. If n = 1 Then fakt = 1 Else fakt = fakt(n - 1) * n
  64. End Function
  65. Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
  66. End Sub
  67. End Class

Решение задачи: «Изменить калькулятор, чтобы данные вводились в одну строку»

textual
Листинг программы
  1.         If znak = "/" Then TextBox1.Text = temp / Val(TextBox2.Text)
  2.         If znak = "^" Then TextBox1.Text = temp ^ Val(TextBox2.Text)
  3. If znak = "-" Then TextBox1.Text = temp - Val(TextBox2.Text)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы