Java

PLAIN TEXT
VB.NET:
1. Public Class Form1
2.     Function buscar(ByVal txtval As String, ByVal car As Char) As Boolean
3.         Dim b As Integer
4.         For b = 1 To txtval.Length
5.             If Convert.ToChar(Mid(txtval, b, 1)) = car Then
6.                 Return False
7.             End If
8.         Next
9.         Return True
10.     EndFunction
11.     Dim val1, val2 As Double
12.     Dim banR, ban, ban_br As Integer
13.     Dim oper As String
14.     Private Sub txt0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt0.Click
15.         If banR = 0 Then
16.             r.Text &= "0"
17.         Else
18.             r.Text = "0"
19.         End If
20.     End Sub21.  
22.     Private Sub txt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.Click
23.         If banR = 0 Then
24.             r.Text &= "1"
25.         Else
26.             r.Text = "1"
27.         End If
28.     End Sub
29.  
30.     Private Sub txt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles txt2.Click
31.         If banR = 0 Then
32.             r.Text &= "2"
33.         Else
34.             r.Text = "2"
35.         End If
36.     End Sub
37.  
38.     Private Sub txt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt3.Click
39.         If banR = 0 Then
40.             r.Text &= "3"
41.         Else42.             r.Text = "3"
43.         End If
44.     End Sub
45.  
46.     Private Sub txt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt4.Click
47.         If banR = 0 Then
48.             r.Text &= "4"
49.         Else
50.             r.Text = "4"
51.         End If
52.     End Sub
53.  
54.     Private Subtxt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt5.Click
55.         If banR = 0 Then
56.             r.Text &= "5"
57.         Else
58.             r.Text = "5"
59.         End If
60.     End Sub
61.  
62.     Private Sub txt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt6.Click
63.        If banR = 0 Then
64.             r.Text &= "6"
65.         Else
66.             r.Text = "6"
67.         End If
68.     End Sub
69.  
70.     Private Sub txt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt7.Click
71.         If banR = 0 Then
72.             r.Text &= "7"
73.         Else
74.             r.Text = "7"75.         End If
76.     End Sub
77.  
78.     Private Sub txt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt8.Click
79.         If banR = 0 Then
80.             r.Text &= "8"
81.         Else
82.             r.Text = "8"
83.         End If
84.     End Sub
85.  
86.     Private Sub txt9_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles txt9.Click
87.         If banR = 0 Then
88.             r.Text &= "9"
89.         Else
90.             r.Text = "9"
91.         End If
92.     End Sub
93.  
94.     Private Sub txtce_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtce.Click
95.         oper = ""
96.         val2= 0
97.         r.Text = ""
98.         banR = 0
99.         ban_br = 0
100.         r.Focus()
101.     End Sub
102.  
103.     Private Sub txtc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtc.Click
104.         banR = 0
105.         ban = 0
106.         ban_br = 0
107.         oper = ""
108.         val1 = 0
109....