|
|
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 - 9tnix
Páginas: 1 ... 3 4 [5] 6 7
101
« en: Jueves 18 de Marzo de 2004, 06:31 »
Salu2 elmango80 bueno en realidad soy un perfecto novato en FoxPro jejeje  pero leyendo por la red vi que noes tan dificil crear tablas en Fox lo que me preocupa es lo sgte: Como ya dije en mi post anterior pues debo ampliar un sistema que existe y logicamente necesitare crear mas tablas en FoxPro para que asi todo el sistema tenga la misma BD y como es de esperar cuando cree mis tablas estas deberan estar relacionadas con las ya existentes eso es lo que me falta investigar pero es lo de menos, lo que nunca hice es vincular desde VB a la BD de fox y poder manejarlo me refiero a hacer mantenimientos (Crear Registros, Modificar, Eliminar, consultar, Generar Reportes etc, etc...) bueno eso es lo que me preocupa mango, pero se que con la ayuda de todos podre sacar adelante este proyecto o no? xDDD jejejeje Te agradezco el interes y a ver si me mandas el ocx y un ejemplillo pes muchas gracias de antemano por responder. un saludo elmango80 zeekel ® [KGT] PD1: Porfa si noes mucha molestia mandalo a multiprocess@lycos.es) ando casi todo el dia alli, espro tu respuesta
102
« en: Miércoles 17 de Marzo de 2004, 11:50 »
Salu2 aura
Gracias por responder voy a probar lo que me dices, voy a investigar eso si no logro hacerlo me podrias dar otras pistas para hacerlo?
Muy agradecido de antemano
Un saludo zeekel ®
[KGT]
103
« en: Miércoles 17 de Marzo de 2004, 11:47 »
Salu2 makisone
Aki te adjunto un ejemplo para saber cuando tu ventana esta activa y cuando no lo esta, faltaria lo siguiente:
'//Aquii asumo que estas haciendo que el icono que pusiste al lado del reloj parpadee usando un Timer llamado Timer1
Timer1.Enabled = True '//Cuando la vetana no esta activa
Timer1.Enabled = False '//Cuando la ventana esta b activa
Espero ayude
Un saludo zeekel ®
[KGT]
104
« en: Miércoles 17 de Marzo de 2004, 11:14 »
Salu2 ROBER.29
Use tu base de datos para sacar los iconos de alli y si los saca pero no los puedo visualizar no se porque.
En la Bd tienes lo siguiente:
Tabla
ShapeIcons
Campos
ShapeMasterID Numerico
ShapeIcon Objeto Ole
Lo que hice es leer el Dato Binario del Campo ShapeIcon y crear el archivo en una ruta especificada, no me sale error saca todos los iconos que estan en la BD pero no los puedo visualizar
ROBER.29 estas seguro que la informacion contenida alli son Iconos? o son otro tipo de informacion?
un saludo zeekel ®
[KGT]
PD: Alli posteo mi codigo
105
« en: Miércoles 17 de Marzo de 2004, 09:44 »
Salu2 amigos Pronto voy a tener que liar con VB usando una base de datos de Fox-Pro y necesito su ayuda con respecto a como enlazarme a ella (la bd de fox) entre otras cosas. La idea es la siguiente: "Dada una Bd de Fox en el cual esta ejecutandose un sistema X, se les pide ampliar el sistema X que ya existe para lo cual usaran VB pero la base de datos seguira siendo de FoxPro para asi compartir la misma data entre el sistema actual y la ampliacion al sistema que van a hacer."
Yo pienso usar Objetos ADO con VB, lo que no se es Foxpro, he buscado por la web y he encontrado que no es tan dificl hacer una tabla y crear los campos ya se lo basico, entre otras cosillas. Si alguien tiene un ejemplo algo similar a lo que estoy necesitando muy agradecido de antemano por la ayuda. un saludo zeekel ® [KGT]
106
« en: Miércoles 17 de Marzo de 2004, 06:48 »
Salu2 gente
Les agradezco por responder a mi interrogante creo que empezare con Delphi 7 ya que es el que tengo, ademas como recien estoy en carrera ire acostumbrandome y ya luego ire actualizandose con la version 8 para estar al dia.
Un saludo BlacTigerX
Un saludo dyanna
zeekel ®
[KGT]
107
« en: Lunes 15 de Marzo de 2004, 11:54 »
Salu2 Amigos Son muy amables dyanna y NRM por la info, ultimamente no estaba muy activo por el foro asi que no pude darles las gracias muy rapido, estoy algo ocupado con algunos asuntos por aki (programacion jjejeje) y bueno recien hoy voy a leer lo que me acaban de mandar para ir acostumbrandome y mudando de lenguaje, a proposito como ya les comente en mi post tengo el Delphi 7 pero ya salio el Delphi 8.0 debo seguir usando la version 7.0 o mejor uso la 8.0 porque lei en una pagina si no mal recuerdo en www.clubdelphi.com que habia cambios en la manera de trabajar aki cito lo que dice la pagina. El nuevo Delphi 8 para .NET ya ha visto la luz, muchos y grandes son los cambios que se pueden en él apreciar, de lo que deduzco que grandes van a ser los cambios de mentalidad que vamos a tener que hacer para ajustarnos el nuevo traje que Borland ha tejido para nuestra comunidad.
www.clubdelphi.com
Espero sus comentarios y sugerencias para asi seguir con la carrera en Delphi Gracias de antemano Un saludo Dyanna Un saludo NRM zeekel ® [KGT]
108
« en: Lunes 15 de Marzo de 2004, 11:29 »
Salu2 ROBER.29
Acabo de leer el post echare un vistazo yo tambien he estado trabajando con imagenes en un bd de sql server, seguro que entre todos lo resolveremos.
un saludo zeekel ®
[KGT]
109
« en: Lunes 15 de Marzo de 2004, 06:29 »
Salu2 makisone Para eso debes usar la api de window que se llama: Shell_NotifyIcon mira este link alli esta la explicacion y como usarlo. http://inicia.es/de/pmaicas/articulo/micon.htmun saludo zeekel ® [KGT] PD: Alli tambien hay un ejemplo con un poco de ingenio lo lograras, por ahora no te pongo un ejemplo para lo que necesitas exactamente porque mi tiempo es escaso con las justas reviso el foro.
110
« en: Domingo 14 de Marzo de 2004, 14:06 »
salu2 Daniel_PC
Intenta probando esto, pon un menu en un form como se hace normalmente
Podrias usar la api Setparent para colocar el form dentro de una coolbar a lo mejor sale sabes mi hermano hizo algo parecido con el setparent de todas formas le consultare.
un saludo zeekel ®
[KGT]
111
« en: Domingo 14 de Marzo de 2004, 13:58 »
Salu2 sercas ufff mil disculpas falla de nuevo, pero gracias a elmango80 que dio la solucion a tu problema, bueno creoq ue llego algo tarde y baje el codigo de elmango80 si mango lo baje y lo probe y no me dio error, me refiero al primer programa que posteaste y bueno bien por sercas ya que soluciono su problema. Con respecto a lo ultimo si deseas hacer correr tu programa en otra pc que no tenga VB pues crea el pakete de instalacion o sino usa un programa como FUSION para poder unir al exe las dependencias tales como Dlls y ocxs y finalmente usa un UPX para comprimir el tamaño del exe y asi es mas facil de llevar en un simple Diskette jejeje. saludos sercas saludos elmango80 zeekel ® [KGT] PD: Mil disculpas sercas 
112
« en: Domingo 14 de Marzo de 2004, 07:54 »
Salu2 Roxii Creo que para eso debes buscar un control ocx por la red o sino crearte uno propio conalgo de ingenio creo que lo lograras. Una idea que podrias hacer es lo siguiente: emula a un monthview usando option button en style graphical los cuales serviran para mostrar los dias ejemplo: Marzo trae 31 dias pondrias 31 option button y cuando se seleccionen, eso dependiendo del mes vale? arriba iria el mes al lado izquierdo y año al costado derecho bueno dejare volar tu imaginacion yo crearia el control ocx pero tengo mucho trabajo pendiente recargado por el momento pero ta te adelanto una idea seguro que los demas amigos del foro no dejaran de ayudarte con sus geniales ideas. un saludo Roxii Zeekel ® [KGT] PD: Si encuentro algo por la red te lo posteo animo que puedes 
113
« en: Viernes 12 de Marzo de 2004, 15:47 »
Hola chicos Genial Genial, todo sea por amor al soft y al desarrollo jejeje xDDD FELICIDADES Gandalf_malaga7 un saludo Brroz un saludo Gandalf_malaga7 un saludo elmango80 zeekel ® [KGT]
114
« en: Jueves 11 de Marzo de 2004, 11:23 »
Salu2 Gandalf_malaga7
Hola amigo lo que puedes hacer es lo siguiente es solo una idea ojala y me alcance el tiempo te pongo el codigo del programa pero mientras va la sugerencia.
Lee cada uno de los archivos y lo abres con la instruccion Open
Luego extrae la cadena en una variable y empieza a hacer una busqueda utilizando el patron que ya lo tienes bueno usa la funcion Instr(<desde que caracterer de la cadena empieza la busqueda>,<Cadena donde se busca>, <cadena buscada> ), esta funcion te devuelve >0 cuando encontro lo que buscas sino devuelve <=0, una vez que encontraste todos los patrones en el primer archivo pues lo separas y lo guardas donde sea necesario y sigues adelante con los demas archivos hasta que termines.
Ejemplo de Instr
Dim strCadena As String
Dim strCadBuscar As String
Dim Pos as Integer
strCadena = "ASdkashdkaHola amigosasdi54654"
strCadenaBuscar = "Hola amigos"
'//Esto te devuelve la posicion en donde se encuentra la cadena en este caso 11
Pos = Instr(1,strCadena, strCadenaBuscar)
'//Aki sacamos la cadena Hola aamigo
msgbox Mid(strcadena, pos, len(strCadenaBuscar))
Espero que la info ayude
Un saludo zeekel ®
[KGT]
115
« en: Jueves 11 de Marzo de 2004, 11:04 »
Hola cercas
Ufff perdon estaba muy ocupado estos dias que entraba al foro al vuelo y casi no leia mucho del foro y olvide tu encargo estoy haciendo un ejemplo sencillo en el transcurso de estos dias lo posteo si aun lo necesitas, espero tu respuesta.
Aunque mi amigo elmango80 ya te ha posteado algo de todas formas me avisas si en algo puedo contribuir.
un saludo sercas
un saludo elmango80
zeekel ®
[KGT]
116
« en: Jueves 11 de Marzo de 2004, 10:55 »
Salu2 MindEye
Lo que dice elmango80 es cierto el codigo que envie era para SO Win9x ya que alli se encuentra el punto de entrada en el Kernel si estas usando WinNT (2000/2003/XP) entonces debes buscar otra forma de pero que yo sepa al igual que elmango no la he encontrado, pero si lo que buscas es evitar que tu aplicacion sea quitada del administrador de tareas pues tienes las siguientes maneras:
1. Crea un servicio en el Sistema
2. Dale un nombre de un programa critico de Windows digamos Winlogon.exe (este nombre esta en Win2000/XP si no mal recuerdo) y tambien no olvides decirle que este oculto al taskmanager osea
App.Task... = False
3. Deshabilita el Taskmanager en el registro
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System
DisableRegistryTools = 1
Valor Dword
Espero que esta info te ayud mi estimado MindEye
Un saludo MinEye
Un saludo elmango80
zeekel ®
[KGT]
117
« en: Jueves 11 de Marzo de 2004, 10:43 »
Salu2 elmango80
Buen codigo amigo.
Un saludo zeekel ®
[KGT]
118
« en: Jueves 11 de Marzo de 2004, 10:37 »
Hola elmango80 Que tal amigo gracias por la sugerencia siempre muy oportuno, veras hice eso puse una animacion de flash en la ventana de bloqueo muy al estilo de Angel of the fire jejeje es mi compañero que trabaja conmigo en esto del cyber bueno y que mas decir se ve bien, lo que aun ,me trae problemas son la sincronizacion de tiempo y tomar medidas cuando se va la luz cosas de esas. Uso VB6 SP4 y SQL Server 2000 las estaciones son Win2000 y XP bueno entre las cosas que ya hace correctamente el programa son: Programa Servidor ------------------------ Venta de Productos Aviso de pedido entrante Registro de Cuentas de usuario Registro de Equipos Registro de Operadores de sistema Restauracion de Cuentas cuando se va la luz Deteccion contra desconexion de cable de red Interfaz amigable, muy facil de entender (a mi parecer jejeje ) eso entre otras cosillas Programa Cliente -------------------- Inicio de Sesion Crear cuenta de usuario Recordar contraseña Modificacion del registro de Usuario en sesion Modificacion del registro de Cuenta en sesion Ver/Ocultar Reloj Enviar Sugerencias Proteccion de equipo al salir Iniciar Msn Messenger Modificar Opciones tales como avisarme antes de que termine mi tiempo en minutos, etc.. Lista de programas favoritos Enviar pedido Etc... Los problemas que me trae son las transacciones que uso con ADO o sea cuando hago un registro en 2 tablas hago lo siguiente: Cnx.BeginTrans .... Cnx.CommitTrans luego voy a otra opcion del programa y por algun motivo me dice que el objeto Cnx la transaccion se ha vuelto inestable y como uso una sola conexion global para el sistema si esta cae o se pone inestable compromete a todo el programa. Espero que algun dia si alguien se anima podamos desarrollar un soft para cyber y estandarizarlo, yo no soy un experto en esto, sabes elmango80 esta es la primera vez que desarrollo un soft y lo vendo y bueno he ganado ya algo de experiencia pero aun falta mucho camino para recorrer. Un saludo a toda la gente del foro, gracias por su gran ayuda. zeekel ® [KGT]
119
« en: Jueves 11 de Marzo de 2004, 07:18 »
Salu2 Roy Lo que podrias hacer es usar la api RegisterHotKey para registrar algunas teclas asi cuando las pulsas puedes usarlas para ejecutar alguna accion en este codigo que pongo lo que hace es registrar la combinacion CTRL+F para minimizar la ventana, espero que sirva de ayuda modificalo y luego me cuentas como te fue. '//Pega esto en un form Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI x As Long y As Long End Type Private Type Msg hWnd As Long Message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long Private Declare Function WaitMessage Lib "user32" () As Long Private bCancel As Boolean Private Sub ProcessMessages() Dim Message As Msg Do While Not bCancel WaitMessage If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then WindowState = vbMinimized End If DoEvents Loop End Sub Private Sub Form_Load() Dim ret As Long bCancel = False ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF) Me.AutoRedraw = True Me.Print "Press CTRL-F to minimize this form" Show ProcessMessages End Sub Private Sub Form_Unload(Cancel As Integer) bCancel = True Call UnregisterHotKey(Me.hWnd, &HBFFF&) End Sub
Un saludo zeekel ® [KGT]
120
« en: Miércoles 10 de Marzo de 2004, 06:13 »
Salu2 roxii aki un codigo para convertir un numero de sgundos a formato hora '//En Modulo Public Function ConvHora(Segs As Long) As String Dim Cadena As String Dim Horas As Long Dim Minutos As Long Dim Segundos As Long Dim Total As Long Total = Segs Horas = 0 Minutos = 0 Segundos = 0 Do While Total <> 0 If Total >= 3600 Then Horas = Int(Total / 3600) Total = Total Mod 3600 Else If Total >= 60 And Total < 3600 Then Minutos = Int(Total / 60) Total = Total Mod 60 Else Segundos = Total Total = Total Mod 1 End If End If Loop Cadena = Format(Str(Horas) & ":" & Str(Minutos) & ":" & Str(Segundos), "HH:MM:SS") ConvHora = Cadena End Function '//En Form Private sub Form_Load() msgbox convhora(120) '//Te devuelve 00:02:00 End sub
Espero sea lo que estas buscando Un saludo zeekel ® [KGT] PD: funcion TimeValue debes investigar...
121
« en: Martes 9 de Marzo de 2004, 04:13 »
Salu2 emizael Ok siempre entro al foro asi si tienes alguna duda y yo puedo ayudarte Genial sino los demas miembros del foro lo haran. Postea lo que necesites Un saludo zeekel ® [KGT]
122
« en: Martes 9 de Marzo de 2004, 03:33 »
Salu2 elmango80 Muy amable gracias por la ayuda estoy contento en este foro pues la mayoria de los miembros son muy rapidos para responder las dudas. el programa del cyber que hago esta enfase BETA y proximamente sale y eso gracias a su ayuda. Un saludo AYCUL Un saludo Hitman47 Un saludo elmango80 zeekel ® [KGT] PD: Si en algo puedo ayudarles no duden en pedirmelo
123
« en: Martes 9 de Marzo de 2004, 03:27 »
Salu2 roxii Yo tengo el programa Fusion si gustas nos contactamos por msn y te lo paso el programa pesa mas de 128 Kb creo por eso no posteo aqui. Un saludo roxii Un saluso Jose2 zeekel ® [KGT] PD: mi msn es: multiprocess@lycos.es
124
« en: Lunes 8 de Marzo de 2004, 21:57 »
Saludos a todos Me he decidido a aprender el Delphi (Object Pascal) eso lei por la red... bueno lo que me atrajo fue que segun lei era un lenguaje de proposito general y por ser un lenguaje compilado no interprete como VB, y bueno he leido algunas cosas por la red acerca de Delphi y su comparacion con VB y bueno aunque por ahora uso VB me gustaria mudarme a Delphi ya he bajado el programa la version 7.0 . Espero que con su colaboracion pueda lograr aprender este lenguaje. Si tienen links o algun manual como para empezar ya que el cambio es algo brusco creo pues abri la ventana de programacion de Delphi y bueno creo que pataleo un poco alli jejeje Un Saludo zeekel ® [KGT]
125
« en: Lunes 8 de Marzo de 2004, 21:40 »
Hola emizael Para conectarte a las bds de sql necesitas: SQL Server jejeje obvio no? Para conectarte seria algo asi '//En Modulo Public Cnx as New Adodb.Connection 'Objeto conexion '//En Form Load Private sub Form_Load() On Error Goto Falla Cnx 'Activando Controlador de errores 'Conectando a la base usando el nombre del servidor nombre de base de datos, nombre de usuario y contraseña Cnx.Open "Provider=SQLOLEDB; Data Source=<Nombre servidor>"; Initial Catalog=<Base de datos>; User Id=<Mi usuario>; Password=<mi contraseña>;" ... Exit sub FallaCnx: 'En caso sucede un error mostrarlo msgbox Err.description, 16 End sub Hay varias maneras de hacerlo aki tienes una. Un saludo zeekel ® [KGT]
Páginas: 1 ... 3 4 [5] 6 7
|
|
|
Mostrar Mensajes
