jueves, 29 de marzo de 2012

Face Off Photoshop

Leer Mas

miércoles, 28 de marzo de 2012

Mi primer juego en Game Maker

Leer Mas

martes, 27 de marzo de 2012

StickMan en Macromedia Flash 8

Leer Mas

lunes, 19 de marzo de 2012

Actividades de Recuperación PERIODO II

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.

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.
Leer Mas

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

Leer Mas

lunes, 5 de marzo de 2012

Correccion de arrugas en Photoshop CS3

Leer Mas

jueves, 1 de marzo de 2012

Bart Simpson en PIXIA

Colorear el siguiente dibujo utilizando las herramientas de PIXIA


Leer Mas