CONALEP #165 LIC."JESUS REY HEROLES"
NOMBRE:
ARLETTE LEDESMA TELESFORO
MODULO:
PROGRAMACIN PARA EQUIPO MOVIL
PROFESOR:
MIGUEL ANGEL RAMOS GRANDE
GRUPO Y CARRERA:
504 INFORMATICA
PRIMERO QUE NADA EN ESTA PANTALLA QUE MUESTRA SIGUIENTE ES LA PANTALLA DONDE SE ESTA PRIMERO EJECUTANDO.
LA SIGUIENTE ES LA PATALLA PRINCIPAL DE LA EJECUCCION DE MI PRACTICA EN EL QUE SE MUESTRA ES UN ME PRINCIPAL DL JEDREZ DONDE SE MOTRARA TEXTO DELA INFORMACION DEL AJEDREZ.
BOTON DONDE TU DECEAS DARLE CLICK EN CUAQUIERA TE MANDARA INFORMACON DADA SEGUN LA OPCION DECEADA.
EN EL CUAL SE ELEJIO LA PRIMERA QUE NOS DICE QUE ES EL AJEDREZ Y NOS MANDO A LA PANTALLA DE LA INFORMACION.
OTRA ES TAMBIEN LA INFORMACI E L DESCRIPCION DEL TABLERO.
EL PROPOSITO DEL JUEGO
DESCRIPCION DE CADA PIEZA
REGLAS Y MOVMIENTOS.
COMO SE JUEGA
EN LA PRTE DE ABAJO DE CADA PANTALLA HAY UN BOTN .EN EL CUAL DICE SALIR Y DESPUES CERRAR PANTALLA EN EL CUAL NOS REGRESARA A LA PANTALLA EL MENU
ESTE ES EL CODIGO UTILIZADO
Prac1
CODIGO DEL MENU PRINCIPAL DE BOTON DE OPCIONES.
Public Class Form1
Private Sub
MenuItem2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MenuItem2.Click
Me.Visible = False
Form2.Visible =
True
End Sub
Private Sub
MenuItem3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MenuItem3.Click
Me.Visible = False
Form3.Visible =
True
End Sub
Private Sub
MenuItem4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MenuItem4.Click
Me.Visible = False
Form4.Visible =
True
End Sub
Private Sub
MenuItem5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MenuItem5.Click
Me.Visible = False
Form5.Visible =
True
End Sub
Private Sub
MenuItem6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MenuItem6.Click
End Sub
Private Sub
MenuItem7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MenuItem7.Click
End Sub
ES EL CODIGO DE SALIR DE CADA PANTALLA DE OPCIONES.
Private Sub
MenuItem8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MenuItem8.Click
Close()
End Sub
End Class
APENAS EJECUTANDOSE
PANTALLA DONDE AREMOSL ECUACION CUADRATICA DANDO X1 Y X2
EN EL CUAL INSERTAMOS LOS VALORES A,B,C
A DARLE CLICK EN ACEPTAR NOS DARA X1 Y X2
NOS DIRA CON UN MENSAJE ES UNA ECUACION CUADRATICA CUANDO LE DES CLICK EN EL BOTON ACEPTAR.
DESPUES E DARLE CLICK EN OK ,INSERTAMOS OTRO CANTIDAD DE NUMEROS, CLICK ACEPTAR
MENSAJE NOS DICE CERO ,, OK SALIR
CODIGO
Prac2 BOTON ACEPTAR......
Public Class Form1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
Dim x1, x2 As Integer
Dim a, b, c As Integer
a =
Val(TextBox1.Text)
b =
Val(TextBox2.Text)
c =
Val(TextBox3.Text)
If a = 0 Then
MsgBox("cero")
End If
If (b * b - 4 * a * c) < 0 Then
MsgBox("ecuacion cuadratica")
Else
x1 = (-b -
((Math.Sqrt(b * b - 4 * a * c)) / (2 * a)))
x2 = (-b +
((Math.Sqrt(b * b - 4 * a * c)) / (2 * a)))
Label7.Text
= Str(x1)
Label8.Text
= Str(x2)
End If
End Sub
Private Sub
Label7_ParentChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Label7.ParentChanged
End Sub
BOTON SALIR
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
Close()
End Sub
End Class