|
|
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 - ebolo
1
« en: Sábado 1 de Octubre de 2005, 10:53 »
Hola a todos.
Hasta ahora cuando quería lanzar + de 1 copia de un informe de access hacía un bucle y ya estaba. La impresora estaba conectada a PC directamente.
Pero ahora han cambiado la impresora y han puesto una de red, con lo que se ha hecho ligeramente más lenta la impresión, y la gente se pone nerviosa por tener que esperar 5 segundos.
Claro lo ideal sería lanzar un informe y que salieran tantas copias como queremos. Pero no me sale.
Lo que si puedo hacer es lanzar previsualización del informe y ahí que elijan las copias que quieran, pero claro lo quieren más automático.
Si se os ocurre algo os estaré agradecido.
Saludos.
2
« en: Lunes 14 de Marzo de 2005, 18:45 »
Hola a todos. Voy a intentar explicarme. No tengo ni idea de encoders, sólo se algo de programación en VB y un aficionadillo a la electrónica. Tengo un motor hidraúlico que tiene un encoder, éste se usa para controlar las dosificaciones del motor, es decir, va leyendo las vueltas del motor, dando paro y marcha al motor según se tenga seleccionado en una placa electrónica. El problema es que se ha escoñao la placa, tiene año y medio, vale sobre 2000 euros y no tiene reparación, me han dicho. Bueno, yo lo podría solucionar, a medias, dosificando por tiempo, pero claro las dosificaciones no van a ser tan exactas y va a depender de la velocidad que le demos al motor. Lo suyo es hacerlo a través del encoder, que se cambio hace medio año, pero: - cómo puedo leerlo, ó qué necesito para leerlo, - qué señal da un encoder, - es muy complicado, - .....   La placa electrónica original tiene muchas funciones que yo no uso, sólo uso una de ellas por eso quiero intentar solucionarme el problema y si no soy capaz pues compraré una. Muchas gracias de antemano. Saludos
3
« en: Domingo 23 de Enero de 2005, 19:57 »
Abro este post, para dejar el código fuente de un OCX para dibujar un EAN13 tal como dije.
Lo he probado en distintos pc, y siempre me ha funcionado. Se puede añadir a informes de access.
Dentro del adjunto podeis ver como se usa.
Saludos.
4
« en: Sábado 15 de Enero de 2005, 09:36 »
Hola a todos, quisiera saber si es posible controlar el grosor de las líneas al imprimir por papel las mismas.
Ahora lo que hago es usar la propiedad DrawWidth del objeto donde voy a dibujar líneas.
El valor 1 es un poco fino y el 2 es grueso, necesito algo entre medias, pero el valor 1.5 no vale, lo toma siempre como 2.
xej:
picure1.DrawWhidth=1
picture1.line(0,0)-(20,0)
¿Hay alguna otra manera de dibujar líneas?
Gracias por adelantado.
5
« en: Lunes 10 de Enero de 2005, 00:02 »
Hola a todos. Estoy haciendo un control OCX, es un código barras EAN13, que tiene sólo un picturebox y el usercontrol que lo incluye. La idea es pasarle sólo el código numérico, mediante una propiedad y que me dibuje el código de barras. Bueno hasta ahí lo he conseguido, pero he tenido que crear otras 2 propiedades de Altura y Anchura del OCX, que se las tengo que pasar desde el proyecto donde inserto el OCX. Lo que no consigo es obtener directamente las propiedades Width y Height del OCX del proyecto en que lo inserto. Es decir obtener estos valores sin pasárselos mediante Altura y Anchura. Me explico con un ejemplo: Esto es lo que yo hago y así me lo hace bien: 'El control OCX se llama MiEan13
MiEan13.Anchura = MiEan13.Width
MiEan13.Altura = MiEan13.Height
MiEan13.Número=Text1.Text
Yo lo que quiero hacer es: MiEan13.Número=Text1.Text
porque pienso que esos valores los tengo ya y no tengo porqué volverlos a asignar a ninguna propiedad, pero no hay manera. No sé, dentro del código del OCX cómo conseguir el valor de Width y Height. Perdonar por el rollo, pero no lo saco. Saludos y gracias por adelantado.
6
« en: Sábado 1 de Enero de 2005, 20:43 »
Hola a todos, quisiera saber como puedo obtener el número de serie del disco duro, pero no el del volumen sino el del fabricante.
Saludos y gracias de antemano.
7
« en: Jueves 16 de Diciembre de 2004, 13:18 »
Hola a todos, quisiera saber que programador y que software necesito para leer una eprom M27C256B.
Muchas gracias de antemano.
Saludos.
8
« en: Jueves 26 de Agosto de 2004, 20:23 »
Hola a todos.
¿Cómo se puede poner un index a 0 de un campo autonumérico?.
He estado haciendo pruebas con una base de datos de access2000, y he borrado todos los datos de la misma, pero en el campo autonumérico, me sigue con el último nº que se quedó, y no sé cómo se vuelve a poner a 0.
Saludo y gracias por adelantado.
9
« en: Lunes 23 de Agosto de 2004, 20:33 »
¿Con el objeto Data de una conexión tipo DAO se puede abrir una base de datos de access2000, o es necesario usar ADO?.
Supongo que es necesario usar ADO, pero no lo sé.
Da la casualidad de los programas que he hecho hasta ahora siempre se relacionaban con access97 y no había tenido problemas con DAO, aunque últimamentte ya uso ADO; pero el otro día tuve que hacer un programa sencillo para una base de access2000 y lo hice con DAO porque no tenía el componente de ADO instalado en ese pc (el MDAC_TYP.EXE), me daba errores de no reconocer el mdb y supuse que era eso.
Simplemente es esa duda, si alguien lo sabe con certeza pues habré aprendido una cosa más.
Saludos y gracias.
10
« en: Sábado 31 de Julio de 2004, 17:02 »
Hola a todos.
Estoy intentando usar un combobox con más de 1 columna del componente MS Forms 2.0 Object Library y sólo consigo añadir los items a la primera columna. ¿Cómo se añaden a las otras columnas?.
Gracias de antemano y saludos.
11
« en: Jueves 15 de Julio de 2004, 20:53 »
¿Es posible cambiarle el color de la letra a un botón de comando?. Quisiera ponérla en otro color pero no sé cómo.
Saludos.
12
« en: Jueves 15 de Julio de 2004, 17:31 »
Hola, tengo un pequeño problema al que le he dado varias vueltas y no sé como solucionarlo.
Tengo en msflexgrid que lo hago visible ó no según condiciones, cuando está visible estaba por encima de un frame que tengo, pero ahora al cambiarlo de posición se me pone por debajo del frame y sólo veo parte del msflexgrid.
¿Cómo puedo hacer para ponerlo por encima y se vea cómo antes?.
Esto mismo me ocurre con otros objetos y no se como hacer que un objeto se vea por encima del otro.
No sé si me habré explicado; gracias de antemano.
Saludos.
13
« en: Martes 8 de Junio de 2004, 11:19 »
Hola, tengo un pequeño problema; me está pasando algo raro que no me había pasado nunca, y es que al minimizar la aplicación que estoy haciendo en vez de ponerse en la barra de tareas se me pone pegada a la barra de tareas por encima de ella.
Sabeis porque puede pasar esto, he estado revisando las propiedades del form y no veo nada raro.
Saludos y gracias de nuevo.
14
« en: Lunes 7 de Junio de 2004, 10:59 »
Hola, ¿cómo puedo combinar 2 celdas de una fila?. Lo que quiero hacer es en la fila 0 de un MSFlexGrid, combinar 2 celdas, para ponerle un texto, que me sirve de cabecera de las 2 columnas.
Gracias de antemano.
Saludos.
15
« en: Viernes 7 de Mayo de 2004, 17:16 »
Al consultar ,mediante código, una tabla de access que tiene un campo autonumérico, cuando hago el openrecordset de la consulta SQL me da el siguiente error:
Error 3622 en tiempo de ejecución:
You must use the dbSeeChanges option with openrecordset when accesing
a SQL Server table that has an IDENTITY column
Si sabeis como solucionarlo os estaré agradecidos.
Saludos.
16
« en: Miércoles 5 de Mayo de 2004, 19:12 »
Hola, tengo que abrir una tabla de datos hecha con Fox pro 7.0, con extenxión DBF para recoger los datos y meterlos en access.
Lo que no sé es cómo abrir esa tabla *.dbf, para ver lo que hay en ella y poder recoger los datos.
Muchas gracias de antemano.
Saludos.
17
« en: Viernes 30 de Abril de 2004, 20:53 »
Hola, los datos dentro de las celdas del flexgrid me salen, si son nºs por la derecha y si son letras por la izqda, hay posibilidad de centrar los datos en las celdas?.
Gracias de antemano.
Saludos.
18
« en: Miércoles 28 de Abril de 2004, 14:18 »
Hola.
Os pido consejo por que no sé muy bien que objeto usar. Lo que quiero hacer es, una vez he elegido dentro de un combobox ó listbox una línea (están rellenos de artículos), que me salgan todas las entradas de esos artículos con datos de los mismos.
Los datos los tengo en tablas de access y ahí no tengo problemas de obtenerlos.
El problema es que no sé que usar para mostrar los datos, porque lo suyo es que salga cada entrada en una fila y varias columnas etiquetadas, con los campos que quiero que me aparezcan.
Luego tengo que escoger la fila que deseo para realizar otra serie de acciones.
Estoy intentando usar un listview, pero por si hay otro objeto que me pueda valer.
Saludos y gracias.
19
« en: Jueves 1 de Abril de 2004, 20:58 »
Cómo puedo saber las líneas que contiene un *.txt?
El problema lo tengo porque a veces tiene 5 líneas y a veces tiene 8. Si le pongo que lea 8 líneas y sólo tiene 5 me da error.
Uso el Line input #1.... para leer las líneas
Gracias.
20
« en: Viernes 13 de Febrero de 2004, 20:26 »
Hola.
Tengo hecha una aplicación, puesta en inicio, que usa el componente systray para dejarla activa en la bandeja de sistema. Esta aplicación tiene un timer que cada 1 segundo comprueba si se ha creado un archivo en una ruta y poder realizar una serie de acciones.
El problema está en que si tengo la aplicación en marcha no me deja apagar el pc, y no me interesa decir como se cierra para evitar problemas por cerrarla, se supone, sin querer.
¿Es normal esto?.
Hay alguna otra manera de poner la aplicación en la bandeja de sistema y no me cree esa problema; ó el problema es por el timer?.
Saludos y gracias de antemano.
21
« en: Lunes 2 de Febrero de 2004, 19:20 »
Hola.
¿Es posible hacer un programa en VB que haga un backup del registro de windows?.
He visto la api que hay para el registro pero no sé si alguna de ellas lo permite hacer; estas son las que he econtrado:
- Declare Function OSRegOpenKey Lib "advapi32" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long
- Declare Function OSRegCreateKey Lib "advapi32" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long
- Declare Function OSRegCloseKey Lib "advapi32" Alias "RegCloseKey" (ByVal hKey As Long) As Long
- Declare Function OSRegDeleteKey Lib "advapi32" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpszSubKey As String) As Long
- Declare Function OSRegEnumKey Lib "advapi32" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal iSubKey As Long, ByVal lpszName As String, ByVal cchName As Long) As Long
- Declare Function OSRegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpszValueName As String, ByVal dwReserved As Long, lpdwType As Long, lpbData As Any, cbData As Long) As Long
- Declare Function OSRegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpszValueName As String, ByVal dwReserved As Long, ByVal fdwType As Long, lpbData As Any, ByVal cbData As Long) As Long
- Public Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
Seguramente de usar alguna sería una de las 3 últimas pero no sé muy bien que es lo que hacen.
Saludos y gracias de antemano.
22
« en: Viernes 30 de Enero de 2004, 11:48 »
Hola.
Aquí os pongo un código que me está dando error nº 9 de subindice (el subindice está fuera del intervalo) y no sé porque es.
Esto mismo, con otros nombres de variables, lo tengo puesto en otro programa y no me dá error.
-----------------------------------------
Private Sub Command6_Click()
Dim mensaje As String
Dim respuesta() As Byte, q As Integer
Dim respq(1 To 8) As Long
Dim mensrec As String, tempo As Double
If MSComm1.PortOpen = False Then
MsgBox "Abrir puerto primero"
Exit Sub
End If
If Text1.Text <> "" Then
mensaje = ""
For q = 1 To Len(Text1.Text) Step 2
mensaje = mensaje & Chr$(Mid$(Text1.Text, q, 2))
Next q
MSComm1.Output = mensaje
End If
tempo = Timer
Do
resp = MSComm1.Input
'On Error GoTo errorp
If MSComm1.InBufferCount >= 8 Then
MsgBox MSComm1.InBufferCount
'Call tramitarespuesta(respuesta)
For q% = 1 To 8
resp(q%) = respuesta(q% - 1) '----AQUÍ ME DA EL ERROR
If (q% = 3) Or (q% = 4) Or (q% = 5) Then
resp(q%) = Val(Hex$(respuesta(q%)))
End If
MsgBox "respq(" & q% & "):" & resp(q%)
mensrec = mensrec & resp(q%)
Next q%
Text3.Text = Text3.Text & mensrec
End If
If (tempo) > (Timer + 5) Then
tempo = Timer
End If
Text3.Text = Timer
Loop Until (Timer - 5) > tempo
Exit Sub
errorp:
If Err.Number <> 0 Then
MsgBox "Error"
Resume Next
End If
End Sub
-----------------------------------------------
Si sabeis que puede ser me podriais echar una mano.
Saludos.
23
« en: Lunes 29 de Diciembre de 2003, 13:45 »
Hola a tod@s.
Lo que quiero hacer es a través del pc poder actuar sobre un relé, abrir y cerrarlo con una instrucción.
De momento he aprendido a usar los puertos de serie para mandar instrucciones y recibir información mediante visual basic y un componente del mismo.
¿Qué necesito, cómo conecto el relé al puerto de serie para abrirlo y cerrarlo?.
Tengo entendido que al puerto de serie le llega una señal de 5 voltios a cada pin, ¿ésto es así?.
La idea es hacerme mi propia domótica y controlar todos los aparatos desde el pc.
Sin prisa pero aprendiendo siempre cosas.
Si alguién sabe del tema le estaré agradecido toda la información que me pueda dar.
Saludos.
PD.: He visto en un post anterior de actuar sobre puerto paralelo, ¿Qué sería mejor sobre puerto paralelo o serie?. ¿Es posible hacerlo también por USB.?
Muchas preguntas son.......
24
« en: Martes 9 de Diciembre de 2003, 16:42 »
Hola a todos.
Tengo un problemilla, tengo hecha una aplicación con el procedimiento KeyPress, para pasar de un campo a otro cuando se pulsa return; el problema está cuando pasan con el ratón en vez de con return que no se me ejecuta ese procedimiento.
Lo he intentado hacer con el LostFocus y llamar al KeyPress pero no termina de hacerlo bien porque controlo si ese campo de texto está vacío o no y si está vacío no me deja salir.
Cómo lo podría hacer?.
Saludos y gracias anticipadas.
25
« en: Jueves 27 de Noviembre de 2003, 20:38 »
Hola.
Quiero lanzar desde un programa de VB un informe que tengo ya hecho en una base de datos de access.
Sé trabajar con las tablas, pero eso no sé como hacerlo.
¿Es posible hacerlo?, si se puede cómo.
Gracias anticipadas.
Saludos
|
|
|
Mostrar Mensajes
