PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	19478 - TIEMPO DE NAVEGACION DE PCS
Autor:	LORENZO VINUEZA
TENGO UNA RED,. EL SERVIDOR ES WINDOWS 2000 SERVER Y LAS ESTACIONES SON WINDOWS 98, TODAS SE CONECTAN AL SERVER PARA ACCESAR A INTERNET, ME GUSTARIA SABER COMPUEDO CREAR UN USER EN LAS ESTACIONES Y CALCULAR EL TIEMPO QUE ESTAN CONECTADOS O EN INETRNET U OTRAS PROBABILIDADES PARA CALCULAR EL TIEMPO.

Respuesta:	Eduardo Cifuentes
Hola... Tienes que hacer una cosa similar al administrador de NT. Un programa principal o programa madre que controle los horarios o los relojes y un programa por cada equipo. El resto de lo que es programación no es tan difìcil, puesto que en Visual Basic 5.0 hay un ejemplo de Server and user...sólo mete las manos en la ayuda de Visual...

Contestar

Pregunta:	19483 - ¿COMO RELACIONAR DOS TABLAS DE DIFERENTES BASE DE DATOS?
Autor:	Rodrigo Arredondo Zazueta
Hola: Necesito saber como relacionar dos tablas de diferentes bases de datos. Estoy programando en visual Basic 6.0 con bases de datos de MySQL, lo unico que se es que la instrucción INNER JOIN me relaciona dos tablas, pero deben de ser de la misma base de datos... ahora pues , necesito saber como relacionarlas pero son tablas de diferentes bases de datos. De antemano se los agradezco. Gracias.

Respuesta:	Adrian
Podes probar lo siguiente: ... From nombreBaseDeDatos1..Tabla1 Join nombreBaseDeDatos2..Tabla2 ... donde nombreBaseDeDatos1 y nombreBaseDeDatos2 son los nombres de tus bases de datos y Tabla1 y Tabla2 son los nombres de las tablas que queres unir.

Contestar

Pregunta:	19491 - VINCULAR TABLAS DE DIFERENTES BASES DE DATOS ACCESS
Autor:	Alexis Alberto Aravena Silva
Hola amigos de la web Como puedo vincular a mi base de datos en Access actual tablas de otra base de datos pero desde visual basic, debo hacer esto porque tengo que realizar un proceso de actualizacion y me hes mucho mas rapido realizar las consultas teniendo las 2 tablas en las misma BD. Desde ya muchas gracias.

Respuesta:

Edwin Rivera Chavez

bueno lo primero que tienes que hacer es una coneccion donde especifiques las rutas de las bases de datos y las tablas que utilizaras y ademas de los campos que utilizaras.
haciendo uso de un SQL. bueno no te podria decir mas por que atraviezo por lo mismo, es que estoy desrrolando un proyecto de grado para una importadora.
bueno mi amigo gracias por aceptar mi sugerencia y que salgas de esto sin ningun problema. chao.

Contestar

Pregunta:	19492 - CERRAR EL PROGRAMA ABIERTO CON LA INSTRUCCION SHELL
Autor:	Juan M. Gómez
Tras no poder ejecutar un archivo de ayuda HTML que yo mismo he creado y compilado para mi programa con el HTML Help Workshop, un amigo me recomendó usar la función Shell para llamar al hh.exe y abir el archivo de ayuda mencionado. Mi problema es ahora que no encuentro la forma de cerrar este archivo mediante código para que no quede abierto en caso de cerrar antes el programa. En la bibliografía y en el MSDN citan la utilización de CommonDialog para abrir y cerrar archivos de ayuda, pero parece ser que esto no funciona correctamente con ayuda en chm (HTML). Gracias.

Respuesta:

Javier Perez

Para poder finalizar un programa llamada desde el tuyo, incluye las siguientes declaraciones en un módulo:

Private Const NORMAL_PRIORITY_CLASS = &H20&

Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5

Public Const WM_CLOSE = &H10

Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" ( _
ByVal lpApplicationName As Long, ByVal lpCommandLine As String, _
ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
ByVal lpEnvironment As Long, ByVal lpCurrentDriectory As Long, _
lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type

Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadID As Long
End Type

