Programación General > Visual Basic 6.0 e inferiores

 Archivos .ini

<< < (2/2)

Jose Arriagada:
'Para aplicar esta funcion tienes que crear el archivo en ascii, y lo unico que contiene es el valor del volumen.

Debes declarar como global la siguiente variable
DIM Volumen as Double

Function ValorVolumen() as double
ArchivoIni=App.path & "\ARCHIVO.INI"
open ArchivoIni for input as #1
input #1, ValorVolumen
close(1)
End Function

'Al iniciar tu aplicacion
Private Sub Form_Load()
  Volumen=ValorVolumen()
.....
.....
EndSub



Private Sub RandTema()
Dim rec1 As ADODB.Recordset
Dim Ntemas As Integer
Dim nroTem As Integer
Dim rn
Label8(0).Caption = ""
Label8(1).Caption = ""
Pasa_Pago = False
Set rec1 = New ADODB.Recordset
rec1.Open "select * from temas", Constri, adOpenStatic, adLockReadOnly
Ntemas = rec1.RecordCount
Randomize
rn = Int((Ntemas * Rnd))   ' Genera valores aleatorios entre 1 y 6.
'rn = Int(Ntemas / 60 * Second(Time))
rec1.MoveFirst
rec1.Move rn
nroTem = rec1(0)
rec1.Close
Set rec1 = Nothing
'Mp1.Stop
Mp3.Controls.Stop
TMRTema.Enabled = True

'AQUI COLOCAS EL VALOR DEL VOLUMEN LEIDO AL INICIO DE TU APLICACION
'Mp1.Volume = Volumen

'Mp1.Volume = -2700 ------------------------> ¿Como Hacer un .ini para manejar este valor externamente?
'Mp1.Open "c:\mp3\" & nroTem & ".mp3"
Mp3.settings.volume = 4
Mp3.URL = "c:\mp3\" & nroTem & ".mp3"

Bluebird:
Gracias a los 2...entendí perfectamente :P

Saludo2 :hola:

¡¡¡Nos Vemos !!! :kicking:

Bluebird:
Hola José...

Una pregunta...Realize los pasos ke tu me dijiste...hasta hay todo bien...Cree un modulo .bas con lo siguiente:


--- Código: Text --- Function ValorVolumen() As Double 'Para crear el iniArchivoIni = App.Path & &#34;&#092;volumen.ini&#34;Open ArchivoIni For Output As #1Print #1, ValorVolumenClose (1) 'Para leer el iniArchivoIni = App.Path & &#34;&#092;volumen.ini&#34;Open ArchivoIni For Input As #1Input #1, ValorVolumenClose (1)End Function  
Cuando ejecutas la aplicación se crea el archivo .ini pero no me deja grabar un valor dentro de este...¡ke me falta?

Tambiem koloke las sentencias en formload y la variable tal cual me indicaste..

Gracias, :comp:
abrazos y salu2 :hola:

Jose Arriagada:
En un formulario,

Private Sub cmdGrabar_Click()
nValorVolumen = Text1.Text
If GrabarValorVolumen = True Then
    MsgBox "OK"
End If
End Sub

Private Sub cmdLeer_Click()
Text2.Text = LeerValorVolumen
End Sub


En un modulo .BAS

Global nValorVolumen As Double

Function LeerValorVolumen() As Double
ArchivoIni = App.Path & "\volumen.ini"
Open ArchivoIni For Input As #1
Input #1, nValorVolumen
Close (1)
LeerValorVolumen = nValorVolumen
End Function

Function GrabarValorVolumen() As Boolean
ArchivoIni = App.Path & "\volumen.ini"
nFile = FreeFile
Open ArchivoIni For Output As #nFile
    Print #nFile, nValorVolumen
Close (nFile)
End Function

Navegación

[0] Índice de Mensajes

[*] Página Anterior