Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-10-2016
yuyidt yuyidt is offline
Miembro
NULL
 
Registrado: oct 2016
Posts: 40
Poder: 0
yuyidt Va por buen camino
Gracias

Ok, muchas gracias. Voy a intentarlo para ver como me va y le cuento.
Responder Con Cita
  #2  
Antiguo 23-11-2016
Snaked Snaked is offline
Baneado
NULL
 
Registrado: sep 2016
Posts: 102
Poder: 0
Snaked Va por buen camino
Opcion para puntuaciones con diferentes forms

hola yuyidt....te ofrezco la solucion pero en C++ Builder si no te importa

mira.... suponiendo que tengas el Form1 donde tienes la puntuacion, y Form2 y Form3 sean los niveles

en el Form1 .......ponemos los Use Units (includes) de los 3 Units
en el Form2 .......ponemos los Use Units (includes) de Unit2 y Unit1
en el Form3 .......ponemos los Use Units (includes) de Unit3 y Unit1

de esta forma nos aseguramos que todos tienen acceso a la variable extern int puntuacion ....

Código PHP:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int puntuacion 0;   //Declaramos esta variable AQUI visibilidad total


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponentOwner)
    : 
TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  
puntuacion 0;
  
Label1->Caption puntuacion;  //boton poner a 0 la puntuacion

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
Form2->ShowModal();        //mostramos el 1º nivel de juego (Form2)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form3->ShowModal();        //mostramos otro nivel de juego (Form3 y asi ...)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
 
Label1->Caption =  puntuacionLabel1->Refresh();
}
//--------------------------------------------------------------------------- 


Unit2.cpp
Código PHP:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
extern int puntuacion;  // asi el programa sabra que hay una variable llamada puntuacion por ahi fuera
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponentOwner)
    : 
TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 
puntuacion puntuacion 5;  // sumamos 5 puntos en la variable puntuacion
  
Form1->Repaint();  //en el evento OnPaint del Form1 tenemos la actualizacion del Label de puntuaciones 
                             // asi que llamamos a Repaint() aqui para que se actualice
}
//--------------------------------------------------------------------------- 

Unit3.cpp
Código PHP:
#include "Unit3.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
extern int puntuacion;    // asi el programa sabra que hay una variable llamada puntuacion por ahi fuera
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponentOwner)
    : 
TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
  
puntuacion puntuacion 10;  // sumamos 5 puntos en la variable puntuacion
  
Form1->Repaint();  //en el evento OnPaint del Form1 tenemos la actualizacion del Label de puntuaciones 
                             // asi que llamamos a Repaint() aqui para que se actualice
}
//--------------------------------------------------------------------------- 

Capturas:

http://www.qualinost.tk/descargas/punt1.jpg

http://www.qualinost.tk/descargas/punt2.jpg

http://www.qualinost.tk/descargas/punt3.jpg



aqui tienes los sources del proyecto:

http://www.qualinost.tk/descargas/vi...puntuacion.rar

Última edición por Snaked fecha: 23-11-2016 a las 20:58:05.
Responder Con Cita
  #3  
Antiguo 23-11-2016
Snaked Snaked is offline
Baneado
NULL
 
Registrado: sep 2016
Posts: 102
Poder: 0
Snaked Va por buen camino
para llevar el Record tienes que hacer uso de un fichero o algo ya que cuando sales del programa se borraria....para eso tienes primero que escribirlo algo asi

Código PHP:
    FILE *stream;
   if ((
stream fopen("Record_de_Puntos.$$$""w+")) == NULL/* abre el archivo Record_de_Puntos.$$$ */
   
{
      
ShowMessage("No he podido crear el fichero de las puntuaciones en el disco.");
      return;
   }

   
fwrite(&puntuacionsizeof(puntuacion), 1stream); /* escribe la estructura en disco */
   
fclose(stream); /* cierra el archivo */
   
ShowMessage("FileStream guardado con éxito en el disco: Archivo Record_de_Puntuaciones.$$$"); 
y para leer las puntuaciones

Código PHP:
FILE *stream;
   if ((
stream fopen("Record_de_Puntos.$$$""r")) == NULL/* abre el archivo Record_de_Puntos.$$$ */
   
{
      
ShowMessage("No he podido LEER el fichero de las puntuaciones.");
      return;
   }

   
fread(puntuacionsizeof(puntuacion), 1stream); /* lee la estructura del archivo */
   
fclose(stream); /* cierra el archivo */ 
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Puntuacion decimal lbidi Varios 2 08-09-2014 20:59:18
Llevar desde Excel a una BD paradox DarkSide Servers 39 08-09-2011 14:58:23
Llevar Un Archivo Imagen A Rave BPL Impresión 3 08-02-2011 13:08:18
¿Como llevar un Select a .TXT? juliopag1 SQL 4 13-01-2006 14:39:15


La franja horaria es GMT +2. Ahora son las 01:12:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi