últimos mensajes de: X-TN

Mostrar Mensajes
Páginas: [1] 2

1	Programación / Programación Visual Basic / Re: Perdón por la ignoracias...	en: 27 Julio 2006, 01:50 am
Buenas Los caracteres que definen tipos de variable son: % Integer & Long ! Single # Double @ Currency $ String Hacer uso de estos caracteres ya no es muy frecuente en VB. Esto era obligatorio en Quick-Basic, y sigue funcionando en VB pero ya no se usa mucho. Salu2

Programación / Programación Visual Basic / Re: Softwre para grabación de voz

en: 26 Julio 2006, 15:40 pm

Códgio para grabar la entrada del microfono en memoria para luego guardarlo en un archivo de sonido WAV.

Añadir el siguiente codigo en un modulo BAS:

Código:

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'Envia los comandos al dispositivo MCI:
Private Sub SendCommand(Command As String, Optional ReturnString As String, Optional ReturnLength As Long)
    If ReturnString = vbNullString Then ReturnString = 0
    Call mciSendString(Command, ReturnString, ReturnLength, 0)

End Sub

'Inicia la grabacion de audio:
Public Sub RECORD_Start()
    Call SendCommand("open new type waveaudio alias WavFile")
    Call SendCommand("record WavFile insert")

End Sub

'Termina la grabacion de audio:
Public Sub RECORD_Finish()
    Call SendCommand("stop WavFile wait")
   
End Sub

'Guarda la grabacion en un archivo de sonido WAV:
Public Sub RECORD_Save(Filename As String)
    Call SendCommand("save WavFile " & Filename)
    Call SendCommand("close WavFile")

End Sub

FUENTE

Salu2

3	Programación / Programación Visual Basic / Re: Pequeño problema para subir archivo FTP	en: 25 Julio 2006, 20:12 pm
ya me funciona! Código: Inet1.AccessType = icUseDefault Inet1.Protocol = icFTP Inet1.RemotePort = "21" Inet1.RequestTimeout = "60" Al especificar las siguientes propiedades en el código me funcionó, me habré equivocado en alguno al hacerlo con el menu. Salu2

4	Programación / Programación Visual Basic / Re: Pequeño problema para subir archivo FTP	en: 23 Julio 2006, 12:52 pm
Heey Muchas gracias NYlOn he mirado las funciones que publicaste. Pero no quiero hacer un copy & paste sin entender mucho de lo que estoy haciendo. Puesto que yo pensaba resolverlo con un código de 20 - 30 lineas y dejarlo bastante simple. Y entenderlo todo. Supongo que con las 5 lineas de código que yo tenía alli arriba, podría solucionarlo también no? o me salto algun paso importante? Salu2

5	Programación / Programación Visual Basic / Pequeño problema para subir archivo FTP	en: 22 Julio 2006, 00:03 am
Buenas!! Tengo un pequeño problema. Estaba creando una pequeña aplicación que me enviara un archivo determinado a un servidor FTP. El código lo tengo de la siguiente manera: Código: FTP = Text3.Text User = Text4.Text Passw = Text5.Text Inet1.URL = FTP Inet1.UserName = User Inet1.Password = Passw Inet1.Execute , "PUT c:\Archivos de Programa\Carpeta\Archivo.txt" he buscado por alli, y encontré algunos posts en el que se menciona el tema, hay uno muy bueno de Xpeed y Manibal_man, pero le eche un vistazo y teniendo en cuenta lo que mencionan alli me sigue tirando errores.. (me tira error en la ultima linea). Se como hacerlo con el comando shell, pero me interesa hacerlo con el control Inet. A ver si alguien me puede tirar un cablecito Gracias de antemano Salu2

6	Programación / Programación Visual Basic / Re: [Ayuda]Con colores en msgbox	en: 7 Julio 2006, 13:03 pm
Creo que lo mejor es que hagas es eso echale un vistazo a esto si quieres: ENLACE Alli te lo explican Salu2

7	Programación / Programación Visual Basic / Re: Lio con Arrays	en: 28 Junio 2006, 20:03 pm
Hola! Muchas gracias Alfinal tambien habia dado con el Mid, es que antes no me funcionaba porque algunas cosas no tenian 3 carcteres, pero al sumarle los 100 si. Y es que tarde en darme cuenta xDDDDDD Gracias Salu2

8	Programación / Programación Visual Basic / Lio con Arrays	en: 27 Junio 2006, 00:56 am
Muy buenas Esto es un código que tengo, y lo que supuestamente hace es coger una cadena "cifrada" de un textbox y "desencriptarlo" y mandarlo a otro textbox. La cosa es que cada letra o numero, esta alli "cifrada" en tres numeros. Por eso use el split, pero no estoy convencido de haberlo usado correctamente. Aunque luego me tira error en la parte del array. Alguien podría tirarme un cable? o orientarme un poco? Código: Private Sub Command2_Click() Dim Tamaño As String Dim Carac As String Dim Cadena As String Dim tArray() As String Dim Traduc As String Dim Decrip As String Dim valor As Byte Tamaño = Len(Text5.Text) Carac = Tamaño \ 3 Cadena = Text5.Text tArray = Split(Cadena, Carac) valor = 101 Text3.Text = Carac For i = 1 To Carac Traduc = tArray(i) - valor Decrip = Chr(Traduc) txto = Text2.Text Text2.Text = txto & Decrip Next i End Sub tambien probe con el LBound y UBound pero alli me enrolle más todavía Gracias Salu2

9	Programación / Programación Visual Basic / Re: Keylogger en VB ayuda	en: 26 Junio 2006, 21:27 pm
Hay otra posibilidad, y es mandar las teclas capturadas a un textbox y luego mandar eso a un txt. Código: Public Function guardamos_teclas(contenido As String) Dim canal% contenido = Text1.Text canal = FreeFile Open "c:\texto.txt" For Append As canal Print #canal, contenido Close canal End Function Con esta función se guarda en un texto en c: Salu2

Programación / Programación Visual Basic / Re: Abrir y guardar archivos con CommonDialog

en: 26 Junio 2006, 02:53 am

Código:

    Commondialog1.ShowOpen
    fullname = Commondialog1.filename
    filename = Commondialog1.FileTitle
    If filename <> "" Then
        Debug.Print Commondialog1.filename
        Open fullname For Input As #1
        Text1.Text = Input(LOF(1), #1)
        Close #1
        Form1.Caption = filename
    End If

Para guardar suelo usar una funcion, pero con el commondialog supongo que sera:

Código:

    Commondialog1.ShowSave
    Commondialog1.DefaultExt = "txt"
    fullname = Commondialog1.filename
    filename = Commondialog1.FileTitle
    If fullname <> "" Then
        Open fullname For Output As #1
        Print #1, Text1.Text
        Close #1
        Form1.Caption = filename
    End If

Salu2

Páginas: [1] 2