programi-games.at.ua

Для мини игры

Кнопка старт 

c("timer1")->enable = true;

c("timer1")->repeat = true;

c("button1")->enabled = false;

c("image1")->enabled = true;

c("labCou")->caption = 0;

c("labTime")->caption = 0;

c("progress1")->position=0;

Картинка 

$l= rand(0,c("panel1")->w-c("image1")->w);

$t= rand(0,c("panel1")->h-c("image1")->h);

c("image1")->x =$l;

c("image1")->y =$t;

c("labCou")->caption +=1 ;

Таймер

c("progress1")->position +=1;

$time=c("progress1")->position;

c("labTime")->caption =$time;

if($time==50)

{

c("timer1")->enable = false;

c("image1")->enabled = false;

MessageBox("Ваш результат: ".c("labCou")->caption, "Сообщение!");

c("button1")->enabled = true;

}

Для простого фейка

HideForm(Form1, SW_SHOW);

MessageBox("Авторизация пройдена ", "Успешно ");

LoadForm(Form2, SW_SHOW);

Для выключение компа

Для кнопки 

if( strlen( c("edit1")->text ) >= 1 ){

$x = c("edit1")->text;

$y = $x * 60000;

c("timer1")->interval = $y;

c("timer1")->enabled = true;

if (c("timer1")->enabled = true){

c("spButton1")->enabled = false;}

}else{

message("Время не указанно.");}

Таймер 1

WinShutdown();

Таймер 2

$today = date("H:i:s");

c("label3")->text = $today;

Для проигрывателя в 6 окон

Кнопка открыть 

$result = c("openDlg1")->execute();

if ($result)

{

$arr = c("openDlg1")->files;

foreach ($arr as $i=>$file)

$arr[$i] = basename($file);

c("listBox1")->items->setArray($arr);

}

Кнопка плеер 

$music = c("listBox1")->items->selected;

c("sqPlayer1")->fileName = $music;

c("sqPlayer1")->play();

Кнопка пауза

c("sqPlayer1")->pause();

Кнопка стоп 

c("sqPlayer1")->stop();

Список 

$music = c("listBox1")->items->selected;

c("sqPlayer1")->fileName = $music;

c("sqPlayer1")->play();

Для процесс бара

Для кнопки 

c("timer1")->enable = true;

c("timer1")->repeat = true;

c("button1")->enabled = false;

c("progress1")->position=0;

Для таймера 

c("progress1")->position +=1;

$time = c("progress1")->position;

if($time==100){ c("timer1")->enable = false;

c("button1")->enabled = true; }