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 >> >| |