|
|
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 - Jalm
Páginas: [1]
1
« en: Sábado 4 de Febrero de 2006, 15:28 »
Alguien no tiene esta libreria para 5.3 que me la pueda pasar ya
que hace algun tiempo la perdi y ahora la ocupo. Gracias.
2
« en: Viernes 12 de Noviembre de 2004, 15:04 »
Si estas usando Clipper 5.x, las librerias de Ca-tools que vienen con el traen funciones para manipular hasta 4 puertos seriales simultaneamente segun la documentacion de NG. Lamentablemente no puedo ser de mas ayuda pues nunca he necesecitado usar estos puertos. En todo caso aqui estan los archivos de ayuda de Norton : http://whitetown.getfilesfast.com/cd1/ng/ng1/tools1-3.ziphttp://whitetown.getfilesfast.com/cd1/ng/ng1/tools4-a.zipLa ayuda de las funciones estan en la seccion de Serial Comunication en el primer archivo. Suerte.
3
« en: Sábado 2 de Octubre de 2004, 17:57 »
Algunas preguntas :
Has probado con otra base que sepas que
no dio el problema en su momento, esto para
descartar un daño mayor en la base actual ?
Se le han hecho modificaciones al programa
recientemente, al usuario a nivel de Novell
o la computadora ?
Da el mismo error en las demas maquinas/usuarios ?
Por experiencia he notado que ciertos caracteres
especiales como las "caritas" ocacionan extraños
comportamientos a veces serios, aunque podria que
no tengan que ver sino mas bien que su presencia en
la base se deba a un daño en la estructura.
Jose.
4
« en: Jueves 30 de Septiembre de 2004, 22:51 »
Quiza la base este dañada, podrias probar creando una
nueva estructura y vaciandole los datos de la que da
problemas. En mas de una ocacion esto me ha solucionado
errores inexplicables a la hora de guardar informacion.
Jose.
5
« en: Miércoles 25 de Agosto de 2004, 18:22 »
Jaime,
No se que version de Clipper tienes, pero si es 5.x
puedes usar RANDOM().
Ej:
Para generar numeros aleatorios de 1 a 10
mi_numero = random()%10 +1
Debe interpretarse asi, obtengo un valor en un rango de
10 numeros empezando desde 1.
De 53 a 161
mi_numero = random()%109 +53
Debe interpretarse asi, obtengo un valor en un rango de
109 numeros empezando desde 53.
Se pueden concatenar varios numeros aleatorios para crear
un nombre "aleatorio" para algun archivo temporal.
m_rand = ' '
for r = 1 to 7
m_rand = alltrim(m_rand + str(random()%9 +1,1))
next
Suerte
Jose
6
« en: Miércoles 21 de Julio de 2004, 17:15 »
Debes tener en cuenta que los datos del
archivo de texto deben estar tabulados
en el mismo orden que la base y deben
tener el mismo ancho en caracteres,
sino la base se llena desordenada.
Ej.
En el archivo de texto:
Juan Robles......50..Calle del Rio No.45
Carlos Garcia...45..Avenida del Parque 25
(Ignora los puntos)
El primer dato mide 15, el segundo mide 6 y
el tercero 21 caracteres. Con los campos
numericos no importa si hay espacios vacios
antes y/o despues ya que el texto no es tomado
en cuenta.
La base de datos debe tener por lo tanto
un campo caracter de 15, uno numerico de 6 y
uno caracter de 21.
La instruccion seria
use mi_base.dbf exclusive
append from mi_archivo.txt sdf
Suerte
Jose.
7
« en: Jueves 3 de Junio de 2004, 19:09 »
Debes usar la funcion setcolor() antes de ingresar al area
de gets o dejarla al inicio de tu programa si quieres tener
los mismos colores en todo tu programa. Los parametros
por defecto son: setcolor('w/n,n/w,n/n,n/n,n/w'). El segundo
parametro (n/w) afecta el color del texto y el fondo de los
gets "activos" o sea en el que se esta parado. El quinto
parametro (n/w) afecta el texto y fondo del get "no activo".
Solo consulta la tabla de colores de Clipper y reemplaza
los parametros con los colores que desees.
Ejemplo :
setcolor(' ,w+/b, , ,bg/w'). Esto creara un get activo de texto
blanco con fondo azul y gets inactivos de texto celeste con
fondo gris.
suerte
Jose
8
« en: Sábado 23 de Noviembre de 2002, 15:48 »
Para eso necesitarias minimo Clipper 5.3
con sus librerias graficas o si estas con
5.2 o menor alguna libreria grafica de
terceros. Hace algun tiempo use Flipper
para hacer un juego, el unico inconveniente
es que es en 16 colores. Si piensas en algun
Clipper para Windows estos traen sus
funciones para manipular mapas de bits.
Suerte,
Jose Lopez.
9
« en: Viernes 8 de Noviembre de 2002, 00:30 »
Monica,
El error wrt0022 sale cuando el compilador
encuentra una funcion no existente en
tu programa debido usualmente a un error de
sintaxis en el nombre de la esta, por ejemplo
si en lugar de file() escribes xile() para el
compilador xile() no existe.
Fijate en el "symbol" que se despliega en
pantalla.
Suerte
Jose.
10
« en: Jueves 7 de Noviembre de 2002, 15:07 »
Hola,
Puedes usar tambien una funcion de CA-tools
que se llama GETSECRET(), esta disenada para
capturar claves.
Jose.
11
« en: Miércoles 6 de Noviembre de 2002, 14:47 »
Hace un tiempo encontre esta rutina para HP,
aun no la he probado asi que no se si funciona.
Suerte
Jose
/*
Esta fun‡„o tem como objetivo a impress„o em cores para a impressora HP.
Autor: Emerson Borges dos Santos
Fone: 041-961-5884
Compila‡„o Clipper hp.prg
Linkedi‡„o Rtlink hp.obj
*/
cls
SIMNAO := SPACE(01)
@ 12,15 SAY "Confirma o Teste de Impress„o para a HP ?" GET SIMNAO PICTURE "!";
VALID(SIMNAO $ "SN")
?? chr(07)
READ
IF LASTKEY() = 27
CLS
QUIT
ENDIF
IF SIMNAO = "S"
SET DEVICE TO PRINT
SET CONSOLE OFF
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s17.5H'
@ PROW()+1,1 SAY "Teste de Impressao Letra 17,5 Cpp"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s12H'
@ PROW()+1,1 SAY "Teste de Impressao Letra 12 Cpp"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s3H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Expandida"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+'(s50H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Expandida"
@ PROW()+1,1 SAY CHR(27)+'(s10H'
@ PROW()+1,1 SAY "Teste de Impressao Letra Normal"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#4#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 4 Linhas por Polegada"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#6#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 6 Linhas por Polegada"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#8#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 8 Linhas por Polegada"
@ PROW()+1,1 SAY CHR(27)+CHR(38)+CHR(108)+'#2#'+CHR(68)
@ PROW()+1,1 SAY "Teste de Impress„o 2 Linhas por Polegada"
EJECT
SET CONSOLE ON
SET DEVICE TO SCREEN
// HP 600 e HP 660
OFICIO := CHR(27)+CHR(38)+CHR(108)+CHR(51)+CHR(65)
LENGH := CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(80)
LENTXT := CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(70)
TOPO := CHR(27)+CHR(38)+CHR(108)+'#000#'+CHR(69)
ELITE := CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(84)
VERTIC := CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(83)
ITALIC := CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(83)
NORMAL := CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)
PC850 := CHR(27)+CHR(40)+CHR(115)+'#06#'+CHR(72)
// Tamanho dos Caracteres CPP - Caracteres por Polegadas
Tam04 := CHR(27)+CHR(40)+CHR(115)+'04'+CHR(86)
Tam10 := CHR(27)+CHR(40)+CHR(115)+'10'+CHR(86)
// Tamanho dos Pontos - Altura do Caractere
Normal10 := Tam04+CHR(27)+CHR(40)+CHR(115)+'10'+CHR(72)
Normal11 := Tam04+CHR(27)+CHR(40)+CHR(115)+'11'+CHR(72)
Reduzido := Tam04+CHR(27)+CHR(40)+CHR(115)+'15'+CHR(72)
Defaut := CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)+VERTIC
Cor_Des := CHR(27)+CHR(42)+CHR(114)+CHR(49)+CHR(85)
Cor := CHR(27)+CHR(42)+CHR(114)+CHR(45)+CHR(51)+CHR(85)
Azul := CHR(27)+CHR(42)+CHR(118)+'1'+CHR(83)
Magenta := CHR(27)+CHR(42)+CHR(118)+'2'+CHR(83)
Cyan := CHR(27)+CHR(42)+CHR(118)+'3'+CHR(83)
Amarelo := CHR(27)+CHR(42)+CHR(118)+'4'+CHR(83)
Verde := CHR(27)+CHR(42)+CHR(118)+'5'+CHR(83)
Vermelho := CHR(27)+CHR(42)+CHR(118)+'6'+CHR(83)
Preto := CHR(27)+CHR(42)+CHR(118)+'7'+CHR(83)
SET DEVICE TO PRINT
@ 00,00 SAY Defaut+OFICIO+LENGH+LENTXT+PC850+ELITE+TOPO+NORMAL10+''
@ 01,00 SAY Cor+Azul + "Teste de Impressao de Cor - Azul"
@ 02,00 SAY Cor+Magenta + "Teste de Impressao de Cor - Magenta"
@ 03,00 SAY Cor+Cyan + "Teste de Impressao de Cor - Cyan"
@ 04,00 SAY Cor+Amarelo + "Teste de Impressao de Cor - Amarelo"
@ 05,00 SAY Cor+Verde + "Teste de Impressao de Cor - Verde"
@ 06,00 SAY Cor+Vermelho + "Teste de Impressao de Cor - Vermelho"
EJECT
SET DEVICE TO SCREEN
ELSE
CLS
QUIT
ENDIF
Páginas: [1]
|
|
|
Mostrar Mensajes
