sábado, 19 de septiembre de 2009
CODIGO (CALCULADORA)
Public Class Form1
Dim n1, n2 As Double
Dim opera As Integer
Dim resp As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + Str(1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + Str(2)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text + Str(3)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text + Str(4)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text + Str(5)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text + Str(6)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text + Str(7)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text + Str(8)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text + Str(9)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
n1 = Val(TextBox1.Text)
opera = 1
TextBox1.Text = " "
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
n1 = Val(TextBox1.Text)
opera = 2
TextBox1.Text = " "
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
n1 = Val(TextBox1.Text)
opera = 3
TextBox1.Text = " "
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
n1 = Val(TextBox1.Text)
opera = 4
TextBox1.Text = " "
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
resp = 0
n2 = Val(TextBox1.Text)
If (opera = 1) Then
resp = n1 * n2
TextBox1.Text = resp
End If
If (opera = 2) Then
resp = n1 / n2
TextBox1.Text = resp
End If
If (opera = 3) Then
resp = n1 + n2
TextBox1.Text = resp
End If
If (opera = 4) Then
resp = n1 - n2
TextBox1.Text = resp
End If
If (opera = 5) Then
resp = n1 ^ n2
TextBox1.Text = resp
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = (" ")
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 Mod 2
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Dim raiz As Double
n1 = Val(TextBox1.Text)
raiz = Math.Sqrt(n1)
TextBox1.Text = raiz
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim inver As Double
n1 = Val(TextBox1.Text)
inver = 1 / n1
TextBox1.Text = inver
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 ^ 2
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 ^ 3
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
n1 = Val(TextBox1.Text)
opera = 5
TextBox1.Text = " "
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = 0 - n1
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Dim sin As Double
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
sin = Math.Sin(Math.PI / den)
If (n1 > 180) Then
resp = 0
End If
TextBox1.Text = sin
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
Dim cos As Double
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
cos = Math.Cos(Math.PI / den)
TextBox1.Text = cos
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
Dim tan As Double
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
tan = Math.Tan(Math.PI / den)
TextBox1.Text = tan
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Dim pi As Double
n1 = Val(TextBox1.Text)
pi = Math.PI
TextBox1.Text = pi
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
Dim fac As Double
n1 = Val(TextBox1.Text)
fac = 1
While (n1 <> 0)
fac = fac * n1
n1 = n1 - 1
TextBox1.Text = fac
End While
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
TextBox1.Text = TextBox1.Text + Str(0)
End Sub
End Class
Dim n1, n2 As Double
Dim opera As Integer
Dim resp As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text + Str(1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + Str(2)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text + Str(3)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text + Str(4)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text + Str(5)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text + Str(6)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text + Str(7)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text + Str(8)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text + Str(9)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
n1 = Val(TextBox1.Text)
opera = 1
TextBox1.Text = " "
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
n1 = Val(TextBox1.Text)
opera = 2
TextBox1.Text = " "
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
n1 = Val(TextBox1.Text)
opera = 3
TextBox1.Text = " "
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
n1 = Val(TextBox1.Text)
opera = 4
TextBox1.Text = " "
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
resp = 0
n2 = Val(TextBox1.Text)
If (opera = 1) Then
resp = n1 * n2
TextBox1.Text = resp
End If
If (opera = 2) Then
resp = n1 / n2
TextBox1.Text = resp
End If
If (opera = 3) Then
resp = n1 + n2
TextBox1.Text = resp
End If
If (opera = 4) Then
resp = n1 - n2
TextBox1.Text = resp
End If
If (opera = 5) Then
resp = n1 ^ n2
TextBox1.Text = resp
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = (" ")
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 Mod 2
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Dim raiz As Double
n1 = Val(TextBox1.Text)
raiz = Math.Sqrt(n1)
TextBox1.Text = raiz
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim inver As Double
n1 = Val(TextBox1.Text)
inver = 1 / n1
TextBox1.Text = inver
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 ^ 2
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = n1 ^ 3
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
n1 = Val(TextBox1.Text)
opera = 5
TextBox1.Text = " "
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
n1 = Val(TextBox1.Text)
TextBox1.Text = 0 - n1
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
Dim sin As Double
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
sin = Math.Sin(Math.PI / den)
If (n1 > 180) Then
resp = 0
End If
TextBox1.Text = sin
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
Dim cos As Double
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
cos = Math.Cos(Math.PI / den)
TextBox1.Text = cos
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
Dim tan As Double
Dim den As Double
n1 = Val(TextBox1.Text)
den = 180 / n1
tan = Math.Tan(Math.PI / den)
TextBox1.Text = tan
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
Dim pi As Double
n1 = Val(TextBox1.Text)
pi = Math.PI
TextBox1.Text = pi
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
Dim fac As Double
n1 = Val(TextBox1.Text)
fac = 1
While (n1 <> 0)
fac = fac * n1
n1 = n1 - 1
TextBox1.Text = fac
End While
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
TextBox1.Text = TextBox1.Text + Str(0)
End Sub
End Class
codigo( PROGRAMA DEL SUELDO)
Public Class Form1
Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sb As Double
Dim v1 As Double
Dim v2 As Double
Dim v3 As Double
Dim comi As Double
Dim st As Double
sb = TextBox5.Text
v1 = TextBox2.Text
v2 = TextBox3.Text
v3 = TextBox4.Text
comi = ((v1 + v2 + v3) * 0.1)
TextBox6.Text = comi
st = (sb + comi)
TextBox7.Text = st
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sb As Double
Dim v1 As Double
Dim v2 As Double
Dim v3 As Double
Dim comi As Double
Dim st As Double
sb = TextBox5.Text
v1 = TextBox2.Text
v2 = TextBox3.Text
v3 = TextBox4.Text
comi = ((v1 + v2 + v3) * 0.1)
TextBox6.Text = comi
st = (sb + comi)
TextBox7.Text = st
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
viernes, 11 de septiembre de 2009
miércoles, 19 de agosto de 2009
sábado, 1 de agosto de 2009
funciones en c++
pasar de grados celcius a farengei y de grados farengei a celcius:
*cordenadas:
Programa que ejecuta las cuatro operaciones básicas:
Suscribirse a:
Entradas (Atom)