Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - e500

#1
Programación Visual Basic / VB6 USB MSCOMM
14 Febrero 2019, 21:18 PM
Hola, mi consulta es la siguiente hay manera de enviar información mediante el control MSCOMM por medio de un USB (perdón por la ignorancia de mi consulta) si es así sería siempre un COM1 o 2 o 3. Ahora alguien tiene algún ejemplo, porque el objetivo de mi consulta es enviar un bit para que luego un circuito electrónico (evitando arduino, raspberry, etc) por medio de un "relee" lo establezca en 1 o 0 dependiendo el bit que envíe dicho software. Les pido disculpas por lo engorroso y rebuscado para explicar. Espero su ayuda Salu2.
#2
Bases de Datos / Consulta Inmuebles/Contratos
14 Febrero 2019, 21:17 PM
Hola gente del foro, le comento mi siguiente cuestión para ver si alguien tiene alguna respuesta que me pueda ayudar a seguir con mi proyecto.

Tengo 3 Tablas:


PAGOS:
--------
id
idcliente
idinmueble
fdpaga (fechadepago)
fdvence
monto
paga
debe
aumento (boolean)

INMUEBLES;
-------------
id
nombre
direccion
piso
depto-of

CONTRATOS;
-------------
id
montoinicial
fechadealta
fechavence
porcentajedeaumento
tiempoaumento


Tengo algo así, sin especificar relaciones porque es justamente donde viene mi consulta. ¿Cómo puedo hacer una consulta que al ingresar un Pago, de un Inmueble me verifique si ese inmueble tiene el contrato vencido (fechavence) y a su ves que si no está vencido me haga el aumento del montoinicial sabiendo el tiempodeaumento (bimestral/semestral/anual por 2, 6 o 12 meses) teniendo en cuenta el porcentajedeaumento sombre el montoinicial ?

• Aclaro que no generé campos que relacionen las tablas, solo para ver que ideas surgen.

Gracias por su ayuda.
#3
Hola amigos del foro, estoy intentando hace unos días obtener la lista de archivos de un directorio y copiarlos uno por uno a otra carpeta, y que por medio de un minimo y máximo de archivos un progressbar cargue.

Ejemplo:

Carpeta c:\[Numeros]
Archivos 1.num 2.num 3.num 4.num
Copiar esto en d:\[Numeros]\*.*

Espero que me puedan ayudar.
Salu2  :D

     
#4
Hola, hace rato que no toco el vb6 y quería hacerles una consulta... Cual sería la manera más facil de separar esta linea de texto almacenada en una variable de nombre strVar con el contenido:

# 2 ". aaaldu s2" 256 STEAM_ID_LAN 3 07:56 16 0 181.14.170.179:27005
# 3 "ok , nosound " 259 STEAM_ID_LAN 0 04:41 43 0

está todo en una misma linea, player 2 como player 3, la idea es que me quede en un listview o el uclv con todo separado ejemplo:

Numero: 3
Name: ok, nosound
UserID: 259
UniqueID: STEAM_ID_LAN
Frag: 0
time: 04:41
Ping: 43
Loss: 0

• Espero su ayuda, o ejemplo.
#5
Hola gente del foro, esta intentando reiniciar mi aplicacion desde una funsion, sin aplicaciones auxiliares.

Pregunto, hay forma de hacerlo?

Saludos
#6
Hola gente del foro, estuve horas mirando como funciona un timer... y despues de un largo rato usando un mismo timer para una aplicacion que quiero q ejecute cada 2 minutos una funsion del codigo, me he dado cuenta que el timer consume demasiados recursos...

Ahora cuestiono, hay forma de reemplazar el control, o hacer que seamas establa la aplicacion en cuanto a recursos consumo de memoria, y demas... Aquien tiene algun ejemplo o algo que me redusca el consumo del ordenaro...

Ya q solo quiero ejecutar mi aplicacion y q cada 2 minutos ejecute un funsion.

Saludos
#7
Hola amigos del foro, les paso a consultar, si existe alguna forma de hacer un form con las esquinas redondeadas, osea q no termine en punta.

Mi segunda pregunta es, hay forma de hacer un form transparecte con un 30% de trasnparencia y q por ejemplo el textbox q esta en ese form no sea transparente.

Espero aver sido claro..

Saludos y espero de su ayuda.  :rolleyes:
#8
Hola gente del foro, recurro a ustedes, para que me digan como puedo hacer para comprobar modificaciones en el regedit de todos sus ramales:

* HKEY_CLASSES_ROOT
* HKEY_CURRENT_USER
* HKEY_LOCAL_MACHINE
* HKEY_USERS
* HKEY_CURRENT_CONFIG

