|
|
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 - Cyclop
Páginas: 1 ... 11 12 [13]
301
« en: Domingo 4 de Enero de 2004, 20:08 »
A ver prueba esto, es algo burdo pero espero que la idea te ayude, te lo voy a hacer con numeros. a(1) = 5 a(2) = 1 a(3) = 4 a(4) = 2 a(5) = 3 Código: For nItem = 1 To Ubound(a) For nRest=nItem+1 To Ubound(a) If a(nItem) < a(nRest) Then x = a(nItem) a(nItem) = a(nRest) a(nRest) = x EndIf Next Next
Es muy simple pero espero que te ayude en algo, a varios metodos de ordenamiento, solo tienes que averiguarlo Salu2
302
« en: Domingo 4 de Enero de 2004, 20:00 »
No se si se pueda, pero sino crea en el directorio c:\windows\temp un archivo con extension tmp (ejemplo sdea2343.tmp) si es que no quieres que lo detecten, y lo cargas con el loadpicture()
salu2
-=[Cyclop]=-
303
« en: Martes 30 de Diciembre de 2003, 23:42 »
__________[ RED LOCAL (LAN) ]________ _________[ INTERNET ]________ ( ) ( ) ( Mi PC Mi servidor de internet ) ( Servidor de Correo ) ( con ISA Server ) ( MIXMAIL ) ( ) ( mx01.mixmail.com ) ( [_] <------------> [_] <-----------------------> [_] ) ( / \ / \ ) ( / \ ) (_____|________________________________) (___________________|_________) | | +------------------[ Conexion via Modem ]---------------+
Creo que mas claro que esto no existe
304
« en: Martes 30 de Diciembre de 2003, 19:59 »
Revisa esto espero que te ayude 'Before you start this program, I suggest you save everything that wasn't saved yet. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Private Sub Form_Activate() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Do 'Simulate a mouseclick on the cursor's position mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI DoEvents Loop End Sub
Salu2 Cyclop 
305
« en: Viernes 26 de Diciembre de 2003, 20:18 »
alquien sabe como puedo conectarme atraves de un server proxy..
mi servidor 198.xxx.xxx.xx con puerto 80, pero necesito colocar en el codigo
form.winsock1.connect "servidor","puerto"
pero no puedo hacer eso ya ke tengo proxy...
¿¿como lo escribo??
306
« en: Viernes 26 de Diciembre de 2003, 19:35 »
Hay alguna api que haga esto: C:\Archivos de programa\Archivos comunes | V C:\Archiv~1\Archiv~1 La terminacion 1 varia de acuerdo a los directorios similares. Gracias de antemano -=[Cyclop]=-
307
« en: Martes 23 de Diciembre de 2003, 13:45 »
A mi no me funciona me sale "SERIAL NO PRESENTE"
Salu2
308
« en: Jueves 18 de Diciembre de 2003, 23:54 »
Mejor seria que utilices la libreria zlib.dll o sino las dll del winzip
salu2
309
« en: Miércoles 17 de Diciembre de 2003, 19:38 »
si pero me gustaria hacerlo con el Winsock, se supone que tu te conectas con el servidor proxy, y a este le pides que te baje archivos, entrar a paginas etc... la cuestion es que comando se usa para comunicarte con el servidor proxy
310
« en: Martes 16 de Diciembre de 2003, 23:34 »
Como puedo programar mi propio messenger, Alguien tiene algun codigo de ejemplo
Gracias
Salu2
311
« en: Martes 16 de Diciembre de 2003, 23:31 »
hola como puedo hacer para conectarme con un servidor, por medio de un proxy
Salu2
312
« en: Domingo 28 de Septiembre de 2003, 19:28 »
Hola amigos, quiero consultarles de nuevo.
Como puedo hacer para obtener el nivel de color, por ejemplo tengo un color rosa en que nivel del rojo al blanco se encuentra, que me de un valor en porcentaje.
Lo quiero para hacer lo siguiente tengo una foto y quiero dibujarlo en la de windows pero usando los mismos colores que se encuentran en la pantalla, algo asi como la imagen transparente de un fantasma.
Si alguien sabe o lo tiene por favor avisarme.
Gracias de antemano
Salu2
Cyclop
313
« en: Domingo 14 de Septiembre de 2003, 21:58 »
Hice un cuadro de seleccion pero no me esta funcionando bien, hay dos cosas que no me gustan 1.- Cuando muevo la direccion del cuadro hacia las X o Y negativas a gran velocidad, el posicion X2 empieza a variar de posicion. 2.- Cuando selecciono una region y voy cambiando la dimension del cuadro, este empieza a hacer un repaint de todo el cuadro y se ve el efecto, no me gusta para nada. Este es el Codigo Agregar un Shape con el nombre shpSelection Agregar un JPG al Picture del Formulario Dim nPosX As Integer Dim nPosY As Integer Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) nPosX = X nPosY = Y shpSelection.Top = Y shpSelection.Left = X shpSelection.Width = 1 shpSelection.Height = 1 shpSelection.Visible = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If shpSelection.Visible Then If X > nPosX Then shpSelection.Left = nPosX shpSelection.Width = X - nPosX Else shpSelection.Width = nPosX - X shpSelection.Left = X End If If Y > nPosY Then shpSelection.Top = nPosY shpSelection.Height = Y - nPosY Else shpSelection.Height = nPosY - Y shpSelection.Top = Y End If End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) shpSelection.Visible = False End Sub Salu2 -=[Cyclop]=-:D
314
« en: Domingo 31 de Agosto de 2003, 02:55 »
Mejor es el TELock aparte de comprimirte el exe, tiene varios algoritomos de encriptacion, es mu bueno se los recomiendo lo pueden encontrar con el google salu2
315
« en: Miércoles 20 de Agosto de 2003, 21:41 »
como puedo hacer para añadir un exe al final de otro exe y cambiar el puntero a la direccion donde se encuentra el programa que esta al final, como una especie de virus. Es puro curiosidad 
316
« en: Miércoles 30 de Julio de 2003, 02:09 »
Donde puedo encontrar screenshots de sistemas, como entrada de datos, movimientos, reportes, mantenimiento etc. solo para que nos den ideas. yo encontre una pero tiene pocas screens www.uyssoft.comQuiero algo parecido a esto Gracias -=[Cyclop]=-
317
« en: Miércoles 30 de Julio de 2003, 01:54 »
Hola de nuevo, tengo un formulario que contiene un progressbar y un boton cancelar, como puedo hacer para que cuando presione cancelar se salgue automaticamente del Do While ... ?
ejemplo
frmProg.Show
nCounter = 0
Do While Not rsMov.EOF
nCounter = nCounter + 1
frmProg.Counter = nCounter
' Counter es una propiedad que cada ves que le asignan un valor, incrementa el progressbar
.......
Loop
Unload frmProg
Salu2
Salu2:D
319
« en: Sábado 12 de Julio de 2003, 17:27 »
Si hay un pequeño problema de digitacion, deberia ser oConn, bueno pero eso no es el problema, estuve leyendo algunos temas, y segun parce, es por la version de ADO yo tengo la version 2.5, no se si esa version ya esta parchada, otros dicen que algunas versiones del SyBase no soporta algunos tipos de bloques, pero todas las ayudas que existen estan en ingles y yo no se mucho
Gracias
Cyclop
320
« en: Viernes 11 de Julio de 2003, 20:08 »
Por que cuando intento grabar en una tabla me sale un error "Insuficiente informacion para actualizar o refrescar"
Dim oConn As ADODB.Connection
Dim oUser As ADODB.Recordset
oConn.CursorLocation = adUseClient
oConn.Open "Provider=ASAProv.80; Data Source=sql_comercial", "dba", "sql"
oUser.Open "SELECT * FROM tabusu", oConnect, adOpenDynamic, adLockOptimistic
Sub Guardar()
oUser.AddNew
oUsers!usuario = txtUsuario.Text
oUser!password = txtPassword.Text
oUser.Update
End Sub
Salu2
Cyclop
321
« en: Jueves 10 de Julio de 2003, 20:04 »
Gracias amigo por la Bienvenida 
322
« en: Jueves 10 de Julio de 2003, 18:36 »
hola amigos quiero consultarles algo,
cuando quiero conectarme a la base de datos por medio de programacion hago lo siguiente:
Dim oConn As ADODB.Conection
Dim oUser As ADODB.RecordSet
oConn.CursorLocation = adUseClient
oConn.Open "Provider=ASAProv; Data Source=Sql_Comercial", "dba", "sql"
oUser.Open "SELECT * FROM USUARIOS", oConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = oUser
Pero en este codigo, el Visual Basic aborta, sale un mensaje de pila o algo asi
Cuando quise hacerlo por medio de DataEnvironment, se conecta normal pero se demora como 1 minuto en conectarse, el otro problema es cuando levanto el programa activo un form donde pido el usuario y al clave, para esto enlazo un DataList a la tabla USUARIOS, hasta aqui todo normal, pero cuando entro al programa y en otro form quiero hacer un mantenimiento de usuarios, no me visualiza nada en el grid y cuando quiero hacer esto en el load del form me sale este mensaje de error:
'Codigo
Sub Load()
MsgBox dComercial.rsUsuarios!Codigo
End Sub
'Error
Error '3709' en tiempo de ejecucion
Operation is not allowed on an object referencing a closed or invalid connection
Parece que despues de cerrar el primer formulario, se pierde la coneccion.
Que estoy haciendo mal o sera que alguie me pueda pasar algun pequeño codigo de coneccion y mantenimiento de tabla
Gracias de antemano
Salu2
323
« en: Jueves 10 de Julio de 2003, 18:18 »
Hola amigos tengo un porgrma hecho en clipper pero cuando quiero descompilarlo con el valkyrie me sale un error que dice Linkeador no reconocido, que puedo hacer o el valkyrie que tengo es la version 5 si no me equivo esta es la ultima version.
Alguien me puede ayudar?
Gracias de antemano
Salu2
Páginas: 1 ... 11 12 [13]
|
|
|
Mostrar Mensajes
