elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


  Mostrar Mensajes
Páginas: [1]
1  Programación / .NET (C#, VB.NET, ASP) / Pasar programa de Ciclo if a for (cuadro magico) en: 19 Noviembre 2013, 04:27 am
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
  1. Public Class Form1
  2. Dim a(2, 2) As Integer
  3. Dim sum1, sum2, sum3, sum4, sum5, sum6, sum7, sum8 As Integer
  4. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  5. a(0, 0) = TextBox1.Text
  6. a(0, 1) = TextBox2.Text
  7. a(0, 2) = TextBox3.Text
  8. a(1, 0) = TextBox4.Text
  9. a(1, 1) = TextBox5.Text
  10. a(1, 2) = TextBox6.Text
  11. a(2, 0) = TextBox7.Text
  12. a(2, 1) = TextBox8.Text
  13. a(2, 2) = TextBox9.Text
  14. sum1 = a(0, 0) + a(0, 1) + a(0, 2)
  15. sum2 = a(1, 0) + a(1, 1) + a(1, 2)
  16. sum3 = a(2, 0) + a(2, 1) + a(2, 2)
  17. sum4 = a(0, 0) + a(1, 0) + a(2, 0)
  18. sum5 = a(0, 1) + a(1, 1) + a(2, 1)
  19. sum6 = a(0, 2) + a(1, 2) + a(2, 2)
  20. sum7 = a(0, 0) + a(1, 1) + a(2, 2)
  21. sum8 = a(0, 2) + a(1, 1) + a(2, 0)
  22.  
  23. 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
  24. 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
  25. 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
  26. 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
  27. 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
  28. 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
  29. 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
  30. 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
  31. 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
  32. 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
  33. MsgBox("es un cuadro m&#225;gico")
  34. End If
  35. Else
  36. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  37. End If
  38. Else
  39. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  40. End If
  41. Else
  42. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  43.  
  44. End If
  45. Else
  46. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  47.  
  48. End If
  49. Else
  50. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  51. End If
  52. Else
  53. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  54. End If
  55.  
  56. Else
  57. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  58. End If
  59.  
  60.  
  61. Else
  62. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  63.  
  64. End If
  65. Else
  66. 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
  67. 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
  68. 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
  69. 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
  70. 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
  71. 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
  72. 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
  73. 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
  74. 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
  75.  
  76.  
  77. MsgBox("no es un cuadro m&#225;gico ")
  78. Else
  79. MsgBox("no es un cuadro m&#225;gico hay numeros repetidos")
  80. End If
  81. End If
  82. End If
  83. End If
  84. End If
  85. End If
  86. End If
  87. End If
  88. End If
  89.  
  90. End If
  91.  
  92. End Sub
  93. End Class
  94.  
2  Programación / Programación Visual Basic / Cajero automatico en: 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  Programación / Programación C/C++ / hola alguien me puede colaborar con este problema en: 28 Abril 2013, 20:52 pm
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 / Programación C/C++ / Re: Hola una duda en: 16 Abril 2013, 22:46 pm
Es duda no es tarea pues tengo muchos pero no todos
5  Programación / Programación C/C++ / Hola una duda en: 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
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines