Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - ellandax

#1
Bueno como primero este es un codigo que elabore en clase de un cuadro magico de 1 a 9. 3x3

Como puedo pasarlo a ciclo for ?



gracias :D




Código (vbnet) [Seleccionar]

Public Class Form1
Dim a(2, 2) As Integer
Dim sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8 As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
a(0, 0) = TextBox1.Text
a(0, 1) = TextBox2.Text
a(0, 2) = TextBox3.Text
a(1, 0) = TextBox4.Text
a(1, 1) = TextBox5.Text
a(1, 2) = TextBox6.Text
a(2, 0) = TextBox7.Text
a(2, 1) = TextBox8.Text
a(2, 2) = TextBox9.Text
sum1 = a(0, 0) + a(0, 1) + a(0, 2)
sum2 = a(1, 0) + a(1, 1) + a(1, 2)
sum3 = a(2, 0) + a(2, 1) + a(2, 2)
sum4 = a(0, 0) + a(1, 0) + a(2, 0)
sum5 = a(0, 1) + a(1, 1) + a(2, 1)
sum6 = a(0, 2) + a(1, 2) + a(2, 2)
sum7 = a(0, 0) + a(1, 1) + a(2, 2)
sum8 = a(0, 2) + a(1, 1) + a(2, 0)

If sum1 = 15 And sum2 = 15 And sum3 = 15 And sum4 = 15 And sum5 = 15 And sum6 = 15 And sum7 = 15 And sum8 = 15 Then
If a(0, 0) <> a(0, 1) Or a(0, 0) <> a(0, 2) Or a(0, 0) <> a(1, 0) Or a(0, 0) <> a(1, 1) Or a(0, 0) <> a(1, 2) Or a(0, 0) <> a(2, 0) Or a(0, 0) <> a(2, 1) Or a(0, 0) <> a(2, 2) Then
If a(0, 1) <> a(0, 0) Or a(0, 1) <> a(0, 2) Or a(0, 1) <> a(1, 0) Or a(0, 1) <> a(1, 1) Or a(0, 1) <> a(1, 2) Or a(0, 1) <> a(2, 0) Or a(0, 1) <> a(2, 1) Or a(0, 1) <> a(2, 2) Then
If a(0, 2) <> a(0, 0) Or a(0, 1) <> a(0, 2) Or a(0, 2) <> a(1, 0) Or a(0, 2) <> a(1, 1) Or a(0, 2) <> a(1, 2) Or a(0, 2) <> a(2, 0) Or a(0, 2) <> a(2, 1) Or a(0, 2) <> a(2, 2) Then
If a(1, 0) <> a(0, 0) Or a(0, 1) <> a(1, 0) Or a(0, 2) <> a(1, 0) Or a(1, 0) <> a(1, 1) Or a(1, 0) <> a(1, 2) Or a(1, 0) <> a(2, 0) Or a(1, 0) <> a(2, 1) Or a(1, 0) <> a(2, 2) Then
If a(1, 1) <> a(0, 0) Or a(0, 1) <> a(1, 1) Or a(0, 2) <> a(1, 1) Or a(1, 0) <> a(1, 1) Or a(1, 1) <> a(1, 2) Or a(1, 1) <> a(2, 0) Or a(1, 1) <> a(2, 1) Or a(1, 1) <> a(2, 2) Then
If a(1, 2) <> a(0, 0) Or a(0, 1) <> a(1, 2) Or a(0, 2) <> a(1, 2) Or a(1, 0) <> a(1, 2) Or a(1, 1) <> a(1, 2) Or a(1, 2) <> a(2, 0) Or a(1, 2) <> a(2, 1) Or a(1, 2) <> a(2, 2) Then
If a(2, 0) <> a(0, 0) Or a(0, 1) <> a(2, 0) Or a(0, 2) <> a(2, 0) Or a(1, 0) <> a(2, 0) Or a(1, 1) <> a(2, 0) Or a(1, 2) <> a(2, 0) Or a(2, 0) <> a(2, 1) Or a(2, 0) <> a(2, 2) Then
If a(2, 1) <> a(0, 0) Or a(0, 1) <> a(2, 1) Or a(0, 2) <> a(2, 1) Or a(1, 0) <> a(2, 1) Or a(1, 1) <> a(2, 1) Or a(1, 2) <> a(2, 1) Or a(2, 0) <> a(2, 1) Or a(2, 1) <> a(2, 2) Then
If a(2, 2) <> a(0, 0) Or a(0, 1) <> a(2, 2) Or a(0, 2) <> a(2, 2) Or a(1, 0) <> a(2, 2) Or a(1, 1) <> a(2, 2) Or a(1, 2) <> a(2, 2) Or a(2, 0) <> a(2, 2) Or a(2, 1) <> a(2, 2) Then
MsgBox("es un cuadro mágico")
End If
Else
MsgBox("no es un cuadro mágico hay numeros repetidos")
End If
Else
MsgBox("no es un cuadro mágico hay numeros repetidos")
End If
Else
MsgBox("no es un cuadro mágico hay numeros repetidos")

End If
Else
MsgBox("no es un cuadro mágico hay numeros repetidos")

End If
Else
MsgBox("no es un cuadro mágico hay numeros repetidos")
End If
Else
MsgBox("no es un cuadro mágico hay numeros repetidos")
End If

Else
MsgBox("no es un cuadro mágico hay numeros repetidos")
End If


Else
MsgBox("no es un cuadro mágico hay numeros repetidos")

