PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  43725 - ENCENDIDO DE MAQUINAS POR RED
Autor:  ALVARO MONTILLA
QUISIERA SABER COMO HAGO O QUE INSTRUCCIONES TENGO QUE HACER PARA ENCENDER UNA MAQUINA DESDE OTRA ATRAVEZ DE LA RED
  Respuesta:  Mike
Conoces el Pc Anywhere, usalo y listo

    Pregunta:  43735 - ENLAZAR VISUAL BASIC 6.0 CON AUTOCAD
Autor:  Yamid Rojas
stoy realizando el proyecto de grado, y necesito saber como enlazar Visual Basic 6.0 con Autocad, he estado buscando en Internet, pero no he encontrado nada específico...

Haber les comento específicamente lo que estoy consultando:

Desde Visual Basic necesito cargar un plano de Autocad (en el cual se uncuentran graficadas 2 lineas rectas) de las cuales debo obtener las coordenadas inicial y final de los puntos respectivamente, luego con estas coordenadas debo realizar unos calculos en Visual Basic (eso por supuesto no es problema), pero los resultados necesito enviarlos nuevamente a Autocad para que los grafique (el resultado es una curva generada entre las dos rectas).

Con cualquier colaboración estaré muy agradecido, ya que esto me esta demorando la elaboración del proyecto...
  Respuesta:  PEDRO BORRALLO
No sé si lo que te comentaré te servirá pero de todos modos intentaré ayudarte.
Yo en lugar de importar el dibujo de AutoCad lo que haría sería transformar el dibujo a DXF. Esto se hace desde el menú de AutoCad.
Lo que se consigue así es un fichero de texto con todos los parámetros del dibujo. Con VB extraería los puntos tanto inicial como final de las líneas (si editas el fichero de extensión DXF que se ha generado, verás que en la sección de entidades debe haber dos del tipo LINE con sus parámetros correspondientes). Una vez extraidos los datos y procesados, generaría otro fichero DXF (como ya he dicho son de tipo texto) y lo importaría y cargaría otra vez con AutoCad.
No sé si me he explicado bien. Espero que por lo menos captes un poco la idea del proceso a realizar.
Un saludo.

    Pregunta:  43736 - DETECTAR SI EL DECIMAL DE MI EQUIPO ES PUNTO O COMA DESDE VB
Autor:  Yamid Rojas
Lo que sucede es que para mi programa trabajo separando los decimales con punto, y cuando creo el ejecutable, para poder correrlo en otro equipo necesito saber si este esta configurado

en el panel de control -> configuracion regional y de idioma -> Opcines Regionales -> Personalizar -> Simbolo decimal

como punto para que pueda corer el programa, si esta con coma debo enviar un mensaje y el programa no debe arrancar hasta que lo cambie a punto, esta verificación se debe hacer al iniciar el ejecutable del programa hecho en Visual Basic 6.

De antemano gracias por la ayuda que me puedan brindar, es muy urgente, ya que es para mi proyecto de Grado
  Respuesta:  Alfonso Salazar
Puedes utilizar esta función:

Public Function Puntodecimal() As String
Dim S As String
S = Format$(1.5, "0.0")
Puntodecimal = Mid$(S, 2, 1)
End Function

La función devolverá "," o "." según la configuración del sistema
puedes usarla, por ejemplo:

if Puntodecimal = "," then
msgbox "Cambiar punto decimal a "".""
end
end if

    Pregunta:  43737 - OBTENER MI DIRECCIóN IP PúBLICA
Autor:  Javier L
¿Cómo puedo obtener mi dirección IP pública en Visual Basic 6?
El control Winsock solo proporciona la IP local.
¿Hace falta otro control, ó librería?

Muchas gracias de antemano
  Respuesta:  Hans (sowher) Cruz Buchelli
Aca te va un code q lo he diseñado, pero no se si te servira...

Esa direccion es la correcta

Private Sub Form_Load()
Dim IPTroyanada As String

' Obtenemos la IP Publica
IPTroyanada = Inet1.OpenURL("http://www.emergencias.com.ve/sowher/ipvb.php")

MsgBox IPTroyanada, , "sowher / GEDZAC Labs"

End
End Sub
  Respuesta:  Raúl Collazo Alvarez
Hola Javier...

Bueno... Esta es una manera (aunque un poco lenta) de conseguir la IP pública...

En un formulario (frmPrincipal) colocamos un control Microsoft Internet Transfer Control (Inet1) y en un módulo ponemos esta función...

Public Function IPPúblicaXWeb() As String
Dim InfoIP As String
Dim Cur1 As Byte, Cur2 As Byte

InfoIP = frmPrincipal.Inet1.OpenURL("http://www.showmyip.com/es/", icString)

Do While InStr(1, UCase(InfoIP), "</TITLE>") = 0
InfoIP = InfoIP & frmPrincipal.Inet1.GetChunk(100)
DoEvents
Loop

Cur1 = InStr(1, InfoIP, "<TITLE>") + 46
Cur2 = InStr(Cur1, InfoIP, "</TITLE>") - 21

IPPúblicaXWeb = Mid(InfoIP, Cur1, Cur2 - Cur1)
End Function

Espero que te sirva... Si alguien conoce una manera más rápida, me interesaría mucho conocerla.

Un saludo!!!

    Pregunta:  43754 - ¿COMO PUEDO HACER PARA PRESIONAR 2 TECLAS JUNTAS
