Calculadora en visual basic

Como hacer una Calculadora en Visual Basic .Net (vb)
28Jan2008 Archivado en: Programación, Visual Basic Autor: Angel López
Hola amigos:
Ahora continuare con los programas hechos en Visual Basic .Net 2005 los cuales hoy en día si son de mucha utilidad ya que este entorno de desarrollo se esta utilizando mucho y por lo tanto estos programas te pueden sacar de alguna duda así que los publicareEste programa es una calculadora muy similar a la que viene con el Windows XP o el Windows Vista. Contiene los mismos botones y funciona muy parecido.
Al correrlo, el programa luce así:

y el código es este (al final puedes descargar los archivos):

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.     End Function
11.     Dim val1, val2 As Double
12.     Dim banR, ban, ban_br As Integer
13.     Dim oper As String
14.     Private Subtxt0_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 Sub
21.  
22.     Private Sub txt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt1.Click
23.         IfbanR = 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.         Else
42.             r.Text = "3"
43.         End If
44.     End Sub
45.  
46.     Private Sub txt4_Click(ByVal sender AsSystem.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 Sub txt5_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 AsSystem.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 As System.Object, ByVal e As System.EventArgs) Handles txt9.Click
87.         If banR = 0 Then
88.             r.Text &= "9"
89.      ...