|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Alpha_
26
« en: Lunes 31 de Octubre de 2005, 14:14 »
Buenos días gente... saben que quiero instalar Fedora en una K6 de 200 MHrz, pero sin embargo, no todas las versiones soportarán esa máquina.
Estuve Googleando y pude encontrar los requerimientos de Fedora 4, pero de ahí para atrás, no lo encuentro en ningún lado.
Alguno tiene esos datos?
27
« en: Lunes 31 de Octubre de 2005, 14:04 »
Por más raro que parezca es verdad... no hay mejor solución a esas situaciones de stress que tomarse algo bien bienn helado y refrescante, quizás jugar un ratito a algún juego abandonware y luego volver a trabajar. 100% efectividad nuevamente. Quizás hasta una siesta no venga mal... 
28
« en: Lunes 31 de Octubre de 2005, 13:45 »
Private Sub Command1_Click() Dim inctCnt As Integer Dim intSumaToTal As Integer Dim strTemp As String For inctCnt = 1 To Len(Text1.Text) intSumaToTal = intSumaToTal + Mid$(Text1.Text, inctCnt, 1) Next inctCnt strTemp = Trim(Str(intSumaToTal)) intSumaToTal = 0 For inctCnt = 1 To Len(strTemp) intSumaToTal = intSumaToTal + Mid$(strTemp, inctCnt, 1) Next inctCnt Text2.Text = intSumaToTal End Sub
Funciona bien este código, pero solamente si el primer resultado da un número de 2 o 1 cifra.. pero si diera mayor (cosa difìcil, pero posible al fin y al cabo). [code]Private Sub Command1_Click() Dim Contador As Integer Dim Suma As Integer Dim Cadena As String Cadena = Text1.Text While (Len(Cadena) > 1) Suma = 0 For Contador = 1 To Len(Cadena) Suma = Suma + Mid$(Cadena, Contador, 1) Next Contador Cadena = Suma Wend Text1.Text = Cadena [code] Creo haberlo escrito bien.. hace muchísimo que no hago nada en VB. Saludos.
29
« en: Lunes 31 de Octubre de 2005, 13:38 »
Sure, en estos días lo estaré mandando. Espero que tengas espacio, porque son como 8 MBs.
30
« en: Lunes 31 de Octubre de 2005, 13:37 »
Supongo que tu problema será en la conversión de los datos. Si es que estás usando datos con decimales, no podés usar la función StrToInt, porque no te servirá de mucho. Intentá con el procedimiento Val, puede servirte. val(const var S: string, var I, var code: Integer);
Si todo va bien, se convierte la cadena S en la variable numérica I, y Code vuelve en cero. En caso contrario, code contiene el número de caracter que causó error en la conversión. Saludos.
31
« en: Sábado 29 de Octubre de 2005, 03:03 »
TCP/IP? RS232? Paralelo? Protocolo propio via ethernet?
32
« en: Sábado 29 de Octubre de 2005, 03:00 »
Yo lo desconozco, así que me sumo al pedido, si es que hay alguno.
Personalmente he usado el help workshop.. tiene sus manias pero no es realmente tan difícil.
Pero si hay algo más fácil.. eh! Bienvenido!
33
« en: Viernes 28 de Octubre de 2005, 17:44 »
Y hablando sinceramente, la comprarían?
Si disponiese de ese dinero, yo sí, pero no es el caso hoy en día.
No me malentiendan, estoy a favor de que salgan actualizaciones para Kylix, donde pronto comenzaré probablemente a programar...
34
« en: Viernes 28 de Octubre de 2005, 17:37 »
A full con los árboles, eh?  No te faltan dos tipos de balanceo todavía? Pienso que quizás por eso que se queda iterando, pero no he hecho una prueba de escritorio para constatarlo.
35
« en: Viernes 28 de Octubre de 2005, 17:29 »
t:=a^.hijo; Aquí está la diferencia: -Si A ya existía, entonces no se crea. Por ende, ahora T apuntará al mismo lugar al que apunta el hijo de A. -Si A no existía, entonces lo creas. Pero los datos dentro de A no están inicializados, incluyendo los punteros que apuntan a los hijos, por ende, al hacer esa asignación, le estás pasando una dirección basura a T, y por ende, apunta a cualquier lado de la memoria. Saludos.
36
« en: Viernes 28 de Octubre de 2005, 17:24 »
(...)
mov ax, [bp]+26
push ax
call [di]+8
Eso es assembly puro! Jeje... sin variables, sin nada.. pero bueno, todo se traduce fácilmente, se reemplazan los nombres por los offsets y listo.
Sólo para aclarar... y no, sé que parece muy difícil, pero como bien dijo Idol, no lo es tanto.
Sobre los ejecutables, justo el ejemplo de Visual Basic y de .NET son aquellos que no cumplirían el requisito. TODO programa tiene dependencias, pero el resto de los lenguajes que nombraron son aquellos en donde esas dependencias ya están incluidas en una instalación común de Windows, facilitando que con ejecutar el programa ya armado, no haya mayores problemas.
37
« en: Viernes 28 de Octubre de 2005, 17:20 »
Lo ví algo por arriba, y no detecté errores en su mayor medida. Básicamente te fijás que sea un caracter o un número, y que si no es así, que sea un punto o un arroba.
Pero eso no te impide el poner más de un arroba, en cuyo caso estaría mal.
Yo diría que busques el arroba.. y desde ahí recorras hacia atrás. Debés encontrar caracteres, números o puntos.
Luego hacia adelante, debés encontrar caracteres, números y AL MENOS UN punto.
Y podría extenderse en detalle, pero realmente no vale la pena.
De paso, en lugar de fijarte si ord(cadena[contador]) > xx y si ord(cadena[contador]) < yy
podrías definir un conjunto de caracteres y letras
type
validos = ['0'..'9', 'a'..'z', 'A'..'Z']
var
conjunto_validos: validos;
Y verificás con
if cadena[contador] IN conjunto_validos ...
Espero que te sirva, saludos.
38
« en: Miércoles 26 de Octubre de 2005, 04:47 »
Bueno, ya que hay tanta sequía, yo tengo unos PDFs, mal hechos y mal redactados, por un profesor mío.. si les sirvieran de algo se los puedo alcanzar, son 8 MBs en total.
39
« en: Sábado 22 de Octubre de 2005, 04:18 »
A ver.. es decir que obtener "mayor espacio" significaría el dejar libre un rectángulo lo más grande posible? Puesto que el espacio libre es siempre el mismo...
(Creo que ahí resolví mi duda)
40
« en: Sábado 22 de Octubre de 2005, 04:04 »
Pascal no la tiene.
Delphi, sinceramente no recuerdo. No he terminado de explorarlo en tooooooooooooooda su extensión.
Jejej, saludos. Tanto pascal como object pascal tienen Append. Ya mismo estoy revisando TOOOOOOOOODOS mis libros.
41
« en: Miércoles 19 de Octubre de 2005, 20:46 »
Pascal no la tiene.
Delphi, sinceramente no recuerdo. No he terminado de explorarlo en tooooooooooooooda su extensión.
Jejej, saludos.
42
« en: Miércoles 19 de Octubre de 2005, 20:45 »
Hola.
var miarray: array[1..100] of string;
esto seria un array de 100 elementos , cada uno de ellos un string;
var miarray2: array[1..10] of array[1..50] of string;
esto seria una array de dos dimensiones 10x50.
Saludos y espero que te funcione. Disculpa, pero no estoy totalmente seguro de si esto es correcto en Delphi. Yo suelo hacer: a: array[1..100, 1..100] of byte; Y para acceder a los distintos elementos: x := a[2, 63]; Saludos.
43
« en: Miércoles 19 de Octubre de 2005, 20:41 »
Leí como 5 veces hasta entender.
Estoy algo viejo ya.
Me imagino que estás programando bajo Windows, y por eso se te cierra la ventana y no ves los resultados.
Si es así, todo lo que tenés que hacer es ir a las propiedades del exe generado, y destildar la opción "Cerrar Ventana al Salir". Entonces listo, vas a poder ver los resultados.
Saludos.
44
« en: Lunes 17 de Octubre de 2005, 04:48 »
Gracias, me sirvió mucho a mi también.
Saludos.
45
« en: Lunes 17 de Octubre de 2005, 04:39 »
Pero y toda la RAM? Y el sistema operativo ya cargado? Qué pasa con eso?
46
« en: Lunes 17 de Octubre de 2005, 04:37 »
Es que al abrir el archivo como escritura estás borrando lo que tiene.
Deberías hacer esto:
-Abrir un archivo temporal como escritura
-Abrir el original como lectura
-Copiar contenidos desde el archivo original al temporal
-Agregar el nuevo dato al temporal
-Cerrar el original
-Cerrar el temporal
-Eliminar el original
-Cambiarle el nombre al temporal para que tenga el nombre del original
Así, tendrías todo en el nuevo archivo.
47
« en: Sábado 15 de Octubre de 2005, 06:56 »
Idem yo..
Pero de todos modos, lo lógicamente correcto es abrir un archivo, usar lo que necesites, y cerrarlo y no volver a usarlo.
Salvo que sea de entrada y salida, pero podés pensarlo como si fueran dos archivos distintos. En un caso es uno de lectura (para obtener datos), y otro de escritura (para guardar los datos).
Hoy en día, abro archivos, hago lo que tengo que hacer, lo cierro.. y no lo vuelvo a abrir.
48
« en: Sábado 15 de Octubre de 2005, 06:53 »
A ver a ver... eso es configuración de la BIOS...
Por ende, el programa sería muy específico según el modelo...
Alguno sabe decir si es posible programar eso?
49
« en: Domingo 9 de Octubre de 2005, 06:36 »
No, está bien... habría que ver qué hace el ArbolVacío(), porque quizás estés con un problema ahí.. pero hasta ahora está perfecto. Sobre pasar los punteros por valor, Pascal hace una copia del puntero en esa variable. Si hacés un Dispose(ptr), entonces esa memoria se libera, y el puntero pasa a ser nil... pero el puntero original, todavía está apuntando a una zona de memoria, que ya fue liberada, por ende, cuidado con eso. Es preferible pasarlos siempre por referencia, de modo que siempre se trabaje con el mismo puntero... Bah, por lo menos así pienso yo. --- Te incluyo como lo haría yo, usaría sólo un procedimiento. procedure VaciarArbol(var A: Arbol); begin if A <> nil then begin VaciarArbol(A^.HI); VaciarArbol(A^.HD); Dispose(A); end; end;
Sólo porque pasaba.. xD
50
« en: Domingo 9 de Octubre de 2005, 06:27 »
Hmm de hecho, creo que no. O si se puede, realmente no lo sabía.
Lo que podrías hacer es que un programa procese ese archivo, y entonces el bat llamaría a tu programa, pasándole por parámetro el archivo.
|
|
|
Mostrar Mensajes
