Delphi визуалды программалау ортасы
жүктеу/скачать 1,51 Mb.
|
Delphi
| 54-сурет
procedure TForm1.TimerTimer(Sender: TObject); begin EraseFace(fx,fy); // бет бейненің жаңа қалпы fx:= Random(ClientWidth-30);//30 – бет бейне диаметрі fy:= Random(ClientHeight-30); PaintFace(fx,fy); end; procedure TForm1.FormCreate(Sender: TObject); begin // бет бейненің бастапқы қалпы fx:=100; fy:=100; Randomize; //кездейсоқ сандар генераторын инициализациялау end; // тышқан батырмасын шерту procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inc(n); // шерту саны if (x > fx) and (x < fx+30) and (y > fy) and (y < fy+30) then begin // бет бейнені шерту inc(p); end; if n = 10 then begin // ойын аяқталды Timer.Enabled := False; //таймерді тоқтату ShowMessage('Атылғаны: 10. Тигені: ' + IntToStr(p)+'.'); EraseFace(fx,fy); Label1.Visible := True; Button1.Visible := True; // енді батырма мен хабарлама қайта көрінді end; end; 55-сурет // Ok батырмасын шерту procedure TForm1.Button1Click(Sender: TObject); begin Label1.Visible := False; // хабарламаны жасыру Button1.Visible := False; // батырманы жасыру Timer.Enabled := True; // таймерді іске қосу end; end. жүктеу/скачать 1,51 Mb. Достарыңызбен бөлісу:
|