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 publicare :P

Este 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 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 Sub
  21.  
  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.         Else
  42.             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 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 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 As System.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.         val2 = 0
  110.         r.Text = ""
  111.         r.Focus()
  112.     End Sub
  113.  
  114.     Private Sub txtigual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtigual.Click
  115.         val2 = Val(r.Text)
  116.         Select Case oper
  117.             Case "+"
  118.                 val1 += val2
  119.             Case "-"
  120.                 val1 -= val2
  121.             Case "*"
  122.                 val1 *= val2
  123.             Case "/"
  124.                 val1 /= val2
  125.         End Select
  126.         r.Text = val1
  127.         banR = 1
  128.         ban = 1
  129.         ban_br = 1
  130.     End Sub
  131.  
  132.     Private Sub txtadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtadd.Click
  133.         If ban = 0 Then
  134.             val1 = Val(r.Text)
  135.             oper = "+"
  136.             r.Text = ""
  137.             r.Focus()
  138.             ban = 1
  139.         Else
  140.             val2 = Val(r.Text)
  141.             If ban_br = 1 Then 'si ya presiono el boton de =
  142.                 ban_br = 0
  143.             Else
  144.                 Select Case oper
  145.                     Case "+"
  146.                         val1 += val2
  147.                     Case "-"
  148.                     Case "*"
  149.                     Case "/"
  150.                 End Select
  151.             End If
  152.             oper = "+"
  153.             r.Text = val1
  154.             banR = 1
  155.         End If
  156.     End Sub
  157.  
  158.     Private Sub txtsub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtsub.Click
  159.         If ban = 0 Then
  160.             val1 = Val(r.Text)
  161.             oper = "-"
  162.             r.Text = ""
  163.             r.Focus()
  164.             ban = 1
  165.         Else
  166.             val2 = Val(r.Text)
  167.             If ban_br = 1 Then 'si ya presiono el boton de =
  168.                 ban_br = 0
  169.             Else
  170.                 Select Case oper
  171.                     Case "+"
  172.                         val1 += val2
  173.                     Case "-"
  174.                     Case "*"
  175.                     Case "/"
  176.                 End Select
  177.             End If
  178.             oper = "-"
  179.             r.Text = val1
  180.             banR = 1
  181.         End If
  182.     End Sub
  183.  
  184.     Private Sub txtmul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtmul.Click
  185.         If ban = 0 Then
  186.             val1 = Val(r.Text)
  187.             oper = "*"
  188.             r.Text = ""
  189.             r.Focus()
  190.             ban = 1
  191.         Else
  192.             val2 = Val(r.Text)
  193.             If ban_br = 1 Then 'si ya presiono el boton de =
  194.                 ban_br = 0
  195.             Else
  196.                 Select Case oper
  197.                     Case "+"
  198.                         val1 += val2
  199.                     Case "-"
  200.                     Case "*"
  201.                     Case "/"
  202.                 End Select
  203.             End If
  204.             oper = "*"
  205.             r.Text = val1
  206.             banR = 1
  207.         End If
  208.     End Sub
  209.  
  210.     Private Sub txtdiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdiv.Click
  211.         If ban = 0 Then
  212.             val1 = Val(r.Text)
  213.             oper = "/"
  214.             r.Text = ""
  215.             r.Focus()
  216.             ban = 1
  217.         Else
  218.             val2 = Val(r.Text)
  219.             If ban_br = 1 Then 'si ya presiono el boton de =
  220.                 ban_br = 0
  221.             Else
  222.                 Select Case oper
  223.                     Case "+"
  224.                         val1 += val2
  225.                     Case "-"
  226.                     Case "*"
  227.                     Case "/"
  228.                 End Select
  229.             End If
  230.             oper = "/"
  231.             r.Text = val1
  232.             banR = 1
  233.         End If
  234.     End Sub
  235.  
  236.     Private Sub txtpunto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtpunto.Click
  237.         If buscar(r.Text, ".") = True Then
  238.             r.Text &= "."
  239.         End If
  240.     End Sub
  241. End Class

Descarga