|
|
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 - DriverOp
176
« en: Sábado 8 de Agosto de 2009, 20:27 »
El mensaje original es bastante viejo pero de todos modos quiero responder por si alguien más está buscando lo mismo o parecido.
Si tienes la definición de los archivos .dat (SELECT y FD) entonces se puede escribir un programa en COBOL que convierta el .dat a texto plano para que a su vez se pueda convertir en otro formato de base de datos. Si no sabes COBOL yo puedo hacer el trabajo.
177
« en: Sábado 8 de Agosto de 2009, 20:11 »
Es que tengo una guia de Delphi, intento hacer ejercicios de Delphi en Lazarus y me tira error...
No se supone que son el mismo lenguaje? (ObjectPascal)
¿Alguien me puede aclarar las diferencias? Aunque es el mismo lenguaje no usan las mismas bibliotecas de componentes. Tendrás que ver si lo que tienes en Delphi tiene su equivalente en Lazarus. ¿Por ejemplo qué es lo que no te anda en Lazarus?.
178
« en: Sábado 8 de Agosto de 2009, 05:18 »
En su momento Borland editó Kilyx con magros resultados, se estancó en la versión 2.0. Pero tienes otra alternativa Lazarus: http://www.lazarus.freepascal.org/ Está disponible para Linux.
179
« en: Viernes 7 de Agosto de 2009, 05:36 »
Delphi es Pascal (más exactamente Object Pascal). Ahora bien, si estás hablando de Turbo Pascal entonces te diré que no puedes hacer aplicaciones para Windows con él aunque sí puedes inventarte tu propio GUI, una tarea bastaaaaante engorrosa por cierto, así que si no quieres complicarte la vida comienza con Delphi. Otra opción es Free Pascal+Lazarus. Lazarus es un IDE como el de Delphi que usa Free Pascal como compilador.
180
« en: Domingo 18 de Abril de 2004, 01:58 »
En esta página pueden encontrar mucho código de ejemplo, rutinas, tutoriales y ¡compiladores! www.escobol.com
181
« en: Domingo 18 de Abril de 2004, 01:49 »
Gracias the black boy 
se que es un reto dificil  voy a ponerles que es lo que he hecho mas o menos.
si y hasta yo tambien estoy de acuerdo con esos otros lenguajes pero la cosa es en pascal.
pura vida programador  No, no puedes estar de acuerdo con lo que no conoces. Un consejo, comienza rompiendo el problema mayor en problemas menores. En tu mensaje original lo has hecho bién, ahora has un programa distinto de cada uno: Un programa que maneje unidad grafica. Uno que tenga password a la entrada con tres intentos. Uno que pueda cambiar contraseña. Uno identifique billetes de 10000, 5000, 2000 y 1000 colones Uno que identifique monedas de 500, 100, 50, 25, 20, 10, 5, 2, y 1 colon. Uno que calcule la combinación de billetes de esas denominaciones en un monto dado, por ejemplo 12500 colones está compuesto por un billete de 10000, 2 de 1000 y uno de 500. Esto te servirá para dar el cambio. Uno donde puedas administrar cuentas (necesitarás acceso a archivos). Un programa donde practicar cómo imprimir en la impresora.
182
« en: Domingo 18 de Abril de 2004, 01:43 »
Maneje turbo Pascal hace como año y medio, y lo que pides, requerie de mucho trabajo, si piensas hacer algo asi, te recomiendo 2 opciones, VisualBasic (Facil de aprender) y C++ (Poderoso y respetable), aunque si escojes C++ y no estas familiarizado con el, te va a dar dolores de cabeza el entorno grafico (mejor usa Dev C++) y sobre Visual, bueno hay montones de paginas de codigos de ejemplos
Espero que esto te sirva de algo  Gelion, amigo, ubicate, ¿quieres?, estas en un foro de Pascal, no puedes salirte con que se use otro lenguaje. Además Pascal es perfectamente adecuado para resolver el algoritmo propuesto por Tripa.
183
« en: Domingo 11 de Abril de 2004, 02:59 »
Pues sí, es eso precisamente, desordena las cartas de la baraja, o lo que es lo mismo intercambia valores de posiciones aleatorias.
184
« en: Sábado 3 de Abril de 2004, 18:34 »
Hola. Realmente no entiendo por qué haces tantas vueltas para algo realmente sencillo, para mí deberías hacer algo como esto: procedure MezclarBaraja(var B: TBaraja); var I, J: Integer; Aux: TNaipe; begin Randomize; For I:=1 to 40 do Begin J:=Random(40)+1; Aux:=B[I]; B[I]:=B[J]; B[J]:=Aux; end; end;
Eso es todo.
185
« en: Domingo 21 de Marzo de 2004, 17:20 »
BlackTigerX:
Pascal no tiene GOTO en el sentido tradicional, la sentencia Goto de Pascal está condicionada a su vez para salto dentro de un mismo bloque begin... end, además depende de la clausula Label que sirve solo para declarar las etiquetas de salto incondicional. En definitiva, en Pascal no puedes saltar "a donde se te de la gana" para decirlo sin vueltas.
186
« en: Miércoles 17 de Marzo de 2004, 19:43 »
No se si te comprendí bién cuál es tu problema así que te diré lo que interpreté que quieres hacer.
Quieres que si estas dentro de una de las opciones del menú principal, al salir de esta te regrese de nuevo al principal. Pero debo decirte que para hacer eso es mejor comenzar a usar procedimientos porque Pascal no tiene GOTO (salto incondicional), la idea sería:
procedure MenuPrincipal;
begin
...
end;
procedure Menu1;
begin
...
end;
procedure Menu2;
begin
...
end;
procedure Menu3;
begin
...
end;
begin
repeat
MenuPrincipal;
case Opcion of
1:Menu1;
2:Menu2;
3:Menu3;
end;
until salir=true;
end.
187
« en: Viernes 12 de Marzo de 2004, 18:20 »
Ninguno. DOS no soporta USB.
188
« en: Domingo 7 de Marzo de 2004, 19:45 »
Hola, el error es, tal como sospechaba, que tienes mal cerrado un bloque Begin...End. Donde pones: c':Begin clrscr; writeln ('Nuevo Incremento'); readln (incAnual); end; modificar(nomArch,ndepa,opcMov,durCont,renta,incAnual); readkey; end;
Debería ser: c':Begin clrscr; writeln ('Nuevo Incremento'); readln (incAnual); end; [B]end;[/B] { este End es el que falta } modificar(nomArch,ndepa,opcMov,durCont,renta,incAnual); readkey; end;
En el programa principal.
189
« en: Domingo 22 de Febrero de 2004, 22:56 »
No que yo sepa, lo siento.
Igualmente ningún traductor es perfecto y siempre requerirá de la intervención del usuario. Máxime cuando se trata de un lenguaje procedimental y lineal como Pascal a un lenguaje conducido por eventos como VB, son dos filosofías de programación muy diferentes. Dudo mucho que encuentres un traductor de este tipo.
190
« en: Domingo 22 de Febrero de 2004, 05:37 »
"pues eso", ¿qué es eso?... postea el código que quieres taducir y vemos qué podemos hacer... a propósito, ¿has considerado usar Delphi en vez de VB?, así no tienes que traducir nada 
191
« en: Viernes 13 de Febrero de 2004, 01:18 »
Hola EugenioEnko: Te voy a enseñar un pequeño truco que te sacará del paso. Primero declara estas estructuras. uses Crt; type TPos=record { Posición de la pantalla } Car:char; Attr:byte; end; TLinea=array [1..80] of TPos; { Linea de la Pantalla } TPant=array [1..25] of TLinea; { Pantalla Entera } var Pant:TPant absolute $b800:$0000; { Pantalla } BkPant: TPant
Lo que he hecho aquí es declarar una estructura igual a una posición de la memoria de video en modo texto, la cual ocupa dos bytes, en el primer byte se almacena el caracter (un char) y en el segundo los atributos de color, inverso y parpadeo, luego declaro una linea de 80 posiciones de pantalla para luego repetirla 25 veces igualando así las 80 x 25 posiciones de la pantalla. En la clausula var declaro una variable y fuerzo a que coincida con el inicio de la memoria de video en modo texto, y otra más para hacer el "back up" de la pantalla... luego solo resta escribir un código para probar esto: BkTxtAttr: byte; begin ClrScr; { borro la pantalla } BkTxtAttr:=TextAttr; { me guardo los atributos de texto originales } Write('Este es el fondo de la pantalla'); ReadKey; BkPant:=Pant; { guardo la pantalla } Window(10,10,20,15); { creo una ventana } TextbackGround(4); ClrScr; { pinto su fondo de rojo } Write('Esto es adentro de una ventana de texto'); ReadKey; Window(1,1,80,25); { reestablezco el tamaño original de 80 x 25 } Pant:=BkPant; { reestablezco el fondo } TextAttr:=BkTxtAttr; { reestablezco los atributos de texto } GotoXY(1,25); Write('Estoy afuera de la ventana otra vez.'); ReadKey; end.
Nada más, con esto debería ser suficiente para lo que quieres hacer. Ten en cuenta que en Turbo Pascal solo tienes 64Kb de memoria para variables de usuario y cada pantalla almacenada en memoria ocupa 2000 bytes (casi 2 kb) por lo que tal vez te conviene "cachear" en disco las pantallas capturadas. Un saludo.
192
« en: Lunes 9 de Febrero de 2004, 04:19 »
Pues yo hace 15 años que programo en Pascal  Y con gusto ayudaré a quién me lo pregunte 
193
« en: Viernes 23 de Enero de 2004, 16:14 »
Efectivamente es ese el problema, entre otros. Cuando pides la fecha no estás validando el rango de los números ingresados, deberías pedir esos datos primero en un string, tratar de convertir a número y si la conversión falla volver a pedir.
194
« en: Viernes 23 de Enero de 2004, 16:09 »
Hola Bernardo.
Vengo desde LWP. No he probado el código pero lo primero que noto es que estas usando Read para leer un string lo cual puede causar problemas con el valor asignado en la variable pues esta debe terminar en #0, cambia por ReadLn.
Ahora descargo el código y lo pruebo por mi cuenta.
195
« en: Lunes 22 de Diciembre de 2003, 18:11 »
Ahora sí, a programar a placer. 
196
« en: Sábado 20 de Diciembre de 2003, 23:06 »
Larga vida al Turbo Pascal 
197
« en: Sábado 20 de Diciembre de 2003, 23:05 »
Sí, supongo que podría enviarte mi copia del archivo pero mejor si lo extraes de los instaladores que tengo en mi página: www.geocities.com/diegofromson copias de los discos originales de TP7.
198
« en: Martes 16 de Diciembre de 2003, 08:51 »
Ah, ah, pero no habías mencionado los mensaje de error en tu post original, eso lo cambia todo. Lo que te sucede es que te faltan los archivos de filtros de impresora que vienen con Turbo Pascal. En el directorio BIN debería estar el prnfltr.exe (y .pas).
Saludos.
199
« en: Lunes 15 de Diciembre de 2003, 05:21 »
Eso sí que es muy extraño aunque cabe una posible explicación. Cuando se ejecutan programas de 16 bits en modo protegido (y el IDE de TP lo es) el CPU tiene que cambiar constantemente de modo 32 para ejecutar Windows a modo 16 para ejecutar TP de forma muy rápida y continua, esto podría provocar un aumento en el consumo del CPU y el consiguiente aumento de temperatura. Pero sinceramente, es la primera vez que leo algo como esto.
200
« en: Lunes 15 de Diciembre de 2003, 05:17 »
Incompatibilidad con los drivers de la placa de video, un problema bastante común en las placas Trident entre otras. Prueba actualizando el driver a una versión más nueva.
|
|
|
Mostrar Mensajes
