Programación General > Visual Basic 6.0 e inferiores

 Ayuda: Guardar Registros Numericos

(1/1)

richard2348:
:hola: estoy terminando un juego pero necesito guardar informacion de la ultima partida y cinco anteriores, cuanto gano, cuanto pierdo, cuantos creditos tengo etc. Todos estos valores son numericos y se deben actualizar para no crear una lista indefinida de numeros ya que solo nececito los ultimos guardados; ademas que no se deben borrar aun cerrando el programa.Haber si me pueden ayudar, de antemano muchas gracias

RadicalEd:

--- Citar ---estoy terminando un juego pero necesito guardar informacion de la ultima partida y cinco anteriores, cuanto gano, cuanto pierdo, cuantos creditos tengo etc. Todos estos valores son numericos y se deben actualizar para no crear una lista indefinida de numeros ya que solo nececito los ultimos guardados; ademas que no se deben borrar aun cerrando el programa.Haber si me pueden ayudar, de antemano muchas gracias
--- Fin de la cita ---
Utiliza un Command que guarde en un archivo .INI toda esa informacion de partida, y en el evento UnLoad del formulario que haga lo mismo, algo asi:


--- Código: Text ---Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Private Sub EscribirIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, ByVal Valor As String)Dim ganar, perder, credito As Longganar = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)credito = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)perder = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)End Sub Private Function LeerIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, Optional ByVal DftValor As String) As StringLeerIni = Space(255)lng1 = GetPrivateProfileString(Seccion, Clave, DftValor, LeerIni, 255, IniFile)LeerIni = Left(LeerIni, lng1)End Function PD1. Haz lo mismo con leer INI, que se carguen los valores al arrancar el formulario.
PD2. Este codigo es de Brroz, solo lo copie para mostrar.
PD3. Revisa estos enlaces.
GetPrivateProfileString
WritePrivateProfileString

richard2348:

--- Cita de: "RadicalEd" ---
--- Citar ---estoy terminando un juego pero necesito guardar informacion de la ultima partida y cinco anteriores, cuanto gano, cuanto pierdo, cuantos creditos tengo etc. Todos estos valores son numericos y se deben actualizar para no crear una lista indefinida de numeros ya que solo nececito los ultimos guardados; ademas que no se deben borrar aun cerrando el programa.Haber si me pueden ayudar, de antemano muchas gracias
--- Fin de la cita ---

--- Fin de la cita ---
 :hola: Hola muchas gracias lo voy a probar  :hola:
pd. Disculpa la demora en responder

Navegación

[0] Índice de Mensajes