Tareas

Solo disponible en BuenasTareas
  • Páginas : 4 (849 palabras )
  • Descarga(s) : 0
  • Publicado : 3 de septiembre de 2012
Leer documento completo
Vista previa del texto
Calculadora en vb

Private Sub CommandButton1_Click()

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text =Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command4_Click()
If Val(Text2.Text) > 0 Then
Text3.Text= Val(Text1.Text) / Val(Text2.Text)
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "+"
Command2.Caption = "-"
Command3.Caption = "*"
Command4.Caption = "/"
Text1.Text = "10"Text2.Text = "2"
Text3.Text = ""
End Sub
End Sub
Codigo para salir de exel
Private Sub CommandButton1_Click()
x = MsgBox("Desea salir de exel", vbYesNo + vbQuestion, "Dawer")
If x = vbYes ThenApplication.Quit
End If


End Sub
Comando para salir de una aplicacion

Vbok 1 aceptar
Vbcancel 2 cancelar
Vbabort 3 anular
Vbignore 4 ignorar
Vbretry 5 reintentar

Proyecto 2 paraExcel
1.Una macro que agá la función capi pece
2. aser una macro que aga uso del ciclo for
3.ciclo while
4.otro con with
5.otro for each
Dsede mi cielo mago de oz
Ahora que está todo ensilencio
y que la calma me besa el corazón
os quiero decir adiós
porque ha llegado la hora
de que andéis el camino ya sin mi,
hay tanto por lo que vivir
no llores cielo y vuélvete a enamorarme gustaría volver a verte sonreír

Pero mi vida
yo nunca podré olvidarte
y sólo el viento sabe
lo que has sufrido por amarme
hay tantas cosas
que nunca te dije en vida
que eres todocuanto amo
y ahora que ya no estoy junto a ti
te cuidaré desde aquí

Sé que la culpa os acosa
y os susurra al oído: “pude hacer más”
no hay nada que reprochar
ya no hay demonios
en elfondo del cristal
y sólo bebo todos los besos
que no te di

Pero mi vida
yo nunca podré olvidarte
y sólo el viento sabe
lo que has sufrido por amarme
hay tantas cosas
que nunca te dije...
tracking img