Public Function EjecutarProceso(lpApp As String, lpCmd As String, lpDir As String) As Long

Dim cmd As String
Dim proc As PROCESS_INFORMATION
Dim start As STARTUPINFO
Dim ret As Long

' Inicializamos la estructura STARTUPINFO
start.cb = Len(start)

' Iniciamos la aplicación
cmd = """" + lpDir + "\" + lpApp + """ " + lpCmd
ret = CreateProcess(0&, cmd, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)

If ret <> 0 Then
' Devolvemos el handle del proceso iniciado
EjecutarProceso = proc.dwProcessId

Else
' Error; devolvemos 0 como handle no válido
EjecutarProceso = 0
End If
End Function

Public Function ObtenerVentanaProceso(hproceso As Long) As Long

Dim hwnd As Long
Dim hProcessId As Long
Dim hThreadId As Long

' Obtenemos el identificador de la ventana de nivel superior
hwnd = GetTopWindow(0)
Do
' Obtenemos el identificador del proceso creador de la ventana
hThreadId = GetWindowThreadProcessId(hwnd, hProcessId)

If hProcessId = hproceso Then
' Es una ventana del proceso buscado; comprobamos si es una ventana padre
If GetWindow(hwnd, GW_CHILD) <> 0 Then
' Encontrada la ventana buscada
Exit Do
End If
End If

hwnd = GetWindow(hwnd, GW_HWNDNEXT)
Loop Until hwnd = 0

ObtenerVentanaProceso = hwnd

End Function

Para ejecutar el programa que te interese, haz entonces la siguiente llamada:

Dim hProceso As Long
Dim params As String
Dim ruta As String
params = "..." ' Los parámetros necesarios para el programa llamado
ruta = "..." ' Ruta del programa llamado
hProceso = EjecutarProceso("programa.exe", params, ruta)

Para finalizar el programa, haz entonces lo siguiente:

Dim hwnd As Long

If hProceso <> 0 Then
hwnd = ObtenerVentanaProceso(hProceso)
If hwnd <> 0 Then Call PostMessage(hwnd, WM_CLOSE, 0, 0)
End If

Contestar

Pregunta:	19495 - REPRODUCIR MP3 CON REALPLAYER
Autor:	Gengis Leon Garcia
Saludos Tengo un modulo disenado para llenar notas de alumnos de secundaria de un colegio y me encomendaron que el programa debe cantar los apellidos y nombres de toda la lista. Yo grabe los apellidos y notas de todos los alumnos en formato MP3. El problema es que cuando quiero que reproduzca, es decir se escuche primero los apellidos y despues la nota, solo se escucha la nota Ejemplo: en un command1 tiene el siguiente codigo Private sub Command1_click MediaPlayer1.filename = "file_ape.mp3" MediaPlayer1.play MediaPlayer1.filename = "file_nota.mp3" MediaPlayer1.play End Sub Gracias de ante mano aquien solucione mi problemitaaaa

Respuesta:	Eligio Almuedo
Tu problema es que la segunda instruccion play machaca la primera, escuchandose solo la segunda(o sea la nota). La solucion es intercalar una pausa entre ambas. Una idea es crear esta subfuncion: Public sub PAUSA(x) captura = timer do: loop until (timer - captura) > x End sub Para usarla y por ejemplo causar una pausa de 3 segundos escribes: PAUSA (3)

Contestar

Pregunta:	19498 - LLAMAR A UN TELEF. POR MODEM Y TRASMITIR VOZ(WAV ETC.)
Autor:	Jose Roig del Alcazar
Amigos de "la web del programador", pido me ayuden a poder realizar llamadas telefonicas por el modem y contestada esta, trasmitir voz (puede ser un archivo WAV o text-to-speech), todo en forma automatica. Gracias

Respuesta:

viktor muñoz

Saludos :

Tu problema es muy sencillo, solo ocupa el puerto serial de VB, que es el control COMM y abre tu puerto y mandale comandos AT.

Algunos comandos AT son :

AT - Para que el modem te preste atención
ATZ - Recupera su ultima configuración.
ATH - Contesta y cuelga una llamada, si tu modem soporta funciones de voz, puedes contestar con una diadema conectada a tu modem.
AT+VCID - Este comando te permite identificar la llamada, asi como el numero telefonico.

