viernes, 14 de noviembre de 2008

COMENTARIOS RESPECTO AL GRUPO


EL GRUPO, ES UNA PEQUEÑA COMUNIDAD MUY UNIDA PUES SE LE AYUDA AL QUE NESECITA ESA AYUDA, SIN PONERLE NINGUN OBSTACULO, ESTA COMUNIDAD ES UN POCO PEQUEÑA.
ESTA ES MUY AMIGALE, PUES A LA HORA DE COMPARTIR SON MUY AMPLIOS PUES NO LES IMPORTA QUE ELLOS TENGAN LO MISMO QUE UNO TIENE, PORQUE DE ESO EN REALIDAD SE TRATA LA COMUNIDAD DE COLABORARSEN LOS UNOS CON OTROS.

COMENTARIOS HACERCA DE LA MATERIA


RESPECTO A LA MATERIA ME PARESE QUE LA METODOLOGIA QUE IMPLANTA EL DOCENTE ES BUENA, DINAMICA PORQUE PRIMERO QUE TODO NOS HACE UNA GRAN INDUCCION HACERCA DEL TEMA QUE VAMOS O ESTAMOS VIENDO, MOSTRANDONOS VIDEOS HACERCA DE LA HISTORIA DE LAS GRANDES MULTINACIONALES QUE HAN INFLUIDO DEMASIADO EN LA HISTORIA DE LA COMPUTACION COMO APPLE.


CRONOGRAMA DE ACTIVIDADES

EL ANTERIOR CUADRO MUESTRA LAS ACTIVIDADES QUE SE DESARROLLARON DURANTE EL SEMESTRE, AL FRENTE LES MUESTRA EN QUE DIA SE SOLUCIONARON LOS ANTERIORES PROGRAMAS.

miércoles, 12 de noviembre de 2008

CREACION DEL MENU


Private Sub menu_cuadrado_Click()
FIG.Shape = square
menu_cuadrado.Checked = True
menu_circulo.Checked = False
End Sub

Private Sub menu_delgado_Click()
FIG.BorderWidth = 1
menu_delgado.Checked = True
menu_grueso.Checked = False
End Sub

Private Sub menu_grueso_Click()
FIG.BorderWidth = 20
menu_grueso.Checked = True
menu_delgado.Checked = False
End Sub

Private Sub menu_ovalo_Click()
FIG.Shape = oval
menu_cuadrado.Checked = False
menu_ovalo.Checked = True
End Sub


Private Sub menu_salir_Click()
End
End Sub


VALIDAR SI LOS NUMEROS SON IGUALES


Dim num1 As Integer
Dim num2 As Integer

Private Sub Command1_Click()
If num1 = num2 Then
Text3.Text = "LOS NUMEROS SON IGUALES"
ElseIf num1 > num2 Then
Text3.Text = num1
Else
Text3.Text = num2
End If
End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()
If Text1.Text <> " " Then
num1 = Val(Text1.Text)
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> " " Then
num2 = Val(Text2.Text)
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub

TABLAS DE MULTIPLICAR HASTA 1000



Dim num As Integer
Dim resultado As Double

Private Sub BOTONBORRAR_Click()
NUMERO.Text = " "
TABLA.Clear
NUMERO = 0
NUMERO.SetFocus
End Sub

Private Sub BOTONCALCULAR_Click()
If NUMERO.Text = " " Then
MsgBox "DEBE DIGITAR UN NUMERO", 16, "ERROR"
NUMERO.SetFocus
Else
For CONT = 1 To 1000
resultado = num * CONT
TABLA.AddItem " " & num & " x " & CONT & " = " & resultado
Next
End If
End Sub

Private Sub BOTONSALIR_Click()
End
End Sub

Private Sub NUMERO_Change()
If NUMERO.Text <> " " Then
num = NUMERO.Text
End If
End Sub

Private Sub NUMERO_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub

SOLUCIONES DE LA ECUACION


Dim b As Double
Dim c As Double
Dim h1 As Double
Dim x2 As Double
Dim a As Double
Dim res As Double


Private Sub Command1_Click()
If a < a =" a" b =" b" c =" c"> 0 Then
x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)

Text4.Text = x1
Text5.Text = x2
Else
MsgBox ("Los valores no son validos")

End If
ElseIf b * b - 4 * a * c > 0 Then
x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a)

Text4.Text = x1
Text5.Text = x2
Else
MsgBox ("Escriba bien los valores")
End If

End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text1.SetFocus
a = 0
b = 0
c = 0

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()
If Text1.Text <> " " Then
a = Val(Text1.Text)
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> " " Then
b = Val(Text2.Text)
End If
End Sub

Private Sub Text3_Change()
If Text3.Text <> " " Then
c = Val(Text3.Text)
End If
End Sub