• Jueves 2 de Mayo de 2024, 05:40

Mostrar Mensajes

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 - JONMI

Páginas: [1] 2
1
Visual Basic 6.0 e inferiores / Re: Ayuda Para Imprimir, Me Van A Despedir
« en: Viernes 2 de Julio de 2004, 16:50 »
hola,

yo tenia el mismp problema con una impresora. Mandaba un informe de access e imprimia correctamente los datos, pero luego seguia tirando del papel un rato desaprovechando mucho papel. Este problema se debia a que al enviarle un documento(informe de access) la impresora leia al final del documento un salto de pagina, con lo que seguia tirando del rollo de papel hasta lo que creia que media la pagina.

como le mandas tu los datos a la impresora?

mi solucion fue abrir desde codigo el puerto LPT1 al que estaba conectado y enviarle las lineas con el siguiente codigo, asi paraba cuando acababan los datos.
Código: Text
  1. Open "LPT1:" for output as #1
  2. Print #1,str
  3. Close #1
  4.  
donde str es un string con los datos a imprimir.

haber si te sirve para algo..

2
Visual Basic 6.0 e inferiores / Re: Evento Keypress
« en: Jueves 1 de Julio de 2004, 09:54 »
hola de nuevo,

el codigo de antes funciona correctamente, pero twengo un pequeño problema. He dado una funcion a casi todas las teclas de funcion, pero la tecla F9 me da problemas. Me da un error de "No coinciden los tipos". Si llamo al mismo metodo desde un boton no da error, pero si lo hago con F9 da ese error y no se ejecuta el metodo.


a ke se debe?

3
Visual Basic 6.0 e inferiores / Re: Evento Keypress
« en: Jueves 1 de Julio de 2004, 09:08 »
hola gracias por la respuesta,

pero, yo estoy haciendo el programa en access, valdra ese codigo para VBA?

gracias de nuevo.

4
Visual Basic 6.0 e inferiores / Evento Keypress
« en: Miércoles 30 de Junio de 2004, 17:07 »
HOLA,

evento keypress en un formulario, para que al presionar la tecla me ejecute un metodo. Que valor ascii tienen las teclas de funcion(F1,F2,F3...)?

el codigo deberia ser algo así, no?
Código: Text
  1.  
  2. Private Sub Form_KeyPress(KeyAscii As Integer)
  3.     If KeyAscii = "Valor ascii de la tecla" Then
  4.           'ejecutar metodo
  5.     End If
  6. End Sub
  7.  
  8.  

si alguien sabe la solucion, agradeceria una respuesta

gracias de nuevo,

5
Visual Basic 6.0 e inferiores / Re: Enviar Lines A Impresora Por Lpt1
« en: Miércoles 30 de Junio de 2004, 10:47 »
hola
acabo de solucionar el problema. Lo he probado en un PC con windows 98 y me ha funcionado. Lo que todavia no entiendo es, porque no funciona con XP. Si alguien lo sabe agradeceria la respuesta.

gracias de todos modos

:alien:  :scream:  :kicking:

6
Visual Basic 6.0 e inferiores / Enviar Lines A Impresora Por Lpt1
« en: Miércoles 30 de Junio de 2004, 10:27 »
hola,
tengo un problema a la hora de enviar unas variables a una impresora por puerto paralelo para que imprima su contenido. Esta impresora es una impresora de las de papel continuo, y en el papel hay una ficha en blanco cada 5cm mas o menos. Hasta ahora he estado enviando los datos a la impresora mediante un informe de access, pero tras imprimir los datos, la impresora sigue tirando del papel dejando fichas en blanco.
Ahora estoy intentando enviar las lineas de uno en uno para que tras la ultima linea que le envie la impresora se pare. Para ello he utilizado el siguiente codigo:
Código: Text
  1. Open "LPT1:" For Output As #1
  2. Print #1, linea
  3. Close #1
  4.  
Linea es una variable de tipo string. Deberia de funcionar bien este codigo?Hay alguna otra forma de enviar datos por puerto paralelo desde VBA?

muchas gracias,

7
VBA / Como Meto Una Variable En Un Informe?
« en: Martes 29 de Junio de 2004, 14:27 »
hola

quiero imprimir un informe desde un formulario de access y me gustaria saber como meter en dicho informe los datos de una variable de tipo string.
que es lo que deberia escribir dentro del cuadro de texto del informe?

muchas gracias,

8
Visual Basic 6.0 e inferiores / Enviar Datos A Una Impresora Puerto Serie
« en: Martes 29 de Junio de 2004, 09:22 »
hola,

estoy desarrollando una aplicacion en access, y necesito enviar unos datos a una inpresora por puerto serie para imprimirlos. Lo he intentado con el control XMComm y abriendo el puerto con la instruccion

Código: Text
  1. open "COM1:9600,n,8,1" for output
  2.  


la inpresora no hace nada le mande lo que le mande. He echo mil pruebas, pero sin solucion.Conoce alguien alguna otra forma de enviar datos via puerto serie?

gracias

