Ayuda COMO REALIZAR CALCULADORA EN WEBSERVICE VB.NET
Publicado por luis (1 intervención) el 02/02/2021 07:42:46
Hola amigos, solicito de su ayuda y asesoria para validar en que me equivoque, les comento es una practica de la escuela de hacer una calculadora basica pero con web service en visual basic .NET pero al compilar me manda un error que no logro solucionar. Solicito de su ayuda por favor.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Public Class WebCalculadora
Inherits System.Web.UI.Page
Dim aux As wsCalculadora.WebService1SoapClientProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack ThenSession("Acumulador") = 0
Session("operador") = 0 '1 suma, 2 = resta, 3=multiplicacion,4=division
End If
End Sub
Sub cargar(ByVal num$)
If txtpantalla.Text = "0.00" Then txtpantalla.Text = ""
txtpantalla.Text &= num
End Sub
Sub Acomular()
'se acomulan los valores antes de pulsar el boton igualSession("Acumulador") = Session("Acumulador") + Convert.ToInt32(txtpantalla.Text)
End Sub
Protected Sub btn0_Click(sender As Object, e As EventArgs) Handles btn0.Click
cargar(btn0.Text)
End Sub
Protected Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
cargar(btn1.Text)
End Sub
Protected Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
cargar(btn2.Text)
End Sub
Protected Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
cargar(btn3.Text)
End Sub
Protected Sub btn4_Click(sender As Object, e As EventArgs) Handles btn4.Click
cargar(btn4.Text)
End Sub
Protected Sub btn5_Click(sender As Object, e As EventArgs) Handles btn5.Click
cargar(btn5.Text)
End Sub
Protected Sub btn6_Click(sender As Object, e As EventArgs) Handles btn6.Click
cargar(btn6.Text)
End Sub
Protected Sub btn7_Click(sender As Object, e As EventArgs) Handles btn7.Click
cargar(btn7.Text)
End Sub
Protected Sub btn8_Click(sender As Object, e As EventArgs) Handles btn8.Click
cargar(btn8.Text)
End Sub
Protected Sub btn9_Click(sender As Object, e As EventArgs) Handles btn9.Click
cargar(btn9.Text)
End Sub
Protected Sub btnSuma_Click(sender As Object, e As EventArgs) Handles btnSuma.Click
Acomular()
Session("Operador") = 1
txtpantalla.Text = ""
End Sub
Protected Sub btnResta_Click(sender As Object, e As EventArgs) Handles btnResta.Click
Acomular()
Session("Operador") = 2
txtpantalla.Text = ""
End Sub
Protected Sub btnMulti_Click(sender As Object, e As EventArgs) Handles btnMulti.Click
Acomular()
Session("Operador") = 3
txtpantalla.Text = ""
End Sub
Protected Sub btnDividir_Click(sender As Object, e As EventArgs) Handles btnDividir.Click
Acomular()
Session("Operador") = 4
txtpantalla.Text = ""
End Sub
Protected Sub btnIgual_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIgual.Click
'Según el operador se ejecuta el llamado a la función 'del servicio Web(Sumar, Restar, Multiplicar, Dividir)Select Case Session("operador")
Case 1 : Session("Acumulador") = aux.Sumar(Session("Acumulador"), Convert.ToInt32(txtpantalla.Text))
Case 2 : Session("Acumulador") = aux.Restar(Session("Acumulador"), Convert.ToInt32(txtpantalla.Text))
Case 3 : Session("Acumulador") = aux.Multiplicar(Session("Acumulador"), Convert.ToInt32(txtpantalla.Text))
Case 4 : Session("Acumulador") = aux.Dividir(Session("Acumulador"), Convert.ToInt32(txtpantalla.Text))
End Select
txtpantalla.Text = ""
txtpantalla.Text = Session("Acumulador")
Session("Acumulador") = 0
End Sub
Protected Sub btnC_Click(sender As Object, e As EventArgs) Handles btnC.Click
Session("Acumulador") = 0
txtpantalla.Text = "0.00"
End Sub
End Class
Valora esta pregunta
0
