PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	27987 - GRAVAR SONIDOS EN ARCHIVOS WAVE
Autor:	Olivia Perez
Hola, les agradecere mucho su ayuda. Requiero de hacer un programa que grabe un sonido y lo compare con otro que se encuentre almacenado. Por las estructuras requeridas para el formato wave, considero que me es de utilidad. Mi problema es que no se como emplear las funciones para grabar en bajo nivel. Si alguien tiene un codigo que sirva para eso o alguna sugerencia me sera de mucha utilidad. Gracias de antemano.

Respuesta:

Explorer Devil_Herles

Hola..., me parece interesante tu pregunta..., yo hace un cierto tiempo estuve casi en los mismos aprietos que tu..., y encontré la solucion...

Bueno mi problema era hacer un reconocedor de voces..., y tuve hacer que compare dos sonidos... claro que no lo hice con formato wav. mas bien fue en formato mp3 de 16 bits..., creo que la solucion sería convertir este formato a 8 bits y ya esta...!!!

Si te enteresa realmete este programa puedes escribirme..!!!

Ah... obvio que el programa realiza una grabación para comparar con el existente...!!!

Explorers' Corp. 2003
Informáticos que desafian al MUNDO...!!!
Puno - Perú

Contestar

Pregunta:	27988 - DETENER LA CARGA DE WIN MIENTRAS EJECUTO MI PROGRAMA
Autor:	Nunger Patricio Fernandez Villavicencio
Deseo detener la carga de los programas de windows mientras se ejecuta mi programa, es algo parecido a cuando aparece el dialogo de entrada a win 9x, ese donde se ingresa la clave de acceso.

Respuesta:

SuNcO

Ok, para hacer eso yo hize un truco que ya lo dije una vez y si funciona

Te vas al win.ini y modificas el shell=explorer.exe por shell=tu_programa.exe

Asi, despues que termine tu programa ejecutas el explorer.exe; El problema es que lleva un parametro tal como /s /r o algo asi y no lo recuerdo

Otra solucion es esta; Entras al win.ini y en la linea load= pones
load=tu_programa.exe

A tu_programa.exe le pones un timer de 10 (milisegundos) y que lleve dentro esto :

Resultado = SetWindowPos(Cyber_Plus1C.hwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS)

Eso hace que tu programa este en primer plano siempre;
Tambien ocupas :

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Eso si, aclaro que esto no detiene la carga de Windows, solo son pequeños trucos que sirven; De ahi puedes agregarle que no se pueda presionar Ctrl-Alt-Supr o algo asi

Contestar

Pregunta:	27994 - CAMBIAR NUEMERO DE SERIE DEL DISCO DURO
Autor:	Bladimir Zuñiga Perez
deseo saber como cambiar el numero de serie del disco duro, esto lo solicito porque tengo un programa que trabaja con el numero de serie de un disco duro que ya se daño y quiero poner a trabajar el programa en otro disco, pero no me funciona por el numero de serie

Respuesta:	Luis Santos
tienes que verlo con el programador del programa, para que el cambie por condigo el numero de serie

Contestar