End If
Else
If a(0, 0) <> a(0, 1) Or a(0, 0) <> a(0, 2) Or a(0, 0) <> a(1, 0) Or a(0, 0) <> a(1, 1) Or a(0, 0) <> a(1, 2) Or a(0, 0) <> a(2, 0) Or a(0, 0) <> a(2, 1) Or a(0, 0) <> a(2, 2) Then
If a(0, 1) <> a(0, 0) Or a(0, 1) <> a(0, 2) Or a(0, 1) <> a(1, 0) Or a(0, 1) <> a(1, 1) Or a(0, 1) <> a(1, 2) Or a(0, 1) <> a(2, 0) Or a(0, 1) <> a(2, 1) Or a(0, 1) <> a(2, 2) Then
If a(0, 2) <> a(0, 0) Or a(0, 1) <> a(0, 2) Or a(0, 2) <> a(1, 0) Or a(0, 2) <> a(1, 1) Or a(0, 2) <> a(1, 2) Or a(0, 2) <> a(2, 0) Or a(0, 2) <> a(2, 1) Or a(0, 2) <> a(2, 2) Then
If a(1, 0) <> a(0, 0) Or a(0, 1) <> a(1, 0) Or a(0, 2) <> a(1, 0) Or a(1, 0) <> a(1, 1) Or a(1, 0) <> a(1, 2) Or a(1, 0) <> a(2, 0) Or a(1, 0) <> a(2, 1) Or a(1, 0) <> a(2, 2) Then
If a(1, 1) <> a(0, 0) Or a(0, 1) <> a(1, 1) Or a(0, 2) <> a(1, 1) Or a(1, 0) <> a(1, 1) Or a(1, 1) <> a(1, 2) Or a(1, 1) <> a(2, 0) Or a(1, 1) <> a(2, 1) Or a(1, 1) <> a(2, 2) Then
If a(1, 2) <> a(0, 0) Or a(0, 1) <> a(1, 2) Or a(0, 2) <> a(1, 2) Or a(1, 0) <> a(1, 2) Or a(1, 1) <> a(1, 2) Or a(1, 2) <> a(2, 0) Or a(1, 2) <> a(2, 1) Or a(1, 2) <> a(2, 2) Then
If a(2, 0) <> a(0, 0) Or a(0, 1) <> a(2, 0) Or a(0, 2) <> a(2, 0) Or a(1, 0) <> a(2, 0) Or a(1, 1) <> a(2, 0) Or a(1, 2) <> a(2, 0) Or a(2, 0) <> a(2, 1) Or a(2, 0) <> a(2, 2) Then
If a(2, 1) <> a(0, 0) Or a(0, 1) <> a(2, 1) Or a(0, 2) <> a(2, 1) Or a(1, 0) <> a(2, 1) Or a(1, 1) <> a(2, 1) Or a(1, 2) <> a(2, 1) Or a(2, 0) <> a(2, 1) Or a(2, 1) <> a(2, 2) Then
If a(2, 2) <> a(0, 0) Or a(0, 1) <> a(2, 2) Or a(0, 2) <> a(2, 2) Or a(1, 0) <> a(2, 2) Or a(1, 1) <> a(2, 2) Or a(1, 2) <> a(2, 2) Or a(2, 0) <> a(2, 2) Or a(2, 1) <> a(2, 2) Then


MsgBox("no es un cuadro mágico ")
Else
MsgBox("no es un cuadro mágico hay numeros repetidos")
End If
End If
End If
End If
End If
End If
End If
End If
End If

End If

End Sub
End Class
#2
Programación Visual Basic / Cajero automatico
29 Octubre 2013, 23:42 PM
Hola a todos
tengo un trabajo de herramientas de programacion I donde debo elaborar un cajero automatico.
la verdad es que es algo complejo ya que es uno de los trabajos finales y los programas que elaboramos anteriormente son muy sencillos...
Bueno yendo al grano el Cajero debe tener una cuota de manejo (9000)$
el valor del retiro es de (900)$
el resto de cosas son fictiscias por asi decir el numero de cuenta las contraseñas,usuario,saldo de cuenta,numero de retiro,total retiro. el problema que tengo es que lo debo conectar a una base de datos y al base de datos sera EXCEL la cuesiton es como la conecto?y como debo hacer para que se lean las columnas donde tengo almacenado cosas como  numero de cuenta, las contraseñas,usuario,saldo de cuenta,numero de retiro,total retiro.

Como recien comenzare a elaborar el codigo y todo pues ire subiendo el codigo para ser mas explicito con al ayuda que necesito

gracias
#3
Hola ando haciendo este problema pero aun no me logra correr
En la Institución universitaria Pascual Bravo, actualmente hay estudiantes del programa Tecnología Informática que se encuentran viendo entre 1 y 3 asignaturas (Herramientas de Programación I, Bases de Datos y Ecuaciones diferenciales)
De cada estudiante sólo se almacena el código, en cada una de las asignaturas que cursa.
Escribir un programa en C++ que muestre la siguiente información:
a)   Código de los estudiantes que ven las 3 asignaturas
b)   Código de los estudiantes que ven 2 asignaturas
c)   Mostrar un listado de los códigos de todos los estudiantes matriculados (cada código sólo debe aparecer una vez)
d)   El código del estudiante que mas asignaturas cursa

Definir la estructura a utilizar para la solución (utilizar arreglos) y explicar el motivo para su escogencia. El programa además deberá tener un menú para cada una de las opciones que se detallaron anteriormente, además de una que permita finalizar el programa.


gracias
#4
Programación C/C++ / Hola una duda
16 Abril 2013, 01:57 AM
Hola alguien me podria decir como son los marcadores,contadores etc
de seudocodigo a c++
ejemplo
leer o lea --> cin>>
y asi por el estilo
gracias