Contestar

Pregunta:	19499 - CORRER UNA LIBRERIA DE VFOX DESDE VBASIC
Autor:	Gianmarco Ramos
El problema radica al momento de instalar un aplicativo VBasic que llama en uno de sus porcesos a una libreia de vfox....... no logro hacer que corra esta libreira a pesar de estar registrada con el regsvr32.exe Todo el Sistema corre sin porbnlmeas pero a la hora que llamo a esta lib de vFox....sale un error...... Ahora bien.... si abro el DLL de VFox en el equipo donde quiero correr en el sistema y la compilo desde el Visual Fox Pro..... SE SOLUCIONA EL PROBLEM,A.... pero no todos los equipos donde instalare mi aplicativo podran ser capaces de hacer este proceso.... pues mucho usuarios finales no tienen los conocicmientos necesario de informatica.... COMO HACER

Respuesta:	Cecilia Colalongo
Desde VisualFox arma el paquete de distribución con la librería del runtime de VFP y corre ese instalador en toda las terminales.

Contestar

Pregunta:	19538 - NEED 1 FUNC QUE ME DE EL COLOR DE CUALQUIER POSI DEL MONITOR
Autor:	Hugo Mat
Estoy programando en Visual Basic 5 Necesito una función que me devuelva el color que se esta presentando en ese momento en el monitor. COLOR = DAMECOLOR(x,y) Por ejemplo: -la posición (1,1) es el borde de mi ventana, entonces me devuelve gris. -la posición (20,790) es la parte roja del icono de microsoft en el menu de inicio, entonces me devuelve rojo. - la posición (300,260) me devuelve azul porque es el grafico del escritorio de mi computadora con nueves y un cielo azul. Muchas gracias...

Respuesta:

Javier Perez

Incluye las siguientes declaraciones en un módulo:

Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

La función que necesitas es la siguiente:

Public Function DameColor(ByVal X As Integer, ByVal Y As Integer) As Long

Dim hdc As Long
Dim color As Long

hdc = GetDC(0)
color = GetPixel(hdc, X, Y)
ReleaseDC 0, hdc

DameColor = color

End Function

Contestar

Pregunta:	19539 - GUARDAR CONTROLES
Autor:	Osdaly Castillo
Estoy haciendo un programa que trabaja con controles, ya que estos tienen una interacción con otros formularios. Mi problema esta en como hacer para guardar estos conponentes, ya que lo estoy trabajando como un programa de Visio, donde el usuario al abrir el documento que desea ver puede modificar los elementos alli presentes, ya sea sus propiedades o atributos, o simplemente eliminarlos. Algo parecido tengo que hacer pero no se como guardarlo. Pido su concejo

Respuesta:	Osdaly Castillo
Gracias a Javier Perez, pude solucionar mi problema la cual es realmente sencilla, solo debo guardar las propiedades más importantes de los controles en un archivo texto, guardandolas en un orden establecido, para que al momento de leerlas no halla problemas. De todas maneras muchas gracias.

Contestar

Pregunta:	19558 - COMO CREO TAREAS PROGRAMADAS EN WIN98 CON VB6.0
Autor:	Luis Gonzalez
Como puedo crear tareas programadas en windows 98 a travez de visual basic 6.0, que archivo debo crear, muchas gracias quien me pueda ayudar

Respuesta:

Dark_MAC

Eso esta facil, ya que solo tienes que hacer 2 programas, uno para crear las tareas, y otro para ejecutarlas; el que las ejecuta se minimiza to tray cada vez que se inicia tu compu (lo pones en el menu de inicio), y el otro, te crea un archivo de texto en una carpeta, en ese archivo, guardas la ruta del archivo que quieres ejecutar, en la siguiente linea, la fecha de ejecucion, y en una tercer linea la hora de ejecucion, ya con el programita que esta minimizado to tray, estas verificando cada uno de los archivos, ejecutar los que coincidan con la hora, y si quieres borrar los que ya caducaron, es todo, si tienes problemas, escribeme y te puedo mandar un ejemplito, nos vemos.

Contestar

|< << 167 168 169 170 171 172 173 174 175 176 177 >> >|