:rolleyes:

9
Visual Basic 6.0 e inferiores / Re: Problemas Con La Intruccion Open
« en: Miércoles 23 de Junio de 2004, 17:26 »
epa brroz

me explico, la inpresora a la que esta conectado el PC esta a demasiada distancia como para utilizar el puerto paralelo, con lo que hay una especie de empalme hecho para que desde el COM2 del PC se pueda conectar al puerto paralelo de la inpresora(una chapucilla). Con el programa que esta actualmente funcionando, un programa hecho en BASIC, funciona bien, y to lo unico que he hecho ha sido copiar literalmente la linea con la que se abre el puerto, para evitarme problemas.

lo que no entiendo es porque da error en w98 y no en xp .

no se si sabes porque.

10
Visual Basic 6.0 e inferiores / Problemas Con La Intruccion Open
« en: Lunes 21 de Junio de 2004, 12:18 »
hola,
estoy desrrollando una aplicacion en access y tengo un problema. Por el puerto serie debo mandar unos datos a una inpresora. Es una inpresora de las de papel continuo, y por eso utilizo las instrucciones OPEN(para abrir el puerto) y print(para enviar cada linea de texto).

la siguiente instruccion me funciona correctamente en un PC con windows XP, pero en en otro PC windows 98 me da error. La version de Access es la misma en los dos PCs(office 2000 SP1)

Open "COM2:9600,N,7,1,DS,CS" For Output As #1

me dice: Archivo no encontrado. Por que puede ser?

muchass graciass

 :hola:  :kicking:

11
Visual Basic 6.0 e inferiores / Re: Evento De Un Listbox
« en: Jueves 17 de Junio de 2004, 15:51 »
aki tienes la base de datos en access con un formulario y una tabla. El unico formulario ke te puesto es el que me da problemas.Si kieres haz la prueba poniendo el evento click, pero ya veras ke no hace nada.

bueno, si encuentras la solucion te lo agradeceria mucho.

12
Visual Basic 6.0 e inferiores / Re: Evento De Un Listbox
« en: Jueves 17 de Junio de 2004, 13:38 »
gracias por esas ayudas, pero estoy haciendo la aplicacion en Access,y creo que no admite esas propiedades. De todas formas sigo sin conseguir lo de antes, solo funciona con doble click,me estoy volviendo loco......

si no me crees luego te adjunto el .mdb

13
Visual Basic 6.0 e inferiores / Re: De String A Ascii
« en: Jueves 17 de Junio de 2004, 13:20 »
mediante un for puedes hacerlo facilmente:

for i=1 to len(str)
      letra=mid(str,i,1)
      num=asc(letra)
next i

donde letra es un string de un caracter,str es la cadena entera y num es un entero donde se guardara el codigo ascii

haber si te sirve

14
Visual Basic 6.0 e inferiores / Re: Evento De Un Listbox
« en: Jueves 17 de Junio de 2004, 13:16 »
he conseguido hacerlo con el evento dobleclick, pero de todas formas, si alguien sabe como hacerlo simplemente al seleccionar un elemento del listbox que lo exponga aki por favor.

muchas gracias de nuevo

 :alien:  :scream:

15
Visual Basic 6.0 e inferiores / Re: Evento De Un Listbox
« en: Jueves 17 de Junio de 2004, 12:52 »
hola,

con el evento click no funciona,bueno, eso creo, aki esta el kodigo ke he escrito dentro del evento click.

    Dim I As Integer
    For I = 1 To Me!LISTA.ListCount
        If Me!LISTA.Selected(I) = True Then
            Me!KOD1 = Me!LISTA.Column(0, I)
            Me!DM1 = Me!LISTA.Column(1, I)
            Me!BUR1 = Me!LISTA.Column(2, I)
        End If
    Next I

donde lista es el listbox,y KOD1,DM1,BUR1 son los textbox.Si pongo el mismo codigo en el evento click de un boton si ke funciona, pero yo kiero ke se rellenen los textbox al seleccionar en la lista.

gracias de antemano por tu ayuda.

 :P  :kicking:

16
Visual Basic 6.0 e inferiores / Re: Tratamiento De Caracteres
« en: Jueves 17 de Junio de 2004, 09:57 »
Left(str,n)

donde str es tu string y n el numero de caracteres.

asi es mas facil que con la instruccion MID

17
Visual Basic 6.0 e inferiores / Evento De Un Listbox
« en: Jueves 17 de Junio de 2004, 09:54 »
hola a todos,

mi problema es el siguiente, en un formulario en la parte superior tengo un listbox con todos los registros de una tabla,y debajo tantos textbox como campos que tiene la tabla.Lo que yo quiero hacer es, que en el momento que selecciono un registro en listbox, me pase los datos de ese registro a los textbox. Lo he intentado utilizando distintos eventos de los listbox, pero n lo he conseguido. Solo lo he podido hacer mediante un boton. Alguien sabe que evento puedo utilizar para que se rellenen los textbox al seleccionar en el listbox?

gracias,


 :devil:  :hola:

