jueves, 29 de marzo de 2012
lunes, 19 de marzo de 2012
Actividades de Recuperación PERIODO II
3/19/2012 10:44:00 p. m.
3 comments
Grados 6 A-B
Realizar una animación en PivotX Animator, donde represente la vida de San Francisco de Asís, debe realizar los respectivos fondos para toda la animación. Fecha de entrega Viernes 23 de Marzo.
Grados 8 A-B-C
Realizar una animación en PivotX Animator, donde represente la vida de San Francisco de Asís, debe realizar los respectivos fondos para toda la animación en Corel Draw. Fecha de entrega Viernes 23 de Marzo.
Grado 9C
Realizar una animación en PivotX Animator, donde represente la vida de San Francisco de Asís, debe realizar los respectivos fondos para toda la animación. Fecha de entrega Viernes 23 de Marzo.
Grados 8 A-B-C
Realizar una animación en PivotX Animator, donde represente la vida de San Francisco de Asís, debe realizar los respectivos fondos para toda la animación en Corel Draw. Fecha de entrega Viernes 23 de Marzo.
Realizar las siguientes actividades en Adobe Photoshop. Fecha de entrega Viernes 23 de Marzo. Debe Sustentar Individualmente.
Grado 9C
Realizar una enciclopedia sobre el cuerpo humano en Visual Basic 6.0. Fecha de entrega Viernes 23 de Marzo. Debe Sustentar Individualmente.
martes, 6 de marzo de 2012
Calculadora en Visual Basic 6.0
Dim num1 As Double
Dim num2 As Double
Dim signo As String
Private Sub Borrar_Click()
Text1.Text = ""
End Sub
Private Sub Sumar_Click()
signo = "+"
num1 = Text1.Text
Text1.Text = ""
End Sub
Private Sub Restar_Click()
signo = "-"
num1 = Text1.Text
Text1.Text = ""
End Sub
Private Sub Multiplicar_Click()
signo = "X"
num1 = Text1.Text
Text1.Text = ""
End Sub
Private Sub Dividir_Click()
signo = "/"
num1 = Text1.Text
Text1.Text = ""
End Sub
Private Sub Igual_Click()
num2 = Text1.Text
If signo = "+" Then
Text1.Text = num1 + num2
End If
If signo = "-" Then
Text1.Text = num1 - num2
End If
If signo = "X" Then
Text1.Text = num1 * num2
End If
If signo = "/" Then
If num2 = 0 Then
MsgBox "Error"
Text1.Text = ""
Else
Text1.Text = num1 / num2
End If
End If
If signo = "^" Then
Text1.Text = num1 ^ num2
End If
End Sub
Private Sub SQR_Click()
num1 = Text1.Text
Text1.Text = Sqr(num1)
End Sub
Private Sub Porcentaje_Click()
num2 = Text1.Text
Text1.Text = (num1 * num2) / 100
End Sub
Private Sub Potencia_Click()
signo = "^"
num1 = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text + Command1(Index).Caption
End Sub
lunes, 5 de marzo de 2012
Suscribirse a:
Entradas (Atom)