|
52
|
Programación / Programación Visual Basic / Duda - Buscar si existe una matriz dentro de otra matriz
|
en: 14 Agosto 2010, 06:09 am
|
Wenas, Tal vez no lo planteé bien al decir "buscar una matriz dentro de otra", lo aclaro así: Tengo una matriz X e Y, que contiene solo números, graficando sería: (Matriz Global) ______ X ________ | 1 2 3 4 5 6 7 8 9 0 | 0 9 8 7 6 5 4 3 2 1 Y| 1 2 3 4 5 6 7 8 9 0 | 0 9 8 7 6 5 4 3 2 1 | 1 2 3 4 5 6 7 8 9 0
y tengo otra matriz más pequeña, y quiero buscar si existe en la matriz (Global): Así, lo de color Azul: ______ X ________ | 1 2 3 4 5 6 7 8 9 0 | 0 9 8 7 6 5 4 3 2 1 Y| 1 2 3 4 5 6 7 8 9 0 | 0 9 8 7 6 5 4 3 2 1 | 1 2 3 4 5 6 7 8 9 0
Como lo haría, aparte de usar For, que otra opción abría? ya que la matriz es muy grande SaluDOS!!!
|
|
|
54
|
Programación / Programación Visual Basic / Re: [RETO] Comprobar si un numero dado es un numero de la suerte
|
en: 11 Agosto 2010, 03:15 am
|
He probado tu código, pero me da mal los resultados, 1, 3, 7, 9, 13, 15, 21, 25, 31, 33, 37, 43, 49, 51, 63, 67, 69, 73, 75, 79, 87, 93, 99... A la primera vez si intentas con 1,3,7,9,13, el 15 no sale, y si vuelves a intentar algún numero no da, no se si me expliqué, pero no funca bien. Trabajo ahora en el mio SaluDOS!!!
|
|
|
56
|
Programación / Scripting / Re: Convención sobre codificación Batch
|
en: 10 Agosto 2010, 15:52 pm
|
Me parece muy buena la idea.. También creo que podrían usar los "=" como separadores de código, le da un aspecto más profesional (Si encuentran una mejor palabra para atribuirlo, mejor.) y una forma no muy correcta de usar comentarios, pero funciona, y por último, el uso de tabulaciones, cuando escribes una función dentro de una función, o un For dentro de Otro: (======================================== ========================================= )2 >nul Set /p= !Vector[%% style="color: #448888;">x][%%y]!<nul ) ) =========================================
SaluDOS!!!
|
|
|
59
|
Programación / Programación Visual Basic / Re: [Ayuda] Necesito saber como resolver este problema
|
en: 10 Agosto 2010, 05:42 am
|
Bueno, ahora no estoy como para hacer de nuevo el code, creo que es como lo puse solo que hay que corregir los for por: For A = 0 To 3 For B = 0 To 3 For C = 0 To 3 For D = 0 To 3
Eso genera 256 posibilidades, en realidad 128 como dice el ejercicio, pero fallé en algo por eso aparecen repetidas 2 veces.. Si analizas el code verás como funca SaluDOS!!!
|
|
|
60
|
Programación / Programación Visual Basic / Re: [Ayuda] Necesito saber como resolver este problema
|
en: 10 Agosto 2010, 03:38 am
|
Te respondí en CPH Aunque no creo que esté correcto pero como voy a mencionar más adelante, no entendí como lo planteas Copy And Paste: Me entretuve un rato, no se si entendí bien lo que planteas: Me salió esto: Private Sub Command1_Click() Dim Bit() As String, A As Integer, B As Integer, C As Integer, D As Integer, E As Integer Dim Total As String, Div11 As Long, SumaDig As Long Bit = Split(StrConv("2010", vbUnicode), Chr(0)) For A = 0 To 1 For B = 0 To 1 For C = 2 To 3 For D = 2 To 3 Total = Bit(A) & Bit(B) & Bit(C) & Bit(D) Div11 = Total / 11 SumaDig = 0 For E = 1 To Len(Div11) SumaDig = SumaDig + Val(Mid(Val(Div11), E, 1)) Next ' Suma de digitos igual a 2 If SumaDig = 2 Then List1.AddItem "Gen:> " & Total & " -Div11>" & Div11 & " -Suma>" & SumaDig End If DoEvents Next: Next: Next: Next MsgBox List1.ListCount End Sub
Como que no me cuadra, podrías mencionar el sitio de donde sacaste el ejercicio SaluDOS!!!
|
|
|
|
|
|
|