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ú

Mensajes - Serapis

#2671
Esta tontería no se merece una noticia... (salvo para los que se dediquen a cuestiones de diseño).
#2672
Hardware / Re: Errores reparables PC
7 Marzo 2018, 21:42 PM
Puedes cambiar los cables de power y reset con los de led, según lo hagas no arrancará el equipo... solo una comprobación visual al apartado puede revelar el 'error'. También puedes cambiar la pila por una agotada.

Remplaza un cable de datos del disco duro, por otro dañado (que le falte algun pin/contacto)...

Incluso cambiar el conector del ventlador de la CPU a uno del chasis, que no tenga sensor/control de velocidad, puede resultar que si altiempo has fijadoen la BIOS que apague con una temperatura muy baja, así ocurrirá, porque aunque el sistema detecte que se sobrecalienta, la orden de acelerar el ventilador, para bajar temperatura, no surtirá efecto...

En fin, todo lo que pienses al respecto es de tipo 'manazas', algo distinto a la realidad... en la realidad algo falla y en apariencia todo está bien, luego descubrir fallos reales de fallos provocados difiere, pero bueno como práctica siempre vale.
#2673
Realmente ridículo...

Un bloqueo, debería limitarse a que si alcanza una cifra de espera límite (pongamos una semana, un mes de espera), no aumentarlo en lo sucesivo, y simplemente negar el procesado de cualquier intento posterior de acceso, al alcanzar dicho límite. Y si restados x días, se produce un nuevo intento de acceso fallido, de nuevo llevarlo al límite... Eso basta y sobra, no hay un botón nuclear tras el teléfono de cada persona...
Incluso yendo más lejos, dejaría que cada persona decida él mismo el límite que establece de bloqueo entre un rango elegible, conforme a los 'secretos' que guarde y su propio nivel de paranoia.

...y eso son diseños de gente trabajando en Apple, vaya castaña de "profesionales". Se merecen más llamarles "chapuzas".
#2674
A ver si es verdad y desaparece definitivamente esa forma de intromisión, con excusas peregrinas...

Aunque a día de hoy, la preocupación de la seguridad ha crecido fuertemente en otras áreas superando a este problema.
#2675
No estoy de acuerdo en casi nada...

Si alzan la mirada y miran un poco lejos, pueden hacer mejoras cosas, pero programan solo en vista al año que están y que dure pocos años...porqué?... porque les interesan los cambios permanentemente, viven de ello quieren venderte cada año, un vaso para beber, a pesar de que te baste con el del año pasado.

Si algo no caduca, nada mejor que forzarlo a caducar. Flexibilidad, ninguna, no les interesa... Flexibilidad es hacer compatible los programas nuevos con los formatos viejos...

Y la cuota de mercado, es porque resulta imposible ya adquirir equipos nuevos montando windows-Xp, o windows-7... A ninguna empresa (con solera), e hace ni pizca de gracia tener que comprar de nuevo equipos y software cada pocos años, sumando a todo ello, el tiempo perdido en la curva de aprendizaje de sus trabajadores...
La máxima en la mayoría de las empresas, es que: "Si algo funciona y funciona bien, no lo cambies"... solo cambia el que quiere presumir de 'estar a al última', vamos prácticamente las empresas tecnológicas, las que viven precisamente de crear y hacer funcionar dicha tecnología...

Las razones son de sobra conocidas, la cuestión es porqué una y otra vez, acaban haciendo siempre lo mismo. Los marineros llevan milenios usando los mismos nudos... funcionan, no tienen que caducar e inventar nuevos nudos, solo para obligar a comprar nuevas cuerdas... Se pueden mejorar las cuerdas... pero no tocar los nudos.

Microsoft se muere por forzar a todos los usuarios que siguen usando versiones antiguas de Windows para que migren a windows-10, les encantaría hacerlo de un plumazo, pero como no es ni ético ni legal, no queda otra que ir 'fastidiando' poco a poco... de forma sutil, si aguantas un embate, quizás no el siguiente o el siguiente... cuando se acumnulen demasiados, al final fuerzan el cambio... algo que solo debiera ocurrir cuando los equipos se averiaran sin arreglo.

