SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: richard2348 en Viernes 15 de Abril de 2005, 16:17

Título: Ayuda: Guardar Registros Numericos
Publicado por: richard2348 en Viernes 15 de Abril de 2005, 16:17

: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

Título: Re: Ayuda: Guardar Registros Numericos
Publicado por: RadicalEd en Viernes 15 de Abril de 2005, 18:12

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

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

1. 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 Long
2. Private 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
3.  
4. Private Sub EscribirIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, ByVal Valor As String)
5. Dim ganar, perder, credito As Long
6. ganar = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)
7. credito = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)
8. perder = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)
9. End Sub
10.  
11. Private Function LeerIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, Optional ByVal DftValor As String) As String
12. LeerIni = Space(255)
13. lng1 = GetPrivateProfileString(Seccion, Clave, DftValor, LeerIni, 255, IniFile)
14. LeerIni = Left(LeerIni, lng1)
15. End Function
16.  

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 (http://www.mentalis.org/apilist/GetPrivateProfileString.shtml)
WritePrivateProfileString (http://www.mentalis.org/apilist/WritePrivateProfileString.shtml)

Título: Re: Ayuda: Guardar Registros Numericos
Publicado por: richard2348 en Lunes 18 de Abril de 2005, 16:10

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

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