|
|
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 - ebolo
26
« en: Lunes 25 de Julio de 2005, 18:46 »
Hola Sagutxo, debes usar la instrucción:
Line Input #1 , Variable
que interpreta como separador el carácter de nueva línea.
'Input' interpreta también como separador la coma y tabuladores.
Saludos.
28
« en: Lunes 2 de Mayo de 2005, 13:15 »
La 6ª) es fácil, aquí tienes el código. Option Explicit Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Function Usuario() As String Dim Nombre As String * 255, Respuesta As Long, Longitud As Long, Res As Long 'Crea Buffer Nombre = "" Longitud = Len(Nombre) Res = GetUserName(Nombre, Longitud) If Res And Longitud > 0 Then Usuario = Left$(Nombre, Longitud) Else Usuario = "No encontrado" End If End Function Function Ordenador() As String Dim Nombre As String * 255, Respuesta As Long, Longitud As Long, Res As Long 'Crea Buffer Nombre = "" Longitud = Len(Nombre) Res = GetComputerName(Nombre, Longitud) If Res And Longitud > 0 Then Ordenador = Left$(Nombre, Longitud) Else Ordenador = "No encontrado" End If End Function Private Sub Form_Load() Tx_Datos(0).Text = Usuario Tx_Datos(1).Text = Ordenador End Sub
Saludos.
29
« en: Domingo 24 de Abril de 2005, 11:11 »
Hola ErickCerpa, vamos a ver si entiendo.
Tienes un control tuyo, con una propiedad 'Validar', que en el diseño del control le has dado el valor 'False', y quieres guardarlo en tiempo de ejecución con otro valor.
Pues yo creo que eso no se va a poder hacer, a lo mejor estoy confundido, como no entres en el diseño y le vuelvas a cambiar el valor, pienso que no se puede.
Lo que si se puede es darle el valor que tú quieras en 'Load' del form,
ó crear un archivo .ini con los valores que quieras para cada caso,
ó yo lo que tengo hecho para una aplicación es darle el valor de una variable en el nombre mismo de la aplicación, de ésta última forma cambio rápidamente ese valor sin tener que hacer modificaciones al programa, xej.: MiprogramaT.exe ó MiprogramaF.exe (a lo mejor no es muy profesional pero sí muy práctico y cómo son mios pues hago lo más practico).
Burno lo dicho soluciones muchas, pero guardar ese valor en tiempo de ejecución creo que no (igual estoy equivocado).
Saludos.
30
« en: Sábado 23 de Abril de 2005, 14:19 »
Hola zamoazul, yo usaría el MsFlexgrid (Microsoft Flexgrid Control).
Puedes encontrar bastante información por el foro usando la búsqueda del mismo.
Saludos.
31
« en: Viernes 22 de Abril de 2005, 17:05 »
Aquí dejo otro ejemplo que me gusta un poco más
Saludos.
32
« en: Viernes 22 de Abril de 2005, 16:37 »
Hola solcito, aunque un poco tarde te dejo un ejemplo de lo que quieres.
(edito: sólo poner un checkbox en un mshflexgrid)
No es mío, me lo baje de ...., no me acuerdo.
Saludos.
33
« en: Miércoles 23 de Marzo de 2005, 21:05 »
Hola Laux, ese ejemplo no es mío lo encontre por internet, ahora no recuerdo dónde, y si has leido el archivo 'leeme.txt', al final de él pone quién es el autor.
Te contesto en el otro post, para que siga el tema donde debe.
Saludos.
35
« en: Sábado 19 de Marzo de 2005, 18:52 »
36
« en: Viernes 18 de Marzo de 2005, 20:16 »
Hola Platypus, En cuanto al encoder, ya me han comentado que es óptico (me han dico que no es incremental, pero de esto no me fio por quién me lo ha dicho);La etiqueta que tiene es de la casa que lo distribuye, y pone: Serie 10 - 11132 237W - 1024 Yo lo que necesito es que cada 'X' vueltas me dé una señal de paro, luego se ponga otra vez en marcha a los 5 segundos (ó el tiempo que seleccione desde 1 selector) automáticamente. Esas 'X' vueltas pueda yo seleccionarlas dede algún selector. Me da que no va a ser tan fácil para mí. He abierto el que sustituí, y al abrirlo me he cargado las conexiones de los cables que entran, es decir el cable estaba suelto, ó ya estaban rotas y por eso no iba y me dijeron que tenía que poner otro nuevo. (No sé). Voy a hacerle unas fotos y las pondré. Lo dicho muchas gracias. Saludos. 
37
« en: Miércoles 16 de Marzo de 2005, 16:18 »
Hola de nuevo.
No he podido ver los datos del encoder que tengo puesto, porque la etiqueta se llenó de aceite y no se vé nada.
Sí tengo el encoder que quité, que se supone es parecido ó por lo menos servía igual.
Es de la marca 'hohner' y en la etiqueta me pone 237W - 1024; luego - + A B Aconguiónsuperior Bconguiónsuperior O Oconguiónsuperior.
El cableado está en - + A; tiene una clavija con 5 pins(se dice así?), con puentes entre 1-2, 4-5. Salen por tanto 3 cables: 1 del puente 1-2, 1 del pin 3 y otro del puente 4-5.
- El puente 1-2, se llama A y se conecta al -.
- El pin 3 se llama M y se conecta al A.
- El puente 4-5, se llama B y se conecta al +.
Ahora bien, no sé si es óptico,...
Yo lo que necesito es saber la posición ó el nº de vueltas que dá para poder porcionar. Porcionar significa que tiene que dar una señal a un relé de marcha y paro en función del nº de vueltas del encoder.
Bueno si necesitas saber algo más.
De verdad muchas gracias.
Saludos.
Pido disculpas a los moderadores por si el tema no se ajusta al tema del foro.
38
« en: Martes 15 de Marzo de 2005, 09:30 »
Hola Platypus, muchas gracias. En el momento tenga los datos te los pongo por aquí. 
39
« 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
40
« en: Lunes 14 de Marzo de 2005, 14:22 »
Hola a todos, la verdad yo de cristal ni idea, pero si os ocurre siempre y son del mismo tipo podiais crear una función para eliminarlos cuando el informe se cierre.
De momento sería una solución, hasta saber porque ocurre..
!!A falta de pan buenas son tortas¡¡
Saludos.
41
« en: Viernes 11 de Marzo de 2005, 19:52 »
Hola solcito, has comprobado que la consulta realmente te da algún registro?. Supongo que sí. Si no lo has hecho compruébalo.
Yo lo que hago es poner la consulta SQL en una variable(xej.: cons) y luego la meto en el clipboard:
Clipboard.Clear
Clipboard.SetText cons
Luego abro la bd con el access, creo una consulta sin nada y pego en la vista SQL el contenido de la Clipboard mediante Ctrl+V.
Y veo que ocurre.
Es que ese error creo recordar me salió una vez y era por que no la consulta no daba ningún registro.
Saluods y suerte.
42
« en: Viernes 25 de Febrero de 2005, 20:48 »
Entendido. Graciasssssssssss. Como siempre te debo una:  & .
43
« en: Jueves 24 de Febrero de 2005, 22:54 »
Hola de nuevo.
Brroz una cosilla he probado la función y, si no me he equivocado usándola, el resultado final es el mismo que con el Iif...........,¿no? o hay alguna diferencia que no haya visto, a parte de la "/".
Lo pregunto por aprender siempre cosas nuevas.
Saludos.
44
« en: Jueves 24 de Febrero de 2005, 10:42 »
Según está hecho deberías pegarlo dentro de la función, pero inhabilitando todo lo que tiene la función, o renombras esa y creas de nuevo la función con sólo esa línea y a ver que te hace.
Saludos.
45
« en: Miércoles 23 de Febrero de 2005, 20:43 »
por eso he puesto el IIF(...), que controla si hay enter o no.
Y si siempre tiene que acabar con "/n" pues le pones:
ImprimirXLinea = IIf(Right$(qControl, 2) = vbCrLf, Replace(Left$(qControl, Len(qControl) - 2), vbCrLf, "/n"), Replace(qControl, vbCrLf, "/n")) & "/n"
Si no tiene nada que reemplzar le pondrá el separador al final haya entero no (se supone) - hay que probarlo.
Saludos.
46
« en: Miércoles 23 de Febrero de 2005, 20:10 »
Hola, lo que puedes intentar es poner:
ImprimirXLinea = Replace(qControl ,vbcrlf,"/n")
Esto lo que hace es sustituir todos los enter(vbvrlf) del textbox por el separador de líneas "/n".
De esta forma te evitas leer todas las líneas una a una. Claro siempre deben estar separadas la líneas por enter.
Si en la última línea le dan a enter, te pondrá tambien el separador, para eso podrías poner algo así:
ImprimirXLinea = s = IIf(Right$(qControl, 2) = vbCrLf, Replace(Left$(qControl, Len(qControl) - 2), vbCrLf, "/n"), Replace(qControl, vbCrLf, "/n"))
Hay que probarlo.
PD.: esto me suena a etiquetadoras.
Saludos y suerte.
47
« en: Miércoles 23 de Febrero de 2005, 11:18 »
Hola az8,
debes usar dentro del evento msflexgrid1_click ó msflexgrid1_dblclick
msgbox msflexgrid1.textmatrix(msflexgrid1.row,1)
Hay que tener en cuenta que empieza a enumerar las columnas por 0, por eso pongo 1, que supuestamente es la columna donde está 'Pedro'.
Saludos.
48
« en: Miércoles 23 de Febrero de 2005, 11:04 »
Si el separador decimal es "," y no "." puedes usar Str$(número).
Si es "." habría que hacerlo de otra manera, xej.: multiplicar x100 si siempre hay 2 decimales.
Saludos.
49
« en: Lunes 21 de Febrero de 2005, 16:16 »
50
« en: Viernes 11 de Febrero de 2005, 22:38 »
Hola Solcito, prueba esto: If IsNull(rs.fields("campo")) Then
..
end if
Saludos y suerte.
|
|
|
Mostrar Mensajes
.