Mi intención es comprobar modificaiciones en tiempo real. Ojalá exista alguien con ideas y respuestas a mi pregunta.

Saludos
#9
Hola amigos, tengo una duda sobre como filtrar mi debe por medio de un rango de fechas, ejemplo:

Código (vb) [Seleccionar]


fi = Format(fi, "dd/mm/yyyy")
ft = Format(ft, "dd/mm/yyyy")
Busca = "Select * from Ventas where FEntrega between #" & fi & "# and #" & ft & "#"


Hasta ahi he llegado pero no logro realizar la consulta a la DB, espero q me puedan ayudar.

Saludos
#10
Seguramente ya existen post de este tipo, pero quiero sacarme la duda de una funsion, aver q consejos me pueden dar para mejorarla.

Los que hace es simplemente acomodar por fecha dentro de un rango de fechas, ¿qué es esto de rango de fechas? bueno simplemente si yo especifico a Text1 20/07/2010 y al Text2 28/07/2010 y le doy click al commandobutton [Filtrar] me filtra toda la informacion q aparece en mi listview. Dejándome solamente desde la fecha 20/07/2010 hasta la fecha 28/07/2010 todos los datos, y ordenados por fecha de menor a mayor. La información q aparece en el ListView es MUCHA!  :xD  es por eso tal ves aveces me mescle algúna q otra fecha.

Modulo:

Código (vb) [Seleccionar]


Public Sub ordenarLV(LV As ListView, col As Integer)

  Dim Formato As String, i As Long, strData() As String

1       'ORDENAR LISTVIEW POR FECHA DE PASADO A PRESENTE

2       Formato = "YYYYMMDD"

3       With LV
4           With .ListItems
5               For i = 1 To .Count
6                   With .Item(i).ListSubItems(col)
7                       .Tag = .Text & Chr$(0) & .Tag
8                       If IsDate(.Text) Then
9                           .Text = Format(CDate(.Text), Formato)
10                      Else
11                          .Text = ""
12                      End If
13                  End With
14              Next i
15          End With

16          .SortOrder = 0    '.SortOrder = (.SortOrder + 1) Mod 2 ' Mayor a menor
17          .SortKey = col
18          .Sorted = True
   
19          With .ListItems
20              For i = 1 To .Count
21                  With .Item(i).ListSubItems(col)
22                      strData = Split(.Tag, Chr$(0))
23                      .Text = strData(0)
24                      .Tag = strData(1)
25                  End With
26              Next i
27          End With
28      End With
       
End Sub

Public Sub filtrarango(LV As ListView, F1 As String, F2 As String, col As Integer)

 Dim i         As Long
 Dim Tmp       As Integer
 Dim Day1      As String
 Dim Day2      As String
 Dim dat       As String

1       'FILTRAR RANGO

2       Day1 = Mid(F1, 1, 2)
3       Day2 = Mid(F2, 1, 2)
4       'dat = Mid(F1, 3, 10)

6       With LV
7           Tmp = .ListItems.Count
8           For i = 1 To Tmp
9               If i > Tmp Then Exit For
10              dat = .ListItems(i).ListSubItems(col)
11              dat = Mid(dat, 1, 2)
12              If dat >= Day1 And dat <= Day2 Then
13              Else
14                  'MsgBox dat
15                  .ListItems.Remove i
16                  i = i - 1
17                  Tmp = Tmp - 1
18                  If i = Tmp Then Exit For
19              End If
20          Next i
21      End With

End Sub



Form:

Código (vb) [Seleccionar]


Private Sub Form_Load()
   Text1.Text = "20/07/2010"
   Text2.Text = "28/07/2010"
End Sub

Private Sub cmdrango_Click()
   Call filtrarango(LV, Text1.Text, Text2.Text, "3")
   Call ordenarLV(LV, "3")                                                     'En la columna 3 del listview tengo las fechas.
End Sub



Espero que puedan evitar mi problema, ya q muy pocas veces me mescla las fechas. Pregunto el problema puede ser porque llamo a las 2 funsiones a la ves, y si no es ese el problema cual es?

Salu2 y gracias a todos :D
#11
Hola foreros, tengo una consulta, que tal ves me la puedan solucionar. Mediante WinSock se puede acceder a una web en modo oculto, sin cargarla en ningun lado simplemente acceder, y una ves accedido eviar un msgbox "Visita Almacenada" simplemente eso, pero via winsock.

Gracias por su ayuda, saludos.
#12
Tengo problemas con estas OCX's, alguien sabe como/cuales son las q le corresponden al WinVista, si alguien las tiene andando en windows vista, no me las pasa, o me las sube a megaupload o rapidshare, se los agradezco.


