PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	31780 - PROBLEMAS PARA ABRIR EL CAJON PORTAMONEDAS DESDE LA IMPRESOR
Autor:	Mari Carmen Cueto
Tengo un cajon portamonedas que va conectado a una impresora de ticket de la marca sangsum. Estoy programando desde visual basic y las ordenes que le mando son: Open Printer.Port for output as 1 Print #1,chr(027) & chr(112) & chr(000) & chr(60) & chr(240); Close 1 El problema es que el cajon no abre. No se que hacer y me gustaria mucho que alguien me pudiera ayudar. ¿La secuencia seria la misma si el cajon va conectado directamente al puerto serie? Muchisimas gracias

Respuesta:	Wirley Rivas Garcia
Men, por mi poca experiencia, me he encontrado con cajones que abren de forma diferente.. primero busca mas informacion, sobre el cajos q estas usando....

Contestar

Pregunta:	31802 - COMPACTAR BD ACCES 2000 CON TECNOLOGIA ADO
Autor:	Omar Andres Vera Olarte
No encuentro la forma de compactar y reparar una base de datos acces 2000 desde visual basic 6.0 y conectada con tecnologia ADO. En Dao se como hacerlo pero con ADO no Gracias por sus respuestas

Respuesta:

Vladimir Blaskovic

' Nota WS_PATH es una variable pública que contiene
' la ruta de la base
' A tú proyecto debes agregar una referencia a :
' Microsoft Jet And Replication objects 2.X Library

Private Sub mnuCompacta_Click()
Dim Ws_basenew As String
Dim Je As New JRO.JetEngine
On Error GoTo ErrorHandler:
'
If MsgBox("Compacta Base de Datos ?", 1 + vbQuestion, "La Compactación puede tomar varios minutos!!!") <> vbOK Then
Exit Sub
End If
'
Screen.MousePointer = vbArrowHourglass
'
' Obtengo la Base original
'
Ws_basenew = WS_PATH & "\Pdp.Mdb"
'
'
' Se verifica que no exista un archivo con el nombre de la base de datos compactada.
If Dir(WS_PATH & "\NewPdp.Mdb") <> "" Then
Kill WS_PATH & "\NewPdp.Mdb"
End If
'
' Se Compacta la base de datos
Je.CompactDatabase "Data Source=" & Ws_basenew & ";", _
"Data Source=" & WS_PATH & "\NewPdp.Mdb;"

' Se elimina la base de datos original
Kill Ws_basenew

' Se Restablece el nombre original de la Base
Name WS_PATH & "\NewPdp.Mdb" As Ws_basenew
'
'
Screen.MousePointer = vbDefault
MsgBox "Compactación exitosa...", vbInformation
Exit Sub
ErrorHandler:
MsgBox Error$(Err.Number), vbCritical
Screen.MousePointer = vbDefault
Exit Sub
End Sub

Contestar

Pregunta:	31847 - AGREGAR SONIDOS DE WINDOWS\MEDIA A UN PROGRAMA.
Autor:	Gabriel Lagos Vásquez Lagos V.
Hola a todos!! Mi problema es el siguiente: Necesito agregar archivos de sonido (que provengan de C:\Windows\media) a un programa. ¿Cómo se puede hacer? El programa está hecho en Visual Basic 6.0 De antemano muchas gracias!!

Respuesta:

J RC

Hola.

Entiendo que lo que quieres hacer es reproducir estos mismos sonidos del sistema operativo según los eventos que ocurren en tu propio programa. Para ello, lo más sencillo es que instancias en el formulario o formularios de tu aplicación y control Multimedia, y bien mendiante el editor de propiedades de tiempo de diseño, bien mediante código asignando propiedades al objeto, especifiques que fichero quieres reproducir. Después, con los métodos del objeto puedes reproducirlo, pausarlo, etc.

Los libros en pantalla de Visual Basic explican con mucho detalle cómo utilizar este control.

Contestar

Pregunta:	31858 - RECURSOS COMPARTIDOS EN VB
Autor:	Iñigo Cabrera Sánchez
Necesito compartir una carpeta y ponerle contraseña, a través de código vb, además de poder acceder a ella del mismo modo, a través de código vb. He planteado esta misma pregunta en varios foros y no he recibido una respuesta coherente. Ya se que esta es difícil, que no es la típica de fechas, combobox autodesplegables, etc. ... pero si alguien puede arrojar luz sobre esto, seguro que interesará a más de uno.

Respuesta:

Jesús lopez

'--------------------------
''COMPARTIRLA
'--------------------------
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\Carpeta", "CarpetaCompartida", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Esta es una carpeta compartida.")
WScript.Echo "errReturn = " & errReturn

'----------------------------------------------
''DESCOMPARTIRLA
'----------------------------------------------

'Establecer Variables
strComputer = NombrePC

'Establecer Equipo donde se creara el Recurso Compartido
Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\cimv2")

'Eliminar Recurso Compartido
Set colShares = objWMIService.ExecQuery ("Select * from Win32_Share Where Name = 'C'")

For Each objShare in colShares
objShare.Delete
Next

Contestar

Pregunta:	31863 - ASIGNAR CON V.B. NIVELES DE SEGURIDA Y ESP. F. A WIN NT.
Autor:	Luis Camargo
Como podrìa por medio de Visual Basic enviar instrucciones a Windosw Nt, que permitan asignarles niveles de seguridad a las carpetas de usuarios y que los espacios fìsicos que se le asignan a cada grupo puedan ser directamente fraccionados usuario por usuario, osea que por medio de una instrucciòn sea posible asignar a mi gusto una porciòn de disco a un usuario en especìfico? Le agradesco su atenciòn y su pronta respuesta al respecto. Somos gente que quiere progresar en este campo. apoyenos!!

