SoloCodigo

Hola de nuevo amigos, haber si me dan una mano, tengo el siguiente problema:
estoy implementando un control por pc de muchos dispositivos (Pics), desde mi ordenador quiero enviar un comando y el que se indentifique me responda. de mi pc (com1) sale a un max232 y este a un ltc485, la trasmicion y la recepcion funcionan de maravilla cuando los pruebo independientes; pero quiero desde la pc mediante las lineas dtr o rts controlar la transmision o recepcion.
Ya controlo las lineas anteriores (dtr y rts) mediante el mscomm del visualbasic; pero algo no esta funcionando bien: envio una cosa y llega otra, aun cuando el programa de los pics es un eco de lo que envio. Alguien ha echo algo parecido que me pueda ayudar?

muchas gracias amigos a ver que es lo que logro, ya les conversare.

Gracias por tu respuesta, te doy un dato mas de lo que quiero: quisiera que la presentacion de mi formulario que contiene pictures e images sea la misma aunque la resolucion de la pantalla cambie de un usuario a otro. lo de la resolucion ya lo tengo y las images cambian mas en los pictures salta un arror de propiedad o metodo del objeto. Haber si ma das otras alternativas. Otra vez muchas gracias

Hola amigos, encontre por ahi algo sencillo y que ha servido a mi proyecto aqui les dejo:

Private Sub Pausa()
Dim controlar
Dim comenzar
comenzar = Timer
Do Until controlar >= comenzar + 0.1
controlar = Timer
'DoEvents
Loop
End Sub

Gracias por su apoyo, Saludos a todos
 

Hola Cyclop lo que tengo es algo asi:
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10
Private Const SND_SYNC = &H0

Public Sub PlaySound(strSoundFile As String)
    Call sndPlaySound(strSoundFile, SND_ASYNC)
End Sub

Private Sub Pausa()
Dim i As Long
For i = 0 To 1000000
Next
End Sub

Private Sub Mostrar_Imagenes()
PlaySound App.Path & "\sonido_1.wav"
Primera.Picture = imagen(A)
Pausa
PlaySound App.Path & "\sonido_2.wav"
Segunda.Picture = imagen(
Pausa
PlaySound App.Path & "\sonido_3.wav"
Tercera.Picture = imagen©
Pausa
PlaySound App.Path & "\sonido_4.wav"
Cuarta.Picture = imagen(D)
Pausa
PlaySound App.Path & "\sonido_5.wav"
Quinta.Picture = imagen(E)
Pausa
End Sub

Private Sub Form_Load()
Mostrar_Imagenes
End Sub

Esto funciona mas o menos ya que Pausa depende de la velocidad de la maquina donde instale el programa, tu codigo funciona tambien con Pausa antes de ejecutar otro sonido, probe con el timer pero corre mal; tambien use DoEvents (no se si bien) pero me genera otros errores en otras partes del programa. Voy a seguir tratando de otras formas haber si sale, ya les aviso. Gracias por todo

Gracias amigos voy a probar con sus ideas haber que sale
Saludos a todos

hola amigos creo que no me explique bien lo que tengo es algo asi:
un comand que cuando se ejecuta tiene que mostrar cinco figuras pero cada una con un sonido diferente. Entonces regreso a mi problema que los sonidos se ejecutan muy rapido y no se aprecian. tienen alguna idea de como puedo hacer que terminado el primer sonido muestre la segunda figura, suene el segundo sonido y asi susecivamente?

Regracias!!! none123 probe el codigo funciona perfecto te pasaste!!!
 

Gracias Tyron estuve revisando la ayuda del visual y encontre lo que queria: justo lo que dijiste muchas gracias. Tengo una observacion al respecto: estos ascii los estoy guardando en un archivo txt del block de notas pero al abrirlos estos son diferentes a cuando los cargo por DOS. Acaso el ascii no es el mismo para Windows y para DOS. A ver si me puedes ayudar, de antemano:   muchas gracias, te pasaste
saludos!

Amigos por alguna parte lei que eso funcionaba para windows xp. Acaso Tambien se aplica para windows 98?. Gracias por su ayuda y su paciencia

Hola amigos a ver si me pueden ayudar tengo instalado vb 6.0 y trabajando en windows 98. Quisiera saber si puedo apagar el equipo desde una aplicacion de vb y si se puede, como?. Gracias de antemano por cualquier ayuda.

Hola amigos necesito de su ayuda: necesito conectar una maquina a una Pc para obtener sus datos. La maquina posee un conector (DB9) de transmicion serial y utiliza el protocolo rs232, como puedo leer y saber que datos envia la maquina utilizando Vb, Cualquier ayuda muchas gracias !!!