Mensajes

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

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 [Seleccionar] Expandir

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

ya me funciona!

Código [Seleccionar] Expandir


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

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

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 [Seleccionar] Expandir

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

Creo que lo mejor es que hagas es eso

echale un vistazo a esto si quieres:
ENLACE

Alli te lo explican 

Salu2

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

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 [Seleccionar] Expandir

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

Hay otra posibilidad, y es mandar las teclas capturadas a un textbox y luego mandar eso a un txt.

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

    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 [Seleccionar] Expandir

    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