|
|
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.
Temas - _.B._
Páginas: [1]
1
« en: Sábado 5 de Agosto de 2006, 06:52 »
¡¡Saludos!! Tengo 2 opciones para mi Memoria RAM: 512 MB DDR400o 512 MB DDR400 junto con 128 MB DDR266 = 640 MB DDR266Es una Tarjeta Madre DDR400. ¿¿Cómo puedo saber cuál es la mejor opción?? 
2
« en: Viernes 9 de Junio de 2006, 06:18 »
¡Saludos!
Necesito ayuda.
Estoy trabajando con Dev-C++ 4.9.9.2 - The Buggy Version  - y no logro configurarlo para que funcione con librerías creadas por mi.
Quizás es el cansancio, y espero que así sea y no sea difícil, pero ni un ejemplo sencillo puedo hacer que funcione.
En mi carpeta de trabajo c:\Cpp Stuff\Test tengo estos archivos:
general.h // Defines, typedef structs, consts y demás declaraciones comunes. claseBMP.h // Definición y cabecera de la clase. claseBMP.cpp // Código de las funciones y procedimientos de la clase. Test.cpp // Programa que utiliza las clases y también a la librería [B]general.h[/B]
¿Cómo configuro Dev-C++ para que utilice esas liberías? ¡Gracias de antemano, manos![/color]
3
« en: Martes 6 de Junio de 2006, 06:01 »
¡Saludos!
De nuevo necesitando su ayuda.
Entregué un trabajo, codificado y compilado con Borland Turbo Pascal 7.0, y la Profesora de la asignatura me dijo que no pudo correr una pequeña parte del programa que permite graduar la velocidad de los sonidos que será utilizada durante todo el programa. Me dijo que lo tuvo que correr sin esa parte 
Es un trabajo en el que pedían, mediante el uso de Pilas Estáticas, manejar unas cajas.
SI PUEDEN, agradecería que algunos de ustedes bajaran los archivos y los corrieran a ver qué problemas consiguen.
Yo lo probé en 3 computadores (Windows 98 - 133 MHz, Windows XP 2.algo GHz, Windows XP 2.40 GHz), y funcionó bien. Lo único es que quizás necesite opciones más rápidas para el Windows 98 de 133 MHz, pero compiló bien, y fué ejecutado sin problemas.
Los archivos los pueden encontrar aquí:
http://mipagina.cantv.net/bernardolg/Pascal/index.html
¡Gracias de antemano![/size]
4
« en: Lunes 5 de Junio de 2006, 07:13 »
¡Saludos! Antes que nada, cuando declaro atributos privadas les coloco un "underscore" (' _') delante. Sólo lo hago para tener en cuenta que son privados. He visto códigos que utilizan uno, o dos seguidos, y no sé por qué lo hacen. ¿Existe alguna razón en particular para utilizarlas en los nombres de atributos y funciones? Mi otra duda es que cuando uno declara un destructor, ¿debe codificar como destruir el objeto?, ¿o el programa lo hace solo? Por ejemplo, parte de un código es el siguiente: class C_BitMap { private: uShort _arTipo; uLong _arTam; ... uLong _imAncho; uLong _imAlto; ... uChar _vectorBmp[maxPixeles]; public: // Constructor del Objeto a partir de un archivo bitmap. C_BitMap(const char in[]) { cargaArchivoBitMap(in); } ... // Destructor. ~C_BitMap() {} ...
¿Ese destructor debe llevar algún código para liberar la memoria? ¿Cómo lo llamo en el código principal para que destruya a un objeto? ¡Gracias de antemano!
5
« en: Miércoles 10 de Mayo de 2006, 22:10 »
Saludos! Por favor necesito quien me puede decir cómo imprimir archivos .pas usando MS Word 2003 para que utilice la codificación del pascal (que se impriman los caracteres especiales!). Sino qué otro edior puedo utilizar para esto, si no es MS Word. Gracias! 
6
« en: Sábado 22 de Abril de 2006, 17:55 »
Saludos! Tengo 2 discos duros, en 2 racks, unos sobre el otro (unos 2 centímetros de separación). Tienen entrada de aire al CASE de sobra! (hasta removí una de las tapas frontales). Uno es para Windows XP, y el otro para Linux. Instalé "HDD Thermometer" porque sentí que estaban calientes, y ambos están por encima de los 50°C ¿Es debido a la poca separación que tienen? ¿Puedo comprar cualquier ventilador de PCs y apuntarlo a los HDs? Thanks por la ayuda!
7
« en: Sábado 14 de Enero de 2006, 03:14 »
Saludos!
Ya solventé el problema del Alias.
Fué debido a malos consejos de un profesor.
Nos vemos!
8
« en: Viernes 18 de Noviembre de 2005, 08:15 »
¡Saludos! Estoy comenzando a aprender Java, y comenzando a usar PostGreSQL también. Necesito gran ayuda. Estoy trabajando bajo Windows XP Home Edition, y trabajando con: PostgreSQL 8.0. pgAdmin III, v. 1.2.2. jdk1.5.0_04. JCreator 3.50 LE. Estoy tratando de correr el siguiente ejemplo: // Archivo Connect.java import java.sql.*; public class Connect { public static void main(String args[]) { Connection cnn; try { Class.forName("org.postgresql.Driver"); cnn = DriverManager.getConnection("jdbc:postgresql://localhost:5432/","postgres",""); Statement stmt = cnn.createStatement(); int login=1; ResultSet rs = stmt.executeQuery("select * from usuarios"); if (rs!=null) { while (rs.next()) { System.out.println(rs.getString("login")); System.out.println(rs.getString("password")); System.out.println(rs.getString("nombre")); } } rs.close(); stmt.close(); cnn.close(); } catch (Exception e) { System.out.println(e); } } }
No dejo de obtener el siguiente error: java.lang.ClassNotFoundException: org.postgresql.DriverHe leido varios mensajes en este y otros foros, pero nada aún. Luego de muchos intentos, mi PATH, CLASSPATH y otras variables de entorno están así: - - - - PATH %SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%JAVA_HOME%\bin - - - - JAVA_HOME C:\Archivos de programa\Java\jdk1.5.0_04 - - - - CLASSPATH %JAVA_HOME%\jre\lib; C:\Archivos de programa\PostgreSQL\8.0\jdbc\postgresql-8.0-311.jdbc2.jar; C:\Archivos de programa\PostgreSQL\8.0\jdbc\postgresql-8.0-311.jdbc2ee.jar; C:\Archivos de programa\PostgreSQL\8.0\jdbc\postgresql-8.0-311.jdbc3.jar - - - - QTJAVA C:\Archivos de programa\Java\jre1.5.0_04\QTJava.zip - - - - ¡Cualquier ayuda vale!
9
« en: Domingo 4 de Julio de 2004, 22:43 »
Saludos! De nuevo necesito ayuda con la configuración. No logro hacer que para "Project Settigns" > "Link" > "Output file name:" quede fijo (default) el nombre del archivo (nombre.exe), en lugar de "Debug/nombre.exe". Debo cambiarlo para CADA archivo que codifico. Gracias de antemano por la ayuda! A programar!
10
« en: Domingo 4 de Julio de 2004, 21:06 »
Saludos! Ayer instalcomencé a estudiar C++, y en la PC tienen Visual C++. Hay forma de mostrar los números de las líneas de código? Gracias de antemano. A programar!
11
« en: Lunes 16 de Febrero de 2004, 05:31 »
Saludos!. Estoy programando con Turbo Pascal, y quiero comenzar a programar con C++. Qué versión debo utilizar, y dónde lo puedo bajar?. Gracias!. Benardo L.
12
« en: Sábado 14 de Febrero de 2004, 03:55 »
Saludos!. Mis dos programas más complejos, hasta ahora, los introduje en una unidad. Aquí está la unidad: BELGUNIT.TPUy aquí está un ejemplo de como utilizarla: TESTBLUN.PASA programar!. Bernardo L.
13
« en: Jueves 12 de Febrero de 2004, 05:55 »
Saludos!. Me falta validar variables de tipo REAL, pero ese lo hago luego. Si les gusta, usenlo. Lean el código, q no es muy complejo. A programar!. Bernardo L. NOTA: también lo subí a VALIDABL.PAS, para click con botón derecho, y guardarlo.
14
« en: Viernes 6 de Febrero de 2004, 02:46 »
Saludos!. Tengo una Epson Stylus C43SX, y cuando imprimo desde el Turbo Pascal, no imprime los caracteres especiales!!. La que tenia antes, Stylus Color 400, si estaba configurada para eso. ¿¿Como puedo hacer que los imprima??  Gracias de antemano. Bernardo L.
15
« en: Miércoles 4 de Febrero de 2004, 20:27 »
Algo necesitado con frecuencia, es saber si un año es o no bisiesto. Para ello, diseñé éste sencillo código: FUNCTION Bisiesto (Anio:INTEGER):BOOLEAN; BEGIN Bisiesto:=FALSE; IF Anio MOD 400 = 0 THEN Bisiesto:=TRUE ELSE IF Anio MOD 100 = 0 THEN Bisiesto:=FALSE ELSE IF Anio MOD 4 = 0 THEN Bisiesto:=TRUE END;
Bueno, estos 4 por ahora. Suerte, y espero les sirvan. A programar!. Bernardo L.
16
« en: Miércoles 4 de Febrero de 2004, 20:00 »
A veces queremos detener el programa, mostrando información, por una cantidad de segundos. Como el Delay es relativo a cada computador, delay (1000) no garantiza que transcurra 1 segundo (la solución a esto, o por lo menos, lo mas cercano a solucionarlo, lo demostraré mas adelante). Diseñé el siguiente Procedure: PROCEDURE Segundos (Seg:BYTE); { Funciona para detener un programa por 'Seg' segundos. Valores de 'Seg' mayores a 60 segundos pueden ocasionar calculos de tiempo erroneos. } VAR H1,H2,M1,M2,S1,S2,Cent1,Cent2:WORD; S0:0..60; S90:0..1; S0B,Cent90B:BOOLEAN; BEGIN S0:=0; S90:=0; S0B:=FALSE; Cent90B:=FALSE; GETTIME (H1,M1,S1,Cent1); INC (M1); INC (S1); INC (Cent1); IF Cent1 > 90 THEN BEGIN Cent90B:=TRUE; Cent1:=Cent1-90; S90:=1 END; IF S1 = 1 THEN S0B:=TRUE; REPEAT GETTIME (H2,M2,S2,Cent2); INC (M2); INC (S2); INC (Cent2); IF (Cent2 > 90) AND (M1 = M2) AND Cent90B THEN Cent2:=Cent2-90; IF (S2 = 1) AND NOT S0B THEN S0:=60; S2:=S2+S0; UNTIL (S2-S1 >= Seg+S90) AND (Cent2 >= Cent1) END;
el programa o unidad que contengan a este Procedure, debe tener utilizar DOS (USES Crt,Dos;). Bernardo L.
17
« en: Miércoles 4 de Febrero de 2004, 19:55 »
Este Procedure sirve para centrar un String, no importa si se encuentra dentro de un Window, o si la resolución es de 40 u 80 columnas. PROCEDURE CentrarTxt (WriteTexto:STRING); VAR X,Y,Z:BYTE; BEGIN X:=1; Y:=WHEREY; Z:=LO (WINDMAX) - LO (WINDMIN) + 1; IF LENGTH (WriteTexto) < Z THEN X:=((Z-LENGTH (WriteTexto)) DIV 2)+1; GOTOXY (X,Y); WRITE (WriteTexto) END;
18
« en: Miércoles 4 de Febrero de 2004, 19:50 »
Saludos!. Solo queria compartir algunos de mis codigos, que pienso pueden ser de utilidad para varios. Beep. PROCEDURE Beep (T,D:WORD); BEGIN SOUND (T); DELAY (D); NOSOUND END;
Este es un procedure muy simple, que pueden utilizar por programa, o sumarlo a alguna unidad creada por ustedes. Simplemente utiliza el Tone y el Delay para emitir un sonido. Creo que ahorra lineas de codigo.
19
« en: Jueves 22 de Enero de 2004, 22:48 »
Saludos!. Cansancio, privación del sueño (o por lo menos de razonables horas del mismo), o simple ignorancia (no de forma excluyente) pueden ser la causa de que no encuentre el porqué éste segmento de un programa que estoy diseñando (mas de 1000 lineas, no vale la pena que lo pegue completo) entra en un ciclo cuando para el Código no introduzco datos. El lenght va a ser 0, pero luego toma un valor nulo y entra con length = 0 y cae en el ciclo. PROGRAM Prac002; USES CRT; VAR Dd,Mm,Aa:WORD; Codigo:STRING; Resp:CHAR; PROCEDURE LeerTexto (WriteTexto:STRING; VAR OkeTexto:STRING; RespAttr:BYTE); VAR Oke:BOOLEAN; X,Y,X2,Y2,TAtt1:BYTE; BEGIN X:=WHEREX; Y:=WHEREY; REPEAT Oke:=TRUE; GOTOXY (X,Y); CLREOL; WRITE (WriteTexto,': '); TAtt1:=TEXTATTR; TEXTATTR:=RespAttr; READ (OkeTexto); TEXTATTR:=TAtt1; {} IF LENGTH (OkeTexto) = 0 THEN BEGIN X2:=WHEREX; Y2:=WHEREY; TEXTCOLOR (14); WRITE (#7); WRITE (' No ha escrito nada!.'); READKEY; GOTOXY (X2,Y2); TEXTCOLOR (4); CLREOL; Oke:=FALSE END {} UNTIL Oke; WRITELN END; PROCEDURE LeerFecha (WriteTexto:STRING; VAR Dd,Mm,Aa:WORD; RespAttr:BYTE); VAR Oke:BOOLEAN; X,Y,X2,Y2,TAtt1:BYTE; BEGIN X:=WHEREX; Y:=WHEREY; WRITELN (WriteTexto); WRITE ('(DD, MM, AAAA, cada uno seguido de <ENTER>): '); TAtt1:=TEXTATTR; TEXTATTR:=RespAttr; X2:=WHEREX; Y2:=WHEREY; CLREOL; WRITE (' / /'); GOTOXY (X2,Y2); READ (Dd); GOTOXY (X2,Y2); WRITE (Dd:2,'/'); READ (Mm); GOTOXY (X2,Y2); WRITE (Dd:2,'/',Mm:2,'/'); READ (Aa); GOTOXY (X2,Y2); WRITELN (Dd:2,'/',Mm:2,'/',Aa:4); TEXTATTR:=TAtt1 END; BEGIN REPEAT TEXTBACKGROUND (7); CLRSCR; TEXTCOLOR (0); WRITELN (' Introduzca los datos de la Póliza a vender,'); WRITELN ('y los datos del Automóvil a asegurar:'); WRITELN; WRITELN; TEXTCOLOR (4); LeerTexto ('Código de la Póliza (0 para salir)',Codigo,117); WRITELN; LeerFecha ('Fecha de Adquisición de la Póliza',Dd,Mm,Aa,117); WRITELN; WRITE (' ¿Desea procesar otra Póliza? (s/n) '); Resp:=UPCASE (READKEY) UNTIL Resp = 'N'; WRITELN; WRITE (' FIN.'); READKEY END.
Publiqué el .PAS en: http://mipagina.cantv.net/bernardolg/tp/FECHATXT.PAS(click con el boton derecho del MOUSE, y "Guardar destino como..."). GRACIAS a quien intente ayudarme. Atte. Bernardo L.
20
« en: Martes 6 de Enero de 2004, 03:12 »
Saludos!. Hace un tiempo, cuando comence a estudiar JavaScript y HTML, diseñé un pequeño código que cambia el título de la Página Web. <!-- Start Cambia Título --> <!-- Start Change Title --> <script language="JavaScript"> <!-- var arr_blg = new Array() arr_blg[0] = "MENSAJE 1" arr_blg[1] = "MENSAJE 2" arr_blg[2] = "MENSAJE 3" arr_blg[3] = "MENSAJE 4" arr_blg[4] = "MENSAJE 5" var time_b = 5000; var refresh = null; var i_blg = 0; function wonka_title() { if (i_blg > 4) { i_blg = 0 } blg = arr_blg[i_blg]; document.title = blg; refresh = setTimeout("wonka_title()",time_b); i_blg = i_blg+1 } wonka_title(); //--> </script> <!-- End Cambia Título --> <!-- Created by Bernardo E. López García. January 2003. -->
Como ven, pueden poner la cantidad de mensajes que quieran, y el valor de 5000 de tiempo de espera entre mensaje y mensaje de la variable time_b lo pueden cambiar tambien. Una página que está utilizando el código es www.saracom.comBernardo L.
21
« en: Miércoles 31 de Diciembre de 2003, 18:01 »
Saludos!. Creé este código en donde aparece el valor de TextAttr (que va de 0 a 255) para cada color de texto (TextColor, que va del 0 al 31, contando los que titilan - blink), con cada color de fondo (TextBackground, que va del 0 al 7, y que son iguales a los 8 primeros colores del TextColor). >> Para cambiar de color de fondo, presiona cualquier tecla. Para salir del programa, presiona la tecla ESC en cualquier momento << Hay una copia de este archivo en http://mipagina.cantv.net/bernardolg/tp/files/BACKGRD1.PASDespues que veas la combinación de color de texto con color de fondo, simplemente haces TextAttr:=192 (letras negras que titilan sobre fondo rojo), o TextAttr:=15 (letras blancas en fondo negro), o el que mas te sirva, en cualquier parte de tu programa. Utiliza Normvideo para reestablecer el TextAttr original, o lee los mensaje de este foro para otros ejemplos del TextAttr. A programar!. Bernardo L. {* * * *} PROGRAM TextoFondo; USES CRT; VAR C1:BYTE; Chr1:CHAR; PROCEDURE TEXTOO; VAR C1,C2:BYTE; BEGIN FOR C1:=0 TO 31 DO BEGIN TEXTCOLOR (C1); FOR C2:=1 TO 4 DO WRITE (TEXTATTR:5) END; END; BEGIN CLRSCR; C1:=0; WHILE Chr1 <> #27 DO BEGIN IF C1 = 8 THEN C1:=0; TEXTBACKGROUND (C1); CLRSCR; TEXTOO; INC (C1); Chr1:=READKEY END; NORMVIDEO; CLRSCR END. {* * * *} NOTA: correciones bien recibidas.
22
« en: Martes 30 de Diciembre de 2003, 16:20 »
Saludos!. El TextAttr devuelve un valor numerico del color utilizado para el texto, y mas nada?. Es la única información que da?. Gracias!. Bernardo
23
« en: Lunes 15 de Diciembre de 2003, 16:24 »
Saludos!.
Como puedo cambiar la resolución del User Screen donde se corren los programas?.
En otra PC que utilice, tenian una resolucion como de mas de 40 lineas.
Gracias!.
Bernardo L.
24
« en: Sábado 13 de Diciembre de 2003, 19:25 »
Saludos!. Tengo una Impresora Epson Stylus Color 400, que hace un par de años funcionaba bien con el TP 7. Re-instalé hace un par de semanas el TP 7 para volverlo a estudiar, y no quiere imprimir nada!!  Cómo debo configurar Filter Path y Command Line?. Los tengo en LPT1 $NOSWAP /EPSON respectivamente. Gracias!.
25
« en: Sábado 13 de Diciembre de 2003, 19:10 »
Saludos!. En mi de 133 MHz, cuando corro el TP 7 en FULL SCREEN, cuando trato de utilizar Alt+Tab para volver a Windows, se tranca, y tengo que apagarla y volverla a prender. Alguna idea?. Gracias!.
Páginas: [1]
|
|
|
Mostrar Mensajes