* PD: la ruta esta bien, sinceramente esta OCX me tiene mariado. Tal ves las dll's de mis Referencias no sean compatibles con Vista, y si no lo son cuales uso?

Mis Referencias en el Proyecto


Saludos y espero una respuesta, me mate buscando en GOOGLE, antes de que lo digan, a y otra cosa ODIO WIN VISTA  >:(.
#13
Windows / ShutDown HDD
12 Julio 2010, 10:36 AM
Hola Foreros, comento mi situación... Antiguamente y estoy hablando del Viejo Windows 3.1, yo usaba una aplicación que apagaba los discos duros desde DOS. A que apunto con esto, bueno tengo conectado un HDD de 160 GB via USB, y cuando lo dejo de usar lo desconecto pero que pasa, al desconectarlo el brazo del Disco cae, y tego miedo de q lo daño, es por eso q estoy buscando algun software similar al que usaba, é visto que existe una aplicación llamada [ revosleep ] y es BETA su web es: http://revosleep.realspooky.de/ pero este no me há dado resultado.

Otra cosa quiero evitar el "Ahorro de Energía de Windows" ya q hay q esperar 3 minutos como mínimo y demas, prefiero hacerlo via Software.

Gracias por su atención, aunque sé que una respuesta satisfactoria a este tema es difícil despues de aver buscado tanto, pero os tengo FE.

Saludos y espero su ayuda.

:)
#14
Hola gente del foro, bueno este error solo me ocurre cuando ejecuto una de mis aplicaciones en Windows Vista. Yo utilizo winXP y anda de 10, pero al ejecutarlo en Win Vista me tira este error: Run-time error '50003': Unexpected error alguien me podria ayudar a solucionarlo o a darme alguna idea de porque surge tal error.

Saludo y Gracias por su atención.
#15
Hola gente del foro, esta tratando de ver para que son estos archivos, y buscando descubrí que la extención *.as es por Action Script, ahora les consulto, como se importan, a un proyecto, o para que sirven.

Saludos y gracias por su atención.

#16
Hé visto varios metodos, me me interesaría que el soft chekee automaticamente y se actualise solo.

Solo le pido ideas, o algun code concreto.

Saludos
#17
Hola gente del foro, alguien conoce algun script, que cuando ponga mi codigo fuente de visual basic en una web lo ponga con los colores tal cual como se ven en el Software Visual Basic.

Saludos
#18
Hola gente del foro, les hago una cosulta, alguno de ustedes tiene el API o MODULO o CONTROL de USUARIO, q sustituya el RichTextBox.

Saludos y espero su ayuda.  ;)
#19
Hola, me presento soy e500. Busque por todos lados y no tuve buen resultado sobre lo que ando intentand hacer. Si busque mal les pido disculpas, pero lo que intento es hacer una conexión inversa via Inet con el simple echo de Examinar archivos tipo, Explorador de Windows.

Ejemplo:

PC1 [Nosotros]
PC2 [Cliente]

El cliente tiene los archivos, y se conecta por nuestro software a nuestra PC1 dandonos acceso a la PC2 y brindandonos la facilidad de explorar archivos, subir y bajar, borrar etc...

Gracias por la anteción, y espero que alguien me brinde una respuesta o solución.

Salu2
#20
Hola comunidad, encontre mil formas de hacer esto, pero ninguna me há dado resultado con lo que preciso hacer y es lo siguiente...

Un boton [Abrir] que abre el archivo archivo.txt y boton [Guardar] que guarda el archivo.txt lo que pasa es:

Tengo una MSFlexGrid con 5 columnas y las filas depende de la cantidad de datos q ingrese, por lo tanto quiero que cuando ingrese datos por ejemplo:

Tabla MSFlexGrid:

Nombre      Apellido       Edad
Pablo           Perez          20
Juan            Lopez          29

le doy click a un botom llamado cmdGuardar que guarde los datos en el archivo.txt de la siguiente manera:

archivo.txt
"Pablo"   "Perez"   "20"
"Juan"    "Lopez"   "29"

Es posible guardar uno abajo del otro, y con comillas dentro del archivo.txt y que una ves guardado cuando voy al boton cmdAbrir lo abra y lo acomode como corresponde?

Salu2 y Gracias


con comillas y separado
#21
Hola, gente... Mi pregunta es como puedo sumar esto:

00:02;20.254 + 00:02;20.338

Aca se los separo:

                       Hora : Minutos ; Segundos . Milesimas de Segundo
                        00   :    02      ;     20       .           254
                        00   :    02      ;     20       .           338


Espero que se entienda, salu2
                       
#23
Hola gente... estuve buscando por la web, un source en VB 6, que se encargue de ejecutar el juego en modo Windows ejemplo:



La idea seria armar algo asi:



Espero que me puedan dar una mano...
S2