18
Visual Basic 6.0 e inferiores / Re: Trabajando Con Un Archivo Txt
« en: Lunes 14 de Junio de 2004, 11:03 »
podrias leer linea a linea y luego trabajar con cada caracter de la linea siempre que no sea espacio.

dim linea as string,num as integer
Open "c:\texto.txt" For Input Access Read As #1
While EOF(1) = False
            Line Input #2, Linea
            for i=1 to len(linea)
                 if mid(linea,i,1)<>" "
                    num=CInt(mid(linea,i,1))
                    'realizar operaciones necesarias con numero
                 end if
            next i
Wend
Close #2

hasi recorrerias cada caracter del .txt y harias las operaciones necesarias solo con los numeros

haber si te sirve de ayuda

hamaika ikusteko jaioak gara :devil:  :kicking:

19
Visual Basic 6.0 e inferiores / Re: Ejecutar Una Funcion De Un Libreria
« en: Viernes 11 de Junio de 2004, 15:56 »
epa brroz,

lo primero eskerrik asko por la ayuda ke me has prestado,

el error:"No se encontro el archivo DISLED.LIB", creo que se debe a que el fichero es ilegible por VB. He estado hablando con el que hizo la libreria y me ha dicho que tendra que reescribir la libreria en un dll para que pueda utilizar sus funciones desde VB. lo jodido es que me ha dicho ke me va mandar un presupuesto. Cuando el hizo la libreria se pago un dinero por su trabajo. Nos dio la libreria pero no nos dio el codigo fuente, crees que se lo puedo exigir para reescribir yo esa libreria?

muchas gracias de nuevo. :comp:  :kicking:  :devil:

20
Programación de Videojuegos / Re: Por Donde Empiezo?
« en: Jueves 10 de Junio de 2004, 16:10 »
YA VOY ENTENDIENDO,

entonces, con un compilador Borland C++ y esas librerias puedo empezar a hacer un juego muy simple. pero como?es que no tengo ni idea, donde puedo encontrar un manual para alguien ke empieza desde 0 en este mundo?

muchas gracias,

21
Visual Basic 6.0 e inferiores / Algoritmo Para Generar Un Calendario De Liga
« en: Miércoles 9 de Junio de 2004, 10:52 »
hola,

necesito el algoritmo que genera un calendario de liga metiendole el numero de ekipos y sus nombres. Si no tiene la opcion de elegir el numero de ekipos da igual, necesito algo que genere un calendario de liga.

si alguien tiene el codigo o sabe de donde conseguirlo agradeceria una respuesta.

muchas gracias

 :kicking:

22
Programación de Videojuegos / Re: Por Donde Empiezo?
« en: Lunes 7 de Junio de 2004, 11:10 »
antes de nada gracias por la ayuda,

Esos programas de los que hablais(OPENGL,Directx) se pueden bajar por internet(emule)? y teneis algun manual o tutorial de dichos programas o alguna direccion de donde pueda bajarmelos?

gracias de nuevo,

:lightsabre:

23
Visual Basic 6.0 e inferiores / Re: Ejecutar Una Funcion De Un Libreria
« en: Lunes 7 de Junio de 2004, 09:27 »
hola Brroz,

lo primero gracias por contestarme.

Private Declare Function PonDisplay Lib "DISLED.LIB" (NNUMDIS, NPUERTOIO)
Private Declare Function EnciendeLed Lib "DISLED.LIB" (NNUMLED, NPUERTOIO)

...
I = PonDisplay(CInt(Me!KOPUR), 772)
I = EnciendeLed(CInt(Me!lagun.Column(0, 0)), 772)
...

He probado a utilizar la instruccion declare, pero al llamar a la funcion declarada con DECLARE me da un error:"No se encontro el archivo DISLED.LIB"

dicho archivo esta en el escritorio, igual que mi programa. Tambien he probado a escribir la ruta entera C:\documents and settings... y me da el mismo error.

Cual puede ser la razon?

gracias de nuevo

:rolleyes:

24
Programación de Videojuegos / Por Donde Empiezo?
« en: Viernes 4 de Junio de 2004, 16:01 »
hola,

me gustaria aprender a programar juegos, y no tengo ni idea de por donde empezar. Se programar tanto en java como en visual basic(pequeñas aplicaciones de gestion) y tengo una nocion basica de C++.

Lo que me gustaria saber es donde puedo encontrar manuales para la iniciacion en este mundo y distintos lenguajes en los ke podria empezar a desarrollar pequeños juegos.

muchas gracias

:kicking:

25
Visual Basic 6.0 e inferiores / Re: Ejecutar Una Funcion De Un Libreria
« en: Viernes 4 de Junio de 2004, 14:51 »
tengo  otra pregunta, hay una instruccion llamada Declare que sirve para acceder a funciones de librerias DLL, me gustaria saber si es posible acceder a librerias *.LIB con esta instruccion, yo no lo consigo pero no controlo muy bien la sintaxis.

alguna solucion?

muchas gracias

:devil:

Páginas: [1] 2