Qué mejor que sacar un nuevo formato de lo que sea, para que los programas viejos, ya no puedan abrirlo????... es la forma sigilosa... los formatos podrían ser mucho más robustos a veces desde una década atrás, pero es su "as en la manga", lo saben desde hace más de 30 años... y tiran de él, cuando como ahora, les urge.
#2676
.NET (C#, VB.NET, ASP) / Re: Arrays en VB.net
7 Marzo 2018, 05:51 AM
La respuesta que te ha dado Elektro es muy válida, pero para programadores con algo más de soltura. ciertamente si estás empezando y a duras penas sabes que es un array y otras estructuras, necesitarías más tiempo (posiblemente) del que dispones para ser capaz de entender y aplicar satisfactoriamente lo que te explica.

A tu nivel...

Declara un array de 20 elementos, un valor para contener el valor actual y un índice que refleje cuantos llevas ya acumulados en tu array...
Código (vbnet) [Seleccionar]

   Dim miArray(0 To 19) As Object  ' por ejemplo, o un tipo numérico que prefieras... si luego quieres añadir elementos uno a uno.
   Dim miMumero As Int32
   Dim miIndice As Byte


Se supone que al menos tienes en la interfaz un textbox, un botón y un listbox...
Entonces deberías usar el evento Validate del textbox...
Código (vbnet) [Seleccionar]

Private Sub TextBox1_Validating(... , ByVal e As CancelEventArgs) Handles textBox1.Validating
       Try
           miMumero = Integer.Parse(TextBox1.Text)
           TextBox1.Clear()  ' es lo mismo que Textbox1.Text = ""            
           e.Cancel = False
       Catch
           e.Cancel = True
           MessageBox.Show("El texto no puede ser interpretado como un número (o número entero), o bien excede el valor de un int32....", "Error...")
           ' puedes seleccionar el texto del control, o borrarlo... en cualquier caso el foco regresa al control textbox, para editar su contenido...
       End Try
   End Sub


Cuando escribes el texto del número en el textbox, ese control tiene el foco, luego cuando otro control intenta ganar el foco (por ejemplo cuando pulsas el botón), se genera el evento Validating del textbox, si no valida, el foco se mantiene en el textbox... (forzándolo con Cancel=True) pero si valida, se genera el evento Validated...
Fíjate que ni siquiera colocamos código en el botón... aunque puede hacerse así, por supuesto.


Código (vbnet) [Seleccionar]

Private Sub TextBox1_Validated(sender..., e As EventArgs) Handles TextBox1.Validated
       miArray(miIndice) = miMumero
       miIndice += 1
       If (miIndice < 20) Then
           MessageBox.Show("Número almacenado, introduzca el siguiente número...")
           TextBox1.Focus()
       Else
           TextBox1.Enabled = False
           Button1.Enabled = False

           Call Calcular()  ' ahora que tenemos el array completo, podemos hacer el resto de cosas.
       End if
end Sub


Te diría que crearas un algoritmo de ordenación si tuvieras más conocimientos.
Aparte el Listbox tiene una propiedad Sorted, que se activa en diseño y así cuando se añada un ítem se ordena automáticamente.... pero hay un problema, y es que (si no recuerdo mal de memoria), solo ordena de menor a mayor, y tu lo precisas al revés...

...pero en realidad es más fácil... los arrays tienen un método sort...
Código (vbnet) [Seleccionar]

Private Sub Calcular()
       miArray(0) = 12
       miArray(15) = 87
       Array.Sort(miArray, 0, 20) ' No son precisos los 2 parámetros, si no se indican se ordena todo el array, pero los pongo, para que te des cuenta, que puedes ordenarlo parcialmente si fuera preciso.
       Array.Reverse(miArray) ' invertimos el orden, o bien mediante un bucle añadir elementos al listbos, uno a uno, empezando por el final del array...
       ListBox1.Items.AddRange(miArray) ' Si declaraste el array de tipo numérico, usa un bucle con el método Add (por ejemplo).

       ' Suma
       Dim suma As Int32

       For k As Byte = 0 To 19
           suma += miArray(k)
       Next
       MessageBox.Show("La suma total del array es: " & suma.ToString)

       ' Media, mediana, moda ???
       Dim media As Single = (suma \ 20)
       MessageBox.Show("La media de los valores del array es: " & media.ToString)
   End Sub


...y bueno la validación que indicas, no sé a que te refieres, no sé qué tienes que validar, yo he validado si el texto introducido puede ser tomado como un numero entero de 32bits (ni siquiera un decimal), y lo que falte o haya quedado claro, o haya entendido mal, espero que sepas arreglarlo... tienes suficiente para resol bverlo con poco esfuerzo de tu parte.
#2677
Nadie más terrible arrasando con programas de Microsoft que el propio Microsoft...

Crean algo, para al tiempo destruirlo hasta la raíz... visto así las cosas, la gente poco a poco empieza a desconfiar por completo. Por qué rayos tienen que cambiar contínuamente de formato, y dejar a los previos incompatibles... porqué nunca piensan a futuro y dejan en el diseño, la posibilidad de actualizar formatos de versión, sin que suponga una ruptura total... tan mal lo hicieron que ahora es imposible soportarlo?... y si es así, por qué ahora vamos a confiar en que 'definitivamente' lo harán bien... es razonable pensar que harán lo mismo dentro de 8, 10 ó 12 años...

Durante siglos, un vaso ha sido un vaso, podrá ser de diferentes materiales, diferentes medidas, pero ahí siguen... un diseño "ab-aeternum", Micorsoft es incapaz de hacer algo así... es normal que cada vez menos gente quiera apostar por ellos y hacer cambios, pués sienten que lo son por el mero capricho de Mocosoft...

En fin, se ganan enemigos a pulso ellos mismos, no necesita que nadie los torpedeee...
#2678
Supongo que es el precio a pagar...

Ya nadie habla del mismo problema que s epresentó, cuando los trabajos empezaron a hacerse masivamente sentados en una silla durante chorrocientas horas al año...
De entrada, estar sentado tantas horas al día, perjudica al viente, que no tiene un flujo correcto, lo mismo sucede al riego sanguíneo hacia las piernas y también el nervioso... pero aquí estamos, nadie habla de ello, tan solo de los  problemas de espalda, que son más visibles por el dolor... del resto de problemas derivados (incluídos problemas de fertilidad), no se menciona nada, ni la sanidad de ningún país ofrece alternativas...

Así que las nuevas generaciones tendrán que vivir con ello, al igual que las actuales (y pasadas), han sobrevivido con los problemas derivados de pasar tantas y tantas horas sentado en sillas (la mayoría d elas veces, incluso sobreranamente incómodas por adquirirlas muy baratas).
#2679
Acaban de fabricar un triciclo de niño, y ya sueñan con naves para hacer viajes interestelares...

Si es que no hay nada como el autobombo. Que buenos somos, que grandes, que geniales, nos lo merecemos todo.
#2680
 :laugh: :laugh: :laugh: :laugh: esto es lo mismo que decir:
"Señores delincuentes, devuelvan lo que han robado y entréguense a la policía." ...esto es: algo que nunca ocurrirá.