Respuesta:

Marco Antonio Calvente Nieto

Para el asunto de fraccionar el espacio físico no tengo nada, pero para cambiar los permisos desde visual basic tengo algo que quizas sirva.
Hay un script de vbs, llamado Xcacls.vbs, que permite hacerlo desde la linea de comandos. Puedes llamar al script con las siguientes lineas desde VB:

Dim objShell as object
set objShell= createobject("wscript.shell")
objshell.run ("cscript.exe" & ruta & "xcacls.vbs ...")

Cambiando los puntos suspensivos por los parametros adecuados, y ruta por la ubicación del script, puedes cambiar los permisos ACL, la herencia y/o el propietario de un archio o carperta.

El archivo para descargar, así como una lista de los parametros y un par de ejemplos esta aquí:

http://support.microsoft.com/?scid=kb%3Bes%3B825751&x=15&y=10#appliesto

Espero que esto te sea útil

Contestar

Pregunta:	31953 - FUNCIÓN MATEMÁTICA COMO PARÁMETRO
Autor:	jairo marin
Deseo que una función matemática cualquiera que el usuario digite en una caja de texto, sea la que utilice Visual basic para realizar calculos matemáticos. la función matemática a utilizar deberá solicitarse al usuario. espero me puedan ayudar. Profesor de matemáticas. Colombia

Respuesta:

Daniel Toro

Por lo que entiendo de tu pregunta, lo que deseas es que el usuario ingrese un "+" o un "-" en la caja de texto (o cualquier otra función) y tu utilices ese caracter para realizar las operaciones, no??? No es tan complicado como parece... sólo tienes que hacer que el parámetro ingrese como String, y reconocerlo dentro de tu función con un Select Case... es decir, si el parámetro es igual a "+" (como string), sumas el resto de los parámetros... es largo, un poco tedioso, pero funciona...

Respuesta:	Miguel Lucero
En la página de El Guille http://guille.costasol.net/utilidades/formulas/cformula.htm existe una excelente clase para el manejo de fórmulas.

Contestar

Pregunta:	31984 - COMO CAPTURO LOS PAQUETES DE RED PARA REALIZAR UN FIREWALL?
Autor:	By Felipe ...
HOLA A MIGOS PROGRAMADORES! NECESITO RELIZAR UN SOFTWARE QUE CAPTURE LOS PAQUETES A NIVEL DE RED PARA ANALIZARLOS Y REALIZAR UN FIREWALL. AGRADEZCO SUS IDEAS O EL CODIGO.... GRACIAS!

Respuesta:	Alfredo Barrios Cruz
Nunca he entendido para qie hacer algo que otras aplicaciones gratuitas, baratas o costosas ya hacen, tal vez sea para hackear, pero echale coco y hazlo con C++, no niego que se puede hacer en vb pero C++ u otro lenguaje del mismo nivel no tendría que bajar tantas capas para hacer eso.

Contestar

Pregunta:	32146 - COMO AVERIGUAR LA VERSION DEL S.O Y LA DEL INTERNET EXPLORER
Autor:	david mac
Pues eso como averiguarlo.Gracias a todos y concretamente a Xavi por ayudarme en otras dudas que tuve.Saludos

Respuesta:	SuNcO
Mi chavo, para saber la version del Internet Explorer debes entrar al registro de Windows y leer... HKEY_LOCAL_MACHINE/Software/Microsoft/InternetExplorer/Version Para el SO es... HKEY_LOCAL_MACHINE/Software/Microsoft/windows/CurrentVersion/Version ó VersionNumber Escribeme y con gusto te envio un OCX que entra al registro de Windows Mi mail (temporal) es [email protected]

Contestar

Pregunta:	32169 - COMO VEO DIRECTORIOS OCULTOS(DIRLISTBOX)
Autor:	David Murillo
Estoy haciendo un buscador de archivos (ya hay hechos),pero agradecería si me pudieran ayudar a como ver carpetas ocultas con dirlistbox ó de otra manera.

Respuesta:	Gerald Valdes
David No tengo claro si el dirlist puede ver archivos ocultos, pero con el siguiente comando vas a leer todos las carpetas (incluidas las ocultas). Dim NomArc As String NomArc = Dir("C:\.", vbDirectory + vbHidden) Do While NomArc <> "" Debug.Print NomArc NomArc = Dir() Loop Avisame si te sirvió por favor. Saludos

Contestar

Pregunta:	32174 - CREACION DE FUENTES EN VB
Autor:	Cristian Paredes
Quisiera crear un programa para crear fuentes propias pero no consigo informacion en ninguna parte, agradesco quien pueda ayudarme

Respuesta:

eider mauricio aristizabal erazo

Debes conocer el formato del archivo al cual quieres crear los fuentes y tu mismo crear el archivo con dicho formato y pegarle el codigo fuente que tu generes, yo lo he hecho creando fuentes para el mismo visual basic, Los archivos de tipo *.frm los puedes abrir desde el block de notas para ver su formato., recuerdo que al final del archivo, se pega el codigo fuente puro.
Reitero lo he hecho para generar código del mísmo VB, cualquier duda me comente. Te recomiendo cacharrearle bastante.

Contestar

|< << 215 216 217 218 219 220 221 222 223 224 225 >> >|