Arduino

Hardware y software libre al servicio de la comunidad.

Scratch

Entorno de programación para fortalecer el pensamiento computacional.

App Inventor

Lenguaje de programación para dispositivos móviles.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

jueves, 29 de marzo de 2012

Face Off Photoshop

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.

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

Correccion de arrugas en Photoshop CS3