Гра "Перший мільйон", Детальна інформація
Гра "Перший мільйон"
randomize ();
int x=50+random (50);
int y=random (100-x);
int z=random (100-(x+y));
int j=random (100-(x+y+z));
int n=100-(x+y+j+z);j=j+n;
if (auditorium==1){x1=x;x2=y;x3=z;x4=j;}
if (auditorium==2){x1=y;x2=x;x3=z;x4=j;}
if (auditorium==3){x1=z;x2=y;x3=x;x4=j;}
if (auditorium==4){x1=j;x2=y;x3=z;x4=x;}
CGauge1->Progress=x1;
CGauge2->Progress=x2;
CGauge3->Progress=x3;
CGauge4->Progress=x4;
auditoria=0;
Модуль Telefon.cpp
#include
#include
#pragma hdrstop
#include "Telefon.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
int x=50+random (50);
int y=random (100-x);
int z=random (100-(x+y));
int j=random (100-(x+y+z));
int n=100-(x+y+j+z);j=j+n;
if (auditorium==1){x1=x;x2=y;x3=z;x4=j;}
if (auditorium==2){x1=y;x2=x;x3=z;x4=j;}
if (auditorium==3){x1=z;x2=y;x3=x;x4=j;}
if (auditorium==4){x1=j;x2=y;x3=z;x4=x;}
CGauge1->Progress=x1;
CGauge2->Progress=x2;
CGauge3->Progress=x3;
CGauge4->Progress=x4;
auditoria=0;
Модуль Telefon.cpp
#include
#include
#pragma hdrstop
#include "Telefon.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021