Pregunta:	28001 - ERROR EN EJECUCIóN DE APLICACIóN INSTALADA EN WINNT
Autor:	Andrea Galindo
Hola, realice una aplicación y la instalé en un servidor NT pero cuando la quiero acceder el archivo ejecutable desde otro micro me genera el siguiente error: Clase no registrada. Buscando objeto con CLSID:{00000010-0000-0010-8000-00AA006D2EA4. Al aparecer este error de todas formas me abre la aplicación, pero cuando intento grabar los datos me genera otro así: Error '91' en tiempo de ejecución: La variable de tipo object o la variable de bloque With no está establecida. De antemano, muchas gracias por su ayuda.

Respuesta:	Alex Conrad
Lo que falta es dar el acceso por medio de un indice a la tabla que se encuentra en el bloque with. Esto se hace con .index\"nombre del indice\".

Contestar

Pregunta:	28048 - ¿EL API OPENPRINTER ES COMPATIBLE CON WINDOWS 2000 ?
Autor:	Francisco Rodriguez
He desarrollado un sistema de monitoreo de documentos enviados a impresoras en Red, el cual funciona correctamente bajo Windows 98, el problema surge cuando instale el sistema en una PC Laptop que trabajaba con Windows NT 5.0 o mejor dicho, Windows 2000, que es lo mismo.

Respuesta:	Angel Pacheco Gutiérrez
Yo utilizo la API openprinter con éxito en windows 2000 dentro de una clase que he creado para imprimir en modo texto. ¿Lo has probado en una computadora de escritorio con windows 2000?. Yo no he hecho pruebas en Laptop, pero en PC de escritorio ha funcionado muy bien, incluso en Windows XP

Contestar

Pregunta:	28059 - RECIBIR FAX DESDE VBASIC
Autor:	Orestes Loprete
Hola amigos, tengo que resolver un problema con bastante urgencia, y es el siguiente: En una aplicación tengo que llamar vía modem a un número de teléfono donde atiende un menú pregrabado, con varias opciones seleccionables por tonos. La última opción que selecciono hace que la máquina que me atendió me envíe un fax. Probando con un control MScomm, no tengo problema hasta que le doy la última opción seleccionada, el tema es darle señal de fax y grabarlo, con lo que me estoy rompiendo la cabeza hace rato y no encuentro la forma. Si pueden ayudarme, lo agradeceré enormemente. Incluso no me importa si tengo que usar otros lenguajes, el tema es que mi presupuesto es demasiado bajo.

Respuesta:

Sandra Vazquez

Tengo el problema igual tengo 4 dias intentadolo y e llegado hasta aki
Dim cadConexion As String
Dim resultado As Integer
Dim modem As String

On Error GoTo cError
Text1.Text = "Marcando..." & Chr(13)
cadConexion$ = "ATDT" + numero + Chr$(13)

MSComm1.Output = "AT+FCLASS=2.1" & Chr(13)
Duerme 300
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & "AT+FCLASS=2,1" & Chr(13) & " IN: " & Temp & Chr(13)

MSComm1.Output = "AT+FNR=1,1,1,1" & Chr(13)
Duerme 300
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & "AT+FNR=1,1,1,1" & Chr(13) & " IN: " & Temp & Chr(13)

MSComm1.Output = TxtTelLocal & Chr(13)
Duerme 300
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & TxtTelLocal & Chr(13) & " IN: " & Temp & Chr(13)

'Enviamos los comandos AT con el número al módem
MSComm1.Output = cadConexion$
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & cadConexion$ & Chr(13) & " IN: " & Temp & Chr(13)
'Esperamos a recibir "OK" desde el módem

Do
resultado = DoEvents()
' Si hay datos en el Buffer los leemos
If MSComm1.InBufferCount Then
modem$ = modem$ + MSComm1.Input
'Comprobamos si los datos leídos son "OK"
If InStr(modem$, "OK") Then
'MSComm1.Output = "prueba" & vbCr & vbLf
'Podemos indicar al usuario que descuelgue el teléfono
Exit Do
End If
End If
Loop
Text1.Text = Text1.Text & modem$
' SE PUEDE LEVANTAR LA BOCINA PARA PEDIR TONO

MSComm1.Output = "AT+FDT" & Chr(13)
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & "AT+FDT" & Chr(13) & " IN: " & Temp & Chr(13)

Do
DoEvents
' Si hay datos en el Buffer los leemos
If MSComm1.InBufferCount > 0 Then
modem$ = MSComm1.Input
'Comprobamos si los datos leídos son "OK"
If InStr(modem$, "CONNECT") Then
'Podemos indicar al usuario que descuelgue el teléfono
Text1.Text = Text1.Text & modem$ & Chr(13)
Exit Do
Else
If InStr(modem$, "ERROR") Then
MsgBox "EL MODEM NO RESPONDIO.", vbCritical, "FAX"
Exit Do
End If
End If
Text1.Text = Text1.Text & modem$ & Chr(13)
End If
Loop
Dim Mensaje() As Byte
Dim Texto As String
Texto = "Es un mensaje de prueba"
For i = 1 To Len(Texto)
Mensaje(i) = Chr(Mid(Texto, i, 1))
Loop
MSComm1.Input = Mensaje

yo puedo levantar el telefono y teclear el numero de la extencion por k no se k numero sera debido a k ser a muchos telefonos diferentes a donde se envie pero no se como mandar el mensaje por eso estoy ciclada

Contestar

Pregunta:	28067 - COMBINACIóN DE CORRESPONDENCIA DE WORD DESDE VB 5
Autor:	Claudia Gonzalez
Necesito generar una rutina de impresión que a partir de un query o una tabla de Access combine los registros de dicha tabla con una carta particular. Desde word el procedimiento se conoce como "Combinar Correspondencia...", y consta en crear un documento unico con algunos campos variables, que al momento de la impresión toman los valores de los registros del origen deseado (Access, SQL Server, Excel, etc). Quería saber si alguno conoce la manera de hacerlo. Desde ya muchas gracias!

Respuesta:

Cecilia Colalongo

Creo que lo mejor es usar el Word como automation server, esto es haciendo:

o=CreateObject("Word.Application")

y a partir de allí enviando comandos al Word para redactar la carta con los datos que resulten del query, esto lo podes hacer grabando una macro y copiando el código en tu programa, otra opción es hacer lo que mencionas como "Combinar correspondencia" desde VB o sea con el mismo procedimiento grabando una macro y luego ejecutandola copiando el código desde VB.

Contestar

Pregunta:	28096 - DIVISION DE 24 DIGITOS
Autor:	Alejandro Palacios Pedraza
Hola , mando este correo por si alguien me puede ayudar con este problema, tengo que realizar una division en la que el divendo tiene 24 digitos y el divisor 2, y necesito saber como poder sacar el resto entero de esta division, ya que, al realizar dicha opracion Visual Basic me da el mensaje de desbordamiento. Y no hay ningún tipo de variable en Visual Basic que pueda contener 24 digitos. Un saludo y gracias de antemano

Respuesta:

Javier Aparicio Rodríguez

Espero que esta función solucione tu problema.

Private Function Cociente(ByVal strDividendo As String, ByVal lngDivisor As Long, ByRef strResto As String) As String
Dim intContador As Integer
Dim strDividendoTemp As String
Dim strCocienteTemp As String

On Error Resume Next
If Len(CStr(lngDivisor)) > Len(strDividendo) Then
Cociente = 0
strResto = strDividendo
Else
strDividendoTemp = Left(strDividendo, Len(CStr(lngDivisor)))
For intContador = Len(CStr(lngDivisor)) To Len(strDividendo)
strCocienteTemp = CStr(CLng(strDividendoTemp) \ CLng(lngDivisor))
strResto = CStr(CLng(strDividendoTemp) Mod CLng(lngDivisor))
strDividendoTemp = strResto & Mid(strDividendo, intContador + 1, 1)
Cociente = Cociente & strCocienteTemp
Next intContador
If Left(Cociente, 1) = "0" Then
Cociente = Mid(Cociente, 2)
End If
End If
End Function

Contestar

Pregunta:	28099 - CONFIGURAR EL LENGUAJE DEL TECLADO MEDIANTE API'S
Autor:	Pedro Arias Lopez
Hola, Saludos a la web del programador y a todos los programadores, necesito su colaboracion , ya que me urge demasiado, encontrar un API o un OCX o DLL, que me permita cambiar la configuracion del teclado de un Idoma a otro , pero sin mostrar el cuadro del control panel, ya he buscado pero no encuentro solucion a este problema, o si me pueden decir si esto no es posible hacerlo, estoy programando en Visual Basic, gracias , espero su respuesta...urge

Respuesta:	Pablo Jorge Sanguinetti
Hola, fijate si te sirve esta API http://www.ex-designz.net/apidetail.asp?api_id=499 saludos, Pablo

Contestar

Pregunta:	28115 - WINSOCK MEDIANTE API
Autor:	Sahid Ra GUtierrez Cruz
Alguien que me pueda hacer el favor de explicarme como realizar una conexion, envio, recepcion cerrar, abrir, seleccionar puerto, escuchar, conecrat, etc. todo lo que implica una conexion de un WinSock pero mediante la API y asi los programas no requierean el OCX del WinSock Se lo agradeseria mucho. Gracias de antemano por la atencion y ayuda prestada.

Respuesta:	Cecilia Colalongo
Usando las API's de Winsock se puede hacer, pero desde VB se complica mucho y dudo que funcione bien sobre todo por el tema de algún callback que quede por ahí. Si queres usar directamente las API proba desde VC++ desde VB lo veo complicado sobre todo por los sockets asincrónicos.

Contestar

|< << 204 205 206 207 208 209 210 211 212 213 214 >> >|