Informe De Programacion Tablas Magicas
Unidad Académica de Ciencias Informática y Sistemas Carrera de Ingeniería en Sistemas Computacionales
TABLAS MAGICAS
Cynthia Bedoya Barreto DESCRIPCIÓN DELEJERCICIO
El ejercicio tiene como fin usar unas tablas creadas matemáticamente para que se pueda adivinar el número escogido por el usuario, el truco de las tablas es sumar el primer digito de latabla en donde se encuentra en número que se pensó y así se obtiene un número que casualmente es el que se pensó…
OBJETIVOS
Sorprender y entretener al usuario Aprender a usar la lógica numéricaen mi caso a través de contadores
DESARROLLO DEL EJERCICIO
Public Class FrmTablasmagicas Dim cont As Short Private Sub borrar() Lbnumero.Text = " " label.Visible = False Btsorpresa.Visible =False Cktabla1.Checked = False Cktabla2.Checked = False Cktabla3.Checked = False Cktabla4.Checked = False Cktabla5.Checked = False Cktabla6.Checked = False Cktabla7.Checked = False End Sub Private SubFrmTablasmagicas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub btadivina_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btadivina.Click MsgBox("Manten el numero que pensaste en tu mente... cuando estes listo acepta!!") If Cktabla1.Checked = True Then cont = 1 End If If Cktabla2.Checked = True Then
1
CynthiaBedoya
3° Semestre
UNIVERSIDAD ESTATAL DEL SUR DE MANABI
Unidad Académica de Ciencias Informática y Sistemas Carrera de Ingeniería en Sistemas Computacionales cont = cont + 2 End If IfCktabla3.Checked = True Then cont = cont + 4 End If If Cktabla4.Checked = True Then cont = cont + 8 End If If Cktabla5.Checked = True Then cont = cont + 16 End If If Cktabla6.Checked = True Then cont = cont +32 End If If Cktabla7.Checked = True Then cont = cont + 64 End If If cont > 99 Then MsgBox("Revisa bien las tablas te equivocaste",MsgBoxStyle.Information) borrar() Else Lbnumero.Text = cont...
Regístrate para leer el documento completo.