Autor:  Luis diaz
mi problema es que en el programa que es un juego (en el cual una navecita se tiene que mover y disparar ) en que tengo que precionar 2 teclas simultaneamente ocea que mientaras disparo me tengo que mo ver , pero cuendo lo ejecuto si mantengo presionada la tecla de diparo y luego presiono la de movimiento la nevcita se mueve y deja de dispara
y viseversa
  Respuesta:  Alfonso Salazar
'---------------------------------------------------------------------------------------
' Module : Prueba para comprobar simultaneamente dos teclas
' DateTime : 21/10/2004 20:08
' Author : ALFONSO
' Purpose : Creo que esto puede solucionar el problema.
'---------------------------------------------------------------------------------------

Option Explicit
Dim TeclaQ As Boolean
Dim TeclaA As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 81 Then 'código de la tecla Q
TeclaQ = True
End If
If KeyCode = 65 Then 'codigo de la tecla A
TeclaA = True
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 81 Then
TeclaQ = False
End If
If KeyCode = 65 Then
TeclaA = False
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If TeclaQ = True Then
Call RutinaDisparo
End If
If TeclaA = True Then
Call RutinaMovimiento
End If
End Sub

    Pregunta:  43767 - ALMACEN DE RECURSOS
Autor:  Sergio Garcia
tengo que hacer una aplicacion multiidioma en Visual Basic utilizando un almacen de recursos y no tengo ni idea. ¿lguien podria decirme como se hace?
  Respuesta:  SuNcO
Pues.. la verdad no te ocupas complicar tanto.. una idea que se me viene a la mente es la manera de como lo usa por ejemplo "Php Nuke"

En un directorio llamado "lenguajes" hay varios archivos llamados dependiendo el lenguaje.. "Español", "English" etc... estos contienen variables tipo..

en el archivo en Español..

Msg1=click aqui para iniciar

en el archivo en Ingles

Msg1=click here to start

etc.. eh visto varios programas que asi lo hacen

    Pregunta:  43817 - FECHA Y HORA DEL SERVIDOR
Autor:  Vadick Acurio
Hola amigos programo en visual basic 6.0 y deseo obtener la fecha del servidor o de cualquier otra pc que esta conectada a la red asi como tambien deseo hacer mi acceso a una base de datos en access 2000 mas rapido. Gracias
  Respuesta:  Fercho Cavac
utiliza select getdate() te devuelve la fecha de sql
  Respuesta:  Agustín Dávila
Utiliza esta instrucción:

Shell "NET TIME \\Servidor /SET /YES", vbHide

Donde 'Servidor' sera el nombre de tu servidor.

    Pregunta:  43834 - ACCESO BD EN INTERNET CON VB6
Autor:  Israel Prados
Tengo una aplicacion en VB6 sobre Access. La base de datos esta en un servidor y los equipos atacan la BD a través de ADODB y reportan informes. Ahora viene el problema. Me urge trasladar esta BD a un servidor externo, fuera de la red local; continuar con la aplicación y que sigan los usuarios accediendo como hasta ahora; con los minimos cambios posibles (por falta de tiempo). ¿Esto es posible?. ¿Que resultado obtendría?

Un saludo, gracias.
  Respuesta:  SuNcO
Uhm.. yo tengo un ejemplo de conectar VB a un servidor externo con MySql, no se si te sirva

En un boton pon :

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Dim campo As ADODB.Field

conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & ip & ";" _
& "DATABASE=base_de_datos;" _
& "UID=tu_usuario;" _
& "PWD=tu_clave;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

conn.Open

rs.Open "SELECT * FROM usuarios", conn, adOpenStatic, adLockReadOnly

Do Until rs.EOF
For Each campo In rs.Fields
If campo.Name = "usuario" Then
List1.AddItem campo.Value
End If
Next
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

conn.Close
Set conn = Nothing

En las referencias debes tener activado el "Microsoft ActiveX Data Objects 2.0 Library".. creo tienes que bajarlo de la pagina oficial de mysql (mysql.com).. creo se llama MyOdbc

    Pregunta:  43836 - CONTROL DE PUERTO USB MEDIANTE VISUAL BASIC
Autor:  luis cardenas
quisiera saber como puedo controlar el puerto usb a traves del visual basic, es decir lectura y escritura, y la configuracion de los pines del puerto, ya que deseo usar un pic y quisiera saber toda la configuracion y algunos ejemplos previos.
gracias de antemano por su respuesta
  Respuesta:  Edgar Morales
hola luis, para controlar puertos debes trabar con la libreria "inpout32.dll" la cual cuenta con 2 funciones inp32 y out32 deber leer el valor del puerto en herramientas del sistema el cual sera hexadecimal, ejemplo)

out(378h,0) seria salida al puerto 888 en decimail 0 valores al pin y en inp(378h) solo la direccion del puerto el puerto 378h es el ltp1 o sea el de la impresora.

    Pregunta:  43892 - RELACIONAR VARIABLES DE VISUAL BASIC CON VARIABLES DE C++
Autor:  Sergi Sagarra Carol
Tengo unas variables en Visual Basic (versión 6), las variables son double o integer y su valor se lo introduzco en unos textbox. También tengo un programa en C++ (versión Borland C++ 5.01) que tiene definidas unas variables (referidas a las mismas de visual basic), y necesito que los valores que yo ponga en el visual basic sean los valores usados en el programa en C para realizar sus pertinentes calculos.

Muchas gracias!
  Respuesta:  eider mauricio Aristizábal Erazo
hola, yo te sugiero que las escribas en un archivo el cual lenguaje c va a leer,
dentro del lenguaje c debes hacer un ciclo que no continue hasta que no se haya creado dicho archivo, yo lo he hecho así

|<  <<  248 249 250 251 252 253 254 255 256 257